<%@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
%>
青青热久免费精品视频
息与子五十路孕中文字幕|hry881
女人麻豆国产香蕉久久精品|5kr48
免费AV在线|5wy165
色一情一乱一伦一区二区三区四区|oq5778
97人妻一区二区精品免费|uug90
息与子五十路孕中文字幕|a4v339
免费看曰批女人爽的视频|igq134
青草视频在线观看|4ex168
中文字幕人妻互换激情|ua4714
扒开双腿猛进入爽爽视频|abp71
亚洲视频在线观看|n4g530
台湾中文娱乐网|awa147
丰满少妇被猛烈进入播放视频|4bp404
97人人爽人人爽人人一区二区|lm4401
精品国产伦一区二区三区在线观看|cy5650
超碰人人操|stc205
亚洲无码电影|p5q957
亚洲激精日韩激情欧美激情精品|mnm830
国产 日韩 欧美 中文 另类|3dj191
精品人妻一区二区三区在线影院|nj3328
国产手机在线精品|cyh898
欧美日韩国产|x3e279
av资源网|opy308
天天干天天日|3ma750
亚洲视频在线观看|kl4519
草莓视频在线|4zt226
免费的黄色网站|dz4643
免费a片在线观看|bx4123
免费AV在线|tpy924
人妻中文字幕|q2w90
色一情一乱一伦一区二区三区四区|dpt660
最近2019年手机中文字幕|2py367