scmanage.asp

静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
dim action,id1
action=request.querystring("action")
id1=request.queryString("id")
id9=request("id8")
id7=request("cid")
id5=request("id2")
id3=request("id6")

select case action
'//添加
case "add" 
filename1="../"&request("name1")&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(""&filename1&""))=true  then
response.write"<script language=javascript>alert('同名称的文件已经存在');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
fso.createtextfile(server.mappath(""&filename1&"")) 
end if
set fso=nothing 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass",conn,1,3
rs.AddNew
rs("scname")=trim(request("scadd"))
rs("bcid")=id1
rs("name2")=request("name1")
rs.Update
rs.Close
set rs=nothing
response.Redirect "smallclass.asp?id="&id1
'//修改
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from smallclass where scid="&id3,conn,1,3
rs("scname")=trim(request("scname"))
rs("paixu")=trim(request("order1"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "smallclass.asp?id="&request("id2")
'//删除
case "del"
conn.execute "delete from smallclass where scid="&request("id8")
conn.execute "delete from news where sclassid="&request("id8")
filename1="../"&request("name3")&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
fso.deletefile(server.mappath(""&filename1&""))
set fso=nothing
response.Redirect "smallclass.asp?id="&id7
end select
%>