ASP导出到Excel文档

最新推荐文章于 2024-09-21 17:09:15 发布

了無痕

最新推荐文章于 2024-09-21 17:09:15 发布

阅读量494

点赞数

分类专栏： ASP 文章标签： excel asp microsoft class sql generator

本文链接：https://blog.csdn.net/Ricky_66/article/details/6597591

版权

ASP 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

<head>
<meta http-equiv=Content-Type content="text/html; charset=big5">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 11">
</head>
<body>
<%
'Response.AddHeader "Content-Disposition", "attachment;filename=members.xls"
'Response.ContentType = "application/vnd.ms-excel"

ConnectString="File Name=C:\ntweb\autoweb\Database\Project\HuiFeng\HF_FLOW.udl;"
Set Conn = Server.CreateObject("ADODB.Connection")
Set AdoTool=Server.CreateObject("AutoADO.Tools")
Conn.open = ConnectString
Set rs= Server.CreateObject("ADODB.Recordset")

sty=Request("DType")
sql=""
WHER=""
ChaType=Request("TYPE")
IF Cint(trim(ChaType))<>1 THEN
IF Cint(trim(sty))=1 THEN
AD=Request("AD")
ED=Request("ED")
WHER=" TYPE="&Cint(trim(ChaType))&" AND ApplyDateTime Between '"&AD&" 00:00:00' AND '"&ED&" 23:59:59'"
ELSEIF Cint(trim(sty))=2 THEN
SID=Request("SID")
EID=Request("EID")
WHER=" TYPE="&Cint(trim(ChaType))&" AND SerialID Between '"&SID&"' AND '"&EID&"'"
END IF
ELSEIF Cint(trim(ChaType))=1 THEN
dep=Request("DName")
WHER=" TYPE="&Cint(trim(ChaType))&" AND DeptID='"&dep&"'"
END IF

if Cint(trim(ChaType))=3 THEN
sql="select SerialID,DeptName,AppName,DeptID,CLASS,FMC_ASSET_ID_NEW,CATEGORY,CATEGORY_DESCR,FMC_ASSET_DESCR,ACQUISITION_DT,FMC_GET_COST,Loan_Dept from AM_ITEM_FLOW_VIEW where "& WHER

ELSEIF Cint(trim(ChaType))=2 THEN
sql="select SerialID,DeptName,AppName,DeptID,CLASS,FMC_ASSET_ID_NEW,CATEGORY,CATEGORY_DESCR,FMC_ASSET_DESCR,ACQUISITION_DT,FMC_GET_COST,Scrap_Reason from AM_ITEM_FLOW_VIEW where "& WHER

ELSEIF Cint(trim(ChaType))=1 THEN
sql="select SerialID,DeptName,AppName,DeptID,CLASS,FMC_ASSET_ID_NEW,CATEGORY,CATEGORY_DESCR,FMC_ASSET_DESCR,ACQUISITION_DT,FMC_GET_COST from AM_ITEM_FLOW_VIEW where "& WHER
END IF

'response.write Cint(trim(ChaType))
'response.write sql
rs.open sql,conn,3,1

response.write "<table width='100%' border='1' >"
response.write "<tr>"
response.write "<td>表單編號</td>"
response.write "<td>填單人部門</td>"
response.write "<td>填單人</td>"
response.write "<td>部門</td>"
response.write "<td>類別</td>"
response.write "<td>新資產編號</td>"
response.write "<td>種類</td>"
response.write "<td>種類描述</td>"
response.write "<td>資產描述</td>"
response.write "<td>購買日期</td>"
response.write "<td>購置成本</td>"
IF Cint(trim(ChaType))=2 THEN
response.write "<td>報廢原因</td>"
ELSEIF Cint(trim(ChaType))=3 THEN
response.write "<td>移入單位</td>"
END IF
response.write "</tr>"

Do While Not rs.eof
response.write "<tr>"
response.write "<td>"&rs("SerialID")&"</td>"
response.write "<td>"&rs("DeptName")&"</td>"
response.write "<td>"&rs("AppName")&"</td>"
response.write "<td>"&rs("DeptID")&"</td>"
response.write "<td>"&rs("CLASS")&"</td>"
response.write "<td>"&rs("FMC_ASSET_ID_NEW")&"</td>"
response.write "<td>"&rs("CATEGORY")&"</td>"
response.write "<td>"&rs("CATEGORY_DESCR")&"</td>"
response.write "<td>"&rs("FMC_ASSET_DESCR")&"</td>"
response.write "<td>"&rs("ACQUISITION_DT")&"</td>"
response.write "<td>"&rs("FMC_GET_COST")&"</td>"
IF Cint(trim(ChaType))=2 THEN
response.write "<td>"&rs("Scrap_Reason")&"</td>"
ELSEIF Cint(trim(ChaType))=3 THEN
response.write "<td>"&rs("Loan_Dept")&"</td>"
END If
response.write "</tr>"
rs.MoveNext
Loop
%>
</body>
<![if supportMisalignedColumns]>
<tr >
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
<td ></td>
</tr>
<![endif]>
</table>

</body>

</html>
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition","attachment; filename=YourName.xls"
Response.Flush()
Response.End()
%>