3003.asp

来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 854 行 · 第 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 3003 where id="&request("id")
rs.open sql,conn,1,3
yqmc=rs("yqmc")
nsrsb=rs("nsrsb")
dz=rs("dz")
lxdh=rs("lxdh")
frdb=rs("frdb")
sfzh=rs("sfzh")
czy=rs("czy")
sfzh=rs("sfzh")
jjxz=rs("jjxz")
zyyw=rs("zyyw")
khyh=rs("khyh")
yhzh=rs("yhzh")
ybnsr=rs("ybnsr")
fpyyl=rs("fpyyl")
sqkpz=rs("sqkpz")
kpj=rs("kpj")
qyjbr=rs("qyjbr")
pzkpz=rs("pzkpz")
zgbjy=rs("zgbjy")
pzygl=rs("pzygl")
jbr1=rs("jbr1")
qysj=rs("qysj")
shr1=rs("shr1")
zylgz=rs("zylgz")
qgsyj=rs("qgsyj")
sgsyj=rs("sgsyj")
shsyj=rs("shsyj")
jbr2=rs("jbr2")
jbr3=rs("jbr3")
shr2=rs("shr2")
shr3=rs("shr3")
blsj2=rs("blsj2")
blsj3=rs("blsj3")
blsj4=rs("blsj4")
else
if session("userid")(1)<>"" then
nsrsb=session("userid")(1)
qymc=session("userid")(19)
end if

end if
%>

<%'----------添加
if REQUEST("bb")="提交" then
Const sCacheName="NB274868191"
%>
	<%
	Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 3003"
rs.open sql,conn,1,3
%>

<%	 rs.addnew
rs("name")=request("name")
rs("yqmc")=request("yqmc")
rs("nsrsb")=request("nsrsb")
rs("dz")=request("dz")
rs("lxdh")=request("lxdh")
rs("frdb")=request("frdb")
rs("sfzh")=request("sfzh")
rs("czy")=request("czy")
rs("sfzh")=request("sfzh")
rs("jjxz")=request("jjxz")
rs("zyyw")=request("zyyw")
rs("khyh")=request("khyh")
rs("yhzh")=request("yhzh")
rs("ybnsr")=request("ybnsr")
rs("fpyyl")=request("fpyyl")
rs("sqkpz")=request("sqkpz")
rs("kpj")=request("kpj")
rs("qyjbr")=request("qyjbr")
rs("pzkpz")=request("pzkpz")
rs("zgbjy")=request("zgbjy")
rs("pzygl")=request("pzygl")
rs("jbr1")=request("jbr1")
rs("qysj")=request("qysj")
rs("shr1")=request("shr1")
rs("zylgz")=request("zylgz")
rs("qgsyj")=request("qgsyj")
rs("sgsyj")=request("sgsyj")
rs("shsyj")=request("shsyj")
rs("jbr2")=request("jbr2")
rs("jbr3")=request("jbr3")
rs("shr2")=request("shr2")
rs("shr3")=request("shr3")
rs("blsj2")=request("blsj2")
rs("blsj3")=request("blsj3")
rs("blsj4")=request("blsj4")
	      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("qymc")
	 rs("nsr_id")=request("nsrsb") 
     rs("work")="防伪税控企业认定登记表"
     rs("work_state")="0"
     rs("work_id")=id
     rs("form_id")="3003"
     rs("reg_name")=session("userid")(1)
rs("add_date")=cstr(date())
 rs.update%>
<%session("userid")=""
response.Redirect "myform.asp"
end if
'-------------------
%><title>防伪税控企业认定登记表</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>chen</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>chen</o:LastAuthor>
  <o:Revision>2</o:Revision>
  <o:TotalTime>15</o:TotalTime>
  <o:Created>2005-04-16T13:14:00Z</o:Created>
  <o:LastSaved>2005-04-16T13:14:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>69</o:Words>
  <o:Characters>395</o:Characters>
  <o:Lines>3</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>463</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>BestFit</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
	{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-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	mso-pagination:none;
	font-size:10.5pt;
	mso-bidi-font-size:12.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:宋体;
	mso-font-kerning:1.0pt; margin-left:0cm; margin-right:0cm; margin-top:0cm}
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:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	mso-header-margin:42.55pt;
	mso-footer-margin:49.6pt;
	mso-paper-source:0;
	layout-grid:15.6pt;}