📄 checkreg.asp
字号:
<HTML>
<HEAD>
<TITLE>personal004</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.style1 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
color: #006633;
font-weight: bold;
}
.style3 {
font-size: 11px;
color: #FFFFFF;
font-weight: bold;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style4 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #333333;
}
.style5 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
color: #FF3300;
font-weight: bold;
}
.style6 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #0066CC;
}
.style7 {
color: #FFFFFF;
font-size: 10px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style8 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #FFFFFF;
}
.style9 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
color: #FFFFFF;
}
.style10 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
color: #910000;
font-weight: bold;
}
a:link {
color: #FFFFFF;
text-decoration: none;
}
a:visited {
color: #FFFFFF;
text-decoration: none;
}
a:hover {
color: #33CC00;
text-decoration: none;
}
a:active {
color: #FFFFFF;
text-decoration: none;
}
body {
background-image: url(images/main_bg.jpg);
}
-->
</style>
</HEAD>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<!-- ImageReady Slices (personal004.psd) -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top"><table width="783" border="0" cellspacing="0" cellpadding="0" height="119">
<tr>
<td width="195" height="119"><img border="0" src="images/index_01.gif" width="195" height="110"></td>
<td background="images/index_02.jpg" width="431" height="119"><img border="0" src="images/title_shard.gif" width="411" height="115"></td>
<td width="151" background="images/index_02.jpg" height="119"><img SRC="images/index_04.jpg" ALT border="0" width="98" height="99"></td>
</tr>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0" background="images/index_07.jpg">
<tr>
<td><IMG SRC="images/index_07.jpg" WIDTH=5 HEIGHT=37 ALT=""></td>
<td align="right"><span class="style1">EASY SEARCH: </span></td>
<td width="150"><input name="textfield" type="text" size="20" style="border-style: solid; border-color: #F9E4CC"></td>
<td width="86"><IMG SRC="images/index_10.jpg" WIDTH=19 HEIGHT=37 ALT=""></td>
</tr>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0" background="images/index_13.jpg">
<tr>
<td width="3"><IMG SRC="images/index_13.jpg" WIDTH=3 HEIGHT=36 ALT=""></td>
<td align="center"><span class="style3"><a href="#">ABOUT ME</a> |
<a href="#">REGISTER</a> | <a href="#">SHOPPING
CART</a> | <a href="#">ORDER</a> | <a href="#">QUERY
ORDERS</a> | MESSAGE |
HELP</span></td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" height="190">
<tr>
<td align="center" bgcolor="#F9E4CC" width="1148" height="405">
<%
uid=Trim(Request.Form("cus_id"))
uname=Trim(Request.Form("cus_cust_id"))
pwd=Trim(Request.Form("cus_passwd"))
pwd1=Trim(Request.Form("cus_passwd1"))
firstname=Trim(Request.Form("cus_fname"))
lastname=Trim(Request.Form("cus_lname"))
gender=Trim(Request.Form("cus_gender"))
telno=Trim(Request.Form("cus_tele_no"))
mail=Trim(Request.Form("cus_email"))
state=Trim(Request.Form("cus_state"))
address=Trim(Request.Form("cus_address"))
zip=Trim(Request.Form("cus_zip_code"))
idcard=Trim(Request.Form("cus_identity"))
card=Trim(Request.Form("cus_card"))
cardtype=Trim(Request.Form("cus_cardtype"))
eday=Trim(Request.Form("eday"))
set con=Server.CreateObject("Adodb.Connection")
set rs=server.createobject("Adodb.Recordset")
con.Open "Provider=SQLOLEDB;User ID=user37;Initial Catalog=project0104;Data Source=210.34.136.243"
if uname<>"" then
mysql="select * from Member where cLoginID='"&uname&"'"
rs.Open mysql,con
if not rs.EOF then
response.write "<b>对不起，用户名已经存在!</b><br>"
end if
end if
if mail<>"" then
dim position
position=Instr(1,mail,"@")
if position=0 then
response.write "请正确输入你的Email!<br>"
end if
end if
if uname="" then
response.write "<b>请输入用户名!</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif pwd="" then
response.write "<b>请输入密码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif pwd1="" then
response.write "<b>请输入密码验证！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif pwd<>pwd1 then
response.write "<b>前后两次密码不同，请重新输入密码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
' elseif firstname="" then
' response.write "<b>Please enter your firstname!</b><br>"
'elseif lastname="" then
'response.write "<b>Please enter your lastname!</b><br>"
elseif telno="" then
response.write "<b>请输入您的电话号码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif mail="" then
response.write "<b>请输入您的Email！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif state="" then
response.write "<b>Please enter your state!</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif address="" then
response.write "<b>请输入您的详细地址！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif zip="" then
response.write "<b>请输入您的邮政编码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif idcard="" then
response.write "<b>请输入您的身份证号码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
elseif card="" then
response.write "<b>请输入您的信用卡号码！</b><br>"
response.write "<br><br><br><br><a href='./chkmember.asp'><center>Return</center></a>"
else
sql="insert into Member(cMemberID,cLoginID,cPassword,vFirstName,vLastName,cGender,vEmailID,vAddress,cState,cZipCode,cPhone,cIdCard,cCreditCardNo,vCreditCardType,dExpiryDate) values ('"&uid&"','"&uname&"','"&pwd&"','"&firstname&"','"&lastname&"','"&gender&"','"&mail&"','"&address&"','"&state&"','"&zip&"','"&telno&"','"&idcard&"','"&card&"','"&cardtype&"','"&eday&"')"
con.execute sql
response.write "注册成功!"
response.write "<br><br><br><br><a href='./index.asp'><center>Return</center></a>"
end if
%>
</tr>
</table>
<table width="780" border="0" cellpadding="0" cellspacing="0" background="images/index_13.jpg">
<tr>
<td width="3"><IMG SRC="images/index_13.jpg" width=3 height=36 ALT=""></td>
<td align="center"><span class="style3"><a href="#">ABOUT ME</a> | <a href="#">PHOTO GALLERY</a> | <a href="#">MY FAMILY</a> | <a href="#">MY HOBBIES</a> | <a href="#">CONTACT ME</a></span></td>
</tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center"><span class="style4">My Site.com (C) 2004.Public Police.Term of Use</span></td>
</tr>
</table></td>
</tr>
</table>
<!-- End ImageReady Slices -->
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -