📄 3001_1.asp
字号:
<!--#include file="conn1.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
Const sCacheName="NB274868191"%>
<%'---赋值
if session("master_name")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 3001 where id='"&request("id")&"'"
rs.open sql,conn,1,3
name=rs("name")
nsrsb=rs("nsrsb")
nsrmc=rs("nsrmc")
glm=rs("glm")
zsjgm=rs("zsjgm")
zsjgb=rs("zsjgb")
sqsj=rs("sqsj")
zclx=rs("zclx")
jylx=rs("jylx")
jyfs=rs("jyfs")
faxm=rs("faxm")
jjxz=rs("jjxz")
cwzg=rs("cwzg")
zgrs=rs("zgrs")
jydz=rs("jydz")
yb=rs("yb")
hymc=rs("hymc")
dh=rs("dh")
khyh=rs("khyh")
zh=rs("zh")
sfyqx=rs("sfyqx")
zsqyl=rs("zsqyl")
sfyzd=rs("sfyzd")
ywfdl=rs("ywfdl")
nsrlb=rs("nsrlb")
gllb=rs("gllb")
jyfw=rs("jyfw")
schwx=rs("schwx")
jgxlx=rs("jgxlx")
pflsx=rs("pflsx")
ysxse=rs("ysxse")
gdzch=rs("gdzch")
zycwr=rs("zycwr")
szzbz=rs("szzbz")
nfqrh=rs("nfqrh")
hsfs=rs("hsfs")
sqhfs=rs("sqhfs")
jpzhf=rs("jpzhf")
zgswj=rs("zgswj")
zgswj=rs("zgswj")
xjgsb=rs("xjgsb")
blsj1=rs("blsj1")
else
response.write "kjaskjj;"
end if
%>
<%'----------添加
if REQUEST("B1")="提交" then
Const sCacheName="NB274868191"
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 3001"
rs.open sql,conn,1,3
%>
<% rs.addnew
rs("name")=request("name")
rs("nsrsb")=request("nsrsb")
rs("nsrmc")=request("nsrmc")
rs("glm")=request("glm")
rs("zsjgm")=request("zsjgm")
rs("zsjgb")=request("zsjgb")
rs("sqsj")=request("sqsj")
rs("zclx")=request("zclx")
rs("jylx")=request("jylx")
rs("jyfs")=request("jyfs")
rs("faxm")=request("faxm")
rs("jjxz")=request("jjxz")
rs("cwzg")=request("cwzg")
rs("zgrs")=request("zgrs")
rs("jydz")=request("jydz")
rs("yb")=request("yb")
rs("hymc")=request("hymc")
rs("dh")=request("dh")
rs("khyh")=request("khyh")
rs("zh")=request("zh")
rs("sfyqx")=request("sfyqx")
rs("zsqyl")=request("zsqyl")
rs("sfyzd")=request("sfyzd")
rs("ywfdl")=request("ywfdl")
rs("nsrlb")=request("nsrlb")
rs("gllb")=request("gllb")
rs("jyfw")=request("jyfw")
rs("schwx")=request("schwx")
rs("jgxlx")=request("jgxlx")
rs("pflsx")=request("pflsx")
rs("ysxse")=request("ysxse")
rs("gdzch")=request("gdzch")
rs("zycwr")=request("zycwr")
rs("szzbz")=request("szzbz")
rs("nfqrh")=request("nfqrh")
rs("hsfs")=request("hsfs")
rs("sqhfs")=request("sqhfs")
rs("jpzhf")=request("jpzhf")
rs("zgswj")=request("zgswj")
rs("zgswj")=request("zgswj")
rs("xjgsb")=request("xjgsb")
rs("blsj1")=request("blsj1")
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")=session("userid")(1)
rs("nsr_id")=session("userid")(0)
rs("work")="增值税一般纳税人申请认定表"
rs("add_date")=cstr(date())
rs("work_state")="0"
rs("work_id")=id
rs("form_id")="3001"
rs.update%>
<script language='javascript'>
alert("提交已成功,税务机关将在两个工作日之内进行回复,请在业务提交查询模块中查询。")
</script>
<%end if
'response.Redirect("myform.asp?")
'-------------------
%>
<title>增值税一般纳税人申请认定表</title>
<!--[if gte mso 9]><xml>
<o:DocumentProperties>
<o:Author>Lenovo User</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-16T12:23:00Z</o:Created>
<o:LastSaved>2005-04-16T12:23:00Z</o:LastSaved>
<o:Pages>1</o:Pages>
<o:Words>68</o:Words>
<o:Characters>389</o:Characters>
<o:Company> </o:Company>
<o:Lines>3</o:Lines>
<o:Paragraphs>1</o:Paragraphs>
<o:CharactersWithSpaces>456</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}
/* 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;}
div.Section1
{page:Section1;}
body {
background-color: #CCCCCC;
}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:普通表格;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman"}
table.MsoTableGrid
{mso-style-name:网格型;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
border:solid windowtext 1.0pt;
mso-border-alt:solid windowtext .5pt;
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -