了解最基本的生成规则,可以自己慢慢延伸的

呵呵 ，还是靠自己努力学习了啊

为什么要转? 为了访问快?

是的啊，把asp要快点的啊

转HTML还有一个优点：搜索引擎能够更好的索引，在这个网站众多的情况下，搜索的功劳不容忽视。

不知道什么时候能学上了啊

ASP]生成静态页的最终类
[ yms123 发表于 2007-4-11 9:25:00 ]

Class MarkHTML
Private mUrlStr'网页的URL地址
Private mTemplateBody'模板文件替换后的HTML代码
Private mFilePath'生成网页的文件路径
Private mFileName'生成网页的文件名 '类初始化过程
Private Sub Class_Initialize
mUrlStr=""
mTemplateBody=""
mFilePath=""
mFileName=""
End Sub
'FSO方法生成网页
Public Function FSOMetHod()
Dim FSO,wFSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set wFSO=FSO.CreateTextFile(FilePath&FileName)
wFSO.Write mTemplateBody
wFSO.Close
Set wFSO=Nothing
Set FSO=Nothing
End Function
'XMLHttp方法生网页
'参数生成模式FSO,ADOStream
Public Function XMLHttpMetHod(MarkMode)
Dim XMLHttp
Set XMLHttp=Server.CreateObject("Microsoft.XMLHTTP")
XMLHttp.Open "Get",mUrlStr,False
XMLHttp.Send
mTemplateBody=XMLHttp.responseHTML
Select Case MrakMode
Case "FSO"
FSOMetHod
Case "ADOStream"
ADOStreamMetHod
End Select
Set XMLHttp=Nothing
End Function
'ADODB.Stream方法生成网页
Public Function ADOStreamMetHod()
Dim oStream
Set oStream=Server.CreateObject("ADODB.Stream")
oStream.Type=1
oStream.Open
oStream.Write mTemplateBody
oStream.SaveToFile FilePath&FileName,2
oStream.Close
Set oStream=Nothing
End Function
'属性过程
Public Property Let FileName(vData)
mFileName=vData
End Property
Public Property Get FileName()
FileName=mFileName
End Property
Public Property Let FilePath(vData)
mFilePath=vData
End Property
Public Property Get FilePath()
FilePath=mFilePath
End Property
Public Property Let UrlStr(vData)
mUrlStr=vData
End Property
Public Property Get UrlStr()
UrlStr=mUrlStr
End Property
Public Property Let TemplateBody(vData)
mTemplateBody=vData
End Property
Public Property Let TemplateBody()
TemplateBody=mTemplateBody
End Property
End Class


解释下
看不懂

我知道全部技术，楼主要吗？

要，。发来把，谢谢啊

呵呵，拜托了，急用的啊