📄 export.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%CheckUser()%>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.Report")
dim SheetID,ReportID,TempFile
SheetID=Request.Cookies("Report")("SheetID")
ReportID=Request.Cookies("Temp")("ReportID")
TempFile=Request.Cookies("Temp")("ReportFile")
dim Result,ExportFile
Result=WExcel.ExportReport(cint(UserID),cint(SheetID),cint(ReportID),cstr(TempFile),ExportFile)
if trim(ExportFile)<>"" then
'导出时使用的是 window.open("download.asp")的形式，IE存在Bug，容易造成
'登录信息Cookie的丢失，结果转向了登录页面。采用参数的形式将必要的信息传递过来，
'包括：CoID,UserID,Logined,TokenKey。
dim LoginInfo
LoginInfo="CoID=" & Request.Cookies("Login")("CoID")
LoginInfo=LoginInfo & "&UserID=" & Request.Cookies("Login")("UserID")
LoginInfo=LoginInfo & "&Logined=" & Request.Cookies("Login")("Logined")
LoginInfo=LoginInfo & "&TokenKey=" & Request.Cookies("Login")("TokenKey")
LoginInfo=LoginInfo & "&myType=1&FileName=" & server.URLEncode(Trim(ExportFile))
end if
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function OpenSample(file) {
try
{
window.open (file,'Sample')
}
catch(e)
{
alert('打开示例失败。\n请检查当前浏览器版本，建议使用IE6.0以上版本。')
}
}
//-->
</SCRIPT>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<TABLE WIDTH=100% align=top BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR height=30 valign=center>
<td>
<%if Result<>0 then%>
<%if Result=2 then%>
导出失败，服务器端 Excel 程序异常，请检查。
<%elseif Result=3 then%>
对不起，您使用的是试用版，导出被限制，正式版提供此功能。
导出效果示例：<u style="CURSOR: hand;" onclick="javascript:OpenSample('report20051014.xls')">report20051014.xls</u>
<%else%>
导出失败。
<%end if%>
<%else%>
<%if trim(ExportFile)<>"" then%>
<%=ExportFile%>
<a href=# onClick="window.open('/hcgis/download.asp?<%=LoginInfo%>','export')">立即下载</a>
<%end if%>
<%end if%>
</td>
</TR>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -