<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%response.CODEPAGE=65001 %> <%response.Charset="utf-8"%> <% dim add_no_value '是否添加值為空白的參數作為文件名,默認是false' add_no_value = false dim filepath asp_file_name = Request.ServerVariables("SCRIPT_NAME") asp_file_name = replace(asp_file_name,"/","") filepath = replace(asp_file_name, ".", "_") & "/" query = trim(lcase(request.queryString)) '原始query字符串取小寫,去除前后空格' if query = "" Then filepath = filepath & "index.html" else arr = split(query,"&") for i=0 to ubound(arr) arr(i) = split(arr(i), "=")(0) Next arr_sort = SortPara(arr) for i=0 to ubound(arr_sort) value = request.queryString(arr_sort(i)) filepath = filepath & arr_sort(i) & "=" &value if i <> ubound(arr_sort) Then filepath = filepath & "&" else filepath = filepath & ".html" end if next end if dst_file = Server.MapPath(filepath) Set fso=Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(dst_file) then set fso=nothing ReadTextFile dst_file,"utf-8" else set fso=nothing Response.Status = "404 Not Found" end if '列表排序' Function SortPara(sPara) Dim nCount nCount = ubound(sPara) For i = nCount To 0 Step -1 minmax = sPara( 0 ) minmaxSlot = 0 For j = 1 To i mark = (sPara( j ) > minmax) If mark Then minmax = sPara( j ) minmaxSlot = j End If Next If minmaxSlot <> i Then temp = sPara( minmaxSlot ) sPara( minmaxSlot ) = sPara( i ) sPara( i ) = temp End If Next SortPara = sPara end Function Function ReadTextFile(filePath,CharSet) dim stm set stm=Server.CreateObject("adodb.stream") stm.Mode=3 stm.Open stm.LoadFromFile filePath stm.Position=0 stm.Type=2 stm.Charset=CharSet ReadTextFile = stm.ReadText stm.Close set stm=nothing response.write(ReadTextFile) End Function %> 青青热久免费精品视频

      1. <option id="cnpmo"><span id="cnpmo"><em id="cnpmo"></em></span></option>
      2. <track id="cnpmo"></track>
        <track id="cnpmo"><div id="cnpmo"></div></track>
          <track id="cnpmo"></track>

          1. <track id="cnpmo"><span id="cnpmo"></span></track>
          2. 老司机精品视频|z8z68 在线看A片|q8f196 免费av网站|rfx664 欧美日韩国产|8ez83 黄瓜视频在线观看|cs8761 菠萝蜜视频在线观看|yzv531 日韩在线视频|v9e821 菠萝菠萝蜜免费视频高清观看播放|uae261 亚洲国产日韩a精品乱码|7yc291 亚洲视频在线观看|yp7168 亚洲性爱视频|qma953 黄瓜视频在线观看|r7y640 激情 人妻 偷乱在线视频|zfo901 A片在线播放|7vh303 人妻中文字幕|7fy894 中文字幕在线播放|ye8581 国产精品天干天干在线播放|okj293 高清无码在线观看|d8z302 黄色视频在线免费观看|fqe604 97视频在线观看|8aj815 国产在线拍揄自揄视精品|pq689 中文字幕av|flu407 女人麻豆国产香蕉久久精品|d6u395 中文字幕在线播放|ijx119 国产无遮挡又黄又爽又色|6hc813 亚洲视频在线观看|oun970 一个人视频在线观看www中文|7os859 武侠古典|7bp863 AV免费在线观看|ja7248 国产乱真实伦精彩对白在线|abf500 三级片免费|l7h644 超碰国产精品人人做人人爱|bxq161