建站代码网

热门标签

从HTML到数据库

ASP允许能很容易地创建在网页服务器上的数据的动态视图,但是你知道你能动态地创建“静态”html文档。如果你想在CD或者不需要有个人网页服务器或者数据库安装位置的软盘上发布信息,下面的例子会用到我们的国家信息db


要阅读db的内容,而不是写入输出到浏览器,然后它被写入到服务器。每个意见(国家)将会有自己的动态创建的有相应的显示的信息。内容页面表格也会因为所有国家的页面的轻松导航而被创建。当前时间(服务器时间)也会添加来展示所有的被创建的html页面。
<%
accessdb="state_info" 
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from states " 
rs.Open sql, cn
rs.MoveFirst
do while not rs.eof

用国家的缩写作为相同的输出文档的名称来创建一个文本文件
file_being_created= rs("state") & ".htm"
set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)

在相同目录里面写出db输出到html文件。
act.WriteLine("<title>CodeAve.com(" & rs("statename") & " State Info)</title>")
act.WriteLine("<body bgcolor='#FFFFFF'> " )
act.WriteLine("State: " & rs("statename") & "<br>" )
act.WriteLine("Abbreviaton: " & rs("state") & "<br>" )
act.WriteLine("Capital: " & rs("capital") & "<br>")
act.WriteLine("Entered the Union in "& rs("year") & "<br>")
act.WriteLine("Number in order of entrance into the Union "& rs("order") & "<br>")
act.WriteLine("Page created on: " & now ())
act.close

写出链接到浏览器新创建的页面
response.write "<a href='" & rs("state") & ".htm'>" & rs("statename") & "</a>&nbsp;" & now() & "<br>"
rs.movenext
loop
%>