infomanage.asp

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

<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
dim action,id
action=request.querystring("action")
id=request.queryString("id")
filename=trim(request("filename"))
select case action
'//添加
case "add" 
title=trim(request("title"))
key=trim(request("keywords"))
desc=trim(request("description"))
content=request("content")
	set rs1=server.createobject("adodb.recordset")
sql1="select * from lianjie order by id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then
do while not rs1.eof
if instr(content,rs1("gjc")) then
theurl="<a href="&rs1("href")&" target=_blank>"&rs1("gjc")&"</a>"
content=replace(content,rs1("gjc"),theurl)
end if
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
filename2="../"&filename&".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 info where title='"&title&"' or filename='"&filename&"'",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("title")=title
rs("key")=key
rs("desc")=desc
rs("filename")=filename
rs("content")=content
rs.Update
end if
rs.Close

sql="select top 1 * from info order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
id2=rs("id")
end if
rs.close
set rs=nothing
response.write"<span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('infoall1.asp?gid="&id2&"',onDownloadDone)</script>"
response.write"<script language=javascript>alert('栏目添加成功');this.location.href='info.asp';</script>"
'//修改
case "modify"
title=trim(request("title"))
key=trim(request("keywords"))
desc=trim(request("description"))
content=request("content")
	set rs1=server.createobject("adodb.recordset")
sql1="select * from lianjie order by id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then
do while not rs1.eof
if instr(content,rs1("gjc")) then
theurl="<a href="&rs1("href")&" target=_blank>"&rs1("gjc")&"</a>"
content=replace(content,rs1("gjc"),theurl)
end if
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from info where id="&id,conn,1,3
rs("title")=title
rs("key")=key
rs("desc")=desc
rs("content")=content
rs.Update
rs.Close
set rs=nothing
response.write"<span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('infoall1.asp?gid="&id&"',onDownloadDone)</script>"
response.write"<script language=javascript>alert('栏目修改成功');this.location.href='info.asp';</script>"
'//删除
case "del"
conn.execute "delete from info where id="&id
filename1="../"&request("name2")&".htm"
set fso=server.createobject("scripting.filesystemobject")
fso.deletefile(server.mappath(""&filename1&""))
set fso=nothing
response.Redirect "info.asp"
end select
%>