asp网站生成静态页面的方法

日期:2012-2-27 类型:网站转静态技术
ASP简介:Active Server Page的缩写,意思是“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单、方便的编程工具。ASP的网页文件后缀名是.asp,现在常用于各种动态网站中。
ASP缺点:
1:网站查询,添加,删掉,都要打开对象。打开对象过多,网站反应速度快。
2:网站安全性差,常受到病毒的入侵。但也有网站安全性做的好的网站:如中国人才热线等。
但是如果网站生成静态页面,那么它的弊端就完全没有了。网站生成静态页面的优点:
1:网站不用读取数据库,打开速度快。
2:网站不与数据库进行交互,安全性高。
3:便于优化,对搜索引擎友好。
下面简单的介绍一下ASP生成静态页面的方法
MyFolder=server.mappath(File_root&Doc_dir&"")
If NOT fs.folderexists(MyFolder) then
response.write "Create " & MyFolder & "..."
fs.createfolder(MyFolder)
End If
上面的意思是获取路径,如果没有,将建立一个。
FileName = "head.htm"
EditFile = Server.MapPath(Path) & "\" & FileName
Set FileObj = fs.GetFile(EditFile)
Set FileStreamObj = FileObj.OpenAsTextStream(1)
header = LoadFile(EditFile)
加载头部文件
FileName = "foot.htm"
EditFile = Server.MapPath(Path) & "\" & FileName
Set FileObj = fs.GetFile(EditFile)
Set FileStreamObj = FileObj.OpenAsTextStream(1)
footer = LoadFile(EditFile)
加载底部文件
FileName = "index.htm"
EditFile = Server.MapPath(Path) & "\" & FileName
Set FileObj = fs.GetFile(EditFile)
Set FileStreamObj = FileObj.OpenAsTextStream(1)
index_template = LoadFile(EditFile)
加载首页文件
 If InStr(File_Str,"asp网站生成静态页面的方法") > 0 then
 Temp_Str = trade(page_title)
 File_Str = Replace(File_Str,"asp网站生成静态页面的方法",Temp_Str)
 end if
 替换title
 If InStr(File_Str,"深圳网站制作,深圳做网站,网站优化,网站技术") > 0 then
 Temp_Str = trade(keywords)
 File_Str = Replace(File_Str,"深圳网站制作,深圳做网站,网站优化,网站技术",Temp_Str)
 end if
 替换keywords
 If InStr(File_Str,"蒸蒸科技是深圳一家从事中高端网站制作的网站建设公司,在深圳做网站多年,提供深圳网站制作,深圳做网站,深圳网站优化,网站转静态化。蒸蒸科技深圳网站建设公司的首选。asp网站生成静态页面的方法") > 0 then
 Temp_Str = trade(description)
 File_Str = Replace(File_Str,"蒸蒸科技是深圳一家从事中高端网站制作的网站建设公司,在深圳做网站多年,提供深圳网站制作,深圳做网站,深圳网站优化,网站转静态化。蒸蒸科技深圳网站建设公司的首选。asp网站生成静态页面的方法",Temp_Str)
 end if
替换description
Function LoadFile(ByVal File)
    Dim objStream
    On Error Resume Next
    Set objStream = Server.CreateObject("ADODB.Stream")
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .LoadFromFile File
        If Err.Number<>0 Then
    Response.Write "出错,文件不存在"
    Err.Clear
    Response.End
        End If
        .Charset = "utf-8"
        .Position = 2
        LoadFile = .ReadText
        .Close
    End With
    Set objStream = Nothing
End Function
最后用这个函数读取和写入生成。
这只是其中的一段代码。设计到程序的整体思想。要想完全理解网站生成静态页面的思想。必须下一番苦功。如果有需要提供代码详解,可以联系:http://www.jixingweb.com

深圳市蒸蒸科技有限公司

地址:深圳市龙华新区龙观西路2号宝龙大厦915室

手机:15013488376

联系人:商先生

公司网址:http://www.jixingweb.com


响应式网站
兼容手机端、电脑端、微信端
网站转静态开发
打开速度快、安全性高、利于SEO优化
HTML5+CSS3最新技术
采用最新网站排版技术,动态效果更逼真
仿站2500元起
高仿网站、价格便宜、功能齐全