📄 dbaddhxr.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.form("hxrname"))="" then
revname="未命名"
else
revname=trim(request.form("hxrname"))
end if
if trim(request.form("hxrmessage"))="" then
revmessage="空"
else
revmessage=trim(request.form("hxrmessage"))
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
function back()
response.write "<html><head><title></title>"
response.write vbLf
response.write "<script language="""&"VBScript"&""""&">"
response.write vbLf
response.write "function back()"
response.write vbLf
response.write "window.location="""&"newaddhxr.asp"&""""
response.write vbLf
response.write "end function"
response.write vbLf
response.write "</script>"
response.write vbLf
response.write "</head>"
response.write vbLf
response.write "<body onload="""&"back()"&""">"
response.write vbLf
response.write "</body>"
response.write vbLf
response.write "</html>"
response.write vbLf
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>"
back()
else
if request.form("submitadd")=" 新增 " then
dim INSf
set INSf=cnn.execute("select count(*) from hxr where trim(hxr_name)='"&revname&"'")
if INSf(0)<=0 then
cnn.execute "insert into hxr (hxr_name,hxr_message) values('"&revname&"','"&revmessage&"')"
cnn.execute "insert into hxrps (hxr_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
back()
end if
end if
if request.form("submitdel")="删 除" then
cnn.execute "delete from hxr where hxr_name='"&revname&"'"
cnn.execute "delete from hxrps where hxr_name='"&revname&"'"
cnn.execute "alter table changpiao drop column "&revname
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>"
back()
end if
cnn.close
set INSf=nothing
set cnn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -