<%
dim Hits
dim vote
dim VoteNum
dim documentid
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open Application("ConnectionString")
Call con.Execute("update documents set hits=isnull(hits,0)+1 where documentid=1239")
Dim rs
Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=1239")
If Not (rs.EOF And rs.BOF) Then
Hits = rs(0)
Vote = rs(1)
VoteNum = rs(2)
Else
Hits = 1
Vote = 5
VoteNum = 1
End If
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
图片新闻