📄 reg.asp

📁 作业提交评分管理系统
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="tcconn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Management System</title>
</head>
<%
select case Request.Form("action")
case "add"
	call reg_add()
case "getpassword"
	call getpassword()
end Select
sub getpassword()

    Dim var_sname
    var_sname = trim(Request.Form("name"))

    Dim var_snumber
    var_snumber = trim(Request.Form("number"))

    Dim var_question
    var_question = trim(Request.Form("question"))
	
  sql = "select top 1 * from [dbo_student] where [snumber] = '" & var_snumber & "'and [sname]='" & var_sname & "' and [question]='" & var_question & "'"
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.Open sql,conn,1,1
   If Rs.Recordcount=0 Then
   response.write "<script language=JavaScript>{window.alert('你输入信息错误!');window.location.href='index.asp';}</script>"
    Response.End()
  End If
  
 Dim var_password
 var_password=Rs("password")
 
   Rs.Close()
   Set Rs = Nothing
     response.write "<script language=JavaScript>{window.alert('请记住您的密码为："&var_password&"');window.location.href='index.asp';}</script>"
    response.end
end sub

sub reg_add()

    Dim var_sname
    var_sname = trim(Request.Form("name"))

    Dim var_snumber
    var_snumber = trim(Request.Form("number"))

   dim var_college
   var_college=trim(Request.Form("college"))
   
    Dim var_sclass
    var_sclass = trim(Request.Form("sclass"))
	
   Dim var_email
    var_email = trim(Request.Form("email"))
	
 Dim var_password
    var_password = trim(Request.Form("password"))
    
    Dim var_question
    var_question = trim(Request.Form("question"))
	
  	sql = "select * from [dbo_student] where [snumber] = '" & trim(var_snumber) & "'"
	
    Set Rs_student = Server.CreateObject("ADODB.Recordset")
	Rs_student.Open sql,conn,1,1
	If Rs_student.Recordcount>0 Then
	response.write "<script language=JavaScript>{window.alert('该学号已经被已注册!');window.history.go(-1);}</script>"
	response.end
	End If
	
  
  sql = "select top 1 * from [dbo_student] "
  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.Open sql,conn,3,2
   Rs.AddNew
   
  If var_sname  <>  "" Then Rs("sname") = var_sname
  If var_snumber  <>  "" Then Rs("snumber") = var_snumber
  If var_college  <>  "" Then Rs("college") = var_college
  If var_sclass  <>  "" Then Rs("sclass") = var_sclass
  If var_email  <>  "" Then Rs("email") = var_email
  If var_password  <>  "" Then Rs("password") = var_password

  If var_question  <>  "" Then Rs("question") = var_question

   Rs.Update
   Rs.Close()
   Set Rs = Nothing
response.write "<script language=JavaScript>{window.alert('注册成功!');window.location.href='default.asp';}</script>"
response.end
end sub
%>
⌨️ 快捷键说明

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