adduser.asp.txt

来自「ASP 网页数据库短训教程源码」· 文本代码 · 共 49 行

TXT

49 行

<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>

adduser.asp.txt - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 adduser.asp.txt 源码文件，采用文本编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?