1004.asp

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

<!--#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 1004 where id="&request("id")
rs.open sql,conn,1,3
nsrgl=rs("nsrgl")
jdq=rs("jdq")
nd=rs("nd")
sbdw=rs("sbdw")
dz=rs("dz")
jjlx=rs("jjlx")
ssqy=rs("ssqy")
khyh=rs("khyh")
zh=rs("zh")
yzbm=rs("yzbm")
lxdh=rs("lxdh")
ssrze=rs("ssrze")
scbfy=rs("scbfy")
szczb=rs("szczb")
syclh=rs("syclh")
szgrs=rs("szgrs")
snrll=rs("snrll")
sgdzc=rs("sgdzc")
sspxs=rs("sspxs")
snsds=rs("snsds")
szsfs=rs("szsfs")
zbszq1=rs("zbszq1")
zbszq2=rs("zbszq2")
srzeh1=rs("srzeh1")
srzeh2=rs("srzeh2")
cbfyh1=rs("cbfyh1")
cbfyh2=rs("cbfyh2")
zbpzb1=rs("zbpzb1")
zbpzb2=rs("zbpzb2")
nsryw1=rs("nsryw1")
nsryw2=rs("nsryw2")
nsryj=rs("nsryj")
zgswj=rs("zgswj")
jbr1=rs("jbr1")
jbr2=rs("jbr2")
blsj1=rs("blsj1")
blsj2=rs("blsj2")
spswj=rs("spswj")
jbr3=rs("jbr3")
blsj3=rs("blsj3")
else
if session("userid")(1)<>"" then
nsrgl=session("userid")(1)
sbdw=session("userid")(19)
end if
end if
%>
<%'----------添加
if REQUEST("bb")="提交" then
Const sCacheName="NB274868191"
%>
	<%
	Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 1004"
rs.open sql,conn,1,3
%>

<%	 rs.addnew
rs("name")=request("name")
rs("nsrgl")=request("nsrgl")
rs("jdq")=request("jdq")
rs("nd")=request("nd")
rs("sbdw")=request("sbdw")
rs("dz")=request("dz")
rs("jjlx")=request("jjlx")
rs("ssqy")=request("ssqy")
rs("khyh")=request("khyh")
rs("zh")=request("zh")
rs("yzbm")=request("yzbm")
rs("lxdh")=request("lxdh")
rs("ssrze")=request("ssrze")
rs("scbfy")=request("scbfy")
rs("szczb")=request("szczb")
rs("syclh")=request("syclh")
rs("szgrs")=request("szgrs")
rs("snrll")=request("snrll")
rs("sgdzc")=request("sgdzc")
rs("sspxs")=request("sspxs")
rs("snsds")=request("snsds")
rs("szsfs")=request("szsfs")
rs("zbszq1")=request("zbszq1")
rs("zbszq2")=request("zbszq2")
rs("srzeh1")=request("srzeh1")
rs("srzeh2")=request("srzeh2")
rs("cbfyh1")=request("cbfyh1")
rs("cbfyh2")=request("cbfyh2")
rs("zbpzb1")=request("zbpzb1")
rs("zbpzb2")=request("zbpzb2")
rs("nsryw1")=request("nsryw1")
rs("nsryw2")=request("nsryw2")
rs("nsryj")=request("nsryj")
rs("zgswj")=request("zgswj")
rs("jbr1")=request("jbr1")
rs("jbr2")=request("jbr2")
rs("blsj1")=request("blsj1")
rs("blsj2")=request("blsj2")
rs("spswj")=request("spswj")
rs("jbr3")=request("jbr3")
rs("blsj3")=request("blsj3")

	 rs("is_pass")=0
     rs("add_date")=cstr(date())
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("sbdw")
	 rs("nsr_id")=request("nsrgl") 
           rs("add_date")=cstr(date())
     rs("work")="企业所得税征收方式鉴定"
     rs("work_state")="0"
          rs("reg_name")=session("userid")(1)
rs("add_date")=cstr(date())
     rs("work_id")=id
     rs("form_id")="1004"
     rs.update%>
<%
response.Redirect("myform.asp")
end if
'-------------------
%>

<title>企业所得税征收方式鉴定表</title>
<!-- #EndEditable -->
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>chen</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>Lenovo User</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>44</o:TotalTime>
  <o:Created>2005-04-16T09:22:00Z</o:Created>
  <o:LastSaved>2005-04-16T09:22:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>98</o:Words>
  <o:Characters>565</o:Characters>
  <o:Lines>4</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>662</o:CharactersWithSpaces>
  <o:Version>11.6360</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:DrawingGridVerticalSpacing>7.8 磅</w:DrawingGridVerticalSpacing>
  <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery>
  <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:Compatibility>
   <w:SpaceForUL/>
   <w:BalanceSingleByteDoubleByteWidth/>
   <w:DoNotLeaveBackslashAlone/>
   <w:ULTrailSpace/>
   <w:DoNotExpandShiftReturn/>
   <w:AdjustLineHeightInTable/>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <w:UseWord2002TableStyleRules/>
   <w:UseFELayout/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState="false" LatentStyleCount="156">
 </w:LatentStyles>
</xml><![endif]-->