新闻发布系统源程序代码.docx

资源描述

系统源程序代码目录: 1 Conn.asp..............................................................1 2 Default.asp...........................................................1 3 Search.asp............................................................4 4 Admin_admin.asp.......................................................6 5 Adminlogin.asp........................................................8 6 Admin.asp............................................................10 7 Admin_addinfo.asp....................................................11 8 Admin_info.asp.......................................................15 9 Admin_type.asp.......................................................18 10 Pinglun.asp.........................................................21 1 Conn.asp 的源程序代码: <% dim conn,connstr on error resume next connstr="DBQ="+server.mappath("data/nxnews.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set conn=Server.CreateObject("ADODB.CONNECTION") conn.open connstr %> 2 Default.asp 的源程序代码如下:  <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="css.css" type="text/css"> <title>点苍新闻发布系统</title> </head> <body topmargin="0" bgcolor="#525252">  <table width="770" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="200" height="300" valign="top" bgcolor="efefef">  </td> <td width="600" align="center" valign="top" bgcolor="#FFFFFF"><br> <table width="560" border="0" cellspacing="7" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="12%" height="50" rowspan="2"><img src="images/ANN00301.JPG" width="63" height="44"></td> <td width="65%" height="42">　<font face="Verdana" size="3" color="#000066"><strong>最新新闻</strong></font></td> <td width="23%" align="center"><a href="all.asp"> <font color="#000066" size="2">更多...</font></a></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#602A04"> </td> </tr> <tr> <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" colspan="2"> </td> </tr> <tr> <td><img src="images/江南（蓝）.jpg" width="163" height="221"></td> <td width="70%" valign="top"> <script language="javascript" src="owen.asp?n=10"></script> </td> </tr> </table> </td> </tr> </table></td> </tr> </table> <table width="560" border="0" cellspacing="7" cellpadding="0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%" height="48" rowspan="2"><img src="images/ANN00301.JPG" width="61" height="46"></td> <td width="76%" height="47">　<strong><font size="3" color="#000066">国内新闻</font></strong></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#602A04"> </td> </tr> <tr> <td> </td> <td colspan="2"> <script language="javascript" src="owen.asp?owen1=国内新闻&n=4"></script> </td> </tr> </table></td> </tr> <tr> <td height="17"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%" height="30" rowspan="2"><img src="images/ANN00301.JPG" width="61" height="46"></td> <td width="76%" height="39">　<strong><font size="3" color="#000066">国际新闻</font></strong></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#602A04"> </td> </tr> <tr> <td>　</td> <td colspan="2"> <script language="javascript" src="owen.asp?owen1=国际新闻&n=4"></script> </td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%" height="35" rowspan="2"><img src="images/ANN00301.JPG" width="61" height="46"></td> <td width="76%" height="45">　<strong><font size="3" color="#000066">文体新闻</font></strong></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#602A04"> </td> </tr> <tr> <td>　</td> <td colspan="2"> <script language="javascript" src="owen.asp?owen1=文体新闻&n=4"></script> </td> </tr> </table></td> </tr> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%" height="30" rowspan="2"><img src="images/ANN00301.JPG" width="61" height="46"></td> <td width="76%" height="39"><font color="#000066"> <font size="3">　</font><strong><font size="3">社会新闻</font></strong></font></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#602A04"> </td> </tr> <tr> <td>　</td> <td colspan="2"> <script language="javascript" src="owen.asp?owen1=社会新闻&n=4"></script> </td> </tr> </table></td> </tr> </table> </td> </tr> </table> </body> </html> 3 Search.asp 的源程序代码如下:  <% key=request("key") otype=request("otype") if key="" then response.write "<script>alert('查找字符串不能为空！');history.back();</Script>" response.end end if %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="css.css" type="text/css"> <title>点苍新闻发布管理系统</title> </head> <body topmargin="0"> <table width="770" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000"> <tr> <td width="170" height="300" valign="top" bgcolor="efefef">  </td> <td width="600" align="center" valign="top" bgcolor="#FFFFFF"> <table width="100%" height="40" border="0" cellpadding="0" cellspacing="0"> <tr> <td>　</td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>　</td> </tr> </table> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000"> <% Set rs= Server.CreateObject("ADODB.Recordset") if otype="title" then sql="select * from NEWS where title Like '%"& key &"%' order by id desc" elseif otype="msg" then sql="select * from NEWS where content Like '%"& key &"%' order by id desc" else end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>对不起，没有找到相关新闻</p>" else %> <tr bgcolor="#9999CC"> <td width="9%" height="25" align="center" bgcolor="#CC33FF">ID</td> <td width="55%" align="center" bgcolor="#CC33FF">新闻标题</td> <td width="15%" align="center" bgcolor="#CC33FF">发布者</td> <td width="21%" align="center" bgcolor="#CC33FF">发布日期</td> </tr> <% i=0 do while not rs.eof %> <tr bgcolor="#FFFFFF"> <td height="22" align="center"><%=rs("id")%></td> <td>　<a href="ONEWS.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a></td> <td align="center"><%=left(rs("user"),5)%></td> <td align="center"><%=rs("infotime")%></td> </tr> <% rs.movenext i=i+1 loop %> <tr bgcolor="#FFFFFF"> <td height="24" colspan="4"> <div align="center">关键字<font color="#FF0000"><strong><%=key%></strong></font>，共为您找到<font color="#FF0000"><%=i%></font>条新闻</div></td> </tr> <% end if rs.close set rs=nothing %> </table> </td> </tr> </table> </body> </html> 4 Admin_admin.asp 的源程序代码如下:  <% if session("aleave")="" then response.redirect "adminlogin.asp" response.end end if %> <html> <head> <title>新闻发布管理系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="../css.css" type="text/css"> </head> <body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td height="50" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>　</td> </tr> </table> <table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000"> <tr align="center" bgcolor="#CCCCCC"> <td width="15%" height="24" bgcolor="#FFCCFF"> ID</td> <td width="15%" bgcolor="#FFCCFF">用户</td> <td width="20%" bgcolor="#FFCCFF">密码(<font color="#666666">加密</font>)</td> <td width="20%" bgcolor="#FFCCFF">权限</td> <td width="15%" bgcolor="#FFCCFF">修改</td> <td width="15%" bgcolor="#FFCCFF">删除</td> </tr> <% Set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from admin order by id" rs.Open sql,conn,1,1 while not rs.eof if rs("aleave")="super" then aleave="超级管理员" end if if rs("aleave")="check" then aleave="普通管理员" end if %> <tr align="center" bgcolor="#FFFFFF"> <td height="22"><%=rs("id")%></td> <td><%=rs("admin")%></td> <td><%=rs("password")%></td> <td><%=aleave%></td> <td><a href="admin_AdminModify.asp?id=<%=rs("id")%>">修改</a></td> <td><a href="admin_AdminDel.asp?id=<%=rs("id")%>">删除</a></td> </tr> <% rs.movenext wend rs.close set rs=nothing %> </table> <br> <table width="300" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000"> <tr bgcolor="#CCCCCC"> <td colspan="2" bgcolor="#FFCCFF">添加管理员：</td> </tr> <form name="add" method="post" action="admin_adminsave.asp"> <tr bgcolor="#FFFFFF"> <td align="right" height="22">管理帐号：</td> <td> <input type="text" name="admin" class="form"> </td> </tr> <tr bgcolor="#FFFFFF"> <td align="right">管理权限：</td> <td> <select name="aleave" class="input"> <option value=super selected>超级管理员</option> <option value=check>普通管理员</option> </select> </td> </tr> <tr bgcolor="#FFFFFF"> <td align="right" height="22">管理密码：</td> <td> <input type="password" name="password" class="form"> </td> </tr> <tr bgcolor="#CCCCCC"> <td colspan="2" align="center" bgcolor="#FFCCFF"> <input type="submit" name="Submit" value="确定"> <input type="hidden" name="act" value="add"> </td> </tr> </form> </table> <br> </td> </tr> </table> </body> </html> 5 Adminlogin.asp 的源程序代码如下: <% if request("logout")<>"" then session("admin")="" session("password")="" session("aleave")="" response.redirect "adminlogin.asp" end if %> <html> <head> <LINK href="/css.css" type=text/css rel=stylesheet> <title>新闻发布管理系统</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style type="text/css">  </style></head> <body bgcolor="" text="#000000"> <p align="center"><br> <br> <p align="center"><br> <br> <h1 align="center" class="style1"><font face="黑体">点苍新闻发布管理系统后台管理</font></h1> <h1 align="center">　</h1> <table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000"> <form method=post action="chklogin.asp"> <tr> <td width="100%" height="30" align="center" valign="middle" bgcolor="#FFFFFF">用户名： <input class="input" style="color: #FF0000; background-color: #FFFFFF; border: 1px solid #000000" size="12" name="admin"></td> </tr> <tr> <td width="100%" height="29" align="center" valign="middle" bgcolor="#FFFFFF">密　码： <input class="input" style="color: #FF0000; background-color: #FFFFFF; border: 1px solid #000000" type="password" size="12" name="password"></td> </tr> <tr> <td width="100%" height="30" align="center" valign="middle" bgcolor="#FFFFFF"> <input class="input" style="color: #FFFFFF; background-color: #FF0000; border: 1px solid #000000" type="submit" value="确定" name="Submit">     <input class="input" style="color: #FFFFFF; background-color: #FF0000; border: 1px solid #000000" type="reset" value="取消" name="Submit2"> </td> </tr> </form> </table> <br> <br><br> <table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center"><span class="style1">© 程序制作：杜荣宝</span></td> </tr> </table> </body> </html> 6 Admin.asp 的源程序代码如下: <html> <head> <LINK href="../css.css" type=text/css rel=stylesheet> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>left</title> <base target="_self"> </head> <body bgcolor="#CC33FF"> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000090"> <tr> <td height="30" align="center" bgcolor="#990099"><a href="admin_center.asp" target="main"><font color="#FFFFFF">后台管理首页</font></a></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="admin_addinfo.asp" target="main">添加新闻内容</a></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="admin_info.asp" target="main">管理全部新闻</a></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="ClassManage.asp" target="main">管理新闻类别</a></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="admin_admin.asp" target="main">超级管理选项</a></td> </tr> <tr> <td height="30" align="center" bgcolor="#FFFFFF"><a href="adminlogin.asp?logout

展开阅读全文