admin_article.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>

<%
dim referer
referer = Request.ServerVariables("HTTP_REFERER")

if Request("action") = "headyes" then
	call headyes()
elseif request("action") = "headno" then
	call headno()
elseif request("action") = "goodyes" then
	call goodyes()
elseif request("action") = "goodno" then
	call goodno()
elseif request("action") = "imgyes" then
	call imgyes()
elseif request("action") = "imgno" then
	call imgno()
elseif request("action") = "showyes" then
	call showyes()
elseif request("action") = "showno" then
	call showno()
elseif request("action") = "delarticle" then
	call delarticle()

end if
%>



<%sub headno()
sql="update article set ifhead=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub headyes()
sql="update article set ifhead=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub goodno()
sql="update article set ifgood=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub goodyes()
sql="update article set ifgood=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub showno()
sql="update article set ifshow=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub showyes()
sql="update article set ifshow=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>


<%sub imgyes()
sql="update article set ifimg=1  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>

<%sub imgno()
sql="update article set ifimg=0  where id="&cstr(request("id"))
conn.execute(sql)
response.redirect (referer)
end sub%>



<%sub delarticle()
If Request("DelID")="" or isnull(Request("DelID")) or isempty(Request("DelID")) then
response.write "<font style='color:red;font-size:12px'>请选择要删除的信息</font>"
else
Num=request.form("DelID").count
for i=1 to Num
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from article where id="&request.form("DelID")(i)
rs.open sql,conn,1,1
tempfpath=rs("fpath")
tempfname=rs("fname")
classidn=rs("classid")
boardidn=rs("boardid")
rs.close

set rs = server.CreateObject ("Adodb.recordset")
sql="select classNum from class where classid="&classidn
rs.open sql,conn,1,1
count=rs("classNum")-1
rs.close
sql="update class set classNum="&count&" where classid="&classidn
conn.execute(sql)

set rs = server.CreateObject ("Adodb.recordset")
sql="select boardNum from board where boardid="&boardidn
rs.open sql,conn,1,1
count1=rs("boardNum")-1
rs.close
sql="update board set boardNum="&count1&" where boardid="&boardidn
conn.execute(sql)

FiLePaTh = Server.MapPath("..")& "\" & tempfpath& "\" &tempfname
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
sql="delete from article where id="&request.form("DelID")(i)
conn.execute(sql)
next
Set fso = nothing
set rs=nothing
set rs_1=nothing
set rs_2=nothing
end if
response.redirect (referer)
end sub%>