国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

用戶注冊及跟蹤代碼（二）

2019-11-18 21:05:51
字體：大 中 小
來源：轉載
供稿：網友
2. asp代碼（設立一DSN,請改動begin.asp）
----------------------------------
------文件begin.asp
<%
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "test" ,"test","test"
%>
-----文件reg_step1.asp
<html>
<head>
<title>會員注冊--基本信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRipT LANGUAGE="javaScript1.1">
function verifyIt(form) {
    for (i = 0; i <document.forms[0].elements.length; i++) {
        if (document.forms[0].elements[i].type == "text" && document.forms[0].elements[i].value == ""){
            alert("所有內容必須填寫！")
            return false;
        }
    }
    if (document.forms[0].n_pass.value.length<6){
    alert("密碼不得少于6位")
    return false
    }
    if (document.forms[0].n_pass.value!=document.forms[0].nq_pass.value){
    alert("密碼與確認密碼不一致！")
    document.forms[0].n_pass.value=""
    document.forms[0].nq_pass.value=""
    return false;
    }
return true;
}
</SCRIPT>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" text="#333333">
<table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>
      <table width="777" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="149" valign="top" >&nbsp; </td>
          <td width="628" valign="top">
            <table width="628" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="464" height="12" valign="top">&nbsp;</td>
                <td width="164" height="12" valign="top">&nbsp;</td>
              </tr>
              <tr>
                <td width="464" height="203" valign="top">
                  <table width="460" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="10" height="198" valign="top">&nbsp;</td>
                      <td width="450" height="198" valign="top" align="center" class="txt105">
                                       <form name="ord_1" action="reg_step1_sub.asp" onSubmit="return verifyIt(this)" method="post">
                          <table width="400" border="0" cellspacing="0" cellpadding="0" align="center">
                            <tr align="center">
                              <td class="txt105" height="36"><font color="#336600">新會員注冊-基本信息</font>
                                <hr size="1" align="left" color="#669999">
                              </td>
                            </tr>
                            <tr valign="top">
                              <td height="45">
                                <table width="400" border="0">
                                  <tr>
                                    <td width="150" class="txt105" align="right"><font color="#336600">用戶名：</font></td>
                                    <td width="240" class="txt105">
                                      

<input type="text" name="n_name" class="txt9" size="20">
                                    </td>
                                  </tr>
                                  <tr>
                                    <td width="150" class="txt105" align="right"><font color="#336600">密碼：</font></td>
                                    <td width="240" class="txt105">
                                      <input type="passWord" name="n_pass" class="txt9" size="20">
                                      <font color="#336600"> 至少6位</font></td>
                                  </tr>
                                  <tr>
                                    <td width="150" class="txt105" align="right" height="33"><font color="#336600">確認密碼：</font></td>
                                    <td width="240" class="txt105" height="33">
                                      <input type="password" name="nq_pass" class="txt9" size="20">
                                    </td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                            <tr align="center">
                              <td height="41">
                                <hr size="1" align="left" color="#669999">
                                <input type="submit" name="Submit" value="申請" class="txt9">
                                <input type="reset" name="reset" value="重填" class="txt9">
                              </td>
                            </tr>
                            <tr align="center">
                              <td class="txt105">&nbsp;</td>
                            </tr>
                          </table>
                        </form>

                      </td>
                    </tr>
                  </table>
                </td>
                <td width="164" valign="top">&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr align="center">
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>

---文件reg_step1_sub.asp
<%
u_name=Request.Form("n_name")
u_pass=Request.Form("n_pass")

if u_name="" and u_pass="" then
Response.Redirect "reg_step1.asp"
Response.end
end if
%>
<!-- #include file = "../inc/adovbs.inc" -->
<!-- #include file = "../inc/begin.asp" -->
<html>
<head>
<title>會員注冊</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CSS/sty1.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" text="#333333">
<table width="750" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="49">&nbsp;</td>
  </tr>
  <tr>
    <td>
      <table width="777" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="147" valign="top" height="400">&nbsp; </td>
          <td width="630" valign="top" height="400">
            <table width="620" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="474" height="12" valign="top">&nbsp;</td>
                <td width="146" height="12" valign="top">&nbsp;</td>
              </tr>
              <tr>
                <td width="474" height="379" valign="top">
                  <table width="452" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="18" height="376" valign="top">&nbsp;</td>
                      <td width="434" height="376" valign="top" class="txt105">
                        <p>
                          <%

if trim(u_name)="" then
Response.write "<div align='center'><a class='link8' href='Javascript:history.go(-1)'>用戶名不能為空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
else
u_name=rtrim(trim(u_name))
end if

if instr(u_name," ")<>0 then
Response.write "<div align='center'><a class='link8' href='javascript:history.go(-1)'>用戶名中不能包含空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
end if

if instr(u_pass," ")<>0 then
Response.write "<div align='center'><a class='link8' href='javascript:history.go(-1)'>密碼中不能包含空格,返回。</a></div>"
Response.write "</body></html>"
Response.end
end if

Set MyCommand=Server.CreateObject("ADODB.Command")
Set MyCommand.ActiveConnection=Con
MyCommand.CommandType=adCmdStoredPRoc
MyCommand.CommandText="proc_UserRegBase"

MyCommand.Parameters.Append MyCommand.CreateParameter("u_name",adVarChar,adParamInput,30)
MyCommand.Parameters.Append MyCommand.CreateParameter("u_pass",adVarChar,adParamInput,30)

MyCommand.Parameters("u_name")=u_name
MyCommand.Parameters("u_pass")=u_pass


Set RS=MyCommand.Execute()

'Set RS=Server.CreateObject("ADODB.RecordSet")
'strSql="proc_userRegBase '"&u_name&"','"&u_pass&"'"
'SET RS=Con.Execute(strSql)

check_reg=RS("resultID")

if check_reg=0 then
set RS=rs.NextRecordSet
VailCodeLogin=rtrim(trim(RS("ValidCodeLogin")))
session("lotto_isLogin")=rtrim(trim(RS("ValidCodeLogin")))
Session("lotto_username")=u_name

end if

RS.Close
Con.Close
%>
                          <%if check_reg=0 then%>
                        </p>
                        <table width="400" border="0" align="center" cellspacing="0" cellpadding="0">
                          <tr>
                            <td class="txt105" align="center"><font color="#336600">注
                              冊 成 功！</font></td>
                          </tr>
                          <tr>
                            <td class="txt105" align="center">
                              <hr size="1" color="#669999">
                            </td>
                          </tr>
                          <tr>
                            <td class="txt105" align="center" height="35">
                              <p>用戶名：<b><%=u_name%></b><br>
                                密碼：<b><%=u_pass%></b></p>
                            </td>
                          </tr>
                          <tr>
                            <td class="txt9" height="188">
                              <hr size="1" color="#669999">
                              <table width="320" border="0" cellspacing="0" cellpadding="0" align="center">
                                <tr align="center">
                                  <td class="txt105" colspan="2">按<a href="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><font color="#336600">這里</font></a>，<a href="reg_step2.asp?VailCodeLogin=<%=VailCodeLogin%>&name=<%=u_name%>"><font color="#336600">填寫詳細的個人資料</font></a>。</td>
                                </tr>
                                <tr>
                                  <td class="txt105" colspan="2">&nbsp;</td>
                                </tr>
                                <tr>
                                  <td class="txt105" width="18">&nbsp;</td>
                                  <td class="txt105" width="302"><font color="#000000">注意，請仔細閱讀下列事項：</font></td>
                                </tr>
                                <tr>
                                  <td class="txt105" colspan="2" valign="top">
                                    <hr size="1" color="#669999">
                                  </td>
                                </tr>
                                <tr>
                                  <td class="txt105" width="18" valign="top">1.</td>
                                  <td class="txt105" width="302">如果您想進行網上訂購， 必須填寫更詳細的個人資料。</td>
                                </tr>
                                <tr>
                                  <td class="txt105" width="18" valign="top">2.</td>
                                  <td class="txt105" width="302">如果您想以后填寫， 請在登錄狀態，進入&quot;彩民社區&quot;-&quot;用戶服務&quot;
                                    功能區填寫。</td>
                                </tr>
                                <tr>
                                  <td class="txt105" width="18" valign="top">&nbsp;</td>
                                  <td class="txt105" width="302">&nbsp;</td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr>
                            <td class="txt9" align="center">&nbsp;</td>
                          </tr>
                        </table>
                        <%end if%>
                        <%if check_reg=-1 then%>
                        <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr align="center">
                            <td>&nbsp;</td>
                          </tr>
                          <tr align="center">
                            <td>&nbsp;</td>
                          </tr>
                          <tr align="center">
                            <td><a href="javascript:history.go(-1)" class="LINK8">該用戶名已經存在，返回。</a></td>
                          </tr>
                        </table>
                        <%end if%>
                      </td>
                    </tr>
                  </table>
                </td>
                <td width="147" valign="top" height="379">&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 永平县| 西林县| 临朐县| 衡阳市| 阿拉善左旗| 新野县| 呼伦贝尔市| 格尔木市| 金乡县| 家居| 舒兰市| 伊宁市| 麻江县| 冷水江市| 福安市| 南溪县| 盱眙县| 娄底市| 平罗县| 稷山县| 定结县| 苏尼特右旗| 灵川县| 名山县| 手机| 新宾| 新泰市| 广昌县| 三明市| 屏南县| 铁岭县| 青海省| 靖边县| 报价| 南昌市| 安陆市| 荥经县| 安溪县| 奈曼旗| 行唐县| 涟水县|