2001.asp

来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 803 行 · 第 1/4 页

<!--#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 2001 where id="&request("id")
rs.open sql,conn,1,3
nsrsb=rs("nsrsb")
nsrmc=rs("nsrmc")
jjlx=rs("jjlx")
khyh=rs("khyh")
zh=rs("zh")
yqjnsz1=rs("yqjnsz1")
yqjnsz2=rs("yqjnsz2")
yqjnsz3=rs("yqjnsz3")
yqjnsz4=rs("yqjnsz4")
yqjnse1=rs("yqjnse1")
yqjnse2=rs("yqjnse2")
yqjnse3=rs("yqjnse3")
yqjnse4=rs("yqjnse4")
heji=rs("heji")
sksss=rs("sksss")
rksj=rs("rksj")
jqly=rs("jqly")
blsj=rs("blsj")
fszl=rs("fszl")
else
if session("userid")(1)<>"" then
nsrsb=session("userid")(1)
nsrmc=session("userid")(19)
end if
end if
%>
<%if request("b1")="返回" then
response.redirect "admin_swsh.asp"
end if%>
<%'----------添加
if REQUEST("bb")="提交" then
Const sCacheName="NB274868191"
%>
	<%
	Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 2001"
rs.open sql,conn,1,3
%>

<%	 rs.addnew
rs("name")=session("userid")(1)
rs("nsrsb")=request("nsrsb")
rs("nsrmc")=request("nsrmc")
rs("jjlx")=request("jjlx")
rs("khyh")=request("khyh")
rs("zh")=request("zh")
rs("yqjnsz1")=request("yqjnsz1")
rs("yqjnsz2")=request("yqjnsz2")
rs("yqjnsz3")=request("yqjnsz3")
rs("yqjnsz4")=request("yqjnsz4")
rs("yqjnse1")=request("yqjnse1")
rs("yqjnse2")=request("yqjnse2")
rs("yqjnse3")=request("yqjnse3")
rs("yqjnse4")=request("yqjnse4")
rs("heji")=request("heji")
rs("sksss")=request("sksss")
rs("rksj")=request("rksj")
rs("jqly")=request("jqly")
rs("blsj")=request("blsj")
rs("fszl")=request("fszl")
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("reg_name")=session("userid")(1)
      rs("add_date")=cstr(date())
    rs("work")="延期缴纳税款申请审批表"
rs("work_state")="0"
     rs("work_id")=id
     rs("form_id")="2001"
     rs.update
     %>
<%session("userid")=""
response.Redirect "myform.asp"
end if
'-------------------
%>

<title>延期缴纳税款申请审批表</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>刘荣军  </o:Author><o:LastAuthor>chen</o:LastAuthor><o:Revision>2</o:Revision><o:TotalTime>8</o:TotalTime><o:LastPrinted>2001-08-08T07:10:00Z</o:LastPrinted><o:Created>2005-04-27T12:04:00Z</o:Created><o:LastSaved>2005-04-27T12:04:00Z</o:LastSaved><o:Pages>1</o:Pages><o:Words>104</o:Words><o:Characters>593</o:Characters><o:Company></o:Company><o:Lines>4</o:Lines><o:Paragraphs>1</o:Paragraphs><o:CharactersWithSpaces>696</o:CharactersWithSpaces><o:Version>10.4219</o:Version></o:DocumentProperties></xml>
<![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:SpellingState>Clean</w:SpellingState>
  <w:GrammarState>Clean</w:GrammarState>
  <w:PunctuationKerning/>
  <w:DrawingGridHorizontalSpacing>8 磅</w:DrawingGridHorizontalSpacing>
  <w:DrawingGridVerticalSpacing>21.75 磅</w:DrawingGridVerticalSpacing>
  <w:DisplayHorizontalDrawingGridEvery>2</w:DisplayHorizontalDrawingGridEvery>
  <w:Compatibility>
   <w:SpaceForUL/>
   <w:BalanceSingleByteDoubleByteWidth/>
   <w:DoNotLeaveBackslashAlone/>
   <w:ULTrailSpace/>
   <w:DoNotExpandShiftReturn/>
   <w:FootnoteLayoutLikeWW8/>
   <w:ShapeLayoutLikeWW8/>
   <w:AlignTablesRowByRow/>
   <w:ForgetLastTabAlignment/>
   <w:LayoutRawTableWidth/>
   <w:LayoutTableRowsApart/>
   <w:UseWord97LineBreakingRules/>
   <w:UseFELayout/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
 @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;
	mso-font-signature:3 135135232 16 0 262145 0;}
@font-face
	{font-family:黑体;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-alt:SimHei;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
	{font-family:楷体_GB2312;
	panose-1:2 1 6 9 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:modern;
	mso-font-pitch:fixed;
	mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
	{font-family:"\@楷体_GB2312";
	panose-1:2 1 6 9 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:modern;
	mso-font-pitch:fixed;
	mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
	{font-family:"\@黑体";
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
	{font-family:"\@宋体";
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 135135232 16 0 262145 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0cm;
	margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	mso-pagination:none;
	font-size:16.0pt;
	mso-bidi-font-size:10.0pt;
	font-family:楷体_GB2312;
	mso-hansi-font-family:"Times New Roman";
	mso-bidi-font-family:"Times New Roman";
	mso-font-kerning:1.0pt;}
span.GramE
	{mso-style-name:"";
	mso-gram-e:yes;}
 /* Page Definitions */
 @page
	{mso-page-border-surround-header:no;
	mso-page-border-surround-footer:no;}
@page Section1
	{size:21.0cm 842.0pt;