由数据库集体创建HTML页面

ASP新手入门
在前面的文章中我们访问了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() & "<br>"

创建一个以当前年份记录为主的文件
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") & "<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("<br>")

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

移动到下个记录
rs.movenext

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

if the_year <> clng(rs("year")) then
act.WriteLine("<p>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程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

返回
顶部