📄 user_info_code.asp
字号:
StatusInField = -1
CompanySize = -1
ManagementForms = -1
Else
Company2 = rsCompany("CompanyName")
Address2 = rsCompany("Address")
Country2 = rsCompany("Country")
Province2 = rsCompany("Province")
City2 = rsCompany("City")
ZipCode2 = rsCompany("ZipCode")
Phone = rsCompany("Phone")
Fax2 = rsCompany("Fax")
HomePage2 = rsCompany("Homepage")
BankOfDeposit = rsCompany("BankOfDeposit")
BankAccount = rsCompany("BankAccount")
TaxNum = rsCompany("TaxNum")
StatusInField = rsCompany("StatusInField")
CompanySize = rsCompany("CompanySize")
BusinessScope = rsCompany("BusinessScope")
AnnualSales = rsCompany("AnnualSales")
ManagementForms = rsCompany("ManagementForms")
RegisteredCapital = rsCompany("RegisteredCapital")
CompanyIntro = rsCompany("CompanyIntro")
CompamyPic = rsCompany("CompamyPic")
End If
rsCompany.Close
Set rsCompany = Nothing
Response.Write " <tbody id='Tabs' style='display:none'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>单位名称：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Company2' type='text' size='35' maxlength='100' value='" & Company2 & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'></td>" & vbCrLf
Response.Write " <td width='38%'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td rowspan='2' class='tdbg5' align='right' width='12%'>通讯地址：</td>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <iframe name='frm2' id='frm2' src='../Region.asp?Action=Modify&Country=" & Country2 & "&Province=" & Province2 & "&City=" & City2 & "' width='100%' height='75' frameborder='0' scrolling='no'></iframe>" & vbCrLf
Response.Write " <input name='Country2' type='hidden'> <input name='Province2' type='hidden'> <input name='City2' type='hidden'>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td colspan='3'>" & vbCrLf
Response.Write " <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td width='12%' align='right' class='tdbg5' align='right' >联系地址：</td>" & vbCrLf
Response.Write " <td><input name='Address2' type='text' size='60' maxlength='255' value='" & Address2 & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td align='right' class='tdbg5' align='right' >邮政编码：</td>" & vbCrLf
Response.Write " <td><input name='ZipCode2' type='text' size='35' maxlength='10' value='" & ZipCode2 & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </table>" & vbCrLf
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>联系电话：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Phone' type='text' size='35' maxlength='30' value='" & Phone & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>传真号码：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='Fax2' type='text' size='35' maxlength='30' value='" & Fax2 & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>开户银行：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankOfDeposit' type='text' size='35' maxlength='255' value='" & BankOfDeposit & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' width='12%'>银行帐号：</td>" & vbCrLf
Response.Write " <td width='38%'><input name='BankAccount' type='text' size='35' maxlength='255' value='" & BankAccount & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >税号：</td>" & vbCrLf
Response.Write " <td><input name='TaxNum' type='text' size='35' maxlength='50' value='" & TaxNum & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >网址：</td>" & vbCrLf
Response.Write " <td><input name='Homepage2' type='text' size='35' maxlength='100' value='" & HomePage2 & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >行业地位：</td>" & vbCrLf
Response.Write " <td><select name='StatusInField'>" & Array2Option(arrStatusInField, StatusInField) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >公司规模：</td>" & vbCrLf
Response.Write " <td><select name='CompanySize'>" & Array2Option(arrCompanySize, CompanySize) & "</select></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >业务范围：</td>" & vbCrLf
Response.Write " <td><input name='BusinessScope' type='text' size='35' maxlength='255' value='" & BusinessScope & "'></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >年销售额：</td>" & vbCrLf
Response.Write " <td><input name='AnnualSales' type='text' size='15' maxlength='20' value='" & AnnualSales & "'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >经营状态：</td>" & vbCrLf
Response.Write " <td><select name='ManagementForms'>" & Array2Option(arrManagementForms, ManagementForms) & "</select></td>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >注册资本：</td>" & vbCrLf
Response.Write " <td><input name='RegisteredCapital' type='text' size='15' maxlength='20' value='" & RegisteredCapital & "'> 万元</td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >公司照片：</td>" & vbCrLf
Response.Write " <td colspan='3'><input name='CompamyPic' type='text' size='35' maxlength='255' value='" & CompamyPic & "'></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " <tr class='tdbg'>" & vbCrLf
Response.Write " <td class='tdbg5' align='right' >公司简介：</td>" & vbCrLf
Response.Write " <td colspan='3'><textarea name='CompanyIntro' cols='75' rows='5' id='CompanyIntro'>" & PE_ConvertBR(CompanyIntro) & "</textarea></td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write " </tbody>" & vbCrLf
End If
Response.Write "</table>" & vbCrLf
Response.Write "</td></tr></table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1'><tr align='center'><td height='40'>" & vbCrLf
Response.Write " <input type='hidden' name='action' value='SaveInfo'>" & vbCrLf
Response.Write " <input type='hidden' name='UserName' value='" & UserName & "'>" & vbNewLine
Response.Write " <input type='submit' name='Submit' value='保存修改结果'> " & vbCrLf
Response.Write " <input type='button' name='Cancel' value=' 取 消 ' onclick=""window.location.href='Index.asp'"">" & vbCrLf
Response.Write "</td></tr></table>" & vbCrLf
Response.Write "</form>" & vbCrLf
Set rsUser = Nothing
End Sub
Sub SaveInfo()
Dim UserPassword, LastPassword, Question, Answer, Email
Dim sqlUser, rsUser
Dim UserType, ClientID, ContacterID, CompanyID
Dim TrueName
UserPassword = ReplaceBadChar(Trim(Request.Form("UserPassword")))
Question = ReplaceBadChar(Trim(Request.Form("Question")))
Answer = ReplaceBadChar(Trim(Request.Form("Answer")))
Email = ReplaceBadChar(Trim(Request.Form("Email")))
GroupID = PE_CLng(Trim(Request.Form("GroupID")))
TrueName = nohtml(Trim(Request.Form("TrueName")))
If Len(TrueName) > 20 Then
FoundErr = True
ErrMsg = "<li>真实姓名,请添入20个以下的字符！</li>"
End If
If Question = "" Then
FoundErr = True
ErrMsg = "提示问题不能为空！"
End If
If Email = "" Then
FoundErr = True
ErrMsg = "Email不能为空！"
End If
If FoundErr Then
Exit Sub
End If
'加入对整合接口的支持
If API_Enable Then
If createXmlDom Then
sPE_Items(conAction, 1) = "update"
sPE_Items(conUsername, 1) = UserName
sPE_Items(conPassword, 1) = UserPassword
sPE_Items(conEmail, 1) = Email
sPE_Items(conQuestion, 1) = Question
sPE_Items(conAnswer, 1) = Answer
sPE_Items(conUserstatus, 1) = 0
sPE_Items(conJointime, 1) = Now()
sPE_Items(conUserip, 1) = UserTrueIP
sPE_Items(conTruename, 1) = TrueName
sPE_Items(conGender, 1) = exchangeGender(Trim(Request.Form("Sex")))
sPE_Items(conBirthday, 1) = FormatDateTime(PE_CDate(Trim(Request.Form("Birthday"))), vbShortDate)
sPE_Items(conQQ, 1) = nohtml(Trim(Request.Form("QQ")))
sPE_Items(conMsn, 1) = nohtml(Trim(Request.Form("MSN")))
sPE_Items(conMobile, 1) = nohtml(Trim(Request.Form("Mobile")))
sPE_Items(conTelephone, 1) = nohtml(Trim(Request.Form("OfficePhone")))
sPE_Items(conProvince, 1) = nohtml(Trim(Request.Form("Province1")))
sPE_Items(conCity, 1) = nohtml(Trim(Request.Form("City1")))
sPE_Items(conAddress, 1) = nohtml(Trim(Request.Form("Address1")))
sPE_Items(conZipcode, 1) = nohtml(Trim(Request.Form("ZipCode1")))
sPE_Items(conHomepage, 1) = nohtml(Trim(Request.Form("HomePage1")))
prepareXml True
SendPost
If FoundErr Then
ErrMsg = "<li>" & ErrMsg & "</li>"
End If
Else
FoundErr = True
ErrMsg = "<li>用户服务暂时不可用! [APIError-XmlDom-Runtime]</li>"
End If
End If
If FoundErr Then Exit Sub
'完毕
sqlUser = "SELECT * FROM PE_User Where UserID=" & UserID & ""
Set rsUser = Server.CreateObject("adodb.recordset")
rsUser.open sqlUser, Conn, 1, 3
If UserPassword <> "" Then
rsUser("UserPassword") = MD5(UserPassword, 16)
End If
rsUser("Question") = Question
If Answer <> "" Then
rsUser("Answer") = MD5(Answer, 16)
End If
rsUser("Email") = Email
rsUser("UserFace") = nohtml(Trim(Request.Form("UserFace")))
rsUser("FaceWidth") = PE_CLng(Trim(Request.Form("FaceWidth")))
rsUser("FaceHeight") = PE_CLng(Trim(Request.Form("FaceHeight")))
rsUser("Sign") = PE_HTMLEncode(Trim(Request.Form("Sign")))
rsUser("Privacy") = PE_CLng(Trim(Request.Form("Privacy")))
UserType = PE_CLng(rsUser("UserType"))
ClientID = PE_CLng(rsUser("ClientID"))
ContacterID = PE_CLng(rsUser("ContacterID"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -