📄 saleshopmodify.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_SaleManageSaleShopManage")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_SaleShop":action=request("action"):id=request("id")
if not WS_S.HX_IsNUM(id) then HX_GoBack "非法操作",""
Orderby=" where WS_SSID="&id
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="saveinfo" then
BankName=WS_s.HX_Replace(request("BankName")):BankNo=WS_s.HX_Replace(request("BankNo")):SaleShopname=WS_s.HX_Replace(request("SaleShopname")):SaleShoptel=WS_s.HX_Replace(request("SaleShoptel")):SaleShopfax=WS_s.HX_Replace(request("SaleShopfax")):SaleShopurl=WS_s.HX_Replace(request("SaleShopurl")):SaleShopemail=WS_s.HX_Replace(request("SaleShopemail")):SaleShopaddress=WS_s.HX_Replace(request("SaleShopaddress")):SaleShoppost=WS_s.HX_Replace(request("SaleShoppost")):SaleShopDescribe=WS_s.HX_Replace(request("SaleShopDescribe"))
Orderby=" where WS_SaleShopBankName='"&BankName&"' and WS_SSID<>"&id&" and WS_SaleShopCreateMan="&loginuid
set ifrs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if ifrs.recordcount>0 then WS_S.HX_RSClose ifrs:HX_GoBack "供应商资料已存在",""
rs("WS_SaleShopBankName")=BankName:rs("WS_SaleShopBankNo")=BankNo:rs("WS_SaleShopName")=SaleShopname:rs("WS_SaleShopTel")=SaleShoptel:rs("WS_SaleShopFax")=SaleShopfax:rs("WS_SaleShopUrl")=SaleShopurl:rs("WS_SaleShopEmail")=SaleShopemail:rs("WS_SaleShopAddress")=SaleShopaddress:rs("WS_SaleShopPost")=SaleShoppost:rs("WS_SaleShopDescribe")=SaleShopDescribe:rs.update
HX_GoBack "修改成功","SaleShopManage.asp"
end if
Orderby=""
response.write "<head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>修改供应商资料</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><script src='../HXinclude/HX_Function.js'></script></head><body topmargin='20' leftmargin='0' bottommargin='0'><table width='596' border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td colspan='2' bgcolor=ffffff><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>修改供应商资料</font> <a href='SaleShopCreate.asp' class='menu'>新建供应商</a><a href='SaleShopManage.asp' class='menu'>供应商管理</a></td></tr></table><table width='100%' border='0' cellspacing='1' cellpadding='3' bgcolor=f1f1f1><form name='form1' method='post' action='?action=saveinfo' onSubmit='return SaleShopCheck(this);'><tr bgcolor='#FFFFFF'><td width='23%' align='right'>供应商名称：</td><td width='77%'><input name='SaleShopName' type='text' value='"&rs("WS_SaleShopName")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>电话号码：</td><td><input type='text' value='"&rs("WS_SaleShopTel")&"' size='36' name='SaleShopTel' style='ime-mode:disabled'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>传 真：</td><td><input type='text' value='"&rs("WS_SaleShopFax")&"' size='36' name='SaleShopFax' style='ime-mode:disabled'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>网 址：</td><td><input type='text' value='"&rs("WS_SaleShopUrl")&"' size='36' name='SaleShopUrl' style='ime-mode:disabled'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>电子邮件：</td><td><input type='text' value='"&rs("WS_SaleShopEmail")&"' size='36' name='SaleShopEmail' style='ime-mode:disabled'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>地 址：</td><td><input type='text' value='"&rs("WS_SaleShopAddress")&"' size='36' name='SaleShopAddress'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>邮政编码：</td><td><input type='text' value='"&rs("WS_SaleShopPost")&"' size='36' name='SaleShopPost' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>备 注：</td><td><input type='text' value='"&rs("WS_SaleShopDescribe")&"' size='36' name='SaleShopDescribe'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>开户银行：</td><td><input type='text' value='"&rs("WS_SaleShopBankName")&"' size='36' name='BankName'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>帐 号：</td><td><input type='text' value='"&rs("WS_SaleShopBankNo")&"' size='36' name='BankNo' style='ime-mode:disabled'></td></tr><tr bgcolor='#FFFFFF'><td align='right' valign=top> </td><td><input type='submit' name='Submit' value=' 修 改 '> <input type='reset' name='Submit2' value=' 重 置 '><input name='id' type='hidden' id='id' value='"&id&"'></td></tr></form></table></td></tr></table>"
WS_S.HX_RSClose rs%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -