openarticle.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 19 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="dbpath/dbpath.asp"-->
<%response.buffer=false
dim sql
dim rs
dim listname
dim articleid

articleid=request("id")
set rs=server.createobject("adodb.recordset")
sql="update learning set hits=hits+1 where articleID="&articleid
rs.open sql,conn,1,1   
response.redirect "list.asp?id="&articleid
rs.close
set rs=noting
conn.close
set conn=nothing
%>