ASP生成静态全过程研究，从数据库到页面生成

最新推荐文章于 2024-07-13 18:10:19 发布
最新推荐文章于 2024-07-13 18:10:19 发布
阅读量965 收藏
点赞数
分类专栏： ASP 文章标签： 数据库 asp sql c action function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/okvee/article/details/2416884
版权

数据库db1.mdb

表1：moban
字段：
id--自动编号
moban--备注字段--存储模版代码

模版代码(示例)：
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>testmb</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$</td>
</tr>
<tr valign="top">
<td width="25%" bgcolor="#e5e5e5">$cnleft$</td>
<td width="74%" bgcolor="#f3f3f3">$cnright$</td>
</tr>
</table>
</body>
</html>

表2：c_news
字段：
c_id 自动编号
c_title
c_content
c_filepath
c_time

-------------------------

文件1：add.html

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<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>
</body>
</html>
------------------------------------

文件2：showit.asp

<!--#include
file="conn.asp" -->
<!--#include file="lib.asp" -->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from c_news order by c_id desc"
rs.Open sql,conn,1,1
%>
<%
if rs.EOF and rs.BOF then
response.write ("暂时还没有文章")
else
Do Until rs.EOF
%> <table width="758" border="0" align="center" cellpadding="3"
cellspacing="1" bgcolor="#000000"> <tr> <td width="159"
align="right" bordercolor="#CCCCCC"
bgcolor="#CCCCCC"><%=rs("c_time")%></td> <td
width="591" bordercolor="#f3f3f3" bgcolor="#f3f3f3"><a
href=<%=rs("c_filepath")%>
target="a_blank"><%=rs("c_title")%></a></td>
</tr> <tr> <td valign="top" align="right"
bordercolor="#ececec" bgcolor="#ececec">[<a
href=del.asp?c_id=<%=rs("c_id")%>>Dell</a>][<a
href=change.asp?c_id=<%=rs("c_id")%>>Edit</a>][<a
href="add.html">Add</a>]</td> <td valign="top"
bordercolor="#FFFFFF"
bgcolor="#FFFFFF"><%=htmlencode(rs("c_content"))%></td>
</tr> </table><br>
<% rs.MoveNext
Loop
end if
%>
<%
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
-----------------------------------

文件3：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,2
rs.addnew
rs("c_title")=c_title
rs("c_content")=c_content
rs("c_filepath")=filepath
rs.update
rs.close
Set rs = Nothing
%>

<%'打开模板代码，并将其中特殊代码转变为接受值
sql1="select id,moban from moban where id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("moban")
rs1.close
set rs1=nothing
conn.close
set conn=nothing
c_title=htmlencode(c_title)
c_content=htmlencode(c_content)
mb_code=replace(mb_code,"$cntop$",now())
mb_code=replace(mb_code,"$cnleft$",c_title)
mb_code=replace(mb_code,"$cnright$",c_content)
%>

<%'生成HTML页面
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(folder))
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine mb_code
fout.close
%>

文章添加成功，<a href="showit.asp">浏览</a>

文件4：change.asp

<!--#include file="conn.asp" -->
<!--#include file="lib.asp" -->
<%id=request.querystring("c_id")%>
<%
if request.form("submit")="change" then
c_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_id
rs.Open sql,conn,3,2
rs("c_title")=c_title
rs("c_content")=c_content
rs("c_time")=now()
rs.update
rs.close
Set rs = Nothing
%>
<%'打开模板代码，并将其中特殊代码转变为接受值
sql1="select id,moban from moban where id=1"
set rs1=Server.CreateObject("adodb.recordset")
rs1.open sql1,conn,1,1
mb_code=rs1("moban")
rs1.close
set rs1=nothing
conn.close
set conn=nothing
c_title=htmlencode(c_title)
c_content=htmlencode(c_content)
mb_code=replace(mb_code,"$cntop$",now())
mb_code=replace(mb_code,"$cnleft$",c_title)
mb_code=replace(mb_code,"$cnright$",c_content)
%>
<%'生成HTML页面
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))
fout.WriteLine mb_code
fout.close
%>
<%response.redirect("showit.asp")%>
<%end if%>
<%
if id<>"" then
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from c_news where c_id="&id
rs.Open sql,conn,1,1
c_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>
------------------------

文件5：conn.asp

<%
set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db1.mdb")
conn.Open connstr
%>
------------------------

文件6；del.asp

<!--#include file="conn.asp" -->

<%
c_id = request.querystring("c_id")
sql = "Select * from c_news where c_id="&c_id
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3

filepath=rs("c_filepath")
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(filepath))
Set fso = nothing

rs.delete
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>

<%response.redirect("showit.asp")%>
-----------------------

文件7：lib.asp

<%
'生成文件名的函数
function makefilename(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

'保持数据格式不变的函数
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 = fString
end function
%>
----------------------

文件8：mobanedit.asp

<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<%
dim action,add,moban
action=request("action")
moban=request("moban")
if action="add" then
dim rs2,sql2
set rs2=server.CreateObject("adodb.recordset")
sql2="select * from moban"
rs2.open sql2,conn,3,3
rs2("moban")=moban
rs2.update
rs2.close
set rs2=nothing
response.Redirect("mobanedit.asp")
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from moban"
rs.open sql,conn,1,1
%>
<p>编辑模版：</p>
<form action="mobanedit.asp?action=add" method="post">
<p>
<textarea name="moban" cols="100" rows="30" id="moban"><%=rs("moban")%></textarea>
</p>
<p align="center">
<input type="submit" name="Submit" value="保存修改" />
</p>
</form>
<%
rs.close
set rs=nothing
%>
</body>
</html>

okvee
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
PHP实现页面静态化实操步骤
weixin_43814458的博客
11-15 321
随着网站的内容的增多和用户访问量的增多，无可避免的是网站加载会越来越慢，受限于带宽和服务器同一时间的请求次数的限制，我们往往需要在此时对我们的网站进行代码优化和服务器配置的优化。 一般情况下会从以下方面来做优化 1、动态页面静态化 2、优化数据库 3、使用负载均衡 4、使用缓存 5、使用CDN加速 现在很多网站在建设的时候都要进行静态化的处理，为什么网站要进行静态化处理呢？我们都知道...
ASP生成HTML全站静态-自动同步更新BLOG程序
04-12
"ASP生成HTML全站静态"是指通过ASP技术将动态网站内容转化为HTML静态页面的过程。这种做法有多种好处，例如提高页面加载速度、减轻服务器负担、优化SEO（搜索引擎优化）等。静态HTML页面不需要服务器端的脚本执行，...
asp 自动生成数据库操作代码
10-22
asp 开发是可以用这个自动生成数据库的操作代码，省事方便， 自动生成数据库操作代码
asp自动生成html文件的方法
lijian910wolf的专栏
09-17 1924
1，设计数据库testmb.mdb 新建表moban：字段m_id（自动编号，主关键字）；字段m_html（备注类型） 2，假设第一模板内容代码 将下列代码拷贝到m_html字段中 以下是代码片段： testmb $ cntop$ $ cnleft$ $ cnright$ 注意$ cntop$ 、$ cnleft$ 、$ cnright$ ，它们将要实现某些具体的程
ASP TO HTML WITH TEMPLATE
Asp+Asp.Net+C#+XML
10-17 1101
数据库的设计需要两个表：一个是存放模板数据的；一个是存放信息内容的。1，建立新数据库asp2html.mdb2，设计新数据库表c_moban字段m_id（自动编号，主关键字）；字段m_id（自动编号，主关键字）；字段m_html（备注类型）。并将下列完整的代码拷贝至m_html字段 Cnbruce.Com | ASP2HTML TEST      $cntop$        $cnleft$
静态html新闻页面,常见的首页静态新闻列表是如何生成的？
weixin_29988441的博客
06-03 1065
方法:把首页的静态页面也重新生成一个，让它指向你生成的新闻静态页访问地址。其实你缺少的是一个整体的设计。你设计当初应该说要考虑好他们之间的关系。我现在可以提供2种方法:1.根据动态页访问地址和参数来命名静态页(也就是建立动态地址与静态地址的转换公式)如：/user/userDetail.aspx?id=6这样的地址我转换后变成 /user/userDetail_id6.html新闻/newsDet...
ASP生成静态页面的方法
铭心工作室
04-07 501
 ASP2HTML WITH TEMPLET我希望大家看到该标题就能让想象到它的功能：1，WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）具体参考：http://www.cnbruce.com/blog/showlog.asp?cat_i
在浏览器输入一个网址到得到页面的过程（详细）
热门推荐
敲代码的乔帮主
01-18 1万+
作为一个软件开发者，你一定会对网络应用如何工作有一个完整的层次化的认知，同样这里也包括这些应用所用到的技术：像浏览器，HTTP，HTML，网络服务器，需求处理等等。本文将更深入的研究当你输入一个网址的时候，后台到底发生了一件件什么样的事～1. 首先嘛，你得在浏览器里输入要网址:2. 浏览器查找域名的IP地址导航的第一步是通过访问的域名找出其IP地址。DNS查找过程如下：* 浏览器缓存 – 浏览器会
PHP实现页面静态化
谢谢你,慌乱了我的年华
01-01 331
随着网站的内容的增多和用户访问量的增多，无可避免的是网站加载会越来越慢，受限于带宽和服务器同一时间的请求次数的限制，我们往往需要在此时对我们的网站进行代码优化和服务器配置的优化。 一般情况下会从以下方面来做优化 1、动态页面静态化 2、优化数据库 3、使用负载均衡 4、使用缓存 5、使用CDN加速 现在很多网站在建设的时候都要进行静态化的处理，为什么网站要进行静态化处理呢？我们...
实现页面静态化，PHP是如何实现的?
谢谢你,慌乱了我的年华
05-29 8105
随着网站的内容的增多和用户访问量的增多，无可避免的是网站加载会越来越慢，受限于带宽和服务器同一时间的请求次数的限制，我们往往需要在此时对我们的网站进行代码优化和服务器配置的优化。 一般情况下会从以下方面来做优化 1、动态页面静态化 2、优化数据库 3、使用负载均衡 4、使用缓存 5、使用CDN加速 现在很多网站在建设的时候都要进行静态化的处理，为什么网站要进行静态化处理呢？我们...
X-BLOG全站生成静态 v1.0 正式版-ASP源码.zip
01-26
**X-BLOG全站生成静态 v1.0 正式版 ASP源码解析** X-BLOG全站生成静态v1.0正式版是一款基于ASP语言开发的博客系统，它允许用户轻松搭建自己的个人博客或者小型社区网站。这个版本强调的是全站静态化，即所有的页面...
ASP.NET 全静态生成新闻页
10-09
在“全静态生成新闻页ASP.NET”的主题下，我们主要讨论的是如何利用ASP.NET技术来创建一个全静态的新闻页面，这种页面在用户访问时无需服务器执行代码，而是直接提供预先生成的HTML文件。 全静态生成是一种优化网站...
asp.net(C#)开源全站生成静态html系统
07-03
ASP.NET（C#）开源全站生成静态HTML系统是一种技术实现，它允许Web应用程序在用户访问时自动将动态页面转换为静态HTML文件。这种技术在提高网站性能、降低服务器负载和提升SEO效果方面具有显著优势。下面将详细介绍...
基于ASP的X-BLOG全站生成静态【共享版】 v1.0 正式版.zip
07-12
在X-BLOG全站生成静态【共享版】 v1.0 正式版中，ASP被用来构建一个博客系统。博客系统通常包括用户管理、文章发布、评论互动、分类管理等功能。ASP可以方便地实现这些功能，例如： 1. **用户管理**：通过ASP，...
Asp.Net页面生命周期 和 IIS请求
张乐超
05-11 847
一．什么是Asp.Net页面生命周期 当我们在浏览器地址栏中输入网址，回车查看页面时，这时会向服务器端（IIS）发送一个request请求，服务器就会判断发送过来的请求页面，  完全识别 HTTP 页面处理程序类后，ASP.NET 运行时将调用处理程序的 ProcessRequest 方法来处理请求，来创建页面对象。通常情况下，无需更改此方法的实现，因为它是由 Page 类提供的。接下来被创建页
set user & password for database 设置数据库 用户和密码
DavidsonGong的博客
07-12 135
USE sbms;
7.10飞书一面面经
东篱君的博客
07-10 1160
B+树的⾮叶⼦节点不存放实际的记录数据，仅存放索引，所以数据量相同的情况下，相⽐存储即存索引⼜存记录的 B 树，B+树的⾮叶⼦节点可以存放更多的索引，因此 B+ 树可以⽐ B 树更「矮胖」，查询底层节点的磁盘 I/O次数会更少。主从复制：单节点Redis的并发能力是有上限的，要进一步提高Redis的并发能力，可以搭建主从集群，实现读写分离。B+ 树有⼤量的冗余节点（所有⾮叶⼦节点都是冗余索引），这些冗余索引让 B+ 树在插⼊、删除的效率都更⾼，⽐如删除根节点的时候，不会像 B 树那样会发⽣复杂的树的变化；
Redis集群和高可用
最新发布
xiaogengtongxu的博客
07-13 322
主从架构无法实现master和slave角色的自动切换，即当master出现redis服务异常、主机断电、磁盘损坏等问题导致master无法使用，而redis主从复制无法实现自动的故障转移(将slave 自动提升为新master)，需要手动修改环境配置,才能切换到slave redis服务器，另外当单台Redis服务器性能无法满足业务写入需求的时候,也无法横向扩展Redis服务的并行写入性能。master和slave角色的无缝切换，让业务无感知从而不影响业务使用。
asp生成静态实例下载
12-23
ASP生成静态实例下载是指在ASP（活动服务器页）中通过代码生成一个静态实例，并将其作为下载文件提供给用户。ASP可以使用FileSystemObject对象来操作文件和文件夹，通过创建一个静态实例来提供文件下载的功能。首先...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值