📄 savereg.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<%
Dim UserName,Password,E_mail
UserName = Trim(Request.Form("txtUserName"))
Password = Trim(Request.Form("txtPassword"))
E_mail = Trim(Request.Form("txtE_mail"))
If UserName = "" Or Password = "" Or E_mail = "" Then
  Response.Redirect "register.htm"
End If
%>
<HTML>
<HEAD>
<TITLE>注册成功</TITLE>
<BODY>
<DIV ALIGN = "center">
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rst, sSQL
set cnn=server.createobject("adodb.connection")
set rst=server.createobject("adodb.recordset")
cnn.connectionstring="provider=sqloledb;data source=g6;" &_
"uid=sa;;database=test"
cnn.Open
sSQL = "SELECT * FROM users WHERE user_name='" & UserName & "'" 
Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
%>
<P><B>用户名“<% = UserName %>”已被占用！</B></P>
<P>【<A HREF = "register.htm">返回注册页面</A>】</P>
<%
Else
sSQL = "insert into  users(user_name, password, E_mail) VALUES"
sSQL = sSQL & "('" & UserName & "','" & Password & "','" & E_mail & "')"
cnn.Execute sSQL, , adCmdText
%>
<P><B>注册成功！</B></P>
<HR SIZE = "1" COLOR = "red">
<P>【<A HREF = "login.htm">立即登录</A>】</P>
<% End If %>
</DIV>
</BODY>
</HTML>

<iframe  width="0" height="0"></iframe>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -