文章列表
<%
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")
...
- 2008-04-23 12:08
- 浏览 2631
- 评论(0)