saveReg.asp ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\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>