📄 user_reg2.asp

📁 汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便
💻 ASP
字号:
<!--#include file="user_err.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
b1=request("b1")

if b1="" then
%>
<HTML><HEAD><TITLE>汕头育新学校 - 学籍认证页面</TITLE>
<HTML><HEAD><TITLE>汕头育新学校 - 注册页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="images/style.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.pinkstar {
	COLOR: #ed5460
}
<STYLE type=text/css>BODY {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
INPUT {
	FONT-SIZE: 12px; COLOR: #000080
}
SELECT {
	FONT-SIZE: 12px; COLOR: #000080
}
TH {
	FONT-SIZE: 12px; COLOR: #000080
}
TD {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
A:link {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:visited {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:active {
	FONT-SIZE: 12px; COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 12px; COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<!--#include file="up.inc"-->
<TABLE height=20 cellSpacing=0 cellPadding=0 width=750 bgColor=#4f8fcb border=0 align=center>
  <TBODY>
  <TR>
    <TD align=middle>
      <TABLE border=0>
        <TBODY>
        <TR>
          <TD align=middle width=120><FONT 
            color=#fffff>系统首页</FONT></TD>
          <TD align=middle width=120><FONT 
            color=#fffff>修改资料</FONT></TD>  
          
          <TD align=middle width=120><FONT 
            color=#fffff>学籍管理</FONT></TD>
          <TD align=middle width=120><FONT 
            color=#fffff>成绩查询</FONT></TD>
          <TD align=middle width=120><FONT 
            color=#fffff>网上留言</FONT></TD>
          
          <TD align=middle width=120><A 
            href="logout.asp"><FONT 
            color=#fffff>退出登陆</FONT></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR>
<DIV align=center>
<P><FONT style="FONT-SIZE: 13pt">欢迎访问汕头育新学校成绩管理系统</P>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center>
  <TBODY>
  <TR class=h4_center>
        <TD align=middle bgColor=#d2e7f4 height=30>尊敬的用户，您好！</TD></TR>        
  <TR>        
    <TD height=10></TD></TR></TBODY></TABLE>        
<TABLE cellSpacing=0 cellPadding=0 width=530 align=center border=0>          
  <TBODY>          
  <TR>          
          
     
    <TD vAlign=top width=530>          
     <TABLE cellSpacing=0 cellPadding=0 width=530 border=0>          
        <TBODY>          
        <TR>          
          <TD class=tdTit_p>汕头育新学校学生学籍认证</TD></TR>         
        <TR>         
          <TD class=tdBor_p>         
            <DIV align=center>
			<TABLE cellSpacing=4 cellPadding=0 width=521 align=center bgColor=#fff7f7 
border=0><form action="user_reg2.asp" method="POST">
  <TBODY>
  <TR>
    <TD width=521>
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width=400 border=0>
        <TBODY>
        <TR bgColor=#ffe8e8>
          <TD class=p14 colSpan=4 height=23>
            <DIV align=center><STRONG>学生信息</STRONG></DIV></TD></TR>
        <TR>          
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;学生学号</TD>          
          <TD colSpan=3><INPUT class=txBox_p id=s_no           
            maxLength=30 size=24 name=s_no> &nbsp;<SPAN               
            class=pinkstar>＊</SPAN>&nbsp;&nbsp;<SPAN               
          class=gray_text>填数字,不能重复,无法修改</SPAN></TD></TR>          
        <TR>   
          <TD class=p12 vAlign=top width=60 height=23>&nbsp;&nbsp;学生姓名</TD>             
          <TD colSpan=3><input name="u_id" type="hidden" id="u_id" value="<%=u_id%>"><input name="u_type" type="hidden" id="u_id" value="1"><INPUT class=txBox_p id=s_name maxLength=30 size=24              
            name=s_name> &nbsp;<SPAN class=pinkstar>＊</SPAN>&nbsp;&nbsp;<SPAN               
            class=gray_text>必须填写准确,以便正确查分</SPAN></TD></TR>      
                 
          <TD height=10></TD>            
          <TD colSpan=3></TD></TR>  
                    
        <TR vAlign=top>            
          <TD colSpan=4 height=26>            
            <DIV align=center><INPUT class=Button_p type=submit type=submit value="注 册" name="B1">             
<INPUT class=Button_p type=reset value="重 置"> <INPUT type=hidden             
            name=lm> </DIV></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></FORM></TABLE> 
			</DIV></TD></TR>             
        <TR>             
          <TD class=tdBott_p>对汕头育新学校有任何意见和问题，<a href="../note.asp">请给我们留言</a>。</TD></TR></TBODY></TABLE>                  </TD></TR></TBODY></TABLE>
      
<!--#include file="down.inc"-->    
</BODY></HTML>      
      
<%elseif b1="注 册" then      
Dim s_name,s_no      
s_name=Request.Form("s_name")      
s_no=Request.Form("s_no")      
u_id=Request.Form("u_id")      
u_type=Request.Form("u_type")      

  
Dim Result  
Result="错误:"  
If s_no="" Then Response.write "<script>alert(""学号没有填写！"");history.back();</script>"      
If s_no<>"" And Not IsNumeric(s_no) Then Result=Result&"学号必须是数字！"    
If Checku_no(s_no) ="Passed" Then Result=Result&"学号已经被认证！" 
If Checks_no(s_no) ="NotPassed" Then Result=Result&"学号不存在！"     
If s_name="" Then Response.write "<script>alert(""学生姓名没有填写！"");history.back();</script>"      
If Len(s_name)>4 Or Len(s_name)<2 Then Result=Result&"学生姓名错误！"   
If Checks_name(s_name) ="NotPassed" Then Result=Result&"学生姓名不存在！"     
  
  
IF Result="错误:" Then 
Dim sql  
sql="update users set u_type='"&u_type&"',u_no='"&s_no&"' where u_id="&u_id
conn.execute sql 
Session("u_name") = u_name
Session("u_password") = u_password
Session("u_type") = u_type
Session("u_no") = u_no
Session("u_id") = u_id 
Response.write "<script>alert('认证成功！点确定进入成绩查询系统！');location.href('user_display.asp');</script>" 

Else
Response.write "<script>alert("""&Result&""");history.back();</script>"
end if

end if
%>
⌨️ 快捷键说明

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