<% @ Language = VBScript %>
<%
'The following is the asp program for voting.
If Request. ServerVariables ("http_method") = "POST" then
If Request. Form ("voteradio") <> "then
'The processing is only performed if the user chooses to think that the document is well-written.
Set rec = server. CreateObject ("adodb. recordset ")
Rec. ActiveConnection = "dsn = vote"
If Request. Form ("votecomment") <> "then
'Add users' messages to the data.
Rec. Source = "select * from tbcomment"
Rec. Open, 1, 3
Tempstr = Request. Form ("votecomment ")
Rec. AddNew
Rec ("userip") = Request. ServerVariables ("remote_addr ")
Rec ("comment") = tempstr
Rec. Update
Rec. Close
Tempstr = "<PRE>" & tempstr & "</PRE>"
Tempstr = tempstr & "<P> you voted, thank you </P>"
Else
'If the user does not leave a message
Tempstr = "this netizen has nothing to say. He/she just thinks this article is well received, so he voted for it"
End if
'Database based on the user's vote to update the number of votes recorded
