📄 sheetlist.asp
字号:
<!-- #include file = "../include/asphead.asp" -->
<!-- #include file = "../include/function.asp" -->
<%CheckUser()%>
<link href="../include/main.css" rel="stylesheet" type="text/css">
<script src="../include/function.js" type="text/javascript"></script>
<script ID="clientEventHandlersJS" LANGUAGE="javascript">
<!--
function Next()
{
DisableButton();
document.frmData.target ="SaveArea";
document.frmData.action="savesheetselect.asp";
document.frmData.submit();
}
function InitParentButton()
{
if(SheetListOK.value=='1')
{
window.parent.document.all['btnNext'].disabled =false;
}
}
function DisableButton()
{
window.parent.document.all['btnCancel'].disabled =true;
window.parent.document.all['btnPre'].disabled =true;
window.parent.document.all['btnNext'].disabled =true;
}
//-->
</script>
<%
dim WExcel
set WExcel=server.CreateObject("WExcel.ImExport")
dim ExcelSheetList,ExcelSheet
dim strResult,FileResult,SheetListOK
strResult=""
ExcelSheet=Request.Cookies("ImExport")("ExcelSheet")
FileResult=WExcel.GetSheetList(cint(UserID),cstr(ExcelSheet),ExcelSheetList)
if FileResult=true then
if ExcelSheetList="" then
SheetListOK="0"
strResult="文件中没有工作表（Sheet）。"
else
SheetListOK="1"
end if
else
strResult="文件无法按 Excel 格式打开，该文件有可能不是真正的 Excel 格式。建议您用 Excel 程序创建一个新的.xls文件，将数据从原文件拷贝进来，保存，再从新文件导入。"
SheetListOK="0"
end if
CheckErr
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY LANGUAGE=javascript onload="return InitParentButton()">
<form METHOD="post" name="frmData">
<table width="100%" border=0 cellPadding=0 cellSpacing=0>
<%if SheetListOK<>"1" then%>
<tr>
<td><p align=left>
<%=strResult%>
</p>
</td>
</tr>
<%else%>
<%=ExcelSheetList%>
<%end if%>
<iframe id="SaveArea" name="SaveArea" style="visibility:hidden" width="0" height="0" frameborder="0" src="">
</iframe>
</table>
</form>
<input TYPE="hidden" NAME="SheetListOK" value="<%=SheetListOK%>">
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -