html批量生成
① asp 批量生成html
給你一個實例:
用到三個文件conn.asp,newlist.asp,info.asp
conn.asp代碼
<%
'資料庫鏈接
db="data/data.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
If Err Then
err.Clear
Set conn = Nothing
Response.Write "資料庫連接出錯,請檢查連接字串。"
Response.End
End If
'定義新聞閱讀界面的讀取
Dim News_title,News_content
Sub ReadNews()
set rs1=server.createobject("adodb.recordset")
sql1="select id,title,content from news where id="& ID
rs1.open sql1,conn,3,3
News_title=rs1("title")
News_content=rs1("content")
rs1.close
set rs1=Nothing
End Sub
%>
newslist.asp代碼如下:
<!--#include file="conn.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,1
do while not rs.eof
%>
<li><a href="info.asp?/<%=rs("id")%>.html"><%=left(trim(rs("title")),30)%></a></li>
<%
rs.movenext
loop
rs.close
set rs=Nothing
%>
</ol>
info.asp代碼如下:
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
If id="" Then
server_v40=Request.ServerVariables("QUERY_STRING")
id=Int(replace(replace(server_v40,"/",""),".html",""))
End If
Call ReadNews()
%>
<div>
標題: <b><%= News_title%></b><br />
內容: <%=News_content%>
</div>
你可以到這個網站看看, 對你有幫助http://www.shcun.cn
② 如何實現asp批量定時生成html
隨著網站訪問量的加大,每次從資料庫讀取都是以效率作為代價的,很多用ACCESS作資料庫的更會深有體會,靜態頁加在搜索時,也會被優先考慮。互聯網上流行的做法是將數據源代碼寫入資料庫再從資料庫讀取生成靜態面,這樣無形間就加大了資料庫。將現有的ASP頁直接生成靜態頁,將會節省很多。
下面的例子是將、index.asp?id=1/index.asp?id=2/index.asp?id=3/這三個動態頁面,分別生成ndex1.htm,index2.htm,index3.htm存在根目錄下面:
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="<UL>"
For i=1 To 3
Html_Temp = Html_Temp&"<LI>"
Item_Classid = i
FileName = "Index"&Item_Classid&".htm"
FilePath = Server.MapPath("/")&"\"&FileName
Html_Temp = Html_Temp&FilePath&"</LI>"
Do_Url = "http://"
Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"
Do_Url = Do_Url&"?Item_Classid="&Item_Classid
strUrl = Do_Url
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Next
Html_Temp = Html_Temp&"<UL>"
%>
<%
Response.Write ( "成功生成文件:" )
Response.Write ( "<BR>" )
Response.Write Html_Temp
%>
不要定時,自己手動,太耗資源了,這玩意.
③ 怎麼批量製作html網頁
做成動態的就行了,一條記錄,一條一個網頁.!弄個幾千都行
④ ASP批量生成HTML
你的代碼也也寫得太亂了吧。
1、無定義變數m:
for ii=1 to mpage
m=m+1
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('html_makeflash.asp?id="&id&"',onDownloadDone)</script>"
next
這個m是哪裡來的?
2、你這個代碼應該是調用了html_makeflash.asp文件,然後通過ID讀取資料庫內容進行生成文件,但是這樣就你發出來的代碼中,根本找不到生成時的問題。
3、你這種是通過讀取ID時來生成文件,這樣讀取會有一個問題,就是當循環生成時出現循環停止。所以建議你在代碼中加入一個隨機變數值。
⑤ 關於批量生成HTML進度條
Response.Write "<br><br><br><br><br><div align=""center""> " & vbCrLf'代碼開始
Response.Write "<table width=""200"" border=""0"" cellspacing=""1"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=000000>" & vbCrLf
Response.Write " <table width=""200"" border=""0"" cellspacing=""0"" cellpadding=""1"">" & vbCrLf
Response.Write "<tr> " & vbCrLf
Response.Write "<td bgcolor=ffffff height=9><img src=""images/bar9.gif"" width=0 height=16 id=img2 name=img2 align=absmiddle></td></tr></table>" & vbCrLf
Response.Write "</td></tr></table></td></tr><tr> " & vbCrLf
Response.Write "<td align=center bgcolor=000000> <span id=txt2 name=txt2 style=""font-size:9pt"">0</span><span style=""font-size:9pt"">%</span> <span id=txt3 name=txt3 style=""font-size:9pt"">0</span></td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</div> " & vbCrLf
Response.Flush
sql="select * from info order by info_id desc"'SQL語句
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
w=rs.recordcount'得到記錄集總數
Do While Not rs.EOF
info_id = rs("info_id")
makehtml_info(info_id)'注意這里函數makehtml_info(info_id)也跟著循環
i=i+1'得到現時完成數
Response.Write "<script>img2.width=" & Fix((i / w) * 200) & ";" & vbCrLf'Fix函數,截尾取整,不四捨五入
Response.Write "txt2.innerHTML=""生成進度:" & FormatNumber(i / w * 100, 4, -1) & """;" & vbCrLf
Response.Write "txt3.innerHTML=""共有 <B><font color=RED>" & w & "</font></B> 個 正在生成第 " & i & " 個"";" & vbCrLf
Response.Write "img2.title=""(" & i & ")"";</script>" & vbCrLf
Response.Flush
rs.movenext
loop
rs.close'代碼結束
images/bar9.gif是進度條小圖片,可以用fireworks製作
2。
1。引用
<script language="javascript" src="ShowProcessBar.js"></script>
2。在提交Button或<A>或<span> 加擴展屬性
IsShowProcessBar="True"
文件ShowProcessBar.js如下
AddProcessbar();
var bwidth=0;
var swidth = document.all.waiting.clientWidth;
function CheckIsProcessBar(obj)
{
if (obj.IsShowProcessBar=="True")
{
return false;
}
else
{
return true;
}
}
function CheckClick(e)
{
if (e == 1)
{
if (bwidth<swidth*0.98){
bwidth += (swidth - bwidth) * 0.025;
if (document.all)document.sbar.width = bwidth;
else document.rating.clip.width = bwidth;
setTimeout(CheckClick(1);,150);
}
}
else
{
if(document.all)
{
if(document.all.waiting.style.visibility == visible)
{document.all.waiting.style.visibility = hidden;
bwidth = 1;}
whichIt = event.srcElement;
while (CheckIsProcessBar(whichIt))
{
whichIt = whichIt.parentElement;
if (whichIt == null)return true;
}
document.all.waiting.style.pixelTop = (document.body.offsetHeight - document.all.waiting.clientHeight) / 2 + document.body.scrollTop;
document.all.waiting.style.pixelLeft = (document.body.offsetWidth - document.all.waiting.clientWidth) / 2 + document.body.scrollLeft;
document.all.waiting.style.visibility = visible;
if(!bwidth)CheckClick(1);
bwidth = 1;
}
else
{
if(document.waiting.visibility == show)
{document.waiting.visibility = hide;
document.rating.visibility = hide;
bwidth = 1;}
if(e.target.href.toString() != )
{
document.waiting.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset;
document.waiting.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset;
document.waiting.visibility = show;
document.rating.top = (window.innerHeight - document.waiting.clip.height) / 2 + self.pageYOffset+document.waiting.clip.height-10;
document.rating.left = (window.innerWidth - document.waiting.clip.width) / 2 + self.pageXOffset;
document.rating.visibility = show;
if(!bwidth)CheckClick(1);
bwidth = 1;
}
}
return true;
}
}
function AddProcessbar()
{
var Str=""
Str+= "<div id=waiting style=position:absolute;top:50px;left:100px;z-index:1;visibility:hidden >";
Str+= "<layer name=waiting visibility=visible zIndex=2 >"
Str+= "<table border=2 cellspacing=1 cellpadding=0 bordercolorlight=#FFFFFF bordercolordark=#C0C0C0 bgcolor=#E0E0E0>"
Str+= " <tr>"
Str+= " <td bgcolor=#E0E0E0 height=30px width=300px align=center>"
Str+= " <font color=black>系統正在處理中...</font>"
Str+= " </td>"
Str+= " </tr>"
Str+= " <tr>"
Str+= " <td bgcolor=#E0E0E0>"
Str+= " <img width=1 height=10 name=sbar style=background-color:#6699cc>"
Str+= " </td>"
Str+= " </tr>"
Str+= "</table> "
Str+= "</layer>"
Str+= "</div>"
document.write(Str)
if(document.all)document.onclick = CheckClick;
}
測試文件TestShowBar.HTML
<HTML>
<HEAD>
<script language="javascript" src="ShowProcessBar.js"></script>
</HEAD>
<BODY>
<A href="error.asp" IsShowProcessBar="True">A Href</a>
<BR>
<BR>
<span onclick="location.href=error.asp" style="cursor:hand" IsShowProcessBar="True"><font color=blue>Span</font></span>
<BR>
<form action="error.asp">
<input type=Submit value="Submit">
<input type=button value="normal button" IsShowProcessBar="True">
</form>
<P IsShowProcessBar="True">AAAAAAAAAAAAA</P>
</BODY>
</HTML>
一定得給分
⑥ 懂php的幫忙寫個批量生成html文件的代碼
<?php
$wnfpp="./htm/";
if(!is_dir("$wnfpp")) {
@mkdir("$wnfpp");
@chmod("$wnfpp", 0777);
@fclose("$wnfpp");
}
for($i=1;$i<=100;$i++){
$membercache=fopen("./htm/{$i}.html","w+");
$saveconfig="
<html>
<meta http-equiv=\"refresh\" content=\"0;url=../archive/{$i}.html\">
</html>";
$write=fwrite($membercache,$saveconfig);
fclose($membercache);
}
echo "credit htm File 100 OK...";
?>
⑦ ASP批量生成HTML代碼
查詢資料庫,每條信息調用一次你單個生成HTML代碼就可以了.
for i = 1 to rs.recordcount
生成單頁代碼.(查找頁面路徑.asp?id=rs("id") 這樣子挨個生成.)
rs.movenext
next
用模版替換也可以.
⑧ asp批量生成HTML頁
首先需要個網頁模板.比如
<head><title>
$標題$
</title></head>
<body>
$內容$
</body>
上面這些代碼比如就是一個模板.
在處理頁上用FSO生成一個HTML頁,並用之前輸入的文章標題和內容替換掉模板中的$標題$和$內容$.這樣就生成了一個HTML頁.用日期時間加隨機數作為文件名.(具體使用方法找教程.)
批量的話就用循環.
⑨ 求批處理 批量HTML轉換成TXT截取、組合字元到首行 並以首行為命名生成新文本文件
復制粘貼到記事本,另存為xx.bat,編碼選ANSI,跟要處理的文件放一起運行
<#:
@echooff
rem提取html內的文字內容輸出到txt文件並截取部分指定內容作為文件名
set#=Anyquestion&set@=WX/&set$=Q&set/az=0x53b7e0b4
title%#%+%@%%$%%$%%z%
set"rootpath=%~dp0"
if"%rootpath:~-1%"equ""(set"rootpath=%rootpath:~,-1%")
cd/d"%rootpath%"
powershell-NoProfile-ExecutionPolicybypass"Invoke-Command-ScriptBlock([ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)))-Args'%rootpath%'"
echo;%#%+%@%%$%%$%%z%
pause
exit
#>
$result=$args[0]+'#convert';
if(-not(test-path-liter$result)){[void](md$result-force)};
$Utf8NoBom=New-ObjectSystem.Text.UTF8Encoding$False;
$files=@(dir-liter$args[0]|?{('.html'-eq$_.Extension)-and($_-is[System.IO.FileInfo])});
$c=$files.length.toString();
$t=[math]::pow(10,$c.length);
$d=(get-date).toString('yyyyMMdd');
for($i=0;$i-lt$files.length;$i++){
write-host$files[$i].Name;
$bin=[IO.File]::ReadAllText($files[$i].FullName,$Utf8NoBom);
$html=New-Object-ComObject'HTMLFile';
$html.designMode='on';
$html.IHTMLDocument2_write($bin);
$text=$html.body.innerText-replace's+(?=賬號統計|用戶動態)',"`r`n";
$filename=$d+''+$c+'-'+($t+$i+1).toString().Substring(1)+'';
$name=[regex]::match($text,'真實姓名[::]([^ ]+)');
if($name.success){$filename+=(($name.groups[1].value.trim()-replace'先生','男')-replace'小姐|女士','女')+'';}
$birth=[regex]::match($text,'出生日期[::](d+)年(d+)月(d+)日');
if($birth.success){$filename+=($birth.groups[1].value+''+(100+[int]$birth.groups[2].value).toString().Substring(1)+''+(100+[int]$birth.groups[3].value).toString().Substring(1))+'';}
$telephone=[regex]::match($text,'固定電話[::]([^ ]+)');
if($telephone.success){if($telephone.groups[1].value.trim()-ne'無'){$filename+=($telephone.groups[1].value.trim())+'';}}
$mobilephone=[regex]::match($text,'手機[::]([^ ]+)');
if($mobilephone.success){if($mobilephone.groups[1].value.trim()-ne'無'){$filename+=($mobilephone.groups[1].value.trim())+'';}}
$region=[regex]::match($text,'所在地區[::]([^ ]+)');
if($region.success){if($region.groups[1].value.trim()-ne'無'){$filename+=($region.groups[1].value.trim())+'';}}
$company=[regex]::match($text,'所在公司[::]([^s]+)');
if($company.success){if($company.groups[1].value.trim()-ne'無'){$filename+=($company.groups[1].value.trim());}}
$filename+='.txt';
[IO.File]::WriteAllText($result+''+$filename,$text,[Text.Encoding]::Default);
}
⑩ 怎麼去批量生成靜態html文件
1 . 如何讓的本地APACHE器.htaccess
如何讓的本地APACHE器".htaccess"呢?其實只要簡朴修改一下apache的httpd.conf設置就讓APACHE.htaccess了,來看看操作
打開httpd.conf(在那裡? APACHE目錄的CONF目錄裡面),用文本編纂器打開後,查找
(1)
Options FollowSymLinks
AllowOverride None
改為
Options FollowSymLinks
AllowOverride All
改為
RewriteEngine on
RewriteRule ^/test.html$ /index.php?id=$1
#ErrorDocument 404 /fileOp.php