当前位置：首页 » 编程语言 » html批量生成

html批量生成

发布时间: 2021-03-17 19:01:04

① 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代码如下:

<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代码如下:

<%
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

阅读全文

html批量生成

与html批量生成相关的阅读推荐