📄 customconnectmodify.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><!--#INCLUDE FILE="../HXINCLUDE/SelectDate.ASP"-->
<%if WS_S.MemberPriv("WS_SaleManageCustomConnectManage")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_CustomConnect":Tablename1="HX_CustomInfo":Orderby="":action=request("action"):id=request("id")
if not WS_S.HX_IsNUM(id) then HX_GoBack "非法操作",""
Orderby=" where WS_CCID="&id
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="saveinfo" then
CIID=WS_s.HX_Replace(request("CIID"))
ConnectContent=WS_s.HX_Replace(request("ConnectContent"))
ConnectMan=WS_s.HX_Replace(request("ConnectMan"))
ConnectMobile=WS_s.HX_Replace(request("ConnectMobile"))
ConnectDate=WS_s.HX_Replace(request("ConnectDate"))
ConnectDescribe=WS_s.HX_Replace(request("ConnectDescribe"))
rs("WS_CIID")=CIID
rs("WS_CustomConnectContent")=ConnectContent
rs("WS_CustomConnectMan")=ConnectMan
if isdate(ConnectDate) then
rs("WS_CustomConnectDate")=ConnectDate
end if
rs("WS_CustomConnectDescribe")=ConnectDescribe
rs("WS_CustomConnectCreateMan")=loginuid
rs.update
HX_GoBack "修改成功","CustomConnectManage.asp"
end if
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='CustomConnectCreate.asp' class='menu'>新建交住信息</a> <a href='CustomConnectManage.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='CIID' id='CIID'>"
Orderby=" where WS_CustomInfoSaleMan="&loginuid&" or WS_CustomInfoMan="&loginuid&" or WS_CustomInfoCreateMan="&loginuid&" or WS_CustomInfoMan=0 or WS_CustomInfoCreateMan=0 order by WS_CIID desc"
set urs=WS_S.HX_SetRSD(ColumnName,Tablename1,Orderby)
if urs.recordcount>0 then
do until urs.eof
response.Write "<option value='"&urs("WS_CIID")&"' "
if rs("WS_CIID")=urs("WS_CIID") then response.Write "selected"
response.Write ">"&urs("WS_CustomInfoName")&"</option>"
urs.movenext
loop
end if
WS_S.HX_RSClose urs
response.Write "</select></td></tr><tr bgcolor='#FFFFFF'><td align='right'>交往日期：</td><td><input name='ConnectDate' type='text' value='"&rs("WS_CustomConnectDate")&"' size='28' readonly> <input name='button' type='button' title='选择日期' onClick=""popUpcalendar(this, form1.ConnectDate, 'yyyy/mm/dd')"" value='选择'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>交往内容：</td><td><textarea name='ConnectContent' cols='36' rows='6' class='bgLine'>"&rs("WS_CustomConnectContent")&"</textarea></td></tr><tr bgcolor='#FFFFFF'><td align='right'>联 系 人：</td><td><input type='text' size='36' name='ConnectMan' value='"&rs("WS_CustomConnectMan")&"'></td></tr><tr bgcolor='#FFFFFF'><td align='right'>备 注：</td><td><input type='text' size='36' name='ConnectDescribe' value='"&rs("WS_CustomConnectDescribe")&"'></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>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -