|
|
产品搜索
| 用户名 | |
| 密 码 | |
 |
 |
| 用户名 | |
| 密 码 | |
|
|
|
|
|
友情链接： 百度 谷歌 阿里巴巴 好自然纯水机 好自然售水机
* 400-7328028<%
if session(“refresh”)〈〉 1 then
Session(“refresh”)=session(“refresh”)+1
Response.redirect “index.asp”
End if
%><%
Dim fsoObject
Dim tsObject
dim file
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then
response.write "无代理访问"
response.end
end if
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
file = server.mappath("CCLog.txt")
if not fsoObject.fileexists(file) then
fsoObject.createtextfile file，true，false
end if
set tsObject = fsoObject.OpenTextFile(file，8)
tsObject.Writeline Request.ServerVariables("HTTP_X_FORWARDED_FOR")
&"["Request.ServerVariables("REMOTE_ADDR")&"]"&now()
Set fsoObject = Nothing
Set tsObject = Nothing
response.write "有代理访问"
%>