goto.asp

这是一个用SQL Server和ASP开发的搜索引擎网站

<%

session("lastdate") = Request.Cookies("tgdate")
session("lastid") = Request.Cookies("ID")
url = Request.QueryString("id")
Response.Cookies("ID") = url

Conn_String ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"  
	
set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from link2 where ID =" & url)
ezeRedir = RS("URL").value


if session("lastdate") = "" then
	session("lastdate") = dateadd("d",-10,now())
End if
ezedate =  datediff("h",session("lastdate"), now())

if  session("lastid") = url  and ezedate < 6 then
else
	hit=cInt(rs("Hit"))+1
Set RS2 = conn.Execute("UPDATE link2 SET Hit = " & hit & " Where ID =" & url)
	
	End If


RS.Close
conn.Close
set conn = nothing


Response.Redirect (ezeredir)
%>