⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 register.asp

📁 《网上图书管理系统》 开发及测试环境 操作系统:Windows 2000 Server 后台数据库:Access 2000 Web服务器:IIS 5.0  系统在该环境下测试通过运行。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 <!--#include file="Connections/conn.asp" -->
<%
if Request.Form("mName")<>"" and session("mName")="" then
session("MyID")=request.Form("ID")
session("mName")=Request.Form("mName")
session("MyPWD")=request.Form("PassWord")
mName=Request.Form("mName")
city=Request.Form("city")
address=Request.Form("address")
postcode=Request.Form("postcode")
CardNO=Request.Form("CardNO")
CardType=Request.Form("CardType")
Tel=Request.Form("Tel")
Email=Request.Form("Email")
response.write(session("mName")&"b")

Ins_sql = "Insert into DB_Member (ID,mName,PassWord,city,address,postcode,CardNO,"&_
"CardType,Tel,Email) values('"&session("MyID")&"','"&mName&"','"&session("MyPWD")&_
"','"&city&"','"&address&"','"&postcode&"','"&CardNO&"','"&CardType&"','"&Tel&_
"','"&Email&"')"
conn.execute(Ins_sql)
response.redirect("register_OK.asp")
end if

%>
<%
Set rs_Max = Server.CreateObject("ADODB.Recordset")
sql_max="SELECT MAX(ID) AS MaxID  FROM DB_Member"
rs_max=conn.execute(sql_max)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册新会员</title>
<link href="style.css" rel="stylesheet">
</head>

<body leftmargin="0" topmargin="0">
<table width="640" height="133" border="0" cellpadding="-1" cellspacing="-1">
  <tr>
    <td background="images/register_top.jpg">&nbsp;</td>
  </tr>
</table>
<table width="640" height="341" border="0" cellpadding="-1" cellspacing="-1">
  <tr>
    <td valign="top" background="images/buycar_bottom.jpg"> 
      <div align="center"> 
        <form method="POST" action="register.asp" name="form1">
          <table width="346" border="1" align="center" cellpadding="0"
		   cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF"
		    bordercolordark="#aaaaFF">
            <tr> 
			<% no=trim(rs_max("MaxID"))
			  if len(month(date()))=1 then 
			  cmonth="0"& cstr(month(date()))
			  else
			  cmonth=cstr(month(date()))
			  end if
			  if len(day(date()))=1 then 
			  cday="0"& cstr(day(date()))
			  else
			  cday=cstr(day(date()))
			  end if
			  select case len(int(Right(no,5)+1))
				case 1
					cno="0000"+Cstr(int(Right(no,5)+1))
				case 2
					cno="000"+Cstr(int(Right(no,5)+1))
				case 3
					cno="00"+Cstr(int(Right(no,5)+1))
				case 4
					cno="0"+Cstr(int(Right(no,5)+1))
				case 5
					cno=Cstr(int(Right(no,5)+1))
				case Else
					cno="00001"
				end select
			  intno="HY"& cStr(Year(Date()))& cmonth& cday&cno
			  %>
              <td width="82" height="27" align="right" nowrap>会员ID:</td>
              <td width="258" height="27">&nbsp;
                <input type="hidden"  name="ID" value="<%= intno %>" size="32"> 
                 <font color="#666699"><%= intno %></font></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>会员名称:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="mName" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>您的密码:</td>
              <td height="27"> <div align="center"> 
                  <input type="password" name="PassWord" value="" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>城市:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="city" value="" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>地址:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="address" value="" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>邮政编码:</td>
              <td height="27"> <div align="center"> 
                  <input name="postcode" type="text" value="" size="32" maxlength="6">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>信用卡号:</td>
              <td height="27"> <div align="center"> 
                  <input name="CardNO" type="text" value="" size="32" maxlength="24">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>信用卡类型:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="CardType" value="" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>联系电话:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="Tel" value="" size="32">
                </div></td>
            </tr>
            <tr> 
              <td height="27" align="right" nowrap>Email:</td>
              <td height="27"> <div align="center"> 
                  <input type="text" name="Email" value="" size="32">
                </div></td>
            </tr>
			<script language="JavaScript">
			function myreset(){
			form1.reset();
			event.returnValue=false;
			}
			</script>
			<script language="JavaScript">
			function mysubmit(){
			if (form1.mName.value=="")
			{alert("请输入会员姓名!");form1.mName.focus();return false;}
			if (form1.PassWord.value=="")
			{alert("请输入会员密码!");form1.PassWord.focus();return false;}
			if (form1.city.value=="")
			{alert("请输入城市!");form1.city.focus();return false;}
			if (form1.address.value=="")
			{alert("请输入地址!");form1.address.focus();return false;}
			if (form1.postcode.value=="")
			{alert("请输入邮政编码!");form1.postcode.focus();return false;}
			if (form1.CardNO.value=="")
			{alert("请输入信用卡号!");form1.CardNO.focus();return false;}
			if (form1.CardType.value=="")
			{alert("请输入信用卡类型!");form1.CardType.focus();return false;}
			if (form1.Tel.value=="")
			{alert("请输入联系电话!");form1.Tel.focus();return false;}
			if (form1.Email.value=="")
			{alert("请输入Email!");form1.Email.focus();return false;}
			form1.submit();
			}
			</script>
	    </table>
	    <table>
            <tr> 
              <td width="314" height="49" colspan="2" align="right" valign="middle" nowrap> 
                <div align="center"> 
                  <input type="image" value="提交" src="images/submit.gif"
				   onClick="return mysubmit()">
                  <input type="image" name="Submit" value="重置"
				   src="images/reset.gif" onClick="myreset()">
                  <a href="checkout.asp"><img src="images/register_back.gif" width="81" height="36" border="0"></a>
				  <input name="Amount" type="hidden" id="Amount" value="0">
                  <input name="grade" type="hidden" id="grade" value="0">
                </div></td>
            </tr>
          </table>
        </form>
     </div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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