ASP导出到Excel文档
2011-07-11 14:24
225 查看
<html xmlns:v="urn:schemas-microsoft-com:vml"
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=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()
%>
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=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()
%>
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Asp.net中导出Excel文档（Gridview）
- asp导出Excel文档代码
- Asp.Net下导出/导入规则的Excel(.xls)文档
- ASP.NET MVC 将IList<T>导出Excel文档的泛型类（继承自ActionResult）
- ASP.NET DataSet数据生成Excel文档导出下载
- 转：ASP.NET MVC 将IList<T>导出Excel文档的泛型类
- asp导出Excel文档代码
- 将从SQL数据库中查询出来的数据导出为Excel文档ASP.NET(VB)？
- asp导出Excel文档代码
- asp.net gridview导出Excel、World文档
- ASP.NET 导出正式Excel文档(可锁定首行，有效防止数字类型数据科学计数法转换)
- asp.net页面指定控件导出为Word 或excel 文档
- asp导出Excel文档代码
- asp.net页面指定控件导出为Word 或excel 文档
- asp.net导出Excel/Csv格式数据方案
- asp.net如何导出excel
- ASP.NET datable导出excel
- ASP.NET中GridView数据导出到Excel
- Asp.net 导出Excel报表
- ASP.NET 2.0,C#----利用GridView控件导出其他文件（导出Excel，导出Word文件）