『壹』 求免费下载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