由数据库集体创建HTML页面

来源：互联网发布：大学生兼职被骗数据编辑：程序博客网时间：2024/05/22 00:07

在前面的文章中我们访问了HTML，我们展示了如何将Access数据库可以被输出每个意见到一个静态的HTML页面。该演示将说明如何从由DB类别中的一个Access数据库输出HTML页面。在前面的例子中，我们创建了由这里的50个州被分为34 个类别的50个页面。在读取分贝的内容之后，而不是写入输出到浏览器之后它被写入到服务器。每个类别（年进入联盟）将拥有自己的动态创建的页面，其显示以及（所有这一切在这一年进入了状态）对应的信息。目录页的表也（在浏览器中）周边的所有国家网页轻松导航创造。当前时间（服务器时间）也被添加到显示所有的.HTML网页上动态创建。当在您的服务器上执行这个是需要对你自己执行的目录设置权限的。
<html>
<title>CodeAve.com(
Create HTML Pages from Access Db by Group)</title>
<body bgcolor="#FFFFFF">
<%
查询数据库的名称
accessdb="state_info"

数据库的连接字符串
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)

创建一个服务器记录设置对象
Set rs = Server.CreateObject("ADODB.Recordset")

查询对于所有年份的state info states表格
输入州的名称
sql = "select year,state,statename,capital,year,order "
sql = sql & "from states order by year, statename "
rs.Open sql, cn

移动到第一个记录
rs.movefirst

循环到所有记录的输出
do while not rs.eof

如果变量the year<>当前的记录值
创建一个新的db 输出html页面
if the_year <> clng(rs("year")) then

创建一个当前年份的浏览器输出量超链接
response.write "<a href=""" & rs("year") & ".htm"" target=""_blank"">"
response.write rs("year") & "</a> created at" & now() & " "

创建一个以当前年份记录为主的文件
file_being_created= rs("year") & ".htm"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)

写输出到html文件的顶端
act.WriteLine("<html>")
act.WriteLine("<title>State(s) that entered the Union in " & rs("year") &"</title>")
act.WriteLine("<body bgcolor=""#FFFFFF"">")

end if 'end check for new document

在下个文件中写下意见
act.WriteLine("State: " & rs("statename") & " " )
act.WriteLine("Abbreviaton: " & rs("state") & " " )
act.WriteLine("Capital: " & rs("capital") & " ")
act.WriteLine("Entered the Union in "& rs("year") & " ")
act.WriteLine("Number in order of entrance into the Union "& rs("order") &" ")
act.WriteLine(" ")

把当前年份的记录值放在年份的变量当中
the_year=clng(rs("year"))

移动到下个记录
rs.movenext

检查下个记录的年份值
如果它们是很不同的接近当前文档
写所有的页脚，错误接下来会重新出现
防止记录设置的最近错误
on error resume next

if the_year <> clng(rs("year")) then
act.WriteLine("Page created on: " & now ())
act.WriteLine("</body></html>")

关闭文本文件
act.close

end if ' end check for year against the rs.year value
loop

破坏记录设置
set rs=nothing
rs.close
%>

</body>

</html>

简单生活，希望对大家有用!要觉得本文有价值请分享给您的朋友，生活就是人来人往，分享越多!收获越多!作者：天天ASP家园

0 0