<%@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. 欧美黄色视频|ins252 午夜福利视频|fn5293 最近免费中文字幕手机版|lvj951 国产乱码精品一区二区三区久久|t5p445 免费性爱视频|zfh768 AV免费观看|3gu385 菠萝蜜视频在线观看|3yh853 在线看a片|wn349 国产精品天干天干在线下载|dza723 国产色婷婷一区二区三区|w4v361 国产乱老熟视频乱老熟女|bzd7 天天射综合网|4on759 亚洲 欧美 自拍 另类 日韩|zv4372 狠狠色综合激情五月丁香|wsr278 97人妻精品全国免费视频|d4p23 山外人精品影院|wss61 超碰网站|2ce437 天天综合网|uq2512 无码人妻一区二区久久|fwl678 亚洲视频在线观看|soc175 新香蕉视频|u3m650 精品国产伦一区二区三区在线观看|yzo849 免费a片在线观看|3ae903 台湾佬中文网|wx3474 久草av|zfe28 黄色视频免费|q3i767 97在线观看|tke668 色一情一乱一伦一区二区三区四区|3mv136 亚洲 图色 激情 日韩 欧美|du2355 成午夜精品一区二区三区精品|mir248 最近免费中文字幕手机版|fr2727 国产手机在线精品|sjs413