📄 savefieldselect.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<script src="../include/function.js" type="text/javascript"></script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function Close()
{
if(Result.value!=0 || JTrim(ExportFile.value)=='')
{
if(Result.value==3)
{
alert("对不起，您使用的是试用版，导出被限制，正式版提供此功能。")
parent.parent.parent.window.close();
}
else
{
alert("导出失败。")
}
}
else
parent.parent.navigate("exportstep3.asp")
}
//-->
</SCRIPT>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.ImExport")
dim WExcel2
set WExcel2=server.CreateObject("WExcel.Sheet")
dim SheetID,Result
SheetID=Request.Cookies("Temp")("SheetID")
dim ExportRange,ExportFormat,SheetTableID,ExportHistory,ExportRefDetail,CurSelectedRows,PageRows
ExportRange=Request.Cookies("ImExport")("ExportRange")
ExportFormat=Request.Cookies("ImExport")("ExportFormat")
SheetTableID=Request.Cookies("ImExport")("SheetTableID")
ExportHistory=Request.Cookies("ImExport")("ExportHistory")
ExportRefDetail=Request.Cookies("ImExport")("ExportRefDetail")
CurSelectedRows=Request.Cookies("ImExport")("CurSelectedRows")
PageRows=Request.Cookies("ImExport")("PageRows")
Result=WExcel.SaveAllFieldSelect(cint(UserID),cint(SheetID),cint(ExportRefDetail))
CheckErr
dim RowIDs,strWhere
if ExportRange=0 then
RowIDs=PageRows
elseif ExportRange=1 then
RowIDs=CurSelectedRows
else
RowIDs=""
end if
strWhere=Request.Cookies("Temp")("Where" & SheetID)
dim ExportFile,FileURL
if ExportFormat=3 then
ExportFile=WExcel2.ExportToTable(cint(UserID),cint(SheetID),cstr(strWhere),cint(ExportRange),cint(ExportFormat),cint(ExportHistory),cint(ExportRefDetail),cstr(RowIDs),cint(SheetTableID))
else
ExportFile=WExcel.ExportSheetData(cint(UserID),cint(SheetID),cstr(strWhere),cint(ExportRange),cint(ExportFormat),cint(ExportHistory),cint(ExportRefDetail),cstr(RowIDs))
end if
Response.Cookies("Temp")("ExportFile")=ExportFile
%>
<body LANGUAGE=javascript onload="return Close()">
<input TYPE="hidden" NAME="Result" value="<%=Result%>">
<input TYPE="hidden" NAME="ExportFile" value="<%=ExportFile%>">
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -