📄 d_khsubfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
userclass=tablevisitor("d_clientinfo",username)
departid=session("departid")
userclass1=tablevisitor("d_flowtable",username)
userclass2=TableVisitor("G_TblClosePlan",username)
%>
<head>
<link href="../cread.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body bgcolor="#FFFFFF">
<form name=form6></form>
<%if Request("B1")="删除" then%> <%''''''''''''''''''''''''删除D_KHMainFrm.asp上的记录%>
<%i=Request("line")%>
<%
if i>0 then
for j=1 to i
m_id=Request("m_id"&j)
tag=Request("checkbox"&j)
if tag=1 then
delsql="update d_clientinfo set delflag='1' where clientnum='"& m_id &"'"
pubconn.execute(delsql)
end if
next
end if%>
<form name=form5>
<input tpye="hidden" name="page1" value=<%=request("page1")%> size="20">
<input type="hidden" name="par_name" value=<%=request("m_name")%>>
<input type="hidden" name="par_type" value=<%=request("m_type")%>>
<input type="hidden" name="par_level" value=<%=request("m_level")%>>
</form>
<%'if request("tag")=11 then%>
<%'Response.Redirect "D_khsubFrm.asp?tag=2&par_id="&trim(Request("m_id1"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_type="&Request("par_type")&""%>
<%'else%>
<%'Response.Redirect "D_khsubFrm.asp?tag=2&par_id="&trim(Request("m_id"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_type="&Request("par_type")&""%>
<%'end if%>
<script language="vbscript">
window.location="D_khmainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("m_name")%>&par_level=<%=Request("m_level")%>&par_type=<%=Request("m_type")%>"
</script>
<%Response.End %>
<%end if%>
<%if Request("tag")=1 or request("tag")=11 then%><%'''''''''''''''''保存新增的客户,来自D_khsubFrm.asp%>
<%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close%>
<%if request("tag")=11 then
m_id=trim(Request("m_id1"))
else
m_id=trim(Request("m_id"))
end if
m_name=trim(Request("m_name1"))
m_BelongDepart=trim(Request("m_BelongDepart"))
m_taxid=trim(Request("m_taxid"))
M_Address=trim(Request("M_Address"))
m_Telophone=trim(Request("m_Telophone"))
m_fax=trim(Request("m_fax"))
mail=trim(Request("E_mail"))
m_NetAddress=trim(Request("m_NetAddress"))
m_Manager=trim(Request("m_Manager"))
m_type=trim(request("par_type"))
m_Area=trim(Request("m_Area"))
m_Area=trim(replace(m_Area,",",""))
m_Occupation=trim(Request("m_Occupation"))
m_IncomePerYear=trim(Request("m_IncomePerYear"))
m_AssetScale=trim(Request("m_AssetScale"))
m_BenefitStatus=trim(Request("m_BenefitStatus"))
m_InformationSource=trim(Request("m_InformationSource"))
m_Careeror=trim(Request("m_Careeror"))
m_remark=trim(Request("m_remark"))
khlb=trim(Request("khlb"))
zzbh=trim(Request("zzbh"))
shdd=trim(Request("shdd"))
qysx=trim(Request("qysx"))
jyxm=trim(Request("jyxm"))
rs.open "select * from D_clientinfo where clientnum='"& m_id &"'",pubconn,1,3
if rs.recordcount>0 then%>
<%if request("tag")=11 then%>
<%rs.movefirst
' rs.delete
' rs.AddNew
rs.Fields("clientnum")=m_id
rs.Fields("clientname")=m_name
rs.Fields("departcode")=m_BelongDepart
rs.fields("taxid")=m_taxid
rs.Fields("Address")=M_Address
rs.Fields("Telophone")=m_Telophone
rs.Fields("fax")=m_fax
rs.Fields("E_mail")=mail
rs.Fields("NetAddress")=m_NetAddress
rs.Fields("Manager")=m_Manager
rs.Fields("type")=m_type
' rs.Fields("level")=m_level
rs.Fields("Area")=m_Area
rs.Fields("Occupation")=m_Occupation
rs.Fields("IncomePerYear")=m_IncomePerYear
rs.Fields("AssetScale")=m_AssetScale
rs.Fields("BenefitStatus")=m_BenefitStatus
rs.Fields("InformationSource")=m_InformationSource
rs.Fields("stuffnum")=m_Careeror
rs.Fields("remark")=m_remark
rs.fields("sort")=khlb
rs.fields("licnum")=zzbh
rs.fields("shdd")=shdd
rs.fields("qysx")=qysx
rs.fields("jyxm")=jyxm
rs("Authors")=Session("UserName")
rs("DepartID")=Session("DepartID")
if request("m_Yes")="0" then
rs.fields("tag")="kh"
else
rs.fields("tag")="hbdealer"
end if
rs.Update
%>
<%else%>
<script language="vbscript">
msgbox "客户序号重复,不能保存!",vbOKOnly + vbExclamation,"提示"
History.back(-1)
</script>
<% 'response.end%>
<%end if%>
<%else
rs.AddNew
rs.Fields("clientnum")=m_id
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -