方法一：简单，得不到参数，只有一个虚拟路径
GetUrl =request("url")
例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:shiyan.asp
方法二：得到整个URL，得到参数
'得到当前页面的地址
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
例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
方法二：得到虚拟路径，得到参数
Private Function GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
<script language="JavaScript">
function reloadcode(){
var verify=document.getElementById('safecode');
verify.setAttribute('src','images/chknumber.asp?'+Math.random());
//这里必须加入随机数不然地址相同我发重新加载
}
</script>
<img src="images/chknumber.asp"&n ......
为什么在ASP里指定了codepage为65001还经常显示乱码。才子在这里将这个问题详细解释一下，以免很多朋友再走弯路，甚至排斥UTF-8。 CHINAZ
如果你还不知道UTF-8是什么东东，那才子建议你先去搜索一下UTF-8的相关资料吧。
UTF-8编码之所以被越来越多的人接受甚至喜欢，肯定是有道理的，在WEB2.0盛行的今天，在大谈 ......
