 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
用offline下载了一些小说，放在局域网上，想用自己设计的页面显示，内容放在一个table中，假如取全部html，会有效果问题，因此只取<body ....> </body>之间的，代码如下： <% dim filepath filepath=replace(Request.QueryString ("tar"),chr(34),"") filepath=Server.MapPath(filepath) set x=server.CreateObject ("Scripting.FileSystemObject") set y=x.OpenTextFile (filepath,1,false) result=y.readall() y.close set y=nothing set x=nothing \\\'end if result=lcase(result) \\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' result=mid(result,instr(result,"<body"),instr(result,"</body>")) result=replace(result,"</body>","") result=mid(result,instr(result,">")+1) \\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\'\\\' \\\'\\\'以下，把所有打开文件中的连接转变 \\\'\\\'<a href="c.html">---><a href="show.asp?tar=c.html"> \\\'\\\' 或---><a href="show.asp?tar=a/b/c.html"> if instr(request.querystring("tar"),"/")<>0 then dim temp temp=left(request.querystring("tar"),instrrev(request.querystring("tar"),"/")) result=replace(result,"href=" & chr(34),"href=" & chr(34) & "show.asp?tar=" & temp) else \\\'\\\' result=replace(result,"href=" & chr(34),"href=" & chr(34) & "show.asp?tar=") end if Response.Write "<pre>" & result & "</pre>" %> 返回类别: 教程 上一教程: 关于生成HTML文件的新闻系统 下一教程: ASP内置对象详解之SERVER对象 您可以阅读与"简朴析取HTML文件实例"相关的教程: · 使用ASP生成HTML文件的实例代码 · 用ASP文件实现CPU的使用率始终保持100% · 将指定的ASP文件内容生成HTML文件 · 关于生成HTML文件的新闻系统 · 一个用组件动态创建EXCEL文件的实例 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
