4003.asp
来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 1,145 行 · 第 1/5 页
ASP
1,145 行
<!--#include file="conn1.asp" -->
<!---#include file="form_check.asp"---> <%
' dim conn
' dim connstr
'on error resume next
' connstr="DBQ="+server.mappath("/sgs/Depot/NBArticle.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' set conn=server.createobject("ADODB.CONNECTION")
' conn.open connstr
%>
<%'---赋值
if session("master_name")<>"" then
'Const sCacheName="NB274868191"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 4003 where id="&request("id")
rs.open sql,conn,1,3
nsrsb=rs("nsrsb")
nsrmc=rs("nsrmc")
sqyzf=rs("sqyzf")
scjyd=rs("scjyd")
lxdh=rs("lxdh")
yzbm=rs("yzbm")
fpzl1=rs("fpzl1")
zyfpm1=rs("zyfpm1")
fpdm1=rs("fpdm1")
bs1=rs("bs1")
fs1=rs("fs1")
jeb1=rs("jeb1")
wzb1=rs("wzb1")
gg1=rs("gg1")
lc1=rs("lc1")
zz1=rs("zz1")
zdfs1=rs("zdfs1")
fpqh1=rs("fpqh1")
fpzh1=rs("fpzh1")
fpzl2=rs("fpzl2")
zyfpm2=rs("zyfpm2")
fpdm2=rs("fpdm2")
bs2=rs("bs2")
fs2=rs("fs2")
jeb2=rs("jeb2")
wzb2=rs("wzb2")
gg2=rs("gg2")
lc2=rs("lc2")
zz2=rs("zz2")
zdfs2=rs("zdfs2")
fpqh2=rs("fpqh2")
fpzh2=rs("fpzh2")
fddbr=rs("fddbr")
qyfpj=rs("qyfpj")
sqrq=rs("sqrq")
jprq1=rs("jprq1")
skrq1=rs("skrq1")
jzh1=rs("jzh1")
xsdj1=rs("xsdj1")
xsje1=rs("xsje1")
yzdj1=rs("yzdj1")
yzje1=rs("yzje1")
jprq2=rs("jprq2")
skrq2=rs("skrq2")
jzh2=rs("jzh2")
xsdj2=rs("xsdj2")
xsje2=rs("xsje2")
yzdj2=rs("yzdj2")
yzje2=rs("yzje2")
zgjz1=rs("zgjz1")
fzr1=rs("fzr1")
jbr1=rs("jbr1")
blsj1=rs("blsj1")
zgjz2=rs("zgjz2")
fzr2=rs("fzr2")
jbr2=rs("jbr2")
blsj2=rs("blsj2")
sjswj=rs("sjswj")
else
if session("userid")(1)<>"" then
nsrsb=session("userid")(1)
nsrmc=session("userid")(19)
end if
end if
%>
<%'----------添加
if REQUEST("bb")="提交" then
Const sCacheName="NB274868191"
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 4003"
rs.open sql,conn,1,3
%>
<% rs.addnew
rs("name")=request("name")
rs("nsrsb")=request("nsrsb")
rs("nsrmc")=request("nsrmc")
rs("sqyzf")=request("sqyzf")
rs("scjyd")=request("scjyd")
rs("lxdh")=request("lxdh")
rs("yzbm")=request("yzbm")
rs("fpzl1")=request("fpzl1")
rs("zyfpm1")=request("zyfpm1")
rs("fpdm1")=request("fpdm1")
rs("bs1")=request("bs1")
rs("fs1")=request("fs1")
rs("jeb1")=request("jeb1")
rs("wzb1")=request("wzb1")
rs("gg1")=request("gg1")
rs("lc1")=request("lc1")
rs("zz1")=request("zz1")
rs("zdfs1")=request("zdfs1")
rs("fpqh1")=request("fpqh1")
rs("fpzh1")=request("fpzh1")
rs("fpzl2")=request("fpzl2")
rs("zyfpm2")=request("zyfpm2")
rs("fpdm2")=request("fpdm2")
rs("bs2")=request("bs2")
rs("fs2")=request("fs2")
rs("jeb2")=request("jeb2")
rs("wzb2")=request("wzb2")
rs("gg2")=request("gg2")
rs("lc2")=request("lc2")
rs("zz2")=request("zz2")
rs("zdfs2")=request("zdfs2")
rs("fpqh2")=request("fpqh2")
rs("fpzh2")=request("fpzh2")
rs("fddbr")=request("fddbr")
rs("qyfpj")=request("qyfpj")
rs("sqrq")=request("sqrq")
rs("jprq1")=request("jprq1")
rs("skrq1")=request("skrq1")
rs("jzh1")=request("jzh1")
rs("xsdj1")=request("xsdj1")
rs("xsje1")=request("xsje1")
rs("yzdj1")=request("yzdj1")
rs("yzje1")=request("yzje1")
rs("jprq2")=request("jprq2")
rs("skrq2")=request("skrq2")
rs("jzh2")=request("jzh2")
rs("xsdj2")=request("xsdj2")
rs("xsje2")=request("xsje2")
rs("yzdj2")=request("yzdj2")
rs("yzje2")=request("yzje2")
rs("zgjz1")=request("zgjz1")
rs("fzr1")=request("fzr1")
rs("jbr1")=request("jbr1")
rs("blsj1")=request("blsj1")
rs("zgjz2")=request("zgjz2")
rs("fzr2")=request("fzr2")
rs("jbr2")=request("jbr2")
rs("blsj2")=request("blsj2")
rs("sjswj")=request("sjswj")
rs("add_date")=cstr(date())
rs("is_pass")=0
rs.update
id=rs("id")
'-------
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from nsr_work"
rs.open sql,conn,1,3
rs.addnew
rs("nsr_mc")=request("nsrmc")
rs("nsr_id")=request("nsrsb")
rs("work")="企业衔头发票印制申请审批表"
rs("work_state")="0"
rs("reg_name")=session("userid")(1)
rs("add_date")=cstr(date())
rs("work_id")=id
rs("form_id")="4003"
rs.update%>
<%session("userid")=""
response.Redirect "myform.asp"
end if
'-------------------
%>
<head>
<title>企业衔头发票印制申请审批表</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>Administrator</o:Author>
<o:Template>Normal</o:Template>
<o:LastAuthor>chen</o:LastAuthor>
<o:Revision>2</o:Revision>
<o:TotalTime>0</o:TotalTime>
<o:Created>2005-04-16T14:08:00Z</o:Created>
<o:LastSaved>2005-04-16T14:08:00Z</o:LastSaved>
<o:Pages>1</o:Pages>
<o:Words>124</o:Words>
<o:Characters>711</o:Characters>
<o:Lines>5</o:Lines>
<o:Paragraphs>1</o:Paragraphs>
<o:CharactersWithSpaces>834</o:CharactersWithSpaces>
<o:Version>10.4219</o:Version>
</o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Print</w:View>
<w:PunctuationKerning/>
<w:DrawingGridHorizontalSpacing>10.15 磅</w:DrawingGridHorizontalSpacing>
<w:DrawingGridVerticalSpacing>15.15 磅</w:DrawingGridVerticalSpacing>
<w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery>
<w:Compatibility>
<w:SpaceForUL/>
<w:BalanceSingleByteDoubleByteWidth/>
<w:DoNotLeaveBackslashAlone/>
<w:ULTrailSpace/>
<w:DoNotExpandShiftReturn/>
<w:AdjustLineHeightInTable/>
<w:UseFELayout/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Wingdings;
panose-1:5 0 0 0 0 0 0 0 0 0;
mso-font-charset:2;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:0 268435456 0 0 -2147483648 0;}
@font-face
{font-family:宋体;
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-alt:SimSun;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-pitch:variable;
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?