📄 adduser.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<HTML>
  <HEAD><TITLE>判断用户输入信息合法性</TITLE></HEAD>
  <BODY>
<%
  '定义变量
  Dim Name, Passowrd 
  Dim objConn, objRS, objRS1
  Dim strSQL
    ' 获取变量
  Name = Request("UserName")
  Password = Request("Password")
    ' 创建数据库连接
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Server.MapPath("Exercise.mdb")
  objConn.Open
    ' 建立Recordset对象并返回表Topic所有记录，每一条记录为一道考试题
  Set objRS = Server.CreateObject("ADODB.RecordSet")
  Set objRS1 = Server.CreateObject("ADODB.RecordSet")
  strSQL="SELECT * FROM Student Where 编号='" & Name & "'"
  objRS.Open strSQL, objConn, 1, 1
    ' 第一个数据集objRS若为空，则说明当前库中没有名为Name的用户，
    ' 即可进行如下插入新用户的操作
  If objRS.Eof Then
    strSQL = "INSERT INTO Student (编号, 口令) VALUES ('" & Name & "','" & Password & "')"
    '执行SQL语句
   objRS1.Open strSQL, objConn, 1, 2
%>
<SCRIPT Language="VBScript">
  alert ("用户注册成功！")
  history.back
</SCRIPT>
<%
  Else
%>
<SCRIPT Language="VBScript">
  alert ("此用户已有人使用！")
  history.back
</SCRIPT>
<%
  End If
  '释放资源
  Set objConn = Nothing
  Set objRS = Nothing
  Set objRS1 = Nothing
%>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -