dbaddfhxr.asp

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

ASP
90 行
字号 
<% @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 revname,revmessage

if trim(request.querystring("fhxrname"))="" then
	
	revname="未命名"

else
	
	revname=trim(request.querystring("fhxrname"))
	
end if

function  strlen(str)
dim l,t,c,i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
 if c<0 then
    c=c+65536 
 end if
 if c>255 then 
    t=t+1
 end if
next
strlen=t
end function

if strlen(revname)>10 then
      response.write "<html><head><title></title><body>"
      response.write vbLf
      response.write "<script language="""&"VBScript"&""""&">"
      response.write vbLf
      response.write "alert("""&"该非候选人名称过长"&""")"
      response.write vbLf
      response.write "</script></body></html>"

else
dim INSf
set INSf=cnn.execute("select count(*) from fhxr where trim(fhxr_name)='"&revname&"'")
if  INSf(0)<=0 then 
      
      cnn.execute "insert into  fhxr (fhxr_name) values('"&revname&"')"
      cnn.execute "insert into  fhxrps (fhxr_name) values('"&revname&"')"
      cnn.execute "alter table changpiao add column "&revname&" char(5) default 0"
      
      response.write "<html><head><title></title><body>"
      response.write vbLf
      response.write "<script language="""&"VBScript"&""""&">"
      response.write vbLf
      response.write ""
      response.write vbLf
      response.write "</script></body></html>"
else

      response.write "<html><head><title></title><body>"
      response.write vbLf
      response.write "<script language="""&"VBScript"&""""&">"
      response.write vbLf
      response.write "alert("""&"该非候选人名称已存在"&""")"
      response.write vbLf
      response.write "</script></body></html>"
end if
 
end if
      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 INSf=nothing
set cnn=nothing
%>

dbaddfhxr.asp - 源码说明

本页面展示了「用于选举集中上来的手工选票的记录与统计」中的 dbaddfhxr.asp 源码文件，采用 ASP 编程语言编写，共 90 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与选举统计相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?