📄 updateinfo.asp
字号:
<tr>
<td class=S width=10 rowspan=3><font
color=#ff0000> *</font> </td>
<td width=70><font class=s> 国家区号：</font></td>
<td width=65><font class=s>城市区号：</font></td>
<td width=100><font class=s>号码：</font></td>
<td width=170> </td>
</tr>
<tr>
<td style="PADDING-LEFT: 6px" width=65><input class=f2 maxlength=8 size=8 name=J_z_Z_PhoneCountry value="<%=Rs("PhoneCountry")%>"></td>
<td width=65><input
name=PhoneArea class=f2 id="PhoneArea" size=8 maxlength=8 value="<%=Rs("PhoneArea")%>"></td>
<td width=100><input
name=usertel class=f2 id="usertel" size=13 maxlength=100 value="<%=Rs("usertel")%>"></td>
<td width=170> </td>
</tr>
<tr>
<td colspan=5><font class="S lh13"
color=#9a9a9a> 如果要输入多个号码，请使用"/"、","、";"分隔；分机号码用"-"分隔</font> </td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td align=right height=50><strong>传真：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=50><table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td background=images/Join/joinin_line.gif><img
height=1 src="images/Join/joinin_line.gif"
width=3></td>
</tr>
</tbody>
</table>
<div style="PADDING-TOP: 5px"></div>
<table cellspacing=0 cellpadding=0 width=250 align=left
border=0>
<tbody>
<tr>
<td class=S width=10 rowspan=2><font
color=#ff0000> </font> </td>
<td><font class=s> 国家区号：</font></td>
<td><font class=s>城市区号：</font></td>
<td><font class=s>号码：</font></td>
</tr>
<tr>
<td style="PADDING-LEFT: 6px"><input class=f2
maxlength=8 size=8 name=J_z_Z_FaxCountry value="<%=Rs("FaxCountry")%>">
</td>
<td><input
name=FaxArea class=f2 id="FaxArea" size=8 maxlength=8 value="<%=Rs("FaxArea")%>"></td>
<td><input
name=FaxNumber class=f2 id="FaxNumber" size=13 maxlength=100 value="<%=Rs("FaxNumber")%>"></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td height=50 align=right><strong>公司主页：</strong></td>
<td height=0 bgcolor=#f1f1f1 class="S lh13"><span class="s">
<span class="S lh13 "><font
color=#ff0000> *</font> </span>
<INPUT name=home id="home" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" value="<%=Rs("home")%>"
size=28 maxLength=40>
</span></td>
</tr>
<tr>
<td height=50 align=right><strong>企业邮箱：</strong></td>
<td height=0 bgcolor=#f1f1f1 class="S lh13"><span class="S lh13 ">
<span class="s"><span class="S lh13 "><font
color=#ff0000> *</font> </span> </span>
<INPUT name=pagemail id="pagemail" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" value="<%=Rs("pagemail")%>" size=22 >
</span></td>
</tr>
<tr>
<td height=50 align=right><strong>法人代表：</strong></td>
<td height=0 bgcolor=#f1f1f1 class="S lh13"> <span class="S lh13 ">
<INPUT
name=pagename id="pagename" style="BORDER-RIGHT: #d7d7d7 1px solid; BORDER-TOP: #d7d7d7 1px solid; BORDER-LEFT: #d7d7d7 1px solid; WIDTH: 306px; BORDER-BOTTOM: #d7d7d7 1px solid" value="<%=Rs("pagename")%>" size=22>
</span> </td>
</tr>
<tr>
<td align=right height=50><strong>主营行业：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=50><font
color=#ff0000> *</font>
<%
Dim srtSortingList
srtSortingList = DownsysClass.SortingJumpList
srtSortingList = Replace(srtSortingList, "{SortID=" & Request("sortid") & "}", "selected")
Response.Write srtSortingList
%>
</td>
</tr>
<tr>
<td align=right width=135 height=80><strong>主营产品：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=80><table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td width=20 rowspan=2> </td>
<td class=s><input name=SaleKeywords id="SaleKeywords" title=各关键字中间以逗号间隔
size=28 maxlength=40 value="<%=Rs("SaleKeywords")%>">
</td>
</tr>
</tbody>
</table>
<font class=s color=#999999>请填产品名称，多个产品用<font
color=#ff6600>逗号</font>分隔。</font></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td> <span class="strong">业务联系人</span></td>
</tr>
<tr>
<td><table class=outborder cellspacing=0 cellpadding=0 width=100%
border=0>
<tbody>
<tr>
<td width="135" height=35 align=right><strong>姓 名：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=35> <font
color=#ff0000>*</font>
<input size=22 value="<%=Rs("truename")%>" name=truename></td>
</tr>
<tr>
<td align=right><strong>性 别 ：</strong></td>
<td bgcolor=#f1f1f1 class="S lh13"><font
color=#ff0000> *</font>
<input
name=sex type=radio value=0 checked>
先生
<input type=radio value=1
name=sex>
女士 <br>
<div style="PADDING-TOP: 5px"></div>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td background=images/Join/joinin_line.gif><img
height=1 src="images/Join/joinin_line.gif"
width=3></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td align=right height=30><strong>您的职位：</strong></td>
<td class="S lh13" bgcolor=#f1f1f1 height=30><font
color=#ff0000> *</font>
<input
name=JobTitle id="JobTitle" size=22 value="<%=Rs("JobTitle")%>">
</td>
</tr>
<tr>
<td align=right height=70><strong>电子邮箱：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=70><font
color=#ff0000> *</font>
<input name=usermail id="usermail" size=22 value="<%=Rs("usermail")%>">
<br>
<font color=#ff7300>非常重要！</font> <font
color=#9a9a9a>这是客户与您联系的首选方式，请一定填写真实。</font> <br></td>
</tr>
<tr>
<td align=right height=40><strong>手 机：</strong></td>
<td class="S lh13 " bgcolor=#f1f1f1 height=40>
<input
name=MobileNo id="MobileNo" size=22 value="<%=Rs("MobileNo")%>"></td>
</tr>
</tbody>
</table></td>
</tr>
</TBODY>
</table>
</div></td>
</tr>
<tr bgcolor=#f3f3f3>
<td height=10 colspan=2 align="center"><INPUT class=M type=submit value=看过并同意服务条款！确认提交 name=Submit></td>
</form>
</tr>
</TBODY>
</table></TD>
</TR></TBODY></TABLE>
<% End If
Rs.Close
End Sub
Private Sub chkmodify()
username = Replace(Request.Form("username"),"'","''")
userid = CLng(Request.Form("userid"))
If DownsysClass.checkpost = False Then
ErrMsg = ErrMsg + "您提交的数据不合法，请不要从外部提交注册。\n"
Founderr = True
End If
If Len(Request.Form("truename")) > 15 Then
FoundErr = True
ErrMsg = ErrMsg + "真实姓名不能大于15个字符。\n"
End If
If Trim(Request.Form("truename")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "你没有输入真实姓名。\n"
End If
If Request.Form("password1") <> Request.Form("password2") Then
ErrMsg = ErrMsg + "您输入的密码和确认密码不一致。\n"
FoundErr = True
End If
If Trim(Request.Form("usermail")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "您的Email不能为空。\n"
End If
If IsValidEmail(Trim(Request.Form("usermail"))) = False Then
ErrMsg = ErrMsg + "您的Email有错误。\n"
FoundErr = True
End If
If Trim(Request.Form("usertel")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "请输入你的联系电话。\n"
End If
If Not IsValidTel(Trim(Request.Form("usertel"))) Then
FoundErr = True
ErrMsg = ErrMsg + "联系电话号码输入错误 \n"
End If
If Trim(Request.Form("address")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "请输入你的联系地址。\n"
End If
End Sub
Private Sub modify()
Dim strSortid
strSortid = Split(Trim(Request.Form("sortid")), ",")
Call chkmodify
If Founderr = False Then
SQL = "select * from [NC_user] where username='" & username & "' "
Rs.Open SQL, conn, 1, 3
If Rs.bof And Rs.EOF Then
Response.Write "Sorry！没有找到此用户信息信息。"
Else
Rs("question") = Request.Form("question")
Rs("sex") = Request.Form("sex")
Rs("pagename") = Request.Form("pagename")
Rs("pagemail") = Request.Form("pagemail")
Rs("usermail") = Request.Form("usermail")
Rs("PhoneCountry") = Request.Form("J_z_Z_PhoneCountry")
Rs("PhoneArea") = Request.Form("PhoneArea")
Rs("usertel") = Request.Form("usertel")
Rs("address") = Trim(Request.Form("address"))
Rs("postcode") = Request.Form("postcode")
Rs("FaxCountry") = Request.Form("J_z_Z_FaxCountry")
Rs("FaxArea") = Request.Form("FaxArea")
Rs("FaxNumber") = Request.Form("FaxNumber")
Rs("MobileNo") = Request.Form("MobileNo")
Rs("Company") = Request.Form("Company")
Rs("JobTitle") = Request.Form("JobTitle")
Rs("CategoryId") = strSortid(1)
Rs("SaleKeywords") = Request.Form("SaleKeywords")
Rs("BuyKeywords") = Request.Form("BuyKeywords")
Rs("truename") = Request.Form("truename")
Rs("qiyeVI") = Request.Form("qiyeVI")
If Request.Form("MaterialClassCode") <> "" Then
Rs("MaterialClassCode") = Trim(Request.Form("MaterialClassCode"))
End If
If Request.Form("answer") <> "" Then
Rs("answer") = md5(Request.Form("answer"))
End If
Rs.Update
End If
Rs.Close
Set Rs = Nothing
Response.Write ("<script>alert('您的资料修改成功!\n\n请记住您的新用户资料');location.href=""user.asp""</script>")
Response.End
End If
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -