针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2674050
建立时间:2005年1月1日 |
|
|
| |
 将指定的asp文件内容生成HTML文件
|
| <% Function GetPage(url) dim Retrieval Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function Function BytesToBstr(body) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = "GB2312" BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function on error resume next Url="http://www.taiang.com.cn/index.asp" response.write "开始更新首页..." wstr = GetPage(Url) Set fs=Server.CreateObject("Scripting.FileSystemObject") 'if not MyFile.FolderExists(server.MapPath("/html/")) then 'MyFile.CreateFolder(server.MapPath("/html/"))' 'end if If (fs.FileExists(server.MapPath("./")&"\index.htm")) Then fs.DeleteFile(server.MapPath("./")&"\index.htm") End If Set CrFi=fs.CreateTextFile(server.MapPath("./")&"\index.htm") Crfi.Writeline(wstr) set CrFi=nothing set fs=nothing response.write "...<font color=red>更新完成！</font>" %> |
|
回复:将指定的asp文件内容生成HTML文件
|
| 电脑与网络 333(游客)发表评论于2008/5/21 15:11:31 |
| |
» 1 »
|
