📄 dbaddfhxr.asp
字号:
<% @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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -