vote.asp

网上商城的设计与实现

<%
  rb=Request("rb")
  if rb<>"" Then
    Set myConnection = Server.CreateObject("ADODB.Connection")
    myConnection.Open Application("ConnectString")
    
    Set tempRs = Server.CreateObject("ADODB.Recordset")
    tempRs.ActiveConnection = myConnection
    
    tempRs.Open "Update vote Set c_num=c_num+1 where id="&rb,myConnection,2,3,1
    
    Set tempRs = Nothing
    Set myConnection = Nothing
    Response.Redirect "admin/votedetail.asp"
  End if
%>