📄 savereg.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim UserName,Pwd,Email
UserName=Trim(request.form("txtUserName"))
Pwd=Trim(request.form("txtPassword"))
RPwd=Trim(request.form("txtPassword2"))
Email=Trim(request.form("txtE_mail"))
if UserName="" or Pwd="" or Email="" then
Response.Redirect"register.htm"
end if
if Pwd<>RPwd then
response.Redirect"register.htm"
end if
%>
<title>注册成功</title>
<style type="text/css">
<!--
.STYLE2 {color: #FF0000}
.STYLE3 {font-size: 24px}
-->
</style>
</head>
<body>
<div align="center">
<!-- #include file="inc\adovbs.inc" -->
<%
dim cnn,rst,ssql
set cnn=server.CreateObject("adodb.connection")
set rst=server.CreateObject("adodb.recordset")
cnn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("Date\date.mdb")
cnn.open
ssql="select * from users where user_name='" & username & "'"
set rst=cnn.execute(ssql,,adcmdtext)
if not rst.eof then
%>
<img src="image/logo.gif" width="500" height="200">
<p><b><span class="style2">注意: </span>用户名"<%= UserName %>"已<span class="style2">被<span class="STYLE2">占用</span></span>,请重新输入用户名</b></p>
<p>【<a href="register.htm">返回注册页面</a>】</p>
<%
else
ssql="insert into users(user_name,Pwd,Email) values ('"&username&"','"&Pwd &"','"&Email&"')"
cnn.execute ssql, ,adcmdtext
%>
<p class="style1 STYLE2 STYLE3"><strong>注册成功!</strong></p>
<hr size="1" color="#FF0000">
<p>【<a href="login.htm">立即登陆</a>】</p>
<% end if %>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -