admin_news.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp"-->
<!--#include file="inc/info.asp" -->
<!--#include file="inc/const.asp" -->
<%admheader
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_news.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:12:04
'Script Written by www.aspease.com 
'=========================================================
response.Write("<table width=""95%"" align=center cellpadding=6 cellspacing=1 class=tableborder border=""0"">")
response.Write("  <tr> ")
response.Write("    <th colspan=2>公告管理设置</th>")
response.Write("  </tr>")
response.Write("  <tr> ")
response.Write("    <td colspan=2  class=Row><a href=admin_news.asp?action=add>发布公告</a> | ")
response.Write("      <a href=admin_news.asp?action=manage>管理公告</a></td>")
response.Write("  </tr>")
select case rst("action")
case "manage"
	call manage
case "del"
	call del
case "edit"
	call edit
case "update"
	call update
case "save"
	call save
case "add"
	call add
case else
	call manage	
end select
admfooter
sub add
response.Write("  <form action=""?action=save"" method=""post"">")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=middle width=""44%""><b>标 题</b></td>")
response.Write("      <td width=""56%"" valign=middle class=Row> ")
response.Write("        <INPUT name=""title"" type=text size=60>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr>")
response.Write("      <td class=Row valign=top width=""44%"">")
response.Write("<b>所属分类</b></td>")
response.Write("      <td class=Row valign=middle width=""56%"">")
response.Write(addcatlist)
response.Write("</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=top width=""44%"">")
response.Write("<b>内 容</b></td>")
response.Write("      <td class=Row valign=middle width=""56%""> ")
response.Write("        <textarea class=""smallarea"" cols=""60"" name=""Content"" rows=""8"" wrap=""hard""></textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=middle colspan=2 align=center> ")
response.Write("        <input type=submit name=""submit"" value=""发 布"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>")
end sub

sub save
if rst("title")<>"" and rst("content")<>""then
	sql="select * from news"
 	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs.addnew
	rs("newstitle")=rst("title")
	rs("newsbody")=rst("content")
	rs("newsdate")=now()
	rs("newscatid")=rst("catid")
	rs.update
	rs.close
	set rs=nothing
	response.write "<tr><td colspan=""2"" class=""Row"">公告添加成功</td></tr>"	
	else
	response.write "<tr><td colspan=""2"" class=""Row"">公告标题或内容不能为空</td></tr>"	
	end if
end sub


sub del
conn.execute("delete from news where newsid="&sqlval(rst("id")))
response.write "删除成功，请返回"
response.end
end sub

sub edit
sql="select * from news where newsid="&sqlval(rst("id"))
 	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
response.Write("<form action=""admin_news.asp?action=update"" method=""post"">")
response.Write("    <input type=""hidden"" name=""newsid"" value=""")
response.Write( fval(rst("id")) )
response.Write(""">")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=middle width=""44%""><b>标 题</b></td>")
response.Write("      <td width=""56%"" valign=middle class=Row> ")
response.Write("        <INPUT name=""title"" type=text size=60 value=""")
response.Write( rs("newstitle") )
response.Write(""">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("	<tr>")
response.Write("      <td class=Row valign=top width=""44%"">")
response.Write("<b>所属分类</b></td>")
response.Write("      <td class=Row valign=middle width=""56%"">")
response.Write(replace(addcatlist,rs("newscatid"),rs("newscatid")&" selected"))
response.Write("</td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=top width=""44%"">")
response.Write("<b>内 容</b></td>")
response.Write("      <td class=Row valign=middle width=""56%""> ")
response.Write("        <textarea class=""smallarea"" cols=""60"" name=""Content"" rows=""8"" wrap=""hard"">")
response.Write( printout(rs("newsbody")) )
response.Write("</textarea>")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("    <tr> ")
response.Write("      <td class=Row valign=middle colspan=2 align=center> ")
response.Write("        <input type=submit name=""submit"" value=""修  改"">")
response.Write("      </td>")
response.Write("    </tr>")
response.Write("  </form>")
end sub
sub update
if trim(rst("title"))<>"" and trim(rst("content"))<>""then
	sql="select * from news where newsid="&sqlval(rst("newsid"))
 	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
	rs("newstitle")=rst("title")
	rs("newsbody")=rst("content")
	'rs("newsdate")=now()
	rs("newscatid")=rst("catid")
	rs.update
	rs.close
	set rs=nothing
	response.write "<tr><td colspan=""2"" class=""Row"">公告修改成功</td></tr>"
	response.end
else
	response.write "<tr><td colspan=""2"" class=""Row"">公告标题或内容必须填写完整</td></tr>"
	response.End()
end if
end sub

sub manage
sqlnews="select newstitle,newsid from news order by newsdate"
set rs1=conn.execute(sqlnews)
if not rs1.eof then
response.Write("  <form name=f1 action=""admin_news.asp"" method=post>")
do while not rs1.eof
response.Write("  <tr> ")
response.Write("      <td width=""44%"" class=""Row""><a href=""news.asp?newsid=")
response.Write(fval(rs1("newsid")))
response.Write(""" target=_blank>")
response.Write(rs1("newstitle"))
response.Write("</a></td>")
response.Write("      <td width=""56%"" class=""Row""><a href=""admin_news.asp?action=edit&id=")
response.Write(fval(rs1("newsid")))
response.Write(""">修改</a> ")
response.Write("        <a href=""admin_news.asp?action=del&id=")
response.Write(fval(rs1("newsid")))
response.Write("""  onclick=""{if(confirm('确定删除公告吗?')){this.document.f1.submit();return true;}return false;}"">删除</a></td>")
response.Write("    </tr>")
rs1.movenext
loop
response.Write(" </form>")
else
response.Write("   <tr> ")
response.Write("    <td colspan=""2"" class=""Row""> ")
response.Write("      <div align=""center""> 当前没有公告 </div>")
response.Write("    </td>")
response.Write("  </tr>")
end if
end sub 
function addcatlist()
set rsaddcatlist=server.createobject("adodb.recordset")
sqls = "select catid,catname,depth from cat order by rootid,orders"
rsaddcatlist.open sqls,conn,1,1	
addcatlist="<select name=catid size=1>"
if rsaddcatlist.eof and rsaddcatlist.bof then
addcatlist=addcatlist&"<option selected value=0>所有商品</option>"
 Else 
addcatlist=addcatlist&"<option selected value=0>所有商品</option>"
rsaddcatlist.movefirst
do while not rsaddcatlist.eof
addcatlist=addcatlist&"<option value="
addcatlist=addcatlist&FVal(rsaddcatlist(0))
 If rsaddcatlist(0)=catid Then 
addcatlist=addcatlist&" selected "
 End If 
addcatlist=addcatlist&">"
 select case rsaddcatlist(2)
case 0
str = "╋"
case 1
str ="&nbsp;&nbsp;├"
end select
if rsaddcatlist(2)>1 then
for i=2 to rsaddcatlist(2)
	str ="&nbsp;&nbsp;"
next
str =str&"&nbsp;&nbsp;├"
end if
addcatlist=addcatlist&str
addcatlist=addcatlist&rsaddcatlist(1)
addcatlist=addcatlist&"</option>"
	rsaddcatlist.movenext
	loop
end if
	rsaddcatlist.close
addcatlist=addcatlist&"</select>  "
end function
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_news.asp
'Version:2.0
'UpdateTime: 2004-10-6 22:12:04
'Script Written by www.aspease.com 
'=========================================================%>