#32001/3/12 9:45:38
建一个数据字段用来保存点击数
dim cnn,sqlstr,rstest,subject,hit
set cnn=server.createobject("adodb.connection")
cnn.open "forum"
subject=request.querystring("subject")
sqlstr="select * from luntan where subject="& subject
set rstest=cnn.execute(sqlstr)
hit=rstest("hit")+1
sqlstr="update luntan set hit='"&hit&"' where subject="&subject
cnn.execute(sqlstr)