📄 web_company_register.asp
字号:
</select></td>
</tr>
<tr>
<td height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 成立日期：</td>
<td height="30"> <input name="set_year" type="text" size="4" maxlength="4">
年
<select name="set_month">
<%for i=1 to 12%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
月
<select name="set_day">
<%for i=1 to 31%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
日 </td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 注册资金：</td>
<td height="30" bgcolor="#fff7f0"> <input name="reg_currency" type="text" size="25" maxlength="25" style="width:100px;">
万元
<select name="currencytype" id="currencytype" style="width:80px;">
<option value="1">人民币</option>
<option value="2">美元</option>
<option value="3">欧元</option>
<option value="4">英镑</option>
<option value="5">港币</option>
<option value="6">台币</option>
</select> </td>
</tr>
<tr>
<td height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 员工人数：</td>
<td height="30"> <select name="workers" id="workers" style="width:100px;">
<OPTION value=9>10人以下</OPTION>
<OPTION value=49>10～50人</OPTION>
<OPTION value=199>50～200人</OPTION>
<OPTION value=499>200～500人</OPTION>
<OPTION value=999>500～1000人</OPTION>
<OPTION value=1000>1000人以上</OPTION>
</select></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 企业所在地区：</td>
<td height="30" bgcolor="#fff7f0">
<!--#include file="../Include/Class_Locus.asp" -->
</td>
</tr>
<tr>
<td height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 企业简介：</td>
<td height="30"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70%"><textarea name="company_memo" cols="50" rows="8" id="company_memo"></textarea></td>
<td><font color="#50463d">最大字符数5000,请尽可能详细填写资料，以确保贵公司资料顺利通过本网审核！包括：公司基本资料+产品或服务+经营业绩等</font></td>
</tr>
</table></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=99% align=center
border=0>
<TBODY>
<TR>
<TD class=font-14 height=3></TD>
</TR>
<TR>
<TD class=font-14 bgColor=#ff7800 height=21> <FONT style="MARGIN-TOP: 2px; MARGIN-LEFT: 10px" color=#ffffff><strong>联系方式</strong></FONT></TD>
</TR>
<TR>
<TD bgColor=#e2e2e2 height=2></TD>
</TR>
</TBODY>
</TABLE>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="17%" height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 联系人：</td>
<td height="30"> <input name="contactperson" type="text" size="30" maxlength="30" style="width:120px;">
<font color="#50463d">请输入正确联系人，以方便求职者与贵公司联系，如：王小姐或张先生</font></td>
</tr>
<tr>
<td width="17%" height="30" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 联系电话：</td>
<td height="30" bgcolor="#fff7f0"><input name="phone" type="text" id="phone" style="width:120px;" size="30" maxlength="30">
<input name="phonekeep" type="checkbox" id="phonekeep" value="1">
<font color="#333333">屏蔽电话</font><font color="#50463d">
[固定电话号码，如：010-82615888] </font> </td>
</tr>
<tr>
<td height="30" align="right">传真号码：</td>
<td height="30"><input name="companyfax" type="text" id="companyfax" style="width:120px;" size="30" maxlength="30">
</td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#fff7f0">企业网站：</td>
<td height="30" bgcolor="#fff7f0">
<input name="webhome" type="text" size="50" style="width:200px;" value="http://"></td>
</tr>
<tr>
<td height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 邮政编码：</td>
<td height="30">
<input name="zipcode" type="text" size="6" maxlength="6" style="width:120px;">
</td>
</tr>
<tr bgcolor="#fff7f0">
<td height="30" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 通讯地址：</td>
<td height="30">
<input name="address" type="text" size="100" style="width:260px;">
如：北京市海淀区成府路××号 </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" align="center">
<input type="submit" name="Submit" value=" 新 增 会 员 " style="height:30px;">
</td>
</tr>
</form>
</table> </td>
</tr>
</table>
</body>
</html>
<%
Sub Edit_Submit()
Dim Username,Password,Comid,Question,Answer,Email
Username = Replace_text(Request.Form("username")) '//用户名
Password = Replace_text(Request.Form("password")) '//密码
Password = Md5(Password)
Randomize timer
znum = cint(8999*Rnd+1000)
Comid = "VR"&gen_key(10)&znum '//会员ID
Question = Replace_text(Request.Form("question")) '//问题提示
Answer = Replace_text(Request.Form("answer")) '//提示答案
Email = Replace_text(Request.Form("mailbox")) '//电子邮件
Set Rs = Server.createobject("ADODB.recordset")
Rs.open "Select username,Email,comid From [pH_Company_Base] Where username='"&username&"' or Email='"&Email&"' or comid='"&comid&"'",conn,1,1
if not rs.eof or not rs.bof then
if rs("username")=username or rs("comid")=comid then
CloseRs
CloseDb
response.write "<script >alert('"&Cls_WebName&" 提示：\n\n对不起，你的帐号已经使用了,请重新选择帐号并继续注册...');history.back(-1);</script>"
response.end
end if
if rs("Email") = Email then
CloseRs
CloseDb
response.write "<script >alert('"&Cls_WebName&" 提示：\n\n对不起，系统中有同名的邮箱,请重新选择邮箱并继续注册...');history.back(-1);</script>"
response.end
end if
end if
'//提交数据
Question = Replace_Text(Request.Form("Question"))
Answer = Replace_Text(Request.Form("Answer"))
CompanyName = Replace_Text(Request.Form("CompanyName"))
Licence = Replace_Text(Request.Form("Licence"))
Industry = Replace_Text(Request.Form("Industry"))
Properity = Replace_Text(Request.Form("Properity"))
Set_year = Replace_Text(Request.Form("Set_year"))
Set_month = Replace_Text(Request.Form("Set_month"))
Set_day = Replace_Text(Request.Form("Set_day"))
Workers = Replace_Text(Request.Form("Workers"))
Reg_Currency = Replace_Text(Request.Form("Reg_Currency"))
CurrencyType = Replace_Text(Request.Form("CurrencyType"))
Company_Memo = Replace_Text(Request.Form("Company_Memo"))
ContactPerson = Replace_Text(Request.Form("ContactPerson"))
Phone = Replace_Text(Request.Form("Phone"))
PhoneKeep = Replace_Text(Request.Form("PhoneKeep"))
CompanyFax = Replace_Text(Request.Form("CompanyFax"))
EmailKeep = Replace_Text(Request.Form("EmailKeep"))
Locus_Area = Replace_Text(Request.Form("x_suozaidi"))
Locus_City = Replace_Text(Request.Form("x_suozaidi1"))
Address = Replace_Text(Request.Form("Address"))
ZipCode = Replace_Text(Request.Form("ZipCode"))
WebHome = Replace_Text(Request.Form("WebHome"))
If PhoneKeep = "" Then PhoneKeep = 0
If EmailKeep = "" Then EmailKeep = 0
If Comnpany_Memo <> "" Then Comnpany_Memo = Replace(Comnpany_Memo,Chr(13),"<br>")
'//保存数据到数据库[pH_Company_Base]表
SQL = "Insert Into [pH_Company_Base] (Comid,Username,Password,CompanyName,Question,Answer,Licence,Industry,Properity,Set_Year,Set_Month,Set_Day,Workers,Reg_Currency,CurrencyType,Company_Memo,ContactPerson,Phone,PhoneKeep,CompanyFax,Email,EmailKeep,Locus_Area,Locus_City,Address,ZipCode,WebHome,RegDate,LastIp,LoginCount,LastDate,LastUpdate_Time,LogoKeep,Nc_Vip_Flag,ViewClicks,PublishCount,Flag,Nc_Video,Video_Flag,Websub) Values ('"&Comid&"','"&Username&"','"&Password&"','"&CompanyName&"','"&Question&"','"&Answer&"','"&Licence&"',"&Industry&","&Properity&","&Set_year&","&Set_month&","&Set_day&","&Workers&","&Reg_Currency&","&CurrencyType&",'"&Company_Memo&"','"&ContactPerson&"','"&Phone&"',"& PhoneKeep&",'"&CompanyFax&"','"&Email&"',"&EmailKeep&",'"&Locus_Area&"','"&Locus_City&"','"&Address&"','"&ZipCode&"','"&WebHome&"','"&Now()&"','"&LastIp&"',1,'"&Now()&"','"&Now()&"',0,0,0,0,1,0,0,'"&Cls_Websub&"')"
Conn.Execute(SQL) '//[pH_Company_Base]表
'操作完成
Response.write "<script language=JavaScript>alert('操作完成！');location.href='Web_Company_All.asp';</script>"
End Sub
Call CloseDB()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -