6001.asp

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

<!--#include file="conn1.asp" -->
<!---#include file="form_check.asp"--->   <%
'  dim conn   
' dim connstr
'on error resume next
'   connstr="DBQ="+server.mappath("/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 6001 where id="&request("id")
rs.open sql,conn,1,3
nsrsb=rs("nsrsb")
nsrmc=rs("nsrmc")
tbsj=rs("tbsj")
sj1=rs("sj1")
sj2=rs("sj2")
sj3=rs("sj3")
sj4=rs("sj4")
sj5=rs("sj5")
gnkjk1=rs("gnkjk1")
gnkjk2=rs("gnkjk2")
gnkjk3=rs("gnkjk3")
gnkjk4=rs("gnkjk4")
gnkjk5=rs("gnkjk5")
gnkjk6=rs("gnkjk6")
sqyb1=rs("sqyb1")
sqyb2=rs("sqyb2")
sqyb3=rs("sqyb3")
sqyb4=rs("sqyb4")
sqyb5=rs("sqyb5")
sqyb6=rs("sqyb6")
sqybk1=rs("sqybk1")
sqybk2=rs("sqybk2")
sqybk3=rs("sqybk3")
sqybk4=rs("sqybk4")
sqybk5=rs("sqybk5")
sqybk6=rs("sqybk6")
sqwmb1=rs("sqwmb1")
sqwmb2=rs("sqwmb2")
sqwmb3=rs("sqwmb3")
sqwmb4=rs("sqwmb4")
sqwmb5=rs("sqwmb5")
sqwmb6=rs("sqwmb6")
bnsqmb1=rs("bnsqmb1")
bnsqmb2=rs("bnsqmb2")
bnsqmb3=rs("bnsqmb3")
bnsqmb4=rs("bnsqmb4")
bnsqmb5=rs("bnsqmb5")
bnsqmb6=rs("bnsqmb6")
ksbq1=rs("ksbq1")
ksbq2=rs("ksbq2")
ksbh1=rs("ksbh1")
ksbh2=rs("ksbh2")
bz=rs("bz")
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 6001"
rs.open sql,conn,1,3
%>

<%	 rs.addnew
rs("nsrsb")=request("nsrsb")
rs("nsrmc")=request("nsrmc")
rs("tbsj")=request("tbsj")
rs("sj1")=request("sj1")
rs("sj2")=request("sj2")
rs("sj3")=request("sj3")
rs("sj4")=request("sj4")
rs("sj5")=request("sj5")
rs("gnkjk1")=request("gnkjk1")
rs("gnkjk2")=request("gnkjk2")
rs("gnkjk3")=request("gnkjk3")
rs("gnkjk4")=request("gnkjk4")
rs("gnkjk5")=request("gnkjk5")
rs("gnkjk6")=request("gnkjk6")
rs("sqyb1")=request("sqyb1")
rs("sqyb2")=request("sqyb2")
rs("sqyb3")=request("sqyb3")
rs("sqyb4")=request("sqyb4")
rs("sqyb5")=request("sqyb5")
rs("sqyb6")=request("sqyb6")
rs("sqybk1")=request("sqybk1")
rs("sqybk2")=request("sqybk2")
rs("sqybk3")=request("sqybk3")
rs("sqybk4")=request("sqybk4")
rs("sqybk5")=request("sqybk5")
rs("sqybk6")=request("sqybk6")
rs("sqwmb1")=request("sqwmb1")
rs("sqwmb2")=request("sqwmb2")
rs("sqwmb3")=request("sqwmb3")
rs("sqwmb4")=request("sqwmb4")
rs("sqwmb5")=request("sqwmb5")
rs("sqwmb6")=request("sqwmb6")
rs("bnsqmb1")=request("bnsqmb1")
rs("bnsqmb2")=request("bnsqmb2")
rs("bnsqmb3")=request("bnsqmb3")
rs("bnsqmb4")=request("bnsqmb4")
rs("bnsqmb5")=request("bnsqmb5")
rs("bnsqmb6")=request("bnsqmb6")
rs("ksbq1")=request("ksbq1")
rs("ksbq2")=request("ksbq2")
rs("ksbh1")=request("ksbh1")
rs("ksbh2")=request("ksbh2")
rs("bz")=request("bz")
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")="6001"
     rs.update
     %>
<%session("userid")=""
response.Redirect "myform.asp"
end if
'-------------------
%>

<title>税前弥补亏损申请审批表</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>bmv8d</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>chen</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>17</o:TotalTime>
  <o:Created>2005-04-16T15:20:00Z</o:Created>
  <o:LastSaved>2005-04-16T15:20:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>114</o:Words>
  <o:Characters>652</o:Characters>
  <o:Company>fzgs</o:Company>
  <o:Lines>5</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>765</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:Zoom>75</w:Zoom>
  <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:Compatibility>
   <w:SpaceForUL/>
   <w:BalanceSingleByteDoubleByteWidth/>
   <w:DoNotLeaveBackslashAlone/>
   <w:ULTrailSpace/>
   <w:DoNotExpandShiftReturn/>
   <w:AdjustLineHeightInTable/>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <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