📄 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")):CRID=WS_s.HX_Replace(request("CRID"))
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("WS_CRID")=CRID:rs.update
HX_GoBack "修改成功","CustomInfoManage.asp"
end if
Orderby=""%>
<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="#613c25">
<tr>
<td colspan="2" bgcolor=FFFBE8><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=FFFBE8>
<form name="form1" method="post" action="?action=saveinfo" onSubmit="return CustomCheck(this);"><tr bgcolor="#FFFBE8">
<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
%>
<option value="<%=urs("WS_Uid")%>" <%if urs("WS_Uid")=rs("WS_CustomInfoSaleMan") then response.write "selected"%>><%=urs("WS_Name")%></option><%
urs.movenext
loop
end if
WS_S.HX_RSClose urs
%>
</select>
<font color="#FF0000">*只能查看客户资料</font></td>
</tr>
<tr bgcolor="#FFFBE8">
<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
%>
<option value="<%=urs("WS_Uid")%>" <%if urs("WS_Uid")=rs("WS_CustomInfoMan") then response.write "selected"%>><%=urs("WS_Name")%></option><%
urs.movenext
loop
end if
WS_S.HX_RSClose urs
%>
</select>
<font color="#FF0000">*不仅具有查看权限还具有修改和删除权限</font></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">客户名称：</td>
<td><input name="InfoName" type="text" value="<%=rs("WS_CustomInfoName")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">客户级别：</td>
<td><select name="CRID" id="CRID">
<%
set crs=WS_S.HX_SetRSD("","HX_CustomRank"," order by WS_OrderBy asc")
if crs.recordcount>0 then
do until crs.eof
%>
<option value="<%=crs("WS_CRID")%>" <%if crs("WS_CRID")=rs("WS_CRID") then response.Write "selected"%>><%=crs("WS_CustomRankName")%></option><%
crs.movenext
loop
end if
WS_S.HX_RSClose crs
%>
</select></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">电话号码：</td>
<td><input name="InfoTel" type="text" style="ime-mode:disabled" value="<%=rs("WS_CustomInfoTel")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">传 真：</td>
<td><input name="InfoFax" type="text" style="ime-mode:disabled" value="<%=rs("WS_CustomInfoFax")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">网 址：</td>
<td><input name="InfoUrl" type="text" style="ime-mode:disabled" value="<%=rs("WS_CustomInfoUrl")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">电子邮件：</td>
<td><input name="InfoEmail" type="text" style="ime-mode:disabled" value="<%=rs("WS_CustomInfoEmail")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<td align="right">地 址：</td>
<td><input name="InfoAddress" type="text" value="<%=rs("WS_CustomInfoAddress")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<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="#FFFBE8">
<td align="right">备 注：</td>
<td><input name="InfoDescribe" type="text" value="<%=rs("WS_CustomInfoDescribe")%>" size="36"></td>
</tr>
<tr bgcolor="#FFFBE8">
<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 + -