📄 user_design4.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
expense_ID=request("expense_ID")

if request("Submit")<>"" then
	if expense_ID<>"" then
		strsql="update Expense set "
		for i=0 to 1
			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 expense_ID=" & expense_ID
		objConn.execute strsql
	end if
end if


dim User(2)
dim Dict(2)
if expense_ID<>"" then
	strsql="select * from Expense where expense_ID=" & expense_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 1
			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_design4.asp?ID=<%=client_id%>&strdate=<%=strdate%>&strTable=<%=strTable%>&expense_ID=<%=expense_ID%>">
  <%for i=0 to 1%>
  <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 expense_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 + -