ncmanage.asp

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

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


filename3="../lmmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename3&""))
mb1=f2.ReadAll
f2.close
set f2=nothing
set fso=nothing
call makehengtiao

Sub makenewscenter()
set rs=server.createobject("adodb.recordset")
sql="select * from newsclass order by paixu"
rs.open sql,conn,1,1
if rs.eof then
kd1="暂时没有新闻栏目"
else
kd1="<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rs.eof
id1=rs("id")
name2=rs("newsclass")
name3=rs("name1")
set rs1=server.createobject("adodb.recordset")
sql1="select top 4 * from news where sort="+cstr(id1)+" order by id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then	
do while not rs1.eof
kd12=kd12&"·<a href="&name3&"1.htm>["&name2&"]</a>  <a href=news/"&rs1("filename")&".htm target=_blank><font class=word1>"&rs1("title")&"</font></a><br>"
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
kd2=kd2&"<tr><td valign=top>"&kd12&"</td></tr><tr><td height=15></td></tr>"
kd12=""
rs.movenext
loop
kd2=kd2&"</table>"
end if
rs.close
set rs=nothing
kd=""&kd1&""&kd2&""
mb1=replace(mb1,"[title]","新闻中心")
mb1=replace(mb1,"[biaozhi]",kd)
mb1=replace(mb1,"[bottom]",bottom)

filename1="../news.htm"
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename1&""))
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
End Sub

select case action
'//添加
case "add" 
ncadd=trim(request("ncadd"))
name1=trim(request("name11"))
filename2="../"&name1&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath(""&filename2&""))=true  then
response.write"<script language=javascript>alert('同名称的文件已经存在');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
fso.createtextfile(server.mappath(""&filename2&"")) 
end if
set fso=nothing 
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from newsclass where newsclass='"&ncadd&"' or name1='"&name1&"'",conn,1,3
if not rs.eof then
response.write"<script language=javascript>alert('名称重名，请换一个名称');this.location.href='javascript:history.go(-1)';</script>"
response.end
else
rs.AddNew
rs("newsclass")=ncadd
rs("name1")=name1
rs.Update
end if
rs.Close
set rs=nothing
call makenewscenter
response.Redirect "newsclass.asp"
'//修改
case "rename"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from newsclass where id="&id,conn,1,3
rs("newsclass")=trim(request("ncname"))
rs("paixu")=trim(request("order"))
rs.Update
rs.Close
set rs=nothing
call makenewscenter
response.Redirect "newsclass.asp"
'//删除
case "del"
conn.execute "delete from newsclass where id="&id
conn.execute "delete from news where sort="&id
filename1="../"&request("name2")&"1.htm"
set fso=server.createobject("scripting.filesystemobject")
fso.deletefile(server.mappath(""&filename1&""))
set fso=nothing
call makenewscenter
response.Redirect "newsclass.asp"
end select
%>