当前位置：文档之家 › asp生成html代码调用数据库

asp生成html代码调用数据库

  • 格式：docx
  • 大小：15.75 KB
  • 文档页数：7

ASP生成HTML静态页面2009-06-01 14:06ASP网站做了几个，内容比较多的一直都用伪静态HTML，这样只是达到了搜索引擎方便抓取的效果，真正的并没有降低服务器负载。

ASP生成HTML并不难，关键是要建立好模版，模版一般保存与数据库中，有的也支持存在文件中。

同样的在生成文件的命名，文件夹的建立。

1，文件夹的建立一般是当前年月命名，这就存在一个文件，如果文件夹存在则会报错，所以需要判断文件夹是否存在：代码：<%Set fso = Server.CreateObject("Scripting.FileSystemObject")if (fso.FolderExists(Server.MapPath(folder))) then'判断如果存在就不做处理else'判断如果不存在则建立新文件夹fso.CreateFolder(Server.MapPath(folder))end if%>2，文件名的生成，代码如下：<%function makefilename(fname)fname = fname '前fname为变量，后fname为函数参数引用fname = replace(fname,"-","")fname = replace(fname," ","")fname = replace(fname,":","")fname = replace(fname,"PM","")fname = replace(fname,"AM","")fname = replace(fname,"上午","")fname = replace(fname,"下午","")makefilename = fname & ".html"end function%>引用函数则：<%fname = makefilename(now())%>3，要生成静态HTML，则需先建立模版，现把模版代码存于数据库中，操作如下：1），建立新数据库asp2html.mdb2），设计新数据库表c_moban字段m_id（自动编号，主关键字）；字段m_html（备注类型）。

并将下列完整的代码拷贝至m_html字段代码：<html><head><meta http-equiv="Content-Type" content="text/html; charset=hz"><title> | ASP2HTML TEST</title></head><body leftmargin="0" topmargin="0"><table width="100%" height="100%" border="0" cellpadding="5" cellspacing="2"> <tr align="right" bgcolor="#CCCCCC"><td height="20" colspan="2">$cntop{LogContent}lt;/td></tr><tr valign="top"><td width="25%" bgcolor="#e5e5e5">$cnleft{LogContent}lt;/td><td width="74%" bgcolor="#f3f3f3">$cnright{LogContent}lt;/td></tr></table></body></html>4，设计新闻信息表设计新数据库表c_news字段c_id：自动编号，主关键字字段c_title：文本类型，保存文章标题字段c_content：备注类型，保存文章内容字段c_filepath：文本类型，保持生成文件的路径地址字段c_time：日期/时间类型，默认值：Now()5，功能函数页lib.asp代码如下：<%'生成文件名的函数function makefilename(fname)fname = fnamefname = replace(fname,"-","")fname = replace(fname," ","")fname = replace(fname,":","")fname = replace(fname,"PM","")fname = replace(fname,"AM","")fname = replace(fname,"上午","")fname = replace(fname,"下午","")makefilename=fname & ".shtml"end function'保持数据格式不变的函数function HTMLEncode(fString)fString = replace(fString, ">", "&gt;")fString = replace(fString, "<", "&lt;")fString = Replace(fString, CHR(32), "&nbsp;")fString = Replace(fString, CHR(13), "")fString = Replace(fString, CHR(10) & CHR(10), "<br>")fString = Replace(fString, CHR(10), "<br>")HTMLEncode = fStringend function%>6，数据库连接页conn.asp代码如下：<%set conn = Server.CreateObject("ADODB.Connection")connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("asp2html.mdb") conn.Open connstr%>7，信息输入表单add.html页代码：<form action="addit.asp" method="post">Title:<input type="text" name="c_title"><br>Content:<br><textarea name="c_content" rows="8" cols="30"></textarea><br><input type="submit" value="Add"><input type="reset" value="Reset"></form>8，数据提交处理页addit.asp代码如下：<%'容错处理On Error Resume Next%><!--#include file="conn.asp" --><!--#include file="lib.asp" --><%'接受传递值c_title=request.form("c_title")c_content=request.form("c_content")%><%'生成HTML文件名，建立文件夹，指定文件路径fname = makefilename(now()) 'makefilename为自定义函数folder = "newsfile/"&date()&"/"filepath = folder&fname%><%'将接受值及路径保持至数据库表sql = "Select * from c_news"Set rs = Server.CreateObject ("ADODB.Recordset")rs.Open sql,conn,3,2rs.addnewrs("c_title")=c_titlers("c_content")=c_contentrs("c_filepath")=filepathrs.updaters.closeSet rs = Nothing%><%'打开模板代码，并将其中特殊代码转变为接受值sql1="select m_id,m_html from c_moban where m_id=1"set rs1=Server.CreateObject("adodb.recordset")rs1.open sql1,conn,1,1mb_code=rs1("m_html")rs1.closeset rs1=nothingconn.closeset conn=nothingc_title=htmlencode(c_title)c_content=htmlencode(c_content)mb_code=replace(mb_code,"$cntop{LogContent}quot;,now())mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title)mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) %><%'生成HTML页面Set fso = Server.CreateObject("Scripting.FileSystemObject")fso.CreateFolder(Server.MapPath(folder))Set fout = fso.CreateTextFile(Server.MapPath(filepath))fout.WriteLine mb_codefout.close文章添加成功，<a href="showit.asp">浏览</a>9，修改数据页change.asp代码：<!--#include file="conn.asp" --><!--#include file="lib.asp" --><%id=request.querystring("c_id")%><%if request.form("submit")="change" thenc_title=request.form("c_title")c_content=request.form("c_content")c_id=request.form("c_id")c_filepath=request.form("c_filepath")Set rs = Server.CreateObject ("ADODB.Recordset")sql = "Select * from c_news where c_id="&c_idrs.Open sql,conn,3,2rs("c_title")=c_titlers("c_content")=c_contentrs("c_time")=now()rs.updaters.closeSet rs = Nothing%><%'打开模板代码，并将其中特殊代码转变为接受值sql1="select m_id,m_html from c_moban where m_id=1"set rs1=Server.CreateObject("adodb.recordset")rs1.open sql1,conn,1,1mb_code=rs1("m_html")rs1.closeset rs1=nothingconn.closeset conn=nothingc_title=htmlencode(c_title)c_content=htmlencode(c_content)mb_code=replace(mb_code,"$cntop{LogContent}quot;,now())mb_code=replace(mb_code,"$cnleft{LogContent}quot;,c_title)mb_code=replace(mb_code,"$cnright{LogContent}quot;,c_content) %><%'生成HTML页面Set fso = Server.CreateObject("Scripting.FileSystemObject")Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))fout.WriteLine mb_codefout.close%><%response.redirect("showit.asp")%><%end if%><%if id<>"" thenSet rs = Server.CreateObject ("ADODB.Recordset")sql="select * from c_news where c_id="&idrs.Open sql,conn,1,1c_id=rs("c_id")c_filepath=rs("c_filepath")c_title=rs("c_title")c_content=rs("c_content")end if%><form action="change.asp" method="post">Title:<input type="text" name="c_title" value=<%=c_title%>><br>Content:<br><textarea name="c_content" rows="8" cols="30"><%=c_content%></textarea><br> <input type="submit" value="change" name="submit"><input type="reset" value="Reset"><input name="c_id" type="hidden" value="<%=id%>"><input name="c_filepath" type="hidden" value="<%=c_filepath%>"></form>10，删除数据页delete.asp代码：<!--#include file="conn.asp" --><%c_id = request.querystring("c_id")sql = "Select * from c_news where c_id="&c_idSet rs = Server.CreateObject ("ADODB.Recordset")rs.Open sql,conn,2,3filepath=rs("c_filepath")Set fso = CreateObject("Scripting.FileSystemObject")fso.DeleteFile(Server.mappath(filepath)) Set fso = nothingrs.deleters.closeSet rs = Nothingconn.closeset conn=nothing%><%response.redirect("showit.asp")%>。

合集下载

ASP访问数据库的三种方式(上)

ASP访问数据库的三种方式(上)

ASP访问数据库的三种方式（上）随着Internet/Intranet技术的飞速发展，Web成了新的商家必争之地，各家厂商都希望通过Internet/Intranet技术与最终用户建立直接的联系，比如在Web上向用户推销产品、方便用户在网上查询自己喜欢的商品并提供网上订购服务等。

于是基于Web方式的数据库技术应运而生。

但是在传统的HTML页面中，访问数据库一般是通过公用网关接口（CGI）来实现，这种方式不仅开发困难，而且在出现大量并发请求时会显著地降低服务器的运行效率，而采用ASP（Active Server Pages）技术实现数据库访问就能较好地解决这个问题。

微软的ASP技术是一种运行于服务器端的脚本编写模型，它使开发者可以使用几乎所有的脚本语言（VBScript、Jscript或Perl等）编写脚本，这些脚本可以执行应用程序逻辑，并能够调用ActiveX组件执行特殊任务，如数据库查询、文件输入输出等。

它将IDC的简单性和ISAPI的灵活性综合在一起。

自从Microsoft IIS 3.0（Internet Information Server 3.0）出现以来，微软提出并一直致力于发展ASP技术。

至今，ASP技术得到了进一步的发展，在IIS 4.0中提供了ASP脚本调试工具、事务处理、新的ActiveX组件、RDS等新特性。

在ASP脚本中可以通过三种方式访问数据库：传统的IDC（Internet Database Connector）方式，ADO （ActiveX Data Objects）方式以及RDS（Remote Data Service）方式。

从概念上来讲，这三种访问方式对数据库的访问是由Internet Information Server来完成的。

如图1所示。

Web浏览器用HTTP协议向Internet信息服务器（IIS）递交请求。

Internet信息服务器执行访问数据库的操作，并以一个HTML格式的文档作为回答。

asp调用模板生成html要怎么做

asp调用模板生成html要怎么做

asp调用模板生成html要怎么做?此篇文章也算不得我的原创,百度大神那里类似的文章一搜一大堆,咱也不争这个原创盗版,只是说一下我的思路,代码是什么不重要,重要的是解决问题的方法.分析问题:asp生成html,为什么生成html,用什么方法生成,要怎么做.先说为什么要生成html,其实这个真不用多讲,能看到这篇文章的人,都知道在几年前,人人追求的是动态网页,因为html文件是教定存在的,它不像xx.asp?id=xx这样是通过传值来达到获取数据库数据然后通过服务端发送给客户端浏览,换句话说,就是服务器没有数据库支持,html文件该显示什么还显示什么,这样看起来很好,在前些年,人们费尽心思想要的就是减轻客户机的压力,html文件的劣势就显示出来了,那些大型网站动辄就是成千上万个页面,如果全用html来做,那占用的空间岂不是太大.虽然减轻了服务器的负载,但是同样的,占用的体积那么大,资金花费也不小.但是现在,为了做好搜索引擎的收录,就是为了降低服务器的负载,就是要用到生成静态页.比如同一篇文章数据,一万个人同时请求,如果是html文件,简单,服务器:你请求了是吧,发给你好了.但是如果是动态页呢,它要先查询数据库记录,然后记录缓冲给浏览器,再显示给你,好了,你的解决了,剩下九千九百九十九人还要继续做一次这样的查询和输出,这样服务器的负载就太大了吧.这就是生成静态页的好处,现在谷歌,百度等搜索引擎早就无人不知无人不晓了,连小孩子都知道"内事不决问百度,外事不决问勾勾(谷歌)".而搜索引擎对于动态网页的收录效果很差,我们改变不了搜索引擎,就改变自己的网页吧...要用什么方法生成:既然想到了要生成html,那就要想要用什么方法生成,使用VBScript的程序员就立刻想到了fso对象,我们可以通过fso来创建和写入html文件.用JavaScript的程序员基本上也是立刻就想到XMLHTTP,很明显我还是喜欢用fso来做demo.无他,唯手熟尔.发现很多人只知道看此文,不去看代码,得,我在这把代码贴出..<!--#include file="conn.asp"--><!--这个是引入数据库文件,不解释--><%if request("style")="Make" then'判断是否是生成html'----------------------------------------------------'打开文件过程函数Function Openfile(url)Dim fileurl,mfile,content,fsofileurl = Server.MapPath(url)Set Fso = Server.CreateObject("Scripting.Filesystemobject") '定义FSOSet mfile = Fso.Opentextfile(fileurl,1) '以读的方式打开文件If Not mfile.Atendofstream Thencontent = mfile.readall() '读取全部内容End Ifmfile.Closeopenfile = contentEnd Function'----------------------------------------------------'传说中的rs....不解释Set rs=Server.CreateObject("ADODB.RecordSet")sql="select * from Table_News order by sys_id desc" '这是我的数据库内的表名,请自行更改rs.Open sql,conn,1,1'----------------------------------------------------'做个判断,本实例只是为了达到效果,请自行增加安全检测rsnum = rs.recordcount '只为了做到能正常显示,读取数据库的所有数据总和page=cint(request.form("page")) '取表单内的欲生成页面数folder=trim(request.form("folder")) '表单内欲创建文件夹选项,注意,此处没做检测,具有安全隐患'----------------------------------------------------'简单判断下用户输入if isnumeric(page) = false thenresponse.Write page&"非数字.请重新输入!"response.End()elseif page > rsnum thenpage = rsnumend ifend ifif page = "" thenpage = rsnumend if'----------------------------------------------------'简单判断是否用默认文件夹if folder = "" thenfolder = "news"end if'----------------------------------------------------for i=1 to page'这里开始处理变量，得到结果'----------------------------------------------------'下面的几个赋值变量我就不解释了吧?keyword = rs("News_Keyword")title = rs("News_Topic")body = rs("News_Content")bottom = rs("News_Time")'删掉不用start'当时为了做上一篇下一篇的演示,做了$left和$right,可以不用'----------------------------------------------------------num = i '下面的几个验证是我无聊写上去的,可以删掉不用.'分页验证if i = page thenlefti = "没有了"elseleftnum = num + 1lefti="<a href='news-"&leftnum&".html' target='_Self'>第"&leftnum&"页</a>"end ifif i <= 1 thenrighti = "没有了"elserightnum = num - 1righti="<a href='news-"&rightnum&".html' target='_Self'>第"&rightnum&"页</a>"end if'----------------------------------------------------------'删掉不用endfolder = Replace(folder,,"\/"&folder&"\/") '这里是要生成的文件存放的文件夹Path = "news-"&id&".html" '欲生成文件的名称,本应当用ID来做显示,这里为了做demo,就用i了. content = Openfile("temp.html") '模板的路径'Openfile为自定义函数'开始将模板的标签替换成变量'----------------------------------------------------'读出模板数据,替换内容,可无限替换.content = Replace(content,"$keyword",keyword)content = Replace(content,"$title",title)content = Replace(content,"$body",body)content = Replace(content,"$bottom",bottom)content = Replace(content,"$left",lefti) '可删掉不用content = Replace(content,"$right",righti) '可删掉不用,此处只是为了做上一篇下一篇的显示'......无限替换方法同标签、变量，可以自定义'----------------------------------------------------'Fso操作开始'----------------------------------------------------Set Fso = Server.createObject("Scripting.FileSystemObject")if not fso.folderexists(folder) thenfso.createfolder folderelseSet Fout = FSO.CreateTextFile(Server.MapPath(folder&"/"&Path))Fout.Write contentFout.Closeend ifSet Fout = Nothing'----------------------------------------------------'这里做一下显示生成的页面Response.Write("生成静态页成功详情请<a href="&folder&"/"&Path&">点击查看</a> 这是第"&i&"页<br />")'----------------------------------------------------'rs指针移动下一条.如果数据不够自动结束循环.rs.movenextif rs.eof then exit fornextResponse.End()'----------------------------------------------------end if%><title>模拟生成html</title><link rel="stylesheet" href="abc.css" type="text/css"><script>function aa(){var oStyleSheet=document.styleSheets[0];var oRule=oStyleSheet.rules[0];if(oRule.style.visibility=="visible"){oRule.style.visibility="hidden";}else {oRule.style.visibility="visible";}}</script><form action="?Style=Make" method="post" onkeypress="this.submit"><p style="text-align:center"><select name="sec" onchange="aa();"><option selected="selected">默认不选</option><option>根据ID生成</option></select></p><p id="shows">只生成:<input name="page" type="text" size="5" maxlength="10" />个html更换文件夹<input name="folder" type="text" size="10" maxlength="10" /> &nbsp; <input type="submit" value="生成"></p><p style="text-align:center" id="ss"><input type="submit" value="一键生成全部" ></p></form>相应的注释已经添加,如果还看不懂....我实在没话说.。

ASP实现对SQLSERVER数据库的操作

ASP实现对SQLSERVER数据库的操作

ASP实现对SQLSERVER数据库的操作ASP（Active Server Pages）是一种用于创建动态网页的编程语言，结构类似于传统的HTML页面，但通过嵌入服务器脚本来实现网页的动态功能。

在ASP中，可以使用各种数据库管理系统进行数据库的操作，包括SQL Server数据库。

下面是ASP实现对SQL Server数据库的操作的一般步骤：1.创建连接字符串：首先需要创建一个连接字符串来指定连接的数据库。

连接字符串包括数据库服务器的名称、数据库名称、用户名和密码等信息。

2. 创建连接对象：使用连接字符串来创建一个连接对象，该对象将用于与SQL Server数据库建立通信。

3. 打开连接：通过调用连接对象的Open方法来打开与数据库的连接。

4. 执行SQL语句：使用连接对象可以执行各种SQL语句，包括查询、插入、更新和删除等操作。

可以使用Connection对象的Execute方法来执行SQL语句，并返回一个记录集对象。

5. 处理查询结果：如果执行的是查询语句，得到的结果将以记录集的形式返回。

可以使用Recordset对象来处理这些结果，比如遍历记录、获取字段值等等。

6. 关闭连接：在完成数据库操作后，需要调用连接对象的Close方法来关闭与数据库的连接。

下面是一个简单的ASP代码示例，用于连接到SQL Server数据库并执行查询操作：<html><body><%'创建连接字符串connStr = "Provider=SQLOLEDB;Data Source=(local);Initial Catalog=myDatabase;User ID=myUsername;Password=myPassword;"'创建连接对象Set conn = Server.CreateObject("ADODB.Connection")'打开连接conn.Open connStr'执行查询语句sql = "SELECT * FROM myTable"Set rs = conn.Execute(sql)'处理查询结果While Not rs.EOFResponse.Write "ID: " & rs("ID") & ", Name: " & rs("Name") & "<br>"rs.MoveNext'关闭连接rs.Closeconn.Close%></body></html>```在上述代码中，我们首先创建了一个连接字符串以指定连接到SQL Server数据库。

ASP访问数据库的方法

ASP访问数据库的方法

ASP访问数据库的方法ASP通过内置的ADO DB组件来访问数据库，使用ADO编写紧凑简明的脚本以便连接到ODBC 兼容的数据库和 OLE DB 兼容的数据源。

具体实现可以分为以下几步：（1）创建数据库源名（DSN）ADODB通过ODBC工作，因此要在ODBC中设置DSN（数据源名）。

打开Windows的"控制面板"，双击"ODBC"的图标，然后选择"文件 DSN "的属性页，单击<添加>，选择数据库驱动程序，然后单击"下一步"，按照屏幕的指示键入数据源文件的名称，然后单击"下一步"，再单击"完成"创建数据源。

（2）创建数据库链接链接用以保持一些关于正在访问的数据的动态信息，以及链接者信息。

利用ADODB的成员函数Open和先前设定的DSN与数据库连接，其语法如下：SetConnect=Server.CreateObject("ADODB.Connection")创建了链接对象Connect。

Connect.Open("DSN=dsnname；UID=userID；PWD=password")打开链接。

其中，dsnname为数据源名；userID为用户名；password 为用户口令。

（3）创建数据对象ADO中的数据对象通常保存的是查询结果。

RecordSet 是ADO 中最复杂的对象，有许多属性和方法，灵活运用，可以达到许多好的效果。

其创建方法为：Set RecordSet =Connect.Execute(sqtStr) 创建并打开了对象RecordSet ，sqtStr是一个串，代表一条标准的SQL 语句。

例如：sqlStr="SELECT*FROM b1" Set RecordSet =Connect.Execute(sqlStr) 这条语句执行后，对象RecordSet中就保存了b1中的所有记录。