新闻发布系统源程序代码.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 的源程序代码如下:

点苍新闻发布系统

href="all.asp">
更多...cing="0" cellpadding="0">
"70%" valign="top">
"7" cellpadding="0">
trong>国内新闻eight="30" rowspan="2">/td>
td>　

3 Search.asp 的源程序代码如下:

<%
key=request("key")
otype=request("otype")
if key="" then
response.write "alert('查找字符串不能为空！');history.back();"
response.end
end if
%>

点苍新闻发布管理系统

gn="top" bgcolor="efefef">

able width="100%" border="0" cellspacing="0" cellpadding="0">
pe="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 "闻"center" bgcolor="#CC33FF">发布日期align="center"><%=left(rs("user"),5)%>4 Admin_admin.asp 的源程序代码如下:

<%
if session("aleave")="" then
response.redirect "adminlogin.asp"
response.end
end if
%>

新闻发布管理系统

ing="0">
>
>
"#FFFFFF">
height="22">管理密码：
ssion("aleave")=""
response.redirect "adminlogin.asp"
end if
%>

新闻发布管理系统

<!--
body {
background-image: url(image/</p><p style='height:0px;padding:0;overflow:hidden'>42、bg8.jpg);
}
.style1 {color: #FF3300}
-->

gn="center" cellpadding="0" cellspacing="1" bgcolor="#000000">

"password">sp;
target="_self">

r>
olor="#FFFFFF">管理新闻类别关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2026 宁波自信网络信息技术有限公司  版权所有客服电话：[phone]  投诉电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：