📄 changeinfo.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>修改供应商基本信息</title>
</head>
<body>
<%if Request.Cookies("IsLogin")="Yes" then%>
<%
Dim VendorId
Dim ZipCode, Telephone, MobilePhone, Fax, ContactMan,Email, WebSite, CurrentBank,BankAccount,OperatorMobilePhone
Dim Operatorname, OperatorTelePhone
VendorId = Request.Cookies("UserId")
ZipCode = Request.Form("ZipCode")
if ZipCode = "" then
Response.Redirect("showerror.asp?message=对不起！邮政编码没有填写！")
end if
Telephone = Request.Form("Telephone")
MobilePhone = Request.Form("MobilePhone")
Fax = Request.Form("Fax")
ContactMan = Request.Form("ContactMan")
Email = Request.Form("Email")
WebSite = Request.Form("WebSite")
CurrentBank = Request.Form("CurrentBank")
BankAccount = Request.Form("BankAccount")
OperatorMobilePhone = Request.Form("OperatorMobilePhone")
Operatorname = Request.Form("Operatorname")
OperatorTelePhone = Request.Form("OperatorTelePhone")
Set ASPObj = Server.CreateObject("aspVendorBiz.mtsASPVendor")
if ASPObj.SetVendorInfoByVendorId(VendorId,ZipCode,Telephone,MobilePhone,Fax,ContactMan,Email,WebSite,CurrentBank,BankAccount,OperatorMobilePhone,Operatorname,OperatorTelePhone) then
Response.Write("<p>修改成功！</p>")
else
Response.Write("<p>修改失败！</p>")
end if
%>
<%else%>
<p>您未登陆，请先登陆！</p>
<%end if%>
<p><a href="javascript:history.back()">返回</a></p>
<p> </p>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -