『壹』 求免費下載html整站模板的網站（最好有帶js和jquery的）

www.drame.cn www.mobanwang.com 這兩個網站主要是頁面設計的多，但是也有帶HTML代碼的 你看看吧~~~ 不用注冊 不用積分 隨便下載 我比較喜歡這兩個

『貳』 有沒有什麼可以把整站的html代碼下載的工具

有這樣的軟體的，叫「網站整站下載器」，你可以搜索一下，軟體可以通過設置線程和連接深度，把整站網站的代碼，樣式，包括圖片和flash等元素下載下來，功能挺強大的

『叄』 哪裡可以下載論壇的整站html模板

簡單方法 瀏覽器ie7是 頁面--另存 firefox是 文件--另存 或者直接電右鍵 查看源碼 反正你要的是html模版 用這個法子是最快扒人家網頁的法子

『肆』 如何整站轉換為靜態html網頁，在線等。

這里是asp讀取資料庫內容並生成靜態頁面，這里這個生成靜態頁面的函數可通用
資料庫結構：
id(自動編號)
標題 title(文本)
內容 content(備注)
添加時間 addtime(時間) 這里用來做靜態頁面的文件名

'連接資料庫文件
conn.asp
< %
DB="database/database.mdb"
path=Server.MapPath(DB)
set conn=server.createobject("adodb.Connection")
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="&path
conn.Open connstr
Set rs=server.CreateObject("adodb.recordset")
% >

'動態頁面
news.asp

< !-- #include file="conn.asp" -- >
< %
id=request("id")
sql="select * from news where id="&id
rs.open sql,conn,1,1
If rs.eof Then
Else
title=rs("title")
content=rs("content")
End If
rs.close
% >
<style>
body td {font-size:12px;}
</style>
<TITLE> < %=title% > </TITLE>
<TABLE border="0" cellpadding="0" cellspacing="0" width="500">
<TR>
<TD style="border-bottom:1px #cccccc solid; height:40px; font-weight:bold; text-align:center;">< %=title% ></TD>
</TR>
<TR>
<TD align="center"><div style="margin-top:20px; width:95%">< %=content% ></div></TD>
</TR>
</TABLE>

'生成靜態頁面代碼
createhtml.asp

< !-- #include file="conn.asp" -- >
< %
sql="select * from news"
rs.open sql,conn,1,1
If rs.eof Then
Else
path5="./html/" '這個為生成後文件路徑
Do While Not rs.eof
filename=Replace(Replace(Replace(rs("addtime"),":",""),"-","")," ","")&".html" '這個為生成後的文件名
url="http://localhost/netfriend/news.asp?id="&rs("id") '這個為動態頁面地址,必須是http://****.asp格式的
Call createhtml(url,filename,path5)
rs.movenext
loop
End If
rs.close
Set rs=Nothing
Set conn=nothing

'功能：讀取資料庫內容，生成靜態頁面
'來自：www.aspprogram.cn
'作者：wangsdong
'參數說明：
' url是動態頁面的地址,必須是http://*****/**.asp格式
' filename為生成後的文件名
' path為存儲生成後文件的文件夾名
'備註：支持原創程序，請保留此信息，謝謝

Function createhtml(url,filename,path)
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
path1=server.mappath(path)&"\"&filename
Set MyTextFile=MyFileObject.CreateTextFile(path1)
strurl=url
strTmp = GetHTTPPage(trim(strurl))
MyTextFile.WriteLine(strTmp)
MytextFile.Close
response.write "生成"&filename&"成功<br>"
Set MyFileObject=nothing
End function

Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
If Err.number<>0 then
Response.Write "<p align='center'><font color='red'><b>伺服器獲取文件內容出錯</b></font></p>"
Err.Clear
End If
End Function

Function BytesToBstr(body,Cset)
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 = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
% >
已經搞定，現在就可以運行這個createhtml.asp文件了，如果不成功，注意一下動態頁面的地址，根據IIS進行更換

『伍』 誰有html整站的靜態模板

網上免費的好多的，你網路下，我知道站長素材裡面就有免費的模板

來自PS學堂

『陸』 誰有靜態頁面的整站html文件呀只要是3個頁面以上的就行 最好是視頻網站

視頻網站用HTML，並且還只要三個頁面，這恐怕會很不方便。建議您使用PHP源碼系統，自建一個視頻網站。就愛偷偷笑

『柒』 整站生成HTML工具。

這樣的工具應該是沒有的了

『捌』 求套整站生成html靜態頁ASP企業站源代碼

DedeAMPZForServer我用的這個，用於優化

『玖』 關於整站程序生成HTML

目前已經有很多生成html的系統，但是都是用的模板，本函數實現把asp頁面產生的html代碼保存成為一個html文件，這樣就沒有必要改動原來的頁面就可以輕松完成一個生成html的新聞系統了。^_^

由於代碼比較短，這里就不進行注釋了

<%
'當目標頁面的包含文件即#include的頁面里邊存在response.End()的時候本程序有問題
'注意：本文件一定要放在filename指向的文件的同一目錄下
dim hughchiu_rtcode
Function get_exe_code(filename)
dim execode
dim tmp_str
Dim re,re1,content,fso,f,aspStart,aspEnd
dim ms,m
execode = ""
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
set f=nothing
set fso=nothing

set re = new regexp
re.ignorecase = true
re.global = true
re.pattern = "\<\%\@[^\%]+\%\>"
content = re.replace(content,"")

re.global = false
re.pattern = "\<\!\-\-\s*\#include\s*file\s*=\s*\""([^\""]+)\""\s*\-\-\>"
do
set ms = re.execute(content)
if ms.count<>0 then
set m = ms(0)
tmp_str = get_exe_code(m.submatches(0))
content = re.replace(content, tmp_str)
else
exit do
end if
loop
set m = nothing
set ms = nothing

re.pattern="^\s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2

set re1=new RegExp
re1.ignorecase = true
re1.global = false
re1.pattern = "response\.Write(.+)"

do while aspStart>aspEnd+1
execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),"""",""""""), vbcrlf, """&vbcrlf&""")&""""&vbcrlf
aspEnd=inStr(aspStart,content,"%\>")+2
tmp_str = Mid(content,aspStart,aspEnd-aspStart-2)

do
set ms = re1.execute(tmp_str)
if ms.count<>0 then
set m = ms(0)
tmp_str = re1.replace(tmp_str, " hughchiu_rtcode = hughchiu_rtcode&"&m.submatches(0))
else
exit do
end if
loop

set m = nothing
set ms = nothing

execode = execode& re.replace(tmp_str,"hughchiu_rtcode = hughchiu_rtcode&")

aspStart=inStr(aspEnd,content,"<%")+2
loop

set re1 = nothing
set re=nothing

execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd), """", """"""), vbcrlf, """&vbcrlf&""" )&""""&vbcrlf
get_exe_code = "<%"&execode&"%\>"
End Function

function asp2html(filename)
dim code
code = replace( replace( replace( get_exe_code(filename), "hughchiu_rtcode = hughchiu_rtcode&"""""&vbcrlf, "" ), "<%", "" ), "%\>", "" )
'response.Write(code)
execute(code)
'response.Write( hughchiu_rtcode )
asp2html = hughchiu_rtcode
end function
%>

使用範例：
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.CreateTextFile( server.mappath( "youpage.htm" ), true )
f.WriteLine( asp2html("youpage.asp") )
f.close
set f = nothing
set fso = nothing

http://www.qostudy.org/pr/Article/asp/yingyong/200605/13333.html
http://www.3671041.com/Article/tushu/ASPNET/shilie/200510/1010.html