📄 reg.asp
字号:
//{
// alert("对不起，请输入您的城市区号！")
// document.myform.PhoneArea.focus()
// return false
// } else if (document.myform.usertel.value=="")
//{
// alert("对不起，请输入您的联系电话！")
// document.myform.usertel.focus()
// return false
// }
//else if (document.myform.address.value=="")
//{
// alert("对不起，请输入您的街道地址！")
// document.myform.address.focus()
// return false
// }
else if (document.myform.Company.value=="")
{
alert("对不起，请输入贵公司名称！")
document.myform.Company.focus()
return false
}
//else if (document.myform.JobTitle.value=="")
//{
// alert("对不起，请输入您的职位名称！")
// document.myform.JobTitle.focus()
// return false
// }
else if (document.myform.sortId.value=="")
{
alert("对不起，请选择您的主营行业！")
document.myform.soryId.focus()
return false
}
}
//Function to open pop up window
function openWin(theURL,winName,features) {
window.open(theURL,winName,features);
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim DownloadClass_Ads
Dim Rs
Dim SQL
Dim ErrMsg
Dim Sucmsg
Dim FoundErr
Dim loginum
Dim NowStats
Dim HtmlTitle
Dim Style_CSS
Dim HtmlTempStr
Dim TempTopStr
Dim TempFootStr
Dim Rss1, SQLs1
Dim Rss2,SQLs2
Dim softTitle
UserReg
If IsObject(DownloadClass_Ads) Then
Set DownloadClass_Ads = Nothing
End If
CloseConn
Public Sub UserReg()
FoundErr = False
DownsysClass.LoadTemplates ("index")
Set DownloadClass_Ads = New Adcolumn_Cls
Set Rs = Server.CreateObject("adodb.recordset")
NowStats = "会员注册"
HtmlTitle = "会员注册"
TempTopStr =DownsysClass.temphtml(0) & DownsysClass.mainhtml(0)
TempFootStr = DownsysClass.mainhtml(4)
Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
HtmlTempStr = TempTopStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(DownsysClass.Setting(5)) = 0 Then
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
Else
HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$sousuo}", sousuo)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
Response.Write HtmlTempStr
If CInt(DownsysClass.Setting(5)) = 1 Then
TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(11))
Else
TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(44))
End If
TempFootStr = Replace(TempFootStr, "{$Width}", DownsysClass.mainset(0))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
Response.Write "<TABLE width="""
Response.Write DownsysClass.mainset(0)
Response.Write """ class=TableBorder cellSpacing=0 cellPadding=0 align=center border=0>" & vbCrLf
Response.Write " <TR>" & vbCrLf
Response.Write " <TD vAlign=top class=Border2>" & vbCrLf
If CInt(DownsysClass.Setting(31)) = 0 Then
Response.Write "<script>alert('"& DownsysClass.mainset(35) &"');javascript:history.back(1)</script>"
Response.End
End If
Select Case Trim(Request("action"))
Case "save"
Call regsave
Case "hangye"
Call hangyes
Case Else
Call main
End Select
%>
<br>
<BR>
<TABLE WIDTH=776 BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=3> </TD>
</TR>
<TR>
<TD colspan="3" valign="top"><table width="776" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><FORM name=myform action="reg.asp?action=save" onsubmit="return myform_onsubmit()" method=post>
<table width="776" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="776" height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr> </tr>
<tr>
<td height="25" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="2" bgcolor="#FB9119"></td>
</tr>
<tr>
<td height="2" bgcolor="#F3F3F3"> </td>
</tr>
</table></td>
</tr>
<tr>
<td width="7%" bgcolor="#F3F3F3"> </td>
<td width="93%"><TABLE
width="77%" height=249 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=24% rowSpan=3 align=left vAlign=top><IMG
height=249 src="images/ani_title.gif"
width=142></TD>
<TD width="76%" height=63 align=left vAlign=top background="images/ani_subject.gif"><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td height="33"> </td>
</tr>
<tr>
<td class="strong"> 会员登录名和密码</td>
</tr>
</table></TD>
</TR>
<TR>
<TD vAlign=top align=left height=146><TABLE height=146 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD align=left
background=images/ani_middle_bg.gif><table width="420" border="0" cellpadding="0" cellspacing="1" bgcolor="#F3F3F3">
<tr bgcolor="#FFFFFF">
<td width="67" height="25"><div align="center">会员登录</div></td>
<td width="349"><span class="S lh13 ">
<INPUT name=username style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" id="username">
</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">密 码</div></td>
<td><span class="S lh13 ">
<INPUT
name=password1 type=password id="password1" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" size=22>
</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">再次输入</div></td>
<td><span class="S lh13 ">
<input
name=password2 type=password id="password2" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" size=22>
</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">密码提示</div></td>
<td><span class="S lh13 ">
<input
name=question type=text id="question" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" size=22>
</span></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">密码答案</div></td>
<td><span class="S lh13 ">
<INPUT
name=answer type=text id="answer" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" size=22>
</span></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=bottom align=left><IMG height=40
src="images/ani_bottom.gif"
width=457></TD>
</TR>
</TBODY>
</TABLE>
<TABLE
width="77%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width=24% height="100%" rowSpan=3 align=left vAlign=top><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="346" valign="top" background="Images/ani_title22.gif"><img
height=249 src="images/ani_title2.gif"
width=142></td>
</tr>
<tr>
<td><img src="Images/ani_title21.gif" width="142" height="44"></td>
</tr>
</table>
</TD>
<TD width="76%" height=63 align=left vAlign=top background="images/ani_subject.gif"><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -