asp靜態生成源碼
Ⅰ ASP生成靜態htm頁面怎麼修改源碼
那你應該去修改asp的相關代碼，而不是靜態htm頁面的源代碼。
Ⅱ 誰知道能整站生成靜態頁面的ASP源碼
這種源碼很多，關鍵是看你要做什麼
比如新雲 動易 很多都可以
Ⅲ asp生成靜態頁面代碼有問題
把報錯的提示貼出來吧！
Ⅳ 急求一個ASP生成靜態HTML的整站原碼
【很適合修改和擴展的生成HTML的程序,簡單明了,基本的安全功能具備,二級管理驗證】
http://down.chinaz.com/soft/25106.htm
月兒貓貓ASP生成HTML全站靜態客戶體驗專業版v1.0
個人官方站:http://www.moonlightcat.cn
優於以前發布的1.0~3.0版本，修正了其他的小bug和大漏洞,高手還得多多指點，面向客戶，模板易修改。
附帶了模板的PSD源文件。源碼包含很具體的使用流程和修改指示流程。
最大特點：適合新手學習的全站靜態化程序。採用FSO組件才能正常運行;用戶訪問一次頁面則自動更新相 應的側邊欄內容和其他相關後台添加的內容。本站沒有專業blog的功能模塊化，沒有專業blog和其他cms程序的專業化，有的只是我自己的設計思想。希望大家能喜歡
很好的兼容了firefox 和 IE ，符合w3c設計標准
功能：
1.文章，圖片，音樂功能：發表自動HTML生成,分類內容列表批量靜態生成可自動更新，批量更新模板，摘要，評論，清晰易用多功能UBB工具欄,可設置置頂，批量刪除評論
2.友情鏈接--HTML生成，前台客戶端自動更新，可審核
3.塗鴉收藏--HTML生成，前台客戶端自動更新，審核，分類，簡介，自由加喜歡的外鏈，可置頂
4.CSS管理--後台編輯css樣式表
5.可手動生成靜態頁面，提高更新速度，並在生成前可更改「廣告，顯示數，截取位元組等」
6.留言，評論的後台審核，UBB,驗證碼支持，可屏蔽垃圾留言--發表後全部HTML自動生成
7.強大的資料庫操作：備份/還原/壓縮;資料庫的sql操作，後台添加修改表和欄位，創建新資料庫；輸出SQL資料庫結構。
8.指定目錄下的文件夾的文件管理，包括上傳的文件--節省空間。
9.關鍵詞過濾，屏蔽功能，可後台修改添加關鍵詞
10.站內搜索支持多個關鍵詞搜索
11.tags標簽相關內容顯示，也靜態化，自動更新
12.安全功能：
a)防止ASP木馬和木馬圖片，清晰的後台界面+超級管理員的二級密碼驗證 b)SQL注入記錄IP和注入信息(有待改進啊...高手指點) c)表單SQL過濾
13.超快速無組件上傳功能（比原裝化境快50倍，通過原化境和網上資料修改而成），可以設定大小和上傳類型。
14.W3C優化，兼容firefox 和IE.
15.HTML生成頁面之前可以設置生成的參數，如列表數，標題字元顯示數，廣告。
如果您搜索到月兒貓貓其他版本，請不要使用，就用客戶體驗版。謝謝
1. 您是第一次使用月兒貓貓程序，請進入後台登陸頁面並選擇「靜態HTML生成」菜單項，開始生成HTML頁面，使您瀏覽沒有數據資料的整站能正常，並激活靜態頁面的同步更新功能...默認用戶名和密碼都是：moonlightcat.cn 管理員二級密碼默認是：123456
2.注意：後台設置完成後不會彈出此窗口了...
3.經過初次生成後所有靜態頁面都可以自動同步更新信息啦...您只需要後台發布您的信息，前台所有頁面均自動更新從新生成HTML頁面，前提是頁面被訪問，訪問一次更新一次...
Ⅳ asp生成靜態網頁
htmlfilename="html/html_"&Newsadddate&Newsid&".html"
改成
htmlfilename="/html/html_"&Newsadddate&Newsid&".html"
Ⅵ asp怎麼讓系統自動生成靜態頁面
思路如下：
1、單獨做一個生成靜態頁面的asp文件，比如 m.asp。
2、m.asp頁面頂部加入 <!--#include file="w.asp"-->
3、在m.asp相同目錄下建1個，w.asp 文件。裡面寫代碼：
<%
dimw
w="2019-3-265:00"'記錄時間的
%>
4、在m.asp中用w的時間值和現在的時間判斷間隔多少分鍾，如果大於10分鍾，就執行靜態頁面生成程序，生成完成後用fso向w.asp 寫入新的時間now()。
Ⅶ 哪位高手給寫段ASP生成靜態頁的源碼
網頁生成靜態Html文件有許多好處,比如生成html網頁有利於被搜索引擎收錄,不僅被收錄的快還收錄的全.前台脫離了數據訪問,減輕對資料庫訪問的壓力,加快網頁打開速度.
像www.aspid.cn的主站就採用了TSYS生成html文件!
所以吟清最近對生成html比較感興趣,看了不少文章,也有一點點收獲.
1,下面這個例子直接利用FSO把html代碼寫入到文件中然後生成.html格式的文件 ＜%
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>輸出Title內容: " & request.form("title") & "＜br /> 輸出Body內容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二種方法就是利用模板技術,將模板中特殊代碼的值替換為從表單或是資料庫欄位中接受過來的值,完成模板功能;將最終替換過的所有模板代碼生成HTML文件.這種技術採用得比較多,大部分的CMS都是使用這類方法.
template.htm ' //模板文件 ＜html>
＜head>
＜title>$title$ by aspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html> ?
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 創建文件系統對象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打開網頁模板文件，讀取模板內容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的網頁標題"
strContent="生成的網頁內容"
'// 用真實內容替換模板中的標記
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 創建要生成的靜態頁
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 寫入網頁內容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成靜態頁成功！"
'// 釋放文件系統對象
set htmlwrite=Nothing
set fso=Nothing
%>
3,第三種方法就是用XMLHTTP獲取動態頁生成的HTML內容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。這句話是在藍色理想上看到的,對XMLHTTP吟清還不熟悉正在找資料了解.找到一段XMLHTTP生成Html的代碼參考一下.
＜%
'常用函數
'1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.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 err.Clear
end function
'2、轉換亂瑪，直接用xmlhttp調用有中文字元的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換
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
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true為不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing
%>
＜script>
alert("靜態網頁生成完畢");
history.back();
＜/script>
Ⅷ 誰可以給一個ASP靜態生成源碼包括指向地址！
<%
'常用函數
'1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼
function getHTTPPage(url)
dim Http
set http=Server.createobject("MSXML2.ServerXMLHTTP")
Http.setTimeouts 10000,10000,10000,30000
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 err.Clear
end function
'2、轉換亂瑪，直接用xmlhttp調用有中文字元的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換
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
'下面試著調用http://www.ptycrc.com的html內容
Dim Url,Html
Url="http://www.ptycrc.com"
Html = getHTTPPage(Url)
'生成靜態頁面
dim filename,fso,fout
filename="index.htm"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write Html
fout.close
set fout=nothing
set fso=nothing
if err then
response.Write("生成頁面失敗")
else
response.Write("生成頁面成功<a href='index.htm' target='_blank'>index.htm</a>")
end if
%>
Ⅸ ASP生成靜態頁面代碼！
可以找我啊.嘿嘿Q774665
以下代碼為本站所用代碼，供大家交流。
ID=CheckID(Request.QueryString("ID")) '此處請求剛剛添加的ID
session("help")=int((10-1+1)*Rnd + 1)
server.ScriptTimeout=9999
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.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 err.Clear
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
'''''''''''''''''''此處是要生成的靜態頁的地址''''''''''''''''''''''''''''''''''''''''''
txtURL="http://www.51wisdom.com.cn/news_con.asp?id="&id
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath("/")&"/html/"&id&".html"
Set openFile=FileObject.OpenTextfile(filename,2,true) 'true為不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing
function checksql(kustr)
checksql=server.htmlencode(replace(replace(replace(kustr,"<>"," "),"* from "," "),"="," "))
end function
response.Write("<script language=javascript>alert('信息發布成功！');window.location.href='list.asp';</script>")
Ⅹ asp如何生成html靜態網頁
public class WriteFile
{
public WriteFile()
{
}
public static bool createHtml(string[] strnewsHtml,string[] stroldHtml,string strModeFilePath,string strPath)
{
bool flag = false;
StreamReader sr = null;
StreamWriter sw = null;
string filepath = HttpContext.Current.Server.MapPath(strModeFilePath);
Encoding code = Encoding.GetEncoding("gb2312");
string s = string.Empty;
try
{
sr = new StreamReader(filepath,code);
s = sr.ReadToEnd();
}
catch (Exception ex)
{
throw ex;
}
finally
{
sr.Close();
}
try
{
for (int i = 0; i < strnewsHtml.Length; i++)
{
s = s.Replace(stroldHtml[i], strnewsHtml[i]);
}
sw = new StreamWriter(HttpContext.Current.Server.MapPath(strPath), false, code);
sw.Write(s);
flag = true;
}
catch (Exception ex)
{
flag = false;
throw ex;
}
finally
{
sw.Flush();
sw.Close();
}
return flag;
}
public static bool UpdateHtmlPage(string[] strNewsHtml, string[] strStartHtml, string[] strEndHtml, string strHtml)
{
bool Flage = false;
StreamReader ReaderFile = null;
StreamWriter WrirteFile = null;
string FilePath = HttpContext.Current.Server.MapPath(strHtml);
Encoding Code = Encoding.GetEncoding("gb2312");
string strFile = string.Empty;
try
{
ReaderFile = new StreamReader(FilePath, Code);
strFile = ReaderFile.ReadToEnd();
}
catch (Exception ex)
{
throw ex;
}
finally
{
ReaderFile.Close();
}
try
{
int intLengTh = strNewsHtml.Length;
for (int i = 0; i < intLengTh; i++)
{
int intStart = strFile.IndexOf(strStartHtml[i]) + strStartHtml[i].Length;
int intEnd = strFile.IndexOf(strEndHtml[i]);
string strOldHtml = strFile.Substring(intStart, intEnd - intStart);
strFile = strFile.Replace(strOldHtml, strNewsHtml[i]);
}
WrirteFile = new StreamWriter(FilePath, false, Code);
WrirteFile.Write(strFile);
Flage = true;
}
catch (Exception ex)
{
throw ex;
}
finally
{
WrirteFile.Flush();
WrirteFile.Close();
}
return Flage;
}
}