📄 join.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
Check_Cancel_or_Finish '检查是否按了「取消」或「完成」钮
%>
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<title>线上会员注册向导</title>
<SCRIPT LANGUAGE="JavaScript1.1">
var OnTop = true;
function FocusMe()
{
if (OnTop == true)
setTimeout("self.focus()", 0);
}
</SCRIPT>
<script language="JavaScript">
<!--
function chk_form1()
{
if( document.Reg.cname.value.length == 0 ) {
alert( "错误：会员名称没有填喔！\n" );
return false;
}
if( document.Reg.tel1.value.length == 0 ) {
alert( "错误：居住城市没有填喔！\n" );
return false;
}
}
function chk_form2()
{
if( document.Reg.email.value.length == 0 ) {
alert( "错误：电子信箱没有填喔！\n" );
return false;
} else {
i = document.Reg.email.value.indexOf( "@" );
j = document.Reg.email.value.indexOf( ".", i );
k = document.Reg.email.value.indexOf( "," );
kk = document.Reg.email.value.indexOf( " " );
jj = document.Reg.email.value.lastIndexOf( "." ) + 1;
len = document.Reg.email.value.length;
if( ( i <= 0 ) || ( j <= 2 ) || ( k != -1 ) || ( kk != -1 ) || ( len - jj < 2 ) || ( len - jj > 3 ) ) {
alert( "错误：电子信箱 填的不正确喔！\n" );
return false;
}
}
if( document.Reg.address1.value.length == 0 ) {
alert( "错误：通讯地址没有填喔！\n" );
return false;
}
}
//-->
</script>
</head>
<body>
<%
Get_PageNo
Display_Form
%>
</body></html>
<script Language="VBScript" RunAt="Server">
Dim pageno
Sub Check_Cancel_or_Finish()
'如果使用者在任一步骤按下「取消」钮，则重新导向到register.asp
If Len(Request.Form("cancel")) Then Response.Redirect "register.asp"
'如果在步骤三按下「完成」钮
If Len(Request.Form("finish")) Then
'--- 将七个表单栏位储存於Session变数，以便传往下一份ASP文件 ---
Session("cname") = Request.Form("cname")
Session("email") = Request.Form("email")
Session("city") = Request.Form("city")
Session("address1") = Request.Form("address1")
Session("tel1") = Request.Form("tel1")
Session("tel2") = Server.HTMLEncode(Request.Form("tel2"))
Session("sex") = Request.Form("sex")
Response.Redirect "reg.asp" '导向到reg.asp准备写入资料库
End If
End Sub
Sub Get_PageNo()
'取出表单栏位pagenum，其为上一个画面的页次
pageno = CInt(Request.Form("pagenum"))
'如果按了「上一步」钮
If Len(Request.Form("back")) Then
pageno = pageno - 1 '页次 - 1
Else
pageno = pageno + 1 '页次 + 1
End If
'Response.Write "after pageno = " & pageno & "<br>"
End Sub
Sub Display_Form()
Response.Write "<h1>线上会员注册向导</h1>" & vbCRLF
Response.Write "<hr>" & vbCRLF
Response.Write "<form method='post' name='Reg'>" & vbCRLF
Select Case pageno
Case 2
Show_Page2 '显示表单「步骤3之2」
Case 3
Show_Page3 '显示表单「步骤3之3」
Case Else
Show_Page1 '显示表单「步骤3之1」
End Select
Response.Write "</form>" & vbCRLF
End Sub
Sub Form1_Fields()
'目的：显示第一份表单的隐藏栏位
Response.Write "<input type=hidden name='cname' size=20 value='"
Response.Write Server.HTMLEncode(Request("cname")) & "'>" & vbCRLF
Response.Write "<input type=hidden name='tel1' size=20 value='"
Response.Write Server.HTMLEncode(Request("tel1")) & "'>" & vbCRLF
End Sub
Sub Form2_Fields()
'目的：显示第二份表单的隐藏栏位
Response.Write "<input type=hidden name='email' value='"
Response.Write Server.HTMLEncode(Request("email")) & "'>" & vbCRLF
Response.Write "<input type=hidden name='address1' value='"
Response.Write Server.HTMLEncode(Request("address1")) & "'>" & vbCRLF
Response.Write "<input type=hidden name='tel1' value='"
Response.Write Server.HTMLEncode(Request("tel1")) & "'>" & vbCRLF
End Sub
Sub Form3_Fields()
'目的：显示第三份表单的隐藏栏位
Response.Write "<input type=hidden name='fax' value='"
Response.Write Server.HTMLEncode(Request("fax")) & "'>" & vbCRLF
Response.Write "<input type=hidden name='sex' value='"
Response.Write Server.HTMLEncode(Request("sex")) & "'>" & vbCRLF
End Sub
Sub Show_Page1()
'目的：收集「会员名称」与「电子信箱」
Response.Write "<h3>步骤 3 之 1 </h3>" & vbCRLF
Response.Write "<img src='img/do.gif'> 会员名称：" & vbCRLF
Response.Write "<input type=text name='cname' size=20 maxlength=20"
Response.Write " value='" & Server.HTMLEncode(Request("cname")) & "'>"
Response.Write "<br>" & vbCRLF
Response.Write "<img src='img/do.gif'> 联系电话：" & vbCRLF
Response.Write "<input type=text name='tel1' size=20 maxlength=10"
Response.Write " value='" & Server.HTMLEncode(Request("tel1")) & "'>"
Response.Write "<br>" & vbCRLF
'------ 输出步骤2的隐藏表单栏位 ------
Form2_Fields
'------ 输出步骤3的隐藏表单栏位 ------
Form3_Fields
'------ 输出其他表单元件 ------
Response.Write "<input type=hidden name='pagenum' value='"
Response.Write pageno & "'>" & vbCRLF
Response.Write "<br><hr>" & vbCRLF
Response.Write "<input type=submit name='cancel' value='"
Response.Write "取消'> " & vbCRLF
Response.Write "<input type=button name='next' onclick='return chk_form1()'"
Response.Write " value='下一步 >'> " & vbCRLF
End Sub
Sub Show_Page2()
'目的：收集「电子信箱帐号」、「通讯地址」与「连络电话」
Response.Write "<h3>步骤 3 之 2 </h3>" & vbCRLF
Response.Write "<img src='img/do.gif'> 电子信箱：" & vbCRLF
Response.Write "<input type=text name='email' size=40 maxlength=40"
Response.Write " value='" & Server.HTMLEncode(Request("email")) & "'>"
Response.Write "<br>" & vbCRLF
Response.Write "<img src='img/do.gif'> 通讯地址：" & vbCRLF
Response.Write "<input type=text name='address1' size=46 maxlength=60"
Response.Write " value='" & Server.HTMLEncode(Request("address1")) & "'>"
Response.Write "<br>" & vbCRLF
Response.Write "<img src='img/do.gif'> 传真电话：" & vbCRLF
Response.Write "<input type=text name='tel2' size=15 maxlength=15"
Response.Write " value='" & Server.HTMLEncode(Request("tel2")) & "'>"
Response.Write "<br>" & vbCRLF
'------ 输出步骤1的隐藏表单栏位 ------
Form1_Fields
'------ 输出步骤3的隐藏表单栏位 ------
Form3_Fields
'------ 输出其他表单元件 ------
Response.Write "<input type=hidden name='pagenum' value='"
Response.Write pageno & "'>" & vbCRLF
Response.Write "<br><hr>" & vbCRLF
Response.Write "<input type=submit name='back' value='"
Response.Write "< 上一步'> " & vbCRLF
Response.Write "<input type=button name='next' onclick='return chk_form2()'"
Response.Write " value='下一步 >'> " & vbCRLF
Response.Write "<input type=submit name='cancel' VALUE='取消'>"
End Sub
Sub Show_Page3()
'目的：收集「性别」与「传真机号码」
Dim strSex
Response.Write "<h3>步骤 3 之 3 </h3>" & vbCRLF
Response.Write "<img src='img/do.gif'> 性 别：" & vbCRLF
strSex = "<input type=radio name='sex' value='"
If Request.Form("sex") = "F" Then
Response.Write strSex & "M'>男" & vbCRLF
Response.Write strSex & "F' checked>女" & vbCRLF
Else
Response.Write strSex & "M' checked>男" & vbCRLF
Response.Write strSex & "F'>女" & vbCRLF
End If
Response.Write "<br>" & vbCRLF
Response.Write "<img src='img/do.gif'> 传真机号码：" & vbCRLF
Response.Write "<input type=text name='fax' size=15 maxlength=15"
Response.Write " value='" & Server.HTMLEncode(Request("fax")) & "'>"
Response.Write vbCRLF & " (Optional)<br>" & vbCRLF
'------ 输出步骤1的隐藏表单栏位 ------
Form1_Fields
'------ 输出步骤2的隐藏表单栏位 ------
Form2_Fields
'------ 输出其他表单元件 ------
Response.Write "<input type=hidden name='pagenum' value='"
Response.Write pageno & "'>" & vbCRLF
Response.Write "<br><hr>" & vbCRLF
Response.Write "<input type=submit name='back' value='"
Response.Write "< 上一步'> " & vbCRLF
Response.Write "<input type=submit name='finish'"
Response.Write " value=' 完成 '> " & vbCRLF
Response.Write "<input type=submit name='cancel' VALUE='取消'>"
End Sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -