html 怎么创建数据库,由数据库集体创建HTML页面

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

CodeAve.com(

Create HTML Pages from Access Db by Group)

查询数据库的名称

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

response.write rs("year") & " 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("")

act.WriteLine("

State(s) that entered the Union in " & rs("year") &"")

act.WriteLine("

")

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("")

关闭文本文件

act.close

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

loop

破坏记录设置

set rs=nothing

rs.close

%>

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