ASP模版与生成HTML文件代码。

转载 2006年05月31日 16:59:00

SELECT CASE REQUEST("action")
'先放到库中,再生成页面
'添加开始---------------------------------------------------------------------------------
CASE "add"
title=request("title")
content=request("content")
moban=request("moban")
class_id=request("class_id")
class_name=request("class_name")
class_big=request("class_big")
zz=request("zz")
from=request("from")
up=request("up")
pic=request("pic")
picurl=request("images")
addtime=now()
hits=request("hits")
fname=makefilename(addtime)
addtime=now()
if title="" and content="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from article where (id=null)"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("content")=content
rs("moban_id")=moban
rs("class_id")=class_id
rs("class_name")=class_name
rs("class_big")=class_big
rs("pic")=pic
rs("picurl")=picurl
rs("addtime")=addtime
rs("zz")=zz
rs("from")=from
rs("hits")=hits
rs("up")=up
rs.update

moban_id=rs("moban_id")
title=rs("title")
content=txt(rs("content"))
addtime=rs("addtime")
addtime=FormatDateTime(addtime,1)
fileid=rs("id")
fname=fname&FileType
rs("fname")=fname
rs("oktime")=addtime
rs.update
rs.close

'生成页面程序开始
sql="select * from moban where id="&moban_id&" " 'moban是数字,是模版id
rs.open sql,conn,1,1
okweb=rs("content")
'替换模版中的相关字段
okweb=replace(okweb,"$nnso_title",title)'文章题目
okweb=replace(okweb,"$nnso_content",content)'文章内容
okweb=replace(okweb,"$nnso_addtime",addtime)'录入时间
okweb=replace(okweb,"$nnso_from",from)'文章出处
okweb=replace(okweb,"$nnso_class_big",class_big)'大类
okweb=replace(okweb,"$nnso_class_name",class_name)'小类名称
okweb=replace(okweb,"$nnso_path",class_id)'位置,路径
okweb=replace(okweb,"$nnso_zz",zz)'文章作者
okweb=replace(okweb,"$nnso_id",fileid)'评论时候的id
'开始生成
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filePath=server.mappath(("../html/")&(class_id))
Set f = fso.CreateTextFile(filePath& "/" & fname)
f.WriteLine okweb
f.close
'生成页面程序结束

'添加日志
 ips=Request.ServerVariables("Remote_Addr")
 sj=now
    conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章添加','["&title&"]成功添加','"&ips&"','"&sj&"' )"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "article.asp?class_id="&class_id&""
'添加结束---------------------------------------------------------------------------------

'修改开始---------------------------------------------------------------------------------
CASE "mod"
'第一步:删除目录下的文件
fileid=request("id")
class_id=request("class_id")
fname=request("fname")
 filePath=server.mappath(("../html/")&(class_id))& "/" &fname
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.DeleteFile(filepath)
 Set fso = nothing
 on error resume next
'先删除目录下文件,再删除库中的记录,否则无法进行查询
title=request("title")
content=request("content")
moban=request("moban")
class_id=request("class_id")
class_name=request("class_name")
class_big=request("class_big")
zz=request("zz")
from=request("from")
up=request("up")
pic=request("pic")
picurl=request("images")
hits=request("hits")
if title="" and content="" then
response.write "<script>history.go(-1)</script>"
else
set rs=server.createobject("adodb.recordset")
sql="select * from article where id="+fileid
rs.open sql,conn,1,3
rs("title")=title
rs("content")=content
rs("moban_id")=moban
rs("class_id")=class_id
rs("class_name")=class_name
rs("class_big")=class_big
rs("pic")=pic
rs("picurl")=picurl
rs("zz")=zz
rs("from")=from
rs("hits")=hits
rs("up")=up
rs.update

moban_id=moban
title=txt(rs("title"))
content=txt(rs("content"))
addtime=rs("addtime")
addtime=FormatDateTime(addtime,1)
fileid=rs("id")
rs.close

'生成页面程序开始
sql="select * from moban where id="&moban_id&" " 'moban是数字,是模版id
rs.open sql,conn,1,1
okweb=rs("content")
'替换模版中的相关字段
okweb=replace(okweb,"$nnso_title",title)'文章题目
okweb=replace(okweb,"$nnso_content",content)'文章内容
okweb=replace(okweb,"$nnso_addtime",addtime)'录入时间
okweb=replace(okweb,"$nnso_from",from)'文章出处
okweb=replace(okweb,"$nnso_path",class_id)'位置,路径
okweb=replace(okweb,"$nnso_class_big",class_big)'大类
okweb=replace(okweb,"$nnso_class_name",class_name)'小类名称
okweb=replace(okweb,"$nnso_zz",zz)'文章作者
okweb=replace(okweb,"$nnso_id",fileid)'评论时候的id
'开始生成
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filePath=server.mappath(("../html/")&(class_id))
Set f = fso.CreateTextFile(filePath& "/" & fname)
f.WriteLine okweb
f.close
'添加日志
 ips=Request.ServerVariables("Remote_Addr")
 sj=now
    conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章修改','"&fname&"-修改成功','"&ips&"','"&sj&"' )"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "article.asp?class_id="&class_id&""

'生成页面程序结束
'修改结束--------------------------------------------------------------------------------

'删除开始--------------------------------------------------------------------------------
CASE "del"
articleid=request("id")
class_id=request("class_id")
set rs=server.createobject("adodb.recordset")
sql="select id,class_id,fname from article where id="+articleid
rs.open sql,conn,1,3
fname=rs("fname")
class_id=rs("class_id")
rs.close
set rs=nothing

'删除目录下的文章
 filePath=request.ServerVariables("APPL_PHYSICAL_PATH")&("html/")&(class_id)& "/" &fname
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.DeleteFile(filepath)
 Set fso = nothing
'先删除目录下文件,再删除库中的记录,否则无法进行查询
conn.execute("delete from article where id="&articleid&"")
'添加日志
 ips=Request.ServerVariables("Remote_Addr")
 sj=now
    conn.Execute "INSERT INTO log(username,action,ip,sj) VALUES('文章删除','"&fname&"-成功删除','"&ips&"','"&sj&"' )"
conn.close
set conn=nothing
'重定向返回
response.redirect "article.asp?class_id="&class_id&""
'删除结束--------------------------------------------------------------------------------

END SELECT

Asp.net生成html文件(模板和 Url)

  • 2010年02月26日 14:47
  • 74KB
  • 下载

Asp.net生成html文件

  • 2007年05月20日 16:04
  • 5KB
  • 下载

ASP生成静态Html文件技术

现在网站网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.  像www.aspid...

Asp.net生成html文件源码

  • 2008年03月01日 10:37
  • 70KB
  • 下载

功能源码:Asp.net生成html文件源码

  • 2007年06月27日 11:30
  • 68KB
  • 下载

ASP生成静态Html文件技术杂谈

ASP生成静态Html文件技术杂谈 网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度...
  • smeyou
  • smeyou
  • 2011年03月08日 15:03
  • 489

【ASP】ASP vbscript一个综合的例子,操作html文件添加、删除代码、删除文件。

后台管理 添加文章 文章标题: 文章内容: 删除文章 文章编号: 文章标题: 创建日期: ...

PHP代码为什么不能直接保存HTML文件——>PHP生成静态页面教程

1、服务器会根据文件的后缀名去进行解析,如果是HTML文件则服务器不会进行语法解析,而是直接输出到浏览器。 2、如果一个页面中全部都是HTML代码而没有需要解析的PHP语法,则没有必要保存为PHP文件...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP模版与生成HTML文件代码。
举报原因:
原因补充:

(最多只允许输入30个字)