📄 adduserfinish.asp
字号:
<!--#include file ="../include.asp"-->
<%
StartPage "注册新用户确认页",2
%>
<!--<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<IMG src="../images/title.JPG" border=0>
<hr>
<br>
-->
<%
UserName = Request.Form ("UserName")
password = Request.Form("password")
Question = Request.Form("Question")
Answer = Request.Form("Answer")
source = Request.Form("source")
telephone = Request.Form("telephone")
email = Request.Form("EMail")
set conn = Server.CreateObject ("adodb.connection")
conn.Open "NetExamine","sa",""
set userconn = Server.CreateObject ("adodb.recordset")
sqlstr = "select * from 用户表 where 用户名 = '" &UserName& "'"
userconn.Open sqlstr,conn
if not userconn.EOF then
Response.Write "<center><font size = 6 color=LightSkyBlue>您所输入的用户名已经有人注册成功<br>请返回重新输入</font></center>"
Response.Write"<br><br><center><a href =NewUserWrite.asp>返回</a></center>"
else
userconn.Close ()
sqlstr ="insert into 用户表 values('"&UserName&"','"&password&"','"&Question&"','"&Answer&"','"&source&"','"&telephone&"','"&email&"')"
userconn.Open sqlstr,conn
Response.Write "<center><font size = 4 color=LightSkyBlue>您所已经注册成功</font></center>"
Response.Write"<br><br><center><a href =../Index.asp>返回主页</a></center>"
end if
'userconn.Close ()
set userconn = nothing
conn.Close()
set conn = nothing
%>
<!--
<br>
<hr>
<center>
<font size=2>
欢迎来到本网站，最佳分辨率：800×600
<br>如果有困难请与我联系：FD_FYY@hotmail.com
</font>
</BODY>
</HTML>
-->
<%
EndPage
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -