ASP模版与自动生成HTML文件代码

ASP模版与自动生成HTML文件代码

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 " " 
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 " " 
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 

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据