注册 登录
编程论坛 → ASP技术论坛

asp转换html怎么做啊？

都市打工者 发布于 2007-08-07 11:51， 2415 次点击
asp转换html怎么做啊？
30 回复
#2
放任一切2007-08-07 13:14
转换，应该是生成吧
#3
都市打工者2007-08-07 13:48

对啊。我不知道究竟怎么生成，楼上的，能 帮我吗？
#4
xiaoxippzyh2007-08-07 21:13
用<%%>的asp后
是自动生成的吧,
#5
yms1232007-08-07 21:44

[CODE][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[/CODE]

以前写的楼主可以参考一下。
#6
都市打工者2007-08-08 15:31
谢谢5楼yms123，我试 看看了，呵呵
#7
hmhz2007-08-08 15:35
简单的网站做生成静态的比较容易些

复杂的网站做生成静态的就非常麻烦

很多功能都无法体现出来，光做个生成静态的程序就要写一大堆
#8
zsl55662007-08-09 10:42
谁有具体的实例，发个上来看看，谢谢1！
#9
都市打工者2007-08-09 17:17
呵呵，版主，我还是没有做明白你的深意，能不能发个 做好的转html的网站程序给我啊。谢谢
#10
都市打工者2007-08-10 13:50

各位。帮帮我了啊
#11
SkyGull2007-08-10 14:00
了解最基本的生成规则,可以自己慢慢延伸的
#12
都市打工者2007-08-13 08:45

呵呵 ，还是靠自己努力学习了啊
#13
leaftest2007-08-13 09:10
为什么要转? 为了访问快?
#14
都市打工者2007-08-13 14:38
是的啊，把asp要快点的啊
#15
笨笨林2007-08-13 15:35

转HTML还有一个优点：搜索引擎能够更好的索引，在这个网站众多的情况下，搜索的功劳不容忽视。
#16
都市打工者2007-08-15 16:27

不知道什么时候能学上了啊
#17
rtc2007-08-15 16:48
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


解释下
看不懂
#18
jsmcc2007-08-15 16:59
我知道全部技术，楼主要吗？
#19
都市打工者2007-08-16 08:47

要，。发来把，谢谢啊
#20
都市打工者2007-08-21 10:07

呵呵，拜托了，急用的啊
#21
都市打工者2007-08-31 14:15
呵呵，怎么还没有人回挖
#22
wenxiang1212007-09-04 15:34
回复：（都市打工者）对啊。我不知道究竟怎么生成，楼...

楼主
你html生成了吗
如果搞定了告诉我一下
我现在也想做
#23
wenxiang1212007-09-04 15:36
回复：（wenxiang121）回复：（都市打工者）对啊。我不...
我的QQ是253209340
#24
jamesxiaoyao2007-09-04 16:16

<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #E4EDF9;
}
body,td,th {
font-size: 12px;
}
-->
</style>
<%
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.taoci365.com/trade/index.asp"

wstr = GetPage(Url)

Set fs=Server.CreateObject("Scripting.FileSystemObject")


If (fs.FileExists(server.MapPath("/trade/index.html"))) Then
fs.DeleteFile(server.MapPath("/trade/index.html"))
End If

Set CrFi=fs.CreateTextFile(server.MapPath("/trade/index.html"))
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
response.write "...<font color=red>生成交易中心首页完成！</font>"
%>
路径自己改一下
#25
wenxiang1212007-09-04 16:21
回复：（jamesxiaoyao）
我也是用这个生成
但我的文件很多
每次都不能全部生成当我刷新时又从第一条开始
我要怎么改
#26
jamesxiaoyao2007-09-04 17:24
如果数据多，最好还是利用摸版，这个多了会变慢
#27
shenlang92007-09-05 00:03
各位朋友 转成静态之后 访问的时候速度会快点 这点我从论坛上学到的知识
但是 我不明白 静态指的是什么?
什么叫静态?? 举个例子给我好么??
#28
yjdgv2007-09-06 18:54
有这种生成器工具你试一下吧
#29
孤独冷雨2007-09-06 21:16
我也要啊！！发一个吧！
#30
都市打工者2007-09-18 15:34
问题已经耽搁了很久了，忙其他事情的，有人做好了没有啊》方便发个我看看啊 ， 学习下，谢谢
#31
yms1232007-09-18 18:21
https://bbs.bc-cn.net/viewthread.php?tid=170596&star=at
我前几天回复的问题。
1
©2025, BC-CN.NET
电脑版