click.asp

一个简单的小程序

<!--#include file="inc/conn.asp"-->
<%
bid=request.QueryString("bid")
if Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" then
zhenip=Request.ServerVariables("REMOTE_ADDR")
else
zhenip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
end if
'======================================================================
'=              Copyright (c) 2008-2010 ,老四(QQ7280091)开发          =
'=                      All rights reserved.                          =
'=--------------------------------------------------------------------=
'=                    　　　　 二月小说 v_1.0   　                    =
'=                    　　　　                  　                    =
'=                     演示网址：www.2yue.com.cn                      =
'=                     官方网址：vip.2yue.com.cn                         =
'=                     官方QQ群：7500701                              =
'=--------------------------------------------------------------------=
'=                     用   途：小说、小说连载                        =
'=                     最后更新：2008-11-1                            =
'======================================================================
if Request.Cookies("cbid")<>bid then
response.Cookies("zip")=""
response.Cookies("cbid")=bid
response.cookies("cbid").expires=dateadd("n",60,now())
end if
if Request.Cookies("zip")<>zhenip then
set rs=server.CreateObject("adodb.recordset")
sql="select click from laos_shu where bid="&bid
rs.open sql,conn,1,3
if not rs.eof then
rs("click")=rs("click")+1
response.Cookies("zip")=zhenip
response.cookies("zip").expires=dateadd("n",60,now())
rs.update
end if
rs.close
set rs=nothing
end if
set rs=server.CreateObject("adodb.recordset")
sql="select click from laos_shu where bid="&bid
rs.open sql,conn,1,3
if not rs.eof then
response.Write("document.write("&rs("click")&")")
end if
rs.close
set rs=nothing
call CloseConn()
%>