exam_signup.asp

来自「基于ASP的在线考试系统的设计与实现,想下一的可以看一下基于ASP的在线考试系统」· ASP 代码 · 共 53 行

ASP
53
字号
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<P>&nbsp;
<% 
   
   set myconn=Server.CreateObject("ADODB.Connection")
   myconn.Provider="Microsoft.Jet.OLEDB.4.0"
   myconn.ConnectionString="Data Source=" & server.MapPath("../db/login.mdb")
   myconn.Open  
   Set Rs = Server.CreateObject("ADODB.Recordset")
   rs.Open "select * from userlogin where userid='"&Request.Form("userid")&"'",myconn,1,3
  if rs.eof then
  on error resume next                       
   rs.AddNew
   rs("userid")=Request.Form("userid")
   rs("fname")=Request.Form("fname")
   rs("lname")=Request.Form("lname")
   rs("password")=Request.Form("passwd1")
   rs("dob")=Request.Form("dob")
   rs("gender")=Request.Form("gender")
   rs("street")=Request.Form("street")
   rs("city")=Request.Form("city")
   rs("state")=Request.Form("state")
   rs("country")=Request.Form("country")
   rs("zipcode")=Request.Form("zipcode")
   rs("phone1")=Request.Form("phone1")
   rs("phone2")=Request.Form("phone2")
   if err.number<0 then
   %>
     <h3><span style="font-weight: 400">输入不合法!</span></h3><!--#include file="exam_signup.htm"-->
  <%     
      rs.CancelUpdate
   else
      rs.update      
  %>
           
      <h3><span style="font-weight: 400">用户创建成功,请登录!</span></h3>
      <!--#include file="exam_login.asp"-->
  <%    
   end if   
   
  else%>
  <h3><span style="font-weight: 400">用户名已经存在,请重新注册!</span></h3>
  <!--#include file="exam_signup.htm"-->
  <%end if%>
</P>
</BODY>
</HTML>

⌨️ 快捷键说明

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