article_do.asp

我勇 java 和access 做的一个网站

<!--#include file="islogin.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="ubb.asp"-->
<%
function makefilename(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
end function 
%>
<%
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,"$js_title",title)'文章题目
okweb=replace(okweb,"$js_content",content)'文章内容
okweb=replace(okweb,"$js_addtime",addtime)'录入时间
okweb=replace(okweb,"$js_from",from)'文章出处
okweb=replace(okweb,"$js_class_name",class_name)'栏目名称
okweb=replace(okweb,"$js_path",class_id)'位置，路径
okweb=replace(okweb,"$js_zz",zz)'文章作者
okweb=replace(okweb,"$js_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,"$js_title",title)'文章题目
okweb=replace(okweb,"$js_content",content)'文章内容
okweb=replace(okweb,"$js_addtime",addtime)'录入时间
okweb=replace(okweb,"$js_from",from)'文章出处
okweb=replace(okweb,"$js_path",class_id)'位置，路径
okweb=replace(okweb,"$js_class_name",class_name)'栏目名称
okweb=replace(okweb,"$js_zz",zz)'文章作者
okweb=replace(okweb,"$js_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
%>