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

📄 registerresult.asp

📁 该资料包含大量网络开发的案例和源代码
💻 ASP
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册结果</title>
<meta name="Microsoft Border" content="b, default">
</head>

<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<%
	dim adoConn
    dim adoRS
	dim sConnection
    dim sSQL
    dim R_no,R_psw1,R_psw2,R_d,R_n
    
    R_no=request.form("sno")
    R_psw1=trim(request.form("psw1"))
    R_psw2=trim(request.form("psw2"))
    R_n=request.form("sn")
    R_d=request.form("sd")
    
    sConnection="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("student.mdb")
 
    set adoConn=server.createobject("ADODB.Connection")
    set adoRS=server.createobject("ADODB.Recordset")
        
    adoConn.open sConnection
    	
	if not isnumeric(r_no) then
		response.write "<p align='center'>注册学号错误！请输入六位学号！注册失败</p><p align='center'><a href='javascript:history.go(-1);'>返回注册</a></p>"
	elseif R_psw1<>R_psw2 then
		response.write "<p align='center'>密码与确认密码不同！注册失败</p><p align='center'><a href='javascript:history.go(-1);'>返回注册</a></p>"
	else
		sSQL="select * from s where sno="& R_no
    	set adoRS=adoConn.execute(sSQL)

		if not adors.eof then
			response.write "<p align='center'>该学号已被注册！注册失败</p><p align='center'><a href='javascript:history.go(-1);'>返回注册</a></p>"
		else
			sSQL="insert into s values(" & R_no & ",'"&R_n&"'" &",'"&R_d&"',"&R_psw1&")"
    		set adoRS=adoConn.execute(sSQL)

			'adoRS.addnew 
			'adors.fields("sno").value=r_name
			'adors.fields("sn").value=request.form("sn")
			'adors.fields("psw").value=r_psw
			'adors.fields("sn").value=request.form("sn")
			'adors.fields("sd").value=request.form("sd")
			'adors.update
			response.write "<p align='center'>注册成功！请返回登录！</p>" 
			session("user")=""
    		adoConn.close
    		set adoRS=nothing
   			set adoConn=nothing
		end if
	end if
%>	

<p align="center"><a href="index.asp">返回主页</a></p>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="center"><font color="#333333" size="2">版权所有|关于我们</font>

</td></tr><!--msnavigation--></table></body>

</html>

⌨️ 快捷键说明

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