变态的问题，愁死我了！

dushuang 2002-06-03 09:13:57

我用asp在服务器端生成excel文件，怎么在客户端显示？
我做的excel模版，添加数据后，已经生成文件，而且数据正确，但在客户端，紧接着显示（用转页方法）却只显示空的模版，并在服务器端生成新文件，然后重新连接先生成的数据文件，就可以正常显示，不知为何，愁死我了！

...全文

98 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

dushuang 2002-06-06

打赏
举报

感谢雨一直下，终于解决了！

whz_time 2002-06-06

打赏
举报

请查收您的短信息

Erlei 2002-06-04

打赏
举报

我来学习

啤酒沫 2002-06-04

打赏
举报

现在假定你的Excal文件已经在服务器端生成，按照下面的代码，你可以将Excel发布到Web页面上。
这个程序的功能是：定制Excel模板在Web上发布，让用户填写然后上传到服务器端存档。
其中templet\目录是你的Excel文件存放的路径，temp\目录是临时文件存放的目录这里起到buffer的作用，doc\目录是存放用户填写的Excel文件目录。

<%
set fso=server.CreateObject("Scripting.FileSystemObject")
rootpath=Server.MapPath(".") & "\"
templetpath=rootpath & "templet\"
temppath=rootpath & "temp\"
docpath=rootpath & "doc\"

setp=request("step")
if ucase(setp)="DISPLAY" then
%>
<%
TempletFile=request("SelectFile")
if not fso.FileExists(TempletFile) then
%>
对不起您选择的模版文件不<%=TempletFile%>存在！
<%
Response.End
%>
<%
end if
basename=fso.GetBaseName(TempletFile)
TempFile=temppath & basename & ".htm"
%>
<html 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=GB2312">
<meta name=ProgId content=FrontPage.Editor.Document>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./Page.files/filelist.xml">
</head>

<body> 
<%

doprocess=false
if fso.FileExists(TempFile) then
if fso.GetFile(TempletFile).DateLastModified > fso.GetFile(TempFile).DateLastModified then
fso.DeleteFile(TempFile)
doprocess=true
else
doprocess=false
end if
else
doprocess=true
end if

if doprocess then
set xlApp=server.CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open(TempletFile)
Set xlsheet = xlbook.Worksheets(1)
xlsheet.SaveAs TempFile,44
Set xlsheet = Nothing
Set xlbook = Nothing
xlApp.Quit
Set xlApp = Nothing
end if

strHtml=fso.OpenTextFile( TempFile).ReadAll()
strHtml=replace(strHtml,"<","<")
strHtml=replace(strHtml,">",">")
strHtml=replace(strHtml,chr(13)& chr(10)," ")
strHtml=replace(strHtml,"""",""")

%>
<div id="Book1_18182" align="center" x:publishsource="Excel">
<OBJECT id=objExclSheet
codebase="file:\\oa-test\setup\office2000\msowc.cab#version=9,0,0,2710"
classid=CLSID:0002E510-0000-0000-C000-000000000046>
<PARAM NAME="HTMLURL" VALUE="TEMP/book1.htm">
<PARAM NAME="HTMLData" VALUE="<%=strHtml%>">
<PARAM NAME="DataType" VALUE="HTMLDATA">
<PARAM NAME="AutoFit" VALUE="-1">
<PARAM NAME="DisplayColHeaders" VALUE="0">
<PARAM NAME="DisplayGridlines" VALUE="-1">
<PARAM NAME="DisplayHorizontalScrollBar" VALUE="0">
<PARAM NAME="DisplayRowHeaders" VALUE="0">
<PARAM NAME="DisplayTitleBar" VALUE="-1">
<PARAM NAME="DisplayToolbar" VALUE="-1">
<PARAM NAME="DisplayVerticalScrollBar" VALUE="0">
<PARAM NAME="EnableAutoCalculate" VALUE="-1">
<PARAM NAME="EnableEvents" VALUE="-1">
<PARAM NAME="MoveAfterReturn" VALUE="-1">
<PARAM NAME="MoveAfterReturnDirection" VALUE="0">
<PARAM NAME="RightToLeft" VALUE="0">
<PARAM NAME="ViewableRange" VALUE="1:65536">
<p style='margin-top:100;font-family:宋体;font-size:8.0pt'>如要交互使用该 Web 页，必须装有
Microsoft (R) Internet Explorer 4.01 或更新版本以及 Microsoft Office Web
Components。请访问 <a
HRef="http://officeupdate.microsoft.com/office/redirect/fromOffice9/MSOWCPub.htm?&HelpLCID=2052">Microsoft
Office Web 站点</a> 以获取更多信息。</p></OBJECT></div>
<form method="post" name="Modify" onsubmit="return c()">
<input type=hidden name="step" value="SAVE">
<input type=hidden name="SelectFile" value=<%=TempletFile%>>
<input type=submit value="提交表格">
<BR><TEXTAREA name="TableData" rows=30 cols=100 style="display:none"></TEXTAREA>
</form>
</body>
<script>
function c(){
document.Modify.TableData.innerText=objExclSheet.HTMLData;
return true;
}
</script>
</html>
<%
else
if ucase(setp)="SAVE" then
%>
<%
TempletFile=request("SelectFile")
strHtml=Request("TableData")
basename=fso.GetBaseName(TempletFile)
appendname=replace("_" & session.SessionID & "(" & date() & "_" & time() & ")",":",".")
DocFileName=basename & appendname & ".xls"
DocFile=docpath & DocFileName
DocUrl="doc/" & DocFileName
fso.CreateTextFile(DocFile,true).Write(strHtml)

%>
<html>
<body>
文件创建完成，文件名为 <A href="https://spps/<%=DocUrl%>"><%=DocFileName%></a>
</body>
</html>
<%
else
%>

<html>
<body>
请选择所处理的表格模版：
<form name="FileList" method="post" onsubmit="return checkFileList()">
<input type="hidden" name="step" value="DISPLAY">
<%
set TempletFolder=fso.GetFolder(templetpath)
havefile=false
filecount=TempletFolder.Files.Count
for each TempletFile in TempletFolder.Files
if instr(1,TempletFile.Name," ")=0 and ucase(fso.GetExtensionName(TempletFile.Path))="XLT" then
havefile=true
%>
<input type=radio name="SelectFile" value="<%=TempletFile.Path%>"><%=TempletFile.Name%><BR>
<%
end if
next
%>
<%
if havefile then
%>
<BR><input type="submit" value="填表">
<%
else
%>
<BR><input type="submit" value="填表" disabled>
<%
end if
%>
</form>
<script language="JavaScript">
function checkFileList(){
returnvalue=false;
for(i=0;i<<%=filecount%>;i++){
if(document.FileList.SelectFile(i).checked){
returnvalue=true;
break;
}
}
return returnvalue;
}
</script>
</body>
</html>
<%
end if
end if
%>

firmgoal 2002-06-04