dbqqxp.asp

来自「用于选举集中上来的手工选票的记录与统计」· ASP 代码 · 共 52 行

<% @language=VBScript %>
<%
option explicit 
dim cnn,strcnn
set cnn=server.createobject("ADODB.Connection")
strcnn="Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "&Server.Mappath("xjdb.mdb")
cnn.open strcnn


    dim Filetj
    Filetj=cnn.execute("select totalnum,nonum from tongji")  
    
    dim revtotal,revno
    
    revtotal=Filetj(0)+1
    revno=Filetj(1)+1
    
    cnn.execute "update  tongji set totalnum='"&revtotal&"' where id='tongji'"
    cnn.execute "update  tongji set   nonum='"&revno&"' where id='tongji'"
    response.write "<script language='javascript'>"
    response.write vbLf
    response.write "window.opener.document.formhk.totalnum.value="""&revtotal&""";"
    response.write vbLf
    response.write "window.opener.document.formhk.nonum.value="""&revno&""";"
    response.write vbLf
    response.write "</script>"
    response.write vbLf
    dim Fnum,strfield,strvalue
    set Fnum=cnn.execute("select serial from serialnumber where idkey='numkey'")
    strfield="序号,类型"
    strvalue="'"&Fnum(0)&"','弃权'" 
    cnn.execute "insert into changpiao ("&strfield&") values("&strvalue&")"
    cnn.execute "update serialnumber set serial="&(Cint(Fnum(0))+1)&" where idkey='numkey'"
    set Fnum=nothing
   	 
    set Filetj=nothing	
  


      response.write "<script language='javascript'>"
      response.write vbLf
      response.write vbLf
      response.write "window.opener=null;"
      response.write vbLf
      response.write "window.close();"
      response.write vbLf
      response.write "</script>"

cnn.close

set cnn=nothing
%>