📄 printcs_editlist.asp

📁 ASP程序实现的科技期刊系统
💻 ASP
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0504"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%Response.Expires=0%>
<%
    dim strsql,objres
	strsql=Request.QueryString ("strsql")
	set objres=server.CreateObject ("adodb.recordset")
	objres.CursorType =3
	objres.CursorLocation =3
	objres.LockType =2
	objres.Open strsql,strconn
%>

<% 
'告诉浏览器用excel来显示文档内容
Response.ContentType = "application/msexcel" 
'文档设定
response.AddHeader "content-disposition", "inline; filename=ChuSheng.xls"
%>
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./PrintCS_editList.asp.files/filelist.xml">
<link rel=Edit-Time-Data href="./PrintCS_editList.asp.files/editdata.mso">
<link rel=OLE-Object-Data href="./PrintCS_editList.asp.files/oledata.mso">
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>cy</o:Author>
  <o:LastAuthor>cy</o:LastAuthor>
  <o:Created>2003-03-07T01:10:16Z</o:Created>
  <o:LastSaved>2003-03-07T01:17:48Z</o:LastSaved>
  <o:Company>dosoft</o:Company>
  <o:Version>9.2812</o:Version>
 </o:DocumentProperties>
 <o:OfficeDocumentSettings>
  <o:DownloadComponents/>
  <o:LocationOfComponents HRef="file:\\SERVER\共享光驱\msowc.cab"/>
 </o:OfficeDocumentSettings>
</xml><![endif]-->
<style>
<!--table
	{mso-displayed-decimal-separator:"\.";
	mso-displayed-thousand-separator:"\,";}
@page
	{margin:1.0in .75in 1.0in .75in;
	mso-header-margin:.5in;
	mso-footer-margin:.5in;}
.font0
	{color:windowtext;
	font-size:12.0pt;
	font-weight:400;
	font-style:normal;
	text-decoration:none;
	font-family:宋体;
	mso-generic-font-family:auto;
	mso-font-charset:134;}
tr
	{mso-height-source:auto;
	mso-ruby-visibility:none;}
col
	{mso-width-source:auto;
	mso-ruby-visibility:none;}
br
	{mso-data-placement:same-cell;}
.style0
	{mso-number-format:General;
	text-align:general;
	vertical-align:bottom;
	white-space:nowrap;
	mso-rotate:0;
	mso-background-source:auto;
	mso-pattern:auto;
	color:windowtext;
	font-size:12.0pt;
	font-weight:400;
	font-style:normal;
	text-decoration:none;
	font-family:宋体;
	mso-generic-font-family:auto;
	mso-font-charset:134;
	border:none;
	mso-protection:locked visible;
	mso-style-name:常规;
	mso-style-id:0;}
td
	{mso-style-parent:style0;
	padding-top:1px;
	padding-right:1px;
	padding-left:1px;
	mso-ignore:padding;
	color:windowtext;
	font-size:12.0pt;
	font-weight:400;
	font-style:normal;
	text-decoration:none;
	font-family:宋体;
	mso-generic-font-family:auto;
	mso-font-charset:134;
	mso-number-format:General;
	text-align:general;
	vertical-align:bottom;
	border:none;
	mso-background-source:auto;
	mso-pattern:auto;
	mso-protection:locked visible;
	white-space:nowrap;
	mso-rotate:0;}
.xl24
	{mso-style-parent:style0;
	text-align:left;
	vertical-align:top;
	white-space:normal;}
.xl25
	{mso-style-parent:style0;
	text-align:center;
	vertical-align:top;
	white-space:normal;}
ruby
	{ruby-align:left;}
rt
	{color:windowtext;
	font-size:9.0pt;
	font-weight:400;
	font-style:normal;
	text-decoration:none;
	font-family:宋体;
	mso-generic-font-family:auto;
	mso-font-charset:134;
	mso-char-type:none;
	display:none;}
-->
</style>
<!--[if gte mso 9]><xml>
 <x:ExcelWorkbook>
  <x:ExcelWorksheets>
   <x:ExcelWorksheet>
    <x:Name>Sheet1</x:Name>
    <x:WorksheetOptions>
     <x:DefaultRowHeight>285</x:DefaultRowHeight>
     <x:Selected/>
     <x:Panes>
      <x:Pane>
       <x:Number>3</x:Number>
       <x:ActiveRow>7</x:ActiveRow>
       <x:ActiveCol>2</x:ActiveCol>
      </x:Pane>
     </x:Panes>
     <x:ProtectContents>False</x:ProtectContents>
     <x:ProtectObjects>False</x:ProtectObjects>
     <x:ProtectScenarios>False</x:ProtectScenarios>
    </x:WorksheetOptions>
   </x:ExcelWorksheet>
   <x:ExcelWorksheet>
    <x:Name>Sheet2</x:Name>
    <x:WorksheetOptions>
     <x:DefaultRowHeight>285</x:DefaultRowHeight>
     <x:ProtectContents>False</x:ProtectContents>
     <x:ProtectObjects>False</x:ProtectObjects>
     <x:ProtectScenarios>False</x:ProtectScenarios>
    </x:WorksheetOptions>
   </x:ExcelWorksheet>
   <x:ExcelWorksheet>
    <x:Name>Sheet3</x:Name>
    <x:WorksheetOptions>
     <x:DefaultRowHeight>285</x:DefaultRowHeight>
     <x:ProtectContents>False</x:ProtectContents>
     <x:ProtectObjects>False</x:ProtectObjects>
     <x:ProtectScenarios>False</x:ProtectScenarios>
    </x:WorksheetOptions>
   </x:ExcelWorksheet>
  </x:ExcelWorksheets>
  <x:WindowHeight>6750</x:WindowHeight>
  <x:WindowWidth>11715</x:WindowWidth>
  <x:WindowTopX>120</x:WindowTopX>
  <x:WindowTopY>105</x:WindowTopY>
  <x:ProtectStructure>False</x:ProtectStructure>
  <x:ProtectWindows>False</x:ProtectWindows>
 </x:ExcelWorkbook>
</xml><![endif]-->
</head>

<body link=blue vlink=purple class=xl24>

<table x:str border=0 cellpadding=0 cellspacing=0 width=677 style='border-collapse:
 collapse;table-layout:fixed;width:508pt'>
 <col class=xl24 width=72 style='width:54pt'>
 <col class=xl24 width=145 style='mso-width-source:userset;mso-width-alt:4640;
 width:109pt'>
 <col class=xl24 width=151 style='mso-width-source:userset;mso-width-alt:4832;
 width:113pt'>
 <col class=xl24 width=160 style='mso-width-source:userset;mso-width-alt:5120;
 width:120pt'>
 <col class=xl24 width=77 style='mso-width-source:userset;mso-width-alt:2464;
 width:58pt'>
 <col class=xl24 width=72 style='width:54pt'>
 <tr class=xl25 height=19 style='height:14.25pt'>
  <td height=19 class=xl25 width=72 style='height:14.25pt;width:54pt'>项目编码</td>
  <td class=xl25 width=145 style='width:109pt'>项目名称</td>
  <td class=xl25 width=151 style='width:113pt'>项目类别</td>
  <td class=xl25 width=160 style='width:120pt'>主持<font class=font0>单位</font></td>
  <td class=xl25 width=77 style='width:58pt'>项目进度</td>
  <td class=xl25 width=72 style='width:54pt'>进度状况</td>
 </tr>
 <%if objres.RecordCount <>0 then 
      for i=1 to objres.RecordCount
 %>
 <tr height=19 style='height:14.25pt'>
  <td height=19 class=xl24 width=72 style='height:14.25pt;width:54pt' x:num><% = objres.Fields("项目编码").Value %></td>
  <td class=xl24 width=145 style='width:109pt' x:num><%  if not isNull(objres.Fields("项目名称LX").Value) then response.write objres.Fields("项目名称LX").Value else response.write objres.Fields("项目名称").Value end if %></td>
  <td class=xl24 width=151 style='width:113pt' x:num><%  = objres.Fields("项目类别名称").Value %></td>
  <td class=xl24 width=160 style='width:120pt' x:num><%  if not isNull(objres.Fields("主持单位LX").Value) then response.write objres.Fields("主持单位LX").Value else response.write objres.Fields("主持单位").Value end if %></td>
  <td class=xl24 width=77 style='width:58pt' x:num><%  = objres.Fields("项目进度").Value %></td>
  <td class=xl24 width=72 style='width:54pt' x:num><%  = objres.Fields("进度状况").Value %></td>
 </tr>
 <%   objres.MoveNext 
      next
   end if
  %>
 <![if supportMisalignedColumns]>
 <tr height=0 style='display:none'>
  <td width=72 style='width:54pt'></td>
  <td width=145 style='width:109pt'></td>
  <td width=151 style='width:113pt'></td>
  <td width=160 style='width:120pt'></td>
  <td width=77 style='width:58pt'></td>
  <td width=72 style='width:54pt'></td>
 </tr>
 <![endif]>
</table>

</body>

</html>
<%

'关闭记录集
rst.close
set rst=nothing
response.flush
response.end
%>
⌨️ 快捷键说明

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