文档章节

简单的ASP生成HTML程序

哈狮子
 哈狮子
发布于 2015/01/31 15:22
字数 650
阅读 120
收藏 3

方法一:

set   fso=server.CreateObject("scripting.filesystemobject")

set   f1=fso.opentextfile(server.MapPath("demo.htm"),2,true)

f1.write("<html>")

f1.write("<head>")

f1.write("<meta   http-equiv='Content-Type'   content='text/html;   charset=gb2312'>")

f1.write("<title>哈哈~~~!</title>")

f1.write("<link   href='style.css'   rel='stylesheet'   type='text/css'>")

f1.write("<script   language='javascript'   src='function.js'></script>")

f1.write("</head>")

f1.write("<body>")

f1.write("<a   href=''   target='_blank'>啊啊阿</a>提供最新下载《<a   href='menu.asp'>管理</a>》<br/>")

f1.write(str)

f1.write("</body>")

f1.write("</html>")

f1.close

set   fso=nothing

response.Redirect("demo.htm")

 

 方法二:

现在到处都流行动态网站页面生成静态页,总的说我不是很赞同,认为有误导初学者之嫌,可我也不是圣人用户有要求,自然也不能免俗。

我这里提供一个简单的不用模板可以直接生成HTML静态页的方法.


如一个正常的index.asp动态页面,

新建一个文件 makeasp2html.asp

<form method="post" action=""> 
    <textarea name="asp2html" style="display:none"><!--#include file="index.asp"--></textarea> 
    <input type="submit" value="生成html页"/> 
</form> 

<% 
If request.Form("asp2html")<>"" then 
    filename="index.html" 

    set fso = Server.CreateObject("Scripting.FileSystemObject") 
    set fout = fso.CreateTextFile(server.mappath(""&filename&"")) 

    fout.write request.form("asp2html") 
    fout.close 

    set fout=nothing 
    set fso=nothing 

end if 
%> 


这样index.html文件就生成了,连模板都用不着,只要服务器要支持FSO,将正常情况下使用的ASP文件读取到textarea里就可以了。

 

方法三:

<!--#include file="Include/Conn.asp"-->
<%
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
End If

SQL="Select ID,LTitle,LPostTime,LHits From Log_List order By ID DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,1
If(Rs.EOF) Then
   strList="没有内容"
Else
   Rs.pagesize=30
   Rs.AbsolutePage=Page
   TotalPage=Rs.PageCount
   For i=0 To rs.pagesize-1 '显示具体的数据内容了,i+(page*13-13)+1 这个解决分页后显示具体的编号
     If Rs.eof Then Exit For
   strList = strList & i+(Page*13-13)+1 & ":<A href='"&Rs(0)&".html'>"&Rs(1)&"</a><br>"
   Rs.movenext
   Next
   If(Int(Page)=1) Then
   PageFirst="[首页"
   Else
   PageFirst="[<a href=""Index_1.html"">首页</a>"
   End If
     
   If(Int(Page)=1)Then
   PageBack=" 上一页 "
   Else
   PageBack=" <a href=""Index_"&Page-1&".html"">上一页</a> "
   End If
     
   If(Int(Page)=TotalPage)Then
   PageNext=" 下一页 "
   Else
   PageNext=" <a href=""Index_"&Page+1&".html"">下一页</a> "
   End If
     
   If(Int(Page)=TotalPage)Then
   PageLast="尾页]"
   Else
   PageLast="<a href=""Index_"&TotalPage&".html"">尾页</a>]"
   End If

   AbsPage="第<select onchange=""window.location='Index_'+this.options[this.selectedIndex].value+'.html'"">"
   For j=1 To TotalPage
   AbsPage=AbsPage&"<option value="&j
   If(Cstr(j)=Cstr(Page))Then
     AbsPage=AbsPage&" selected"
   End If
   AbsPage=AbsPage&">"&j&"</option>"
   Next
   AbsPage=AbsPage&"</select>页"


   PageNav=PageFirst&PageBack&PageNext&PageLast&AbsPage
End If

TempContent=Conn.Execute("Select TempContent From Templet Where TempID=1")(0)
TempContent=replace(TempContent,"$ArticleList$",strList)
TempContent=replace(TempContent,"$PageNav$",PageNav)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = FSO.CreateTextFile(Server.MapPath("Article/Index_"&Page&".html"))
Fout.Write TempContent
Fout.Close
%>
<%If(Int(Page)<Int(TotalPage))Then%>
<html>
<head><title>完成</title>
<meta http-equiv="refresh" content="0;url=CreateHtml_List.asp?Page=<%=Page+1%>">
</head>
<body>
第<font color=red><b><%=Page%></b></font>页生成完毕!
</body>
</html>
<%Else%>
生成文章分类完毕,共生成<font color=red><b><%=TotalPage%></b></font>页
<%End If%>


本文转载自:http://blog.163.com/cclbanana%40126/blog/static/1069087420084282130240/

哈狮子
粉丝 2
博文 18
码字总数 4651
作品 0
常州
私信 提问
【转载】ASP.NET MVC重写URL制作伪静态网页,URL地址以.html结尾

在搜索引擎优化领域,静态网页对于SEO的优化有着很大的好处,因此很多人就想把自己的网站的一些网页做成伪静态。我们现在在网络上发现很多博客网站、论坛网站、CMS内容管理系统等都有使用伪静...

江湖逍遥
03/30
0
0
【BS学习】ASP.NET北大青鸟视频总结

【背景】 前一段时间学习完了ASP.NET的北大青鸟视频,进行总结一下。 【内容】 第一章 Asp.net和Web窗体 第二章 ASP.NET中的对象 第三章 Web服务器控件 第四章 HTML控件和验证控件 第五章 Ap...

yym15732626210
2018/02/11
0
0
七天学会ASP.NET MVC (一)--深入理解ASP.NET MVC

系列文章 七天学会ASP.NET MVC (一)——深入理解ASP.NET MVC 七天学会ASP.NET MVC (二)——ASP.NET MVC 数据传递 七天学会ASP.NET MVC (三)——ASP.Net MVC 数据处理 七天学会ASP.NET MVC (...

葡萄城控件技术团队
2016/08/22
345
0
《ASP.NET Core In Action》读书笔记系列一 ASP.NET Core 的诞生

  最近打算系统学习一下asp.net core ,苦于没有好的中文书藉,只好找来一本英文的 《ASP.NET Core In Action》学习。我和多数人一样,学习英文会明显慢于中文。希望与我相同情况的人避免这...

china_fucan
01/22
0
0
Asp.net MVC2中使用Ajax的三种方式

在Asp.net MVC中,我们能非常方便的使用Ajax。这篇文章将介绍三种Ajax使用的方式,分别为原始的Ajax调用、Jquery、Ajax Helper。分别采用这三种方式结合asp.net mvc去实现一个史上最简单的留...

王二狗子11
2018/01/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

灵光一闪来个科普贴:Linux文件系统

在计算机系统中,各种需要保存的信息都是以文件的形式存在的。文件管理是对系统信息资源的管理,是操作系统的一项重要功能。 1.文件与文件系统: 1.1文件: 文件是具有名字的一组相关信息的有...

Linux就该这么学
11分钟前
2
0
ExtJS 4.2 评分组件

本文转载于:专业的前端网站➸ExtJS 4.2 评分组件 上一文章是扩展ExtJS自带的Date组件。在这里将创建一个评分组件。 目录 1. 介绍 2. 示例 3. 资源下载 1. 介绍 代码参考的是 Sencha Touch 2...

前端老手
14分钟前
2
0
如何为视频添加封面?

一个好的视频封面可以吸引观众的眼球,从而起到事半功倍的宣传效果,但是很多小伙伴并不知道怎么给视频添加封面。下面分享一个制作封面否方法,操作起来也比较简单的,有兴趣的小伙伴请接着往...

白米稀饭2019
24分钟前
2
0
如何使用soapUI模拟webservice客户端发送请求

参考资料 https://jingyan.baidu.com/article/cbcede0712849a02f40b4d88.html 左边是请求参数,可以自己填写!按着那个绿色三角箭头可以模拟发送请求,右边是返回的报文 soapui如何发送xml格...

故久呵呵
54分钟前
5
0
Java Security 介绍

1.介绍 Java平台设计的重点是安全性。在其核心,java语言本身是类型安全的并且提供了垃圾自动回收,这使其增加了应用程序代码的健壮性。安全的类加载以及验证机制确保了只有合法的代码才能够...

lixiaobao
59分钟前
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部