down.asp

来自「系统功能说明： 1 本书库系统专为以文字为主的站点设计」· ASP 代码 · 共 16 行

<!--#include file="conn.asp"-->
<%
bookid=request("bookid")
bookid=bookid-300

  sqld="select * from book where bookid="&bookid&"  "
Set rsd = Server.CreateObject("ADODB.Recordset")
sqld="update book set hit=hit+3 where bookid="&bookid&" "
rsd.open sqld,conn,1,1

bookid=bookid+300
%>

<meta http-equiv="refresh" content="0;URL=http://bbs.xxbook.net/download.asp?bookid=<%=bookid%>">