📄 export.asp
字号:
<!-- #include file = "../../include/asphead.asp" -->
<!-- #include file = "../../include/function.asp" -->
<link href="../../include/main.css" rel="stylesheet" type="text/css">
<%CheckUser()%>
<%
Server.ScriptTimeout=600 '导出操作日志时，如果记录数很大耗时会较长，设置为10分钟
dim WExcel
set WExcel=server.CreateObject("WExcel.Imexport")
dim strWhere,strOrderBy
strWhere=Request.Cookies("System")("LogWhere")
strOrderBy=Request.Cookies("System")("LogOrderBy")
dim Result,ExportFile
Result=WExcel.ExportLog(cint(UserID),cstr(strWhere),cstr(strOrderBy),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=3 then%>
对不起，您使用的是试用版，导出被限制，正式版提供此功能。
<%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 + -