📄 custommodify.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_SaleManageCustomInfoManage")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_CustomInfo":Tablename1="HX_CompanyUser":action=request("action"):id=request("id")
if not WS_S.HX_IsNUM(id) then HX_GoBack "非法操作",""
Orderby=" where WS_CIID="&id
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="saveinfo" then
saleman=WS_s.HX_Replace(request("saleman")):InfoMan=WS_s.HX_Replace(request("InfoMan")):Infonname=WS_s.HX_Replace(request("infoname")):Infotel=WS_s.HX_Replace(request("infotel")):Infofax=WS_s.HX_Replace(request("infofax")):Infourl=WS_s.HX_Replace(request("infourl")):Infoemail=WS_s.HX_Replace(request("infoemail")):Infoaddress=WS_s.HX_Replace(request("infoaddress")):Infopost=WS_s.HX_Replace(request("infopost")):InfoDescribe=WS_s.HX_Replace(request("infoDescribe"))
Orderby=" where WS_CustomInfoName='"&Infonname&"' and WS_CIID<>"&id&" and WS_CustomInfoCreateMan="&loginuid
set ifrs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if ifrs.recordcount>0 then
WS_S.HX_RSClose ifrs
HX_GoBack "客户资料已存在",""
end if
rs("WS_CustomInfoSaleMan")=saleman:rs("WS_CustomInfoMan")=InfoMan:rs("WS_CustomInfoName")=Infonname:rs("WS_CustomInfoTel")=infotel:rs("WS_CustomInfoFax")=infofax:rs("WS_CustomInfoUrl")=infourl:rs("WS_CustomInfoEmail")=infoemail:rs("WS_CustomInfoAddress")=infoaddress:rs("WS_CustomInfoPost")=infopost:rs("WS_CustomInfoDescribe")=infoDescribe:rs("WS_CustomInfoCreateMan")=loginuid:rs.update
HX_GoBack "修改成功","CustomInfoManage.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='CustomInfoCreate.asp' class='menu'>新建客户</a> <a href='CustomInfoManage.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 CustomCheck(this);'><tr bgcolor='#FFFFFF'><td width='23%' align='right'>销 售 员：</td><td width='77%'><select name='saleman' id='saleman'><option value='0'>所有</option>"
set urs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if urs.recordcount>0 then
do until urs.eof
response.Write "option value='"&urs("WS_Uid")&"' "
if urs("WS_Uid")=rs("WS_CustomInfoSaleMan") then response.write "selected"
response.Write ">"&urs("WS_Name")&"</option>"
urs.movenext
loop
end if
WS_S.HX_RSClose urs
response.Write "</select><font color='#FF0000'>*只能查看客户资料</font></td></tr><tr bgcolor='#FFFFFF'><td align='right'>是否为共享客户：</td><td><select name='InfoMan' id='InfoMan'><option value='0'>所有</option>"
set urs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if urs.recordcount>0 then
do until urs.eof
response.Write "<option value='"&urs("WS_Uid")&"' "
if urs("WS_Uid")=rs("WS_CustomInfoMan") then response.write "selected"
response.Write ">"&urs("WS_Name")&"</option>"
urs.movenext
loop
end if
WS_S.HX_RSClose urs
response.Write "</select><font color='#FF0000'>*不仅具有查看权限还具有修改和删除权限</font></td></tr><tr bgcolor='#FFFFFF'><td align='right'>客户名称：</td><td><input name='InfoName' type='text' value='"&rs("WS_CustomInfoName")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>电话号码：</td><td><input name='InfoTel' type='text' style='ime-mode:disabled' value='"&rs("WS_CustomInfoTel")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>传 真：</td><td><input name='InfoFax' type='text' style='ime-mode:disabled' value='"&rs("WS_CustomInfoFax")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>网 址：</td><td><input name='InfoUrl' type='text' style='ime-mode:disabled' value='"&rs("WS_CustomInfoUrl")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>电子邮件：</td><td><input name='InfoEmail' type='text' style='ime-mode:disabled' value='"&rs("WS_CustomInfoEmail")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>地 址：</td><td><input name='InfoAddress' type='text' value='"&rs("WS_CustomInfoAddress")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>邮政编码：</td><td><input name='InfoPost' type='text' style='ime-mode:disabled' onKeyPress='event.returnValue=IsDigit();' value='"&rs("WS_CustomInfoPost")&"' size='36'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>备 注：</td><td><input name='InfoDescribe' type='text' value='"&rs("WS_CustomInfoDescribe")&"' size='36'></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 + -