go.asp

来自「商机网站8.0,比教完整,可以自己二次开发!」· ASP 代码 · 共 26 行

<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
dim RS,sql
dim url,id
url = Request("url")
id= Request("id")
response.write("<meta http-equiv=""refresh"" content=1;URL="&url&">")
response.write("178商机网提示您：正在载入你所查询的产品商业信息，请梢侯......")


if Trim(id) <> "" and IsNumeric(id) then
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "select id,hits  from site where id = " & id
RS.Open sql, Conn, 3, 3
if not RS.EOF then
RS("hits").value = RS("hits").value + 1
RS.Update()
end if
RS.Close()
Set RS = nothing
end if
'Response.Redirect(url)

%>