针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2656829
建立时间:2005年1月1日 |
|
|
| |
 ASP实现文件直接下载
|
| 在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.<%@ language=vbscript codepage=65001%><% ''Filename must be inputif Request("Filename")="" thenresponse.write "<h1>Error:</h1>Filename is empty!<p>"elsecall downloadFile(replace(replace(Request("Filename"),"\",""),"/","")) Function downloadFile(strFile) '' make sure you are on the latest MDAC version for this to work '' get full path of specified file strFilename = server.MapPath(strFile) '' clear the buffer Response.Buffer = True Response.Clear '' create stream Set s = Server.CreateObject("ADODB.Stream") s.Open '' Set as binary s.Type = 1 '' load in the file on error resume next '' check the file existsSet fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FileExists(strFilename) then Response.Write("<h1>Error:</h1>"&strFilename&" does not exists!<p>") Response.End end if'' get length of file Set f = fso.GetFile(strFilename) intFilelength = f.size s.LoadFromFile(strFilename) if err then Response.Write("<h1>Error: </h1>Unknown Error!<p>") Response.End end if '' send the headers to the users BrowseResponse.AddHeader "Content-Disposition","attachment; filename="&f.name Response.AddHeader "Content-Length",intFilelength Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" '' output the file to the browser Response.BinaryWrite s.Read Response.Flush '' tidy up s.Close Set s = Nothing End Function end if%> |
|
» 1 »
|
