📄 print_word_5.asp

📁 ASP程序实现的科技期刊系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../include/AdoConn.asp"-->
<% 
ProjectCode=session("ProjectCode")
'if Projectcode="" then
'	Response.Write "您没有填写项目，无法打印。<br>打印空文档，请到<a href='/DownLoad/DownLoad.htm#4'>下载中心</a>下载申报书。"
'	Response.End 
'end if

'等到文本缓冲完才显示
response.buffer = true

dim Year1DaoWei(3)
dim Year2DaoWei(3)
dim Year3DaoWei(3)
dim LaiYuanSM(3)
Coun1DaoWei=0
Coun2DaoWei=0
Coun3DaoWei=0
allCounDaoWei=0
dim WuChang(2)
dim TieXi(2)
dim YouChang(2)
dim ShiYongFX(2)
CounWC=0
CounTX=0
CounYC=0
AllCounNum=0
for i=0 to 3
year1DaoWei(i)=0
year2DaoWei(i)=0
year3DaoWei(i)=0
LaiYuanSM(i)=""
next
for i=0 to 2
WuChang(i)=0
TieXi(i)=0
YouChang(i)=0
ShiYongFX(i)=""
next

%>
<%
'修改
if not session("ProjectCode")="" then
set rst=server.createobject("ADODB.recordset")'经费总额，从项目基本表中取出
Strsql="select 经费总额,申请经费总额 from xt_VD_ProjectBasic where 项目编码='"&session("ProjectCode")&"'"
rst.open Strsql,strconn
	if not rst.EOF then
		allCounDaoWei=rst("经费总额")
		AllCounNum=rst("申请经费总额")
	end if
	
set rst1=server.createobject("ADODB.recordset")'经费来源
Strsql="select * from xt_VD_ProjectFee where 项目编码='"&session("ProjectCode")&"'"
	rst1.CursorType =3
	rst1.CursorLocation =3
	rst1.LockType =2
rst1.open Strsql,strconn
	if not rst1.EOF then
 		for i=0 to rst1.RecordCount-2
			year1DaoWei(i)=rst1("本年度到位")
			year2DaoWei(i)=rst1("第二年度到位")
			year3DaoWei(i)=rst1("第三年度到位")
			LaiYuanSM(i)=rst1("来源说明")
			rst1.MoveNext 
		next
			'取出经费合计
			Coun1DaoWei=rst1("本年度到位")
			Coun2DaoWei=rst1("第二年度到位")
			Coun3DaoWei=rst1("第三年度到位")
	end if

set rst2=server.createobject("ADODB.recordset")'申请市科技经费数量
Strsql="select * from xt_VD_ProjectFeeNum where 项目编码='"&session("ProjectCode")&"'"
	rst2.CursorType =3
	rst2.CursorLocation =3
	rst2.LockType =2
rst2.open Strsql,strconn
	if not rst2.EOF then
 		for i=0 to rst2.RecordCount-2
			WuChang(i)=rst2("无偿")
			TieXi(i)=rst2("贴息")
			YouChang(i)=rst2("有偿")
			ShiYongFX(i)=rst2("使用方向")
			rst2.MoveNext 
		next
			'取出申请经费合计
			CounWC=rst2("无偿")
			CounTX=rst2("贴息")
			CounYC=rst2("有偿")
	end if

end if

%>
<% 

'告诉浏览器用word来显示文档内容
Response.ContentType = "application/msword" 
'文档设定
response.AddHeader "content-disposition", "inline; filename=Apply5.doc"
%>
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./Print_word_5.files/filelist.xml">
<title>五、经费来源（单位：万元）</title>
<style><!--
@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:"\@宋体";
	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;}
@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;}
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:10.5pt;
	mso-bidi-font-size:12.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:宋体;
	mso-font-kerning:1.0pt;}
@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;}
-->
</style>
</head>
<body lang=ZH-CN style='tab-interval:21.0pt;text-justify-trim:punctuation' bgcolor="#FFFFFF">
<div class=Section1 style='layout-grid:15.6pt'> 
  <p class=MsoNormal><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt;
font-family:黑体;mso-ascii-font-family:"Times New Roman"'>五、经费来源（单位：万元）</span><span
lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-fareast-font-family:
黑体'><o:p></o:p></span></p>
  <table border=1 cellspacing=0 cellpadding=0 width=600 style='width:450.0pt;
 margin-left:5.4pt;border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt;
 mso-padding-alt:0cm 5.4pt 0cm 5.4pt'>
    <tr style='height:32.15pt'> 
      <td width=85 valign=top style='width:63.65pt;border:solid windowtext .5pt;
  padding:0cm 5.4pt 0cm 5.4pt;height:32.15pt'> 
        <p class=MsoNormal> &nbsp; <span
  lang=EN-US><o:p></o:p></span></p>
      </td>
      <td width=84 style='width:62.85pt;border:solid windowtext .5pt;border-left:
  none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;
  height:32.15pt'> 
        <p class=MsoNormal align=center style='text-align:center'><span
  style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
  "Times New Roman"'>本年度</span></p>
        <p class=MsoNormal align=center style='text-align:center'><span
  style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
  "Times New Roman"'>到位</span></p>
      </td>
      <td width=72 style='width:54.0pt;border:solid windowtext .5pt;border-left:
  none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;
  height:32.15pt'> 
        <p class=MsoNormal align=center style='text-align:center'><span
  style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
  "Times New Roman"'>第二年度到位</span></p>
      </td>
      <td width=72 style='width:54.25pt;border:solid windowtext .5pt;border-left:
  none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;
  height:32.15pt'> 
        <p class=MsoNormal align=center style='text-align:center'><span
  style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
  "Times New Roman"'>第三年度到位</span></p>
      </td>
      <td width=287 colspan=2 style='width:215.25pt;border:solid windowtext .5pt;
  border-left:none;mso-border-left-alt:solid windowtext .5pt;padding:0cm 5.4pt 0cm 5.4pt;
  height:32.15pt'> 
        <p class=MsoNormal align=center style='text-align:center'><span
  style='font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
  "Times New Roman"'>来源说明</span></p>
      </td>
    </tr>
    <tr style='height:13.8pt'>
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -