📄 xinxi1.asp
字号:
<% 'if session("name")<>"" then %>
<!--#include file="Global.asp" -->
<% ttt=0
if request("name1")<>"" then
TempString0=request("name1")
if request("radio")<>"" then
TempString3=request("radio")
if request("quanzhong")="" then
TempString4=0
else
TempString4=request("quanzhong")
end if
else
ttt=1
Response.Write ("请选择相应的公司名称!")
end if
else
ttt=1
Response.Write ("请输入您的部门名称!")
end if
'response.write(tempstring3)
'response.end
%>
<body topmargin="10" leftmargin="60">
<%if ttt=0 then
sql="SELECT * FROM bum order by quanz"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
do until rs1.EOF
if rs1("bummc")=tempstring0 then
TempInt=2
exit do
end if
rs1.movenext
loop %>
<% if tempint<>2 and tempstring0<>""then
set rs=server.createobject("adodb.recordset")
sql="select * from gongs where gongsmc='"& TempString3 &"'"
' response.write(sql)
' response.end
rs.open sql,conn,1,1
sj1=rs("id")
rs.close
set rs=server.createobject("adodb.recordset")
rs.Open "bum",conn,2,2
Rs.addnew
Rs("gongsid")=sj1
Rs("bummc")=tempstring0
Rs("quanz")=TempString4
Rs("beiz")=""
Rs.update
Rs.close
rs1.close
Response.Write ("增加完毕!")
else %>
<P>部门名称已被申请!</p>
<% end if %>
<% end if %>
<% 'else %>
<P>请登录 </p>
<%' end if %>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -