Question

急求一个asp跳转的代码

dim url
url=Request.QueryString("url")
if url="ti2.3g.qq.com/g/s?sid=AfKiLOvyrDebqSc_WN2zIhKt&aid=h&hu=qianhaoping1223&g_f=10169" then
Response.Redirect "http://www.baidu.com/"
end if

这样为什么不行啊，当用户访问这个网址的时候跳转，有没有更好的方法啊

Answer 1

建议你用：
<%
Function GetUrl()
Dim strHostName,strScriptName,strSubUrl,strRequestItem
strHostName=CStr(Request.ServerVariables("LOCAL_ADDR"))
strScriptName=CStr(Request.ServerVariables("SCRIPT_NAME"))
strSubUrl=""
If Request.QueryString<>"" Then
strScriptName=strScriptName&"?"
For Each strRequestItem In Request.QueryString
If InStr(strScriptName,strRequestItem)=0 Then
If strSubUrl="" Then
strSubUrl=strSubUrl&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))
Else
strSubUrl=strSubUrl&"&"&strRequestItem&"="&Server.URLEncode(Request.QueryString(""&strRequestItem&""))
End If
End If
Next
End If
GetUrl="http://"&strHostName&strScriptName&strSubUrl
End Function
%>

或者用这个

GetUrl ="http://"&Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")

获取网址
之后再做判断。
因为Request.QueryString并不获取比如 ti2.3g.qq.com....，而只获取到了“?”后面的部分。
也就是：
在利用上面的函数，这样判断：
IF GetUrl() = ..... Then
Response.Redirect ...
End IF

DW软件提供一种极简单的算法：
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
那么，就是判断：
IF MM_editAction = ... Then
Response.Redirect ...
End IF

Answer 2

你那个方法不对，可以试下如下方法
<%
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function

dim url
url="http://127.0.0.1/t.asp"
if url=GetUrl then
Response.Redirect "http://www.baidu.com/"
end if
%>

Answer 3

你的url变量提取的值不是字符串,而是一个QueryString集合,(即?以后的四个变量的值).建议你在网上收集一下QueryString集合的资料.

Answer 4

要先看你选择用哪种方法，是用后台代码还是。javascirpt