求一份asp+access编写的简单的新闻发布系统 急求！
有发布，察看，修改，删除功能就可以了图片什么能少就少，不要太大太复杂急需啊我的邮箱1468646585@qq.com...
有发布，察看，修改，删除功能就可以了
图片什么能少就少，不要太大太复杂
急需啊
我的邮箱1468646585@qq.com 展开
图片什么能少就少，不要太大太复杂
急需啊
我的邮箱1468646585@qq.com 展开
2个回答
展开全部
站长俱乐部新闻发布系统很好
http://www.baidu.com/s?wd=%D5%BE%B3%A4%BE%E3%C0%D6%B2%BF%D0%C2%CE%C5%B7%A2%B2%BC%CF%B5%CD%B3
新闻发布系统后台地址：Admin_Login.asp
管理员账号：admin
密码：admin
功能介绍：
本程序为品牌程序,信誉、质量、服务有保证
主要功能有文章,留言,下载,论坛,博客,统计,调查
模块化的程序设计，使用参数调用更加便捷
开放源代码，所有文件代码可以自由修改,没有任何加密,没有任何DLL组件
没有空间域名及使用时间的任何限制
文章、软件栏目设定简明便捷，采用无限级分类
文章发布可以添加word文件
可设置用户浏览时扣点数功能和有效期的功能
严密的安全措施，防SQL注入，防数据库下载，防木马程序,没有任何后门代码
整合动网论坛，用户只需注册一次,即可访问新闻和论坛程序
页面修改简单,会Dreamweaver\FrontPage操作,就会修改本程序页面
众多网站采用本站程序,您可以上QQ向站长了解其他客户的网站
http://www.baidu.com/s?wd=%D5%BE%B3%A4%BE%E3%C0%D6%B2%BF%D0%C2%CE%C5%B7%A2%B2%BC%CF%B5%CD%B3
新闻发布系统后台地址：Admin_Login.asp
管理员账号：admin
密码：admin
功能介绍：
本程序为品牌程序,信誉、质量、服务有保证
主要功能有文章,留言,下载,论坛,博客,统计,调查
模块化的程序设计，使用参数调用更加便捷
开放源代码，所有文件代码可以自由修改,没有任何加密,没有任何DLL组件
没有空间域名及使用时间的任何限制
文章、软件栏目设定简明便捷，采用无限级分类
文章发布可以添加word文件
可设置用户浏览时扣点数功能和有效期的功能
严密的安全措施，防SQL注入，防数据库下载，防木马程序,没有任何后门代码
整合动网论坛，用户只需注册一次,即可访问新闻和论坛程序
页面修改简单,会Dreamweaver\FrontPage操作,就会修改本程序页面
众多网站采用本站程序,您可以上QQ向站长了解其他客户的网站
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
index.asp 文件
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>单文件留言板</title>
<style>
body
</style>
</head>
<body>
<div style="border-style:dotted; border-width:1px; POSITION:absolute; TOP:17px; width:653px; left:22px">
留言列表:<hr color=#CDF583>
<ol>
<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("data.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.ReadAll
response.write line&"<br>"
end if %>
</li>
</ol>
<p> <%=data2("data.txt")%>
<hr color=#CDF583><form method=POST action="">
<input type=text name=mz size=20 value=by><--你的大字
<textarea name=data cols=72 rows=9></textarea><br><input type=submit value="<li>留言:" name=txt> ©蚊虫</form>
<%
Function data2(MyFile)
Dim objFSO,objTS
Application.Lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(MyFile),8,True)
txt2=Request("txt")
data2=Request("data")
mz2=Request("mz")
sj2=Now()
objTS.WriteLine(txt2)
objTS.WriteLine(data2)
objTS.WriteLine( mz2)
objTS.WriteLine(sj2)
objTS.Close
Application.Unlock
End Function
%></div></body></html>
在目录下新建Data.txt就可以正常使用了.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>单文件留言板</title>
<style>
body
</style>
</head>
<body>
<div style="border-style:dotted; border-width:1px; POSITION:absolute; TOP:17px; width:653px; left:22px">
留言列表:<hr color=#CDF583>
<ol>
<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("data.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
line=txt.ReadAll
response.write line&"<br>"
end if %>
</li>
</ol>
<p> <%=data2("data.txt")%>
<hr color=#CDF583><form method=POST action="">
<input type=text name=mz size=20 value=by><--你的大字
<textarea name=data cols=72 rows=9></textarea><br><input type=submit value="<li>留言:" name=txt> ©蚊虫</form>
<%
Function data2(MyFile)
Dim objFSO,objTS
Application.Lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(MyFile),8,True)
txt2=Request("txt")
data2=Request("data")
mz2=Request("mz")
sj2=Now()
objTS.WriteLine(txt2)
objTS.WriteLine(data2)
objTS.WriteLine( mz2)
objTS.WriteLine(sj2)
objTS.Close
Application.Unlock
End Function
%></div></body></html>
在目录下新建Data.txt就可以正常使用了.
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
