📄 xinxi.asp

📁 一套asp办公小软件
💻 ASP
字号:
<% if session("name")<>"" then %>
<!--#include file="Global.asp" -->
   <% ttt=0
  
   sj30="教育项目"
     if request("name1")<>"" then
     TempString0=request("name1")
     if request("name")<>"" then
        TempString1=request("name")	
        if request("password")<>"" then
           TempString2=request("Password")
           if sj30<>"" then
              TempString3=sj30
              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
      else
          ttt=1
          Response.Write ("请输入您的用户名!")
      end if
   else
     ttt=1
     Response.Write ("请输入您的真实姓名!")
   end if
   if request("radio1")<>"" then
      sj8="1"
   else
      sj8="0"
   end if   
     %>

<body topmargin="10" leftmargin="60">
<%if ttt=0 then
       sql="SELECT * FROM yuang order by quanz"   
                set rs1=server.createobject("adodb.recordset")
                rs1.open sql,conn,1,1
            do until rs1.EOF
			if rs1("yuangmc")=tempstring0 then
				TempInt=2
				exit do
			end if
			rs1.movenext
       loop   
    
     rs1.close  
     
     if tempint<>2 and tempstring0<>""then 
       
      
       sj1=13
      
        set rs=server.createobject("adodb.recordset")
	   rs.Open "yuang",conn,2,2
       
        Rs.addnew
        Rs("bumid")=sj1
        Rs("yuangmc")=tempstring0
        Rs("yonghm")=tempstring1
        Rs("mima")=tempstring2
        Rs("quanz")=TempString4
        rs("zhiw")=request("name2")
        'rs("gongs")=sj7
        rs("bum")=TempString3
        rs("quanx")=sj8
        Rs("beiz")=""
       

        Rs.update
        Rs.close
        
       
        
       
        Response.Write ("增加完毕!")
       
      else %>
      <P>部门名称已被申请!</p>
    <% end if %>

   <% end if %>
<%else %>
<P><a target="_top" href="Admin_Login.asp">请登录 </a> </p>
<%end if %>
</body>
⌨️ 快捷键说明

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