newsmsave.asp

if you want it,call me.

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
	if request.form("title")="" then
response.write"<script language=javascript>alert('新闻标题必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
if request.form("addman")="" then
response.write"<script language=javascript>alert('发布人必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if
if request.form("content")="" then
response.write"<script language=javascript>alert('新闻内容必须填写');this.location.href='javascript:history.go(-1)';</script>"
response.end
end if

	function html(constring)
        constring=replace(constring,CHR(13),"")
		constring=replace(constring,CHR(10),"<br>")
		constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
		html=constring
    end function	
    title=trim(request("title"))
	addman=trim(request("addman"))
	csort=trim(request("sort"))
	content=html(trim(request("content")))
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from news where id="&request("id"),conn,2,3
	rs("title")=title
	rs("pname")=addman
	rs("sort")=csort	
	rs("body")=content
	adddate=now()
	rs("date")=adddate
	rs.update
	rs.close
	
	filename1="../news/"&request("filename1")&".htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
		sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("newsmb")
		rs.close
	mb1=replace(mb1,"[title]", title)
	mb1=replace(mb1,"[pname]", addman)
	mb1=replace(mb1,"[body]", content)
	mb1=replace(mb1,"[date]", adddate)	
	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	
	filename1="../newslist.htm"
	set fso=server.createobject("scripting.filesystemobject")
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
		sql="select top 1 * from mb order by id desc"
		rs.open sql,conn,1,1
		mb1=rs("mb2")
		rs.close
		
		sql="select top 1 * from ad order by id desc"
		rs.open sql,conn,1,1
		if not rs.eof then
		pic1=rs("pic")
		url1=rs("url")
		end if
		rs.close
		banner="<a href="&url1&" target=blank><img src="&pic1&" width=486 height=60 border=0>"
		mb1=replace(mb1,"[banner]",banner)
		
	sql="select * from news where sort='VIP活动' order by id desc"
	rs.open sql,conn,1,1
	if rs.eof then
	vip="<br><br><div align=center>暂时没有VIP活动</div><br><br>"
	else
	do while not rs.eof
	vip=vip&"&nbsp;&nbsp;&nbsp;&nbsp;·<a href=javascript:rewindow('news/"&rs("filename")&".htm',500,380)>"&rs("title")&"</a><br>"
	rs.movenext
	loop
	end if
	
	title="VIP活动信息"
	mb1=replace(mb1,"[title]", title)
	mb1=replace(mb1,"[title1]",title)
	mb1=replace(mb1,"[title2]","")
	mb1=replace(mb1,"[biaozhi]",vip)
		
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	set fso=nothing
	
	set rs=nothing
    	response.write"<script language=javascript>alert('新闻修改成功');this.location.href='news.asp';</script>"
		%>