UC知道请asp网站防注入高手解答!
来源：百度知道 编辑：UC知道 时间：2024/06/16 09:38:29
下面这段代码有什么功能,希望大家帮助一下!
<%
Dim curpage,enpage,querystr,fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
curpage = lcase(CStr(Request.ServerVariables("PATH_INFO")))
curpage = mid(curpage,instrrev(curpage,"/")+1)
querystr=CStr(Request.ServerVariables("QUERY_STRING"))
enpage="en"&curpage
if fso.FileExists(Server.MapPath(enpage)) then
enpage=enpage&"?"&querystr
else
enpage="enindex.asp"
end if
set fso=nothing
if right(enpage,1)="?" then enpage=left(enpage,len(enpage)-1)
%>
希望能够逐字逐句的解释一下,越具体越好,如果有改进的函数请贴出来或者发到我qq136516752都可以,一旦满意至少追加50分!
<%
Dim curpage,enpage,querystr,fso
set fso=Server.CreateObject("Scripting.FileSystemObject")
curpage = lcase(CStr(Request.ServerVariables("PATH_INFO")))
curpage = mid(curpage,instrrev(curpage,"/")+1)
querystr=CStr(Request.ServerVariables("QUERY_STRING"))
enpage="en"&curpage
if fso.FileExists(Server.MapPath(enpage)) then
enpage=enpage&"?"&querystr
else
enpage="enindex.asp"
end if
set fso=nothing
if right(enpage,1)="?" then enpage=left(enpage,len(enpage)-1)
%>
希望能够逐字逐句的解释一下,越具体越好,如果有改进的函数请贴出来或者发到我qq136516752都可以,一旦满意至少追加50分!
<%
Dim curpage,enpage,querystr,fso
'定义变量
set fso=Server.CreateObject("Scripting.FileSystemObject")
'变量赋值
curpage = lcase(CStr(Request.ServerVariables("PATH_INFO")))
'获得当前url,去掉 http://<server> 的 例如: /admin/index.asp
curpage = mid(curpage,instrrev(curpage,"/")+1)
'取得最后的文件名 mid("/admin/index.asp",instrrev("/admin/index.asp"),'/')+1)
' 得到的应该是 index.asp
'
querystr=CStr(Request.ServerVariables("QUERY_STRING"))
'获取请求中问号(?)后的信息，不包括?号
enpage="en"&curpage
'拼接字符串
if fso.FileExists(Server.MapPath(enpage)) Then
'若enpage存在于服务器的话
enpage=enpage&"?"&querystr
'拼接url
Else
'不存在的话
enpage="enindex.asp"
end if
set fso=Nothing
'清空对象
if right(enpage,1)="?" then enpage=left(enpage,len(enpage)-1)
'如果enpage右面第一个字符是