⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 adminaddusersave.asp

📁 该系统测试用户信息主要由数据库直接输入
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if

%>
<%
username=trim(request("username"))
pwd=trim(request("pwd"))
pwd1=trim(request("pwd1"))
tname=trim(request("tname"))
email=trim(request("email"))
nianji=trim(request("nianji"))
banji=trim(request("banji"))

function symbol_name(sn_var)
  dim safety_char:symbol_name="yes":sn_var=trim(sn_var)
  if sn_var="" or isnull(sn_var) or len(sn_var)>20 or instr(sn_var,"|")>0 or instr(sn_var,":")>0 or instr(sn_var,chr(9))>0 or instr(sn_var,chr(32))>0 or instr(sn_var,"'")>0 or instr(sn_var,"""")>0 then symbol_name="no":exit function
  safety_char="$%#*@&=<>'`~!^()+\|:;,./?" 
  for i=1 to len(sn_var)
    if instr(1,safety_char,mid(sn_var,i,1))>0 then symbol_name="no":exit function
  next
end function

%>

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 综合管理 | 用户管理 | 注册新用户</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body>

<div align="center">
  <center>
  <table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="400" id="AutoNumber2" border="1">
      <form method="POST" action="adminaddusersave1.asp"><tr>
      <td width="100%" height="25" bgcolor="#6699CC" background="images/admin_bg_1.gif" bordercolor="#799AE1">
      <p align="center"><b>&nbsp;<font color="#FFFFFF">添加用户信息确认</font></b></td>
    </tr>
    <tr>
      <td width="100%" height="160" bgcolor="#FFFDE8" bordercolor="#799AE1">
    
        <p align="center"> </p>
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="170">
          <tr>
            <td width="45%" height="28">
            <p align="right">准考证号:</td>
            <td width="55%" height="28"><%   
        
        Set rs=Server.CreateObject("Adodb.RecordSet")
      rs.Open "Select * from tbuser  where username='"&username&"'",conn

   if not rs.EOF then

   Response.Write "<font color=red>该用户名已经存在</font>"
   founder="false"
   
   else 
    if symbol_name(username)<>"yes" then
     
      founder="false"
      Response.Write "<font color=red>该用户名不符合相关规则!</font>"
      else
       response.write  username
     end if

   end if%> </td>
          </tr>
          <tr>
            <td width="45%" height="29">
            <p align="right">密&nbsp;&nbsp;&nbsp; 码:</td>
            <td width="55%" height="29"><%if pwd<>pwd1 then
           Response.Write "<font color=red>密码不一致</font>"
           founder="false"
           else
           response.write pwd
           end if
           
        %></td>
          </tr>
          <tr>
            <td width="45%" height="29">
            <p align="right">姓&nbsp;&nbsp;&nbsp; 名:</td>
            <td width="55%" height="29"><%=tname%></td>
          </tr>
          <tr>
            <td width="45%" height="29">
            <p align="right">电子邮箱:</td>
            <td width="55%" height="29"><%if instr(email,"@")=0 then
           Response.Write "<font color=red>格式不正确</font>"
           founder="false"
           else
              if instr(email,".")=0 then
              Response.Write "<font color=red>格式不正确</font>"
              founder="false"
              else
              response.write email
              end if
           
           end if
           
        %></td>
          </tr>
          <tr>
            <td width="45%" height="29">
            <p align="right">年&nbsp; 级:</td>
            <td width="55%" height="29"><%=nianji%>级 </td>
          </tr>
          <tr>
            <td width="45%" height="29">
            <p align="right">班&nbsp; 级:</td>
            <td width="55%" height="29"><%=banji%></td>
          </tr>
        </table>
        <p align="center"> </p>
      
      </td>
    </tr>
    <tr>
      <td width="100%" height="25" bgcolor="#FFFDE8" bordercolor="#799AE1">
      <p align="center">
     <% if founder="false" then%> 
     <input type="button" value="返 回" name="B3" class="s02" onclick="window.location='adminadduser.asp?username1=<%=username%>&tname1=<%=tname%>&email1=<%=email%>&banji1=<%=banji%>&nianji1=<%=cstr(nianji)%>'"><span lang="en-us">
         </span></td>
   
<%else%>
 <input type="submit" value="确 认" name="B3" class="s02"  >&nbsp;&nbsp;&nbsp;&nbsp; 
    <input type="button" value="返 回" name="B3" class="s02" onclick="window.location='adminadduser.asp'">
  <input type="hidden" value="<%=username%>" name="username"    >
   <input type="hidden" value="<%=pwd%>" name="pwd"    >
     <input type="hidden" value="<%=tname%>" name="tname"    >
       <input type="hidden" value="<%=email%>" name="email"    >
         <input type="hidden" value="<%=nianji%>" name="nianji"    >
           <input type="hidden" value="<%=banji%>" name="banji"    >
 
 <%end if%>

 </tr></form>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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