admin_dhang.asp

新闻发布系统

<!--#include file = "include.asp"-->
<!--#include file = "admin_checkmana.asp"-->
<!--#include file = "Inc/Function.asp"-->
<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://BBS.COOIN.COM)
'=========================================================
if EnoughPopedom("makedh")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足！\n\n请与系统管理员联系获得足够的权限！"");location.href=""javascript:history.back()"";</script>"
Response.end
end if

        set rs = server.createobject("adodb.recordset")
        sql = "select * from newsclass where Depth=0 and Dshow=true order by ID asc"
        rs.open sql,conn,1,1
		set MyFile=Server.CreateObject("Scripting.FileSystemObject")
		Set Navigationjs=MyFile.CreateTextFile(Server.MapPath("..")&"\Codejs\Navigation.js")
		if rs.recordcount=0 then
        content="<font color=red>还没有新闻栏目</font>"
		end if
		content="<table width=98% ><tr><td align=center><a href=http://"&sowinpath&"><font color=red>首页</font></a></td>"
        Navigationjs.WriteLine("document.write("""&Content&""")")
		while not rs.eof
		if trim(rs("OutURL"))<>"" then
		content="<td align=center><img src=http://"&sowinpath&"Images/Naga.gif>&nbsp;<A class=a01 href="&rs("OutURL")&">"&rs("classcn")&"</a></td>"
		else
		content="<td align=center><img src=http://"&sowinpath&"Images/Naga.gif>&nbsp;<A class=a01 href=http://"&sowinpath&"Class/"&rs("classen")&"/>"&rs("classcn")&"</a></td>"
		end if
		Navigationjs.WriteLine("document.write("""&Content&""")")
		rs.movenext
        wend
		content="<td align=center><img src=http://"&sowinpath&"Images/Naga.gif>&nbsp;<a  class=a01 href=http://"&sowinpath&"Photo/>图片新闻</a></td></tr></table>"
	    Navigationjs.WriteLine("document.write("""&Content&""")")
		Response.write"<script>alert(""成功:\n\n生成导航成功！\n\n文件：codejs/Navigation.js"");location.href=""javascript:history.back()"";</script>"
        Response.end
%>