📄 d_zyrysubfrm1.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<%if Request("B2")="删除" then%><%''''''''''''''zyryMainFrm.asp的删除%>
<%i=Request("line")
set rs=server.CreateObject("adodb.recordset")
if i>0 then
for j=1 to i
m_id1=Request("m_id1"&j)
tag=Request("checkbox"&j)
if rs.State=1 then rs.Close
rs.Open "select * from D_linkman where linkman='"& m_id1 &"' and clientnum='"& trim(Request("par_id")) &"'",pubconn,1,3
if rs.RecordCount>0 then
if tag=1 then
rs.Delete
rs.Close
end if
end if
next
end if%>
<BODY bgcolor="#FFFFFF">
<form name=form5>
<input tpye="hidden" name="index" value=<%=request("index")%> size="20">
<input type="hidden" name="page1" value=<%=request("page1")%>>
<input type="hidden" name="page2" value=<%=request("page2")%>>
<input type="hidden" name="par_id" value=<%=request("par_id")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<input type="hidden" name="par_type" value=<%=request("par_type")%>>
<input type="hidden" name="par_level" value=<%=request("par_level")%>>
</form>
<script language="vbscript">
window.location="D_zyrymainfrm.asp?index="&document.form5.index.value&"&page1="&document.form5.page1.value&"&page2="&document.form5.page2.value&"&par_id="&document.form5.par_id.value&"&par_name="&document.form5.par_name.value&"&par_type="&document.form5.par_type.value&"&par_level="&document.form5.par_level.value&""
</script>
<%'Response.Redirect "D_zyrymainfrm.asp?index="&request("index")&"&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&par_id="&Request("par_id")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>
<%Response.End %>
<%end if%>
<%if Request("tag")=5 or request("tag")=11 then%><%''''''''''''''''保存新建重要人员%>
<%
m_clientnum=trim(Request("m_clientnum"))
if request("tag")=11 then
m_linkman=trim(Request("m_name"))
else
m_linkman=trim(Request("m_linkman"))
end if
m_sex=trim(Request("m_sex"))
m_yearDay=trim(Request("m_Birthyear"))
m_monthDay=trim(Request("m_Birthmonth"))
m_dayDay=trim(Request("m_birthDay"))
if m_yearday<>"" then
m_BirthDay=m_yearday&"-"&m_monthday&"-"&m_dayday
else
m_BirthDay=""
end if
M_NativePlace=trim(Request("M_NativePlace"))
m_Department=trim(Request("m_Department"))
m_HeadShip=trim(Request("m_HeadShip"))
m_Telephone=trim(Request("m_Telephone"))
m_MobileTelephone=trim(Request("m_MobileTelephone"))
M_CallTelephone=trim(Request("M_CallTelephone"))
m_Character=trim(Request("m_Character"))
m_AffectPower=trim(Request("m_AffectPower"))
m_AttionPoint=trim(Request("m_AttionPoint"))
m_Memorializeyear=trim(Request("m_Memorializeyear"))
m_Memorializemonth=trim(Request("m_Memorializemonth"))
m_Memorializetime=trim(Request("m_MemorializeDay"))
' m_OnOrOff=trim(request("m_OnOrOff"))
' response.write m_OnOrOff
' response.end
if m_Memorializeyear<>"" then
m_MemorializeDay= m_Memorializeyear&"-"&M_Memorializemonth&"-"&m_Memorializetime
else
m_MemorializeDay=""
end if
m_Remark=trim(Request("m_Remark"))
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select * from D_linkman where clientnum='"& m_clientnum &"' and linkman='"& m_linkman &"'",pubconn,1,3
if rs.recordcount>0 then %>
<%if request("tag")=11 then%>
<%
rs.movefirst
' rs.delete
' rs.addnew
'rs.Fields("clientnum")=m_clientnum
'rs.Fields("linkman")=m_linkman
rs.Fields("sex")=m_sex
rs.Fields("BirthDay")=m_BirthDay
rs.Fields("NativePlace")=M_NativePlace
rs.Fields("Department")=m_Department
rs.Fields("HeadShip")=m_HeadShip
rs.Fields("Telephone")=m_Telephone
rs.Fields("MobileTelephone")=m_MobileTelephone
rs.Fields("CallTelephone")=M_CallTelephone
rs.Fields("Character")=m_Character
rs.Fields("AffectPower")=m_AffectPower
rs.Fields("AttionPoint")=m_AttionPoint
rs.Fields("MemorializeDay")=m_MemorializeDay
rs.Fields("Remark")=m_Remark
rs.Fields("OnOrOff")=trim(request("m_OnOrOff"))
rs.Update%>
<%else%>
<script language="vbscript">
msgbox "关键人物姓名重复,不能保存!",vbOKOnly + vbExclamation,"提示"
History.back(-1)
</script>
<% response.end%>
<%end if%>
<%else
rs.addnew
rs.Fields("clientnum")=m_clientnum
rs.Fields("linkman")=m_linkman
rs.Fields("sex")=m_sex
rs.Fields("BirthDay")=m_BirthDay
rs.Fields("NativePlace")=M_NativePlace
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -