📄 user_design3.asp

📁 客户管理crm xitong ,希望能给你带来帮助
💻 ASP
字号:
<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<%
client_id=request("ID")
strdate=request("strdate")
if strdate="" then
	strdate=date()
end if

strTable=request("strTable")
if strTable="" then
	response.end
end if
contact_id=request("contact_id")

if request("Submit")<>"" then
	if contact_id<>"" then
		strsql="update Contacts set "
		for i=0 to 4
			strsql=strsql & " User" & cint(strTable)+i & "='" & request("User" & cint(strTable)+i) & "',"
			strsql=strsql & " Dict" & cint(strTable)+i & "_ID='" & request("Dict" & cint(strTable)+i & "_ID") & "',"
		next
		strsql=strsql & " modify_date='" & Now() & "' "
		strsql=strsql & " where contact_id=" & contact_id
		objConn.execute strsql
	end if
end if


dim User(5)
dim Dict(5)
if contact_id<>"" then
	strsql="select * from Contacts where contact_id=" & contact_id
	'response.write strsql
	Set objRs = Server.CreateObject("adodb.recordset")
	objRs.Open strsql,objConn,1,1
	if not objRs.eof then
		for j=0 to 4
			User(j)=objRs.fields("User" & (cint(strTable)+j))
			Dict(j)=objRs.fields("Dict" & (cint(strTable)+j) & "_ID")
		next
	end if
end if
%>
<html>
<head>
<title>自定义</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../cssD.css" rel=stylesheet>
</head>

<body>
<table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
  <form name="form1" method="post" action="user_design3.asp?ID=<%=client_id%>&strdate=<%=strdate%>&strTable=<%=strTable%>&contact_id=<%=contact_id%>">
  <%for i=0 to 4%>
  <tr> 
    <td height="22"><div align="right"><%=getDicValue("Dict" & cint(strTable)+i)%></div></td>
    <td height="22"><%getDic cint(strTable)+i,Dict(i)%></td>
    <td height="22"><div align="right"><%=getDicValue("User" & cint(strTable)+i)%></div></td>
    <td height="22"><%getUserField cint(strTable)+i,User(i)%></td>
  </tr>
  <%next%>
  
  <tr> 
    <td height="22" colspan="4"><div align="center">
    &nbsp;
    <%if contact_id<>"" then%>
          <input type="submit" name="Submit" value="  确定  " class="button">
          <input type="reset" name="Submit2" value="  重设  " class="button">
    <%end if%>
        </div></td>
  </tr>
  </form>
</table>

</body>
</html>
<script>
	function Openwin(str)
	{
		window.open(str,"","left=100,top=100,Width=500,Height=400,scrolling=yes");
	}
</script>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -