admin_modmore.asp

一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风格,是大家非常值得学习的一个网站.

<!--#include file="adminconn.inc"-->
<!--#include file="lib.asp" -->
<%
  if session("aleave")="" then
      response.redirect "adminlogin.asp"
	  response.end
  end if
%>
<%
set js = server.CreateObject("ADODB.RecordSet")
sql="select * from bigclass"
set js = conn.Execute (Sql) 
do while not js.eof
    bigclass=js("BigClassName")   
goaler = goaler + " <td height='30' align='center'  onmouseover='this.bgColor='#FFFFFF';'onmouseout='this.bgColor='#CCCCCC';'bgColor=#CCCCCC>"&"<a href=../../dis_big.asp?b_soft_id="&BigClass&">"&BigClass&"</a></td>"
js.movenext 
loop
goaler = "<table width='100%' height='29' border='0' cellpadding='0' cellspacing='1' bgcolor='#CCCCCC'><tr>" + goaler + "</tr></table>"
js.close
set js = nothing
bigname=request("bigname")
smallname=request("smallname")
if bigname<>"" and smallname="" then
sql="select * from NEWS where bigclassname='"&bigname&"'"
elseif bigname<>"" and smallname<>"" then
sql="select * from NEWS where bigclassname='"&bigname& "' and smallclassname='" & smallname&"'"
else
sql="select * from NEWS"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
i=0
do while not rs.eof
title=rs("title")
BigClassName=rs("BigClassName")
smallClassName=rs("smallClassName")
user=rs("user")
newsid=rs("id")
mcontent=rs("content")
c_filepath=rs("c_filepath") 
set rs1=Server.CreateObject("adodb.recordset") 
sql1="select m_id,m_html from c_moban where m_id=1"
rs1.open sql1,conn,1,1
mb_code=rs1("m_html")
rs1.close
set rs1=nothing

c_title=htmlencode(title)
c_content=mcontent
mb_code=replace(mb_code,"$cntop$",now())
mb_code=replace(mb_code,"$cnleft$",c_title)
mb_code=replace(mb_code,"$cnbigclass$",goaler)
mb_code=replace(mb_code,"$cnbgname$",BigClassName)
mb_code=replace(mb_code,"$cnsmname$",smallClassName)
mb_code=replace(mb_code,"$cnuser$",user)
mb_code=replace(mb_code,"$cnid$",newsid)
mb_code=replace(mb_code,"$cnright$",c_content)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(c_filepath))
fout.WriteLine mb_code
fout.close
response.write i&"<br>"
rs.movenext
i=i+1
loop
else
response.write"<SCRIPT language=JavaScript>alert('没有相关内容！');"
response.write"javascript:history.go(-1)</SCRIPT>"
Response.End
end if
%>