‘壹’ 找一个 新闻发布系统 源码 要求如下：
无数据库怎么实现这些功能，估计你是怕麻烦，那就ACCESS的吧，NB文章系统(NBArticle) v2.20
http://www.codepub.com/Software/View-Software-760.html
这个非常好，有现成的模版，上传上去就能用
‘贰’ ASP 新闻发布系统 源代码以及如何使用
<!doctype html public "-/w3c/dtd html 4.01 transitional/en"
"http://www.w3.org/tr/html4/loose.dtd">
<html>
<head>
<title>untitled document</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>
<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form1" method="post" action="send.asp">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ccffff">
<tr>
<td height="20"><div align="center">发送消息</div></td>
</tr>
<tr>
<td><div align="center">
<textarea name="msg" cols="100" rows="6"></textarea>
</div></td>
</tr>
<tr>
<td><div align="center">
<input type="submit" name="submit" value="submit">
<input type="reset" name="submit2" value="reset">
</div></td>
</tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>
把上面代码生成index.asp文件
<%
'这是字符串处理函数
function get_pass(pass)
pass=cstr(pass)
pass=replace(pass," ","")
pass=replace(pass," ","")
pass=replace(pass,"-","")
pass=replace(pass," ","")
pass=replace(pass,":","")
pass=replace(pass,".","")
pass=replace(pass,"+","")
pass=replace(pass,"_","")
pass=replace(pass,"<","")
pass=replace(pass,">","")
pass=replace(pass,"!","")
pass=replace(pass,"@","")
pass=replace(pass,"#","")
pass=replace(pass,"$","")
pass=replace(pass,"%","")
pass=replace(pass,"^","")
pass=replace(pass,"!amp;","")
pass=replace(pass,"*","")
pass=replace(pass,"(","")
pass=replace(pass,")","")
pass=replace(pass,"=","")
pass=replace(pass,"\","")
pass=replace(pass,"/","")
pass=replace(pass,"|","")
pass=replace(pass,"下午","")
get_pass=pass
end function
'这是文件路径生成函数，参数为生成路径的时间
function namecheck(time)
webname=get_pass(time)
path=server.mappath("index.asp")
path1=path
total_length=len(path)
path=right(path,9)
right_length=len(path)
left_length=total_length-right_length
path=left(path1,left_length)
path=path&"\children_page\"&webname&".html"
namecheck=path
set myfile=nothing
end function
'这是判断文件是否存在的过程,其中参数为最后更新时间
Sub isdelete(edittime)
filename=namecheck(edittime)
set fso=server.CreateObject("scripting.filesystemobject")
set file=fso.getfile(filename)
if fso.fileexists(file) then
file.delete
response.write("<script language='javascript'>alert('成功删除！');location.href='index.asp';</script>")
end if
set fso=nothing
end Sub
'这是生成文件过程
Sub create
set fso=server.CreateObject("scripting.filesystemobject")
datastream=request("msg")
set myfile=fso.opentextfile(server.mappath("/muban/muban1.txt"))
dataall=myfile.readAll
datastream=replace(dataall,"list",datastream)
myfile.close
set myfile=nothing
set createfile=fso.CreateTextFile(namecheck(now()))
createfile.Write datastream
createfile.close
set createfile=nothing
set fso=nothing
response.write("<script language='javascript'>alert('成功提交！');location.href='index.asp';</script>")
end Sub
%>
<%call create%>
把上面代码复制生成send.asp文件
在同一目录中新建muban文件夹，在里面用下面代码生成muban1.txt文件
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body {
background-image: url(pic002s.jpg);
}
-->
</style></head>
<body>
<table width="900" border="0">
<tr>
<td><table width="100%" border="0">
<tr>
<td><!-- Search Google -->
<center>
<form method=get action="http://www.google.com/search">
<table background="pic002s.jpg"><tr><td>
<a href="http://www.google.com/intl/zh-CN/">
<img src="http://www.google.com/logos/Logo_40wht.gif"
border="0" alt="Google" align="absmiddle"></a>
<input type=text name=q size=31 maxlength=255 value="">
<input type=hidden name=ie value=GB2312>
<input type=hidden name=oe value=GB2312>
<input type=hidden name=hl value=zh-CN>
<input type=submit name=btnG value="Google 搜索">
</td></tr></table>
</form>
</center>
<!-- Search Google --></td>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" height="100%" border="1">
<tr>
<td height="476" align="center" valign="top"><!-- TemplateBeginEditable name="list" -->list<!-- TemplateEndEditable --></td>
</tr>
</table>
<div style="text-align:center;">
<p><a href="http://saqiang1001.webd.datasir.com/message/message.asp" style="text-decoration:none; color:#FFFFFF;">用户留言</a><br /><font color="#FFFFFF">版权所有@违法必究</font>
</div>
</td>
</tr>
</table>
</body>
</html>
在同一目录中新建children_page文件夹，一切完好。确保你的主机安装了FSO，具体方法如下：1、首先在系统盘中查找scrrun.dll，如果存在这个文件，请跳到第三步，如果没有，请执行第二步。
2、在安装文件目录i386中找到scrrun.dl_，用winrar解压缩，得scrrun.dll，然后复制到
你的系统盘:\windows\system32\目录中。
3、运行regsvr32 scrrun.dll即可。
删除fso、regsvr32/u scrrun.dll
开启/关闭系统FSO支持方法
windows98系统
在DOS命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINDOWS\SYSTEM\scrrun.dll
打开命令：RegSvr32 C:\WINDOWS\SYSTEM\scrrun.dll
win2000/XP
在CMD命令行状态输入以下命令：
关闭命令：RegSvr32 /u C:\WINNT\SYSTEM32\scrrun.dll
打开命令：RegSvr32 C:\WINNT\SYSTEM32\scrrun.dll (注意有可能是在SYSTEM中，所以这样写：RegSvr32 C:\WINNT\SYSTEM\scrrun.dll，主要看scrrun.dll这个文件是在哪里！ )
一切完好以后到这个地方下载ASP服务器：ASP小旋风到桌面上，关闭端口为80的程序，主要是迅雷，把所有文件考到:
C:\Program Files\ASP小旋风\wwwroot中，在浏览其中输入：http://你的IP地址，回车，输入数据，你看一下在children_page文件夹中是不是生成了，一个网页文件，新闻系统就是这样做的！
‘叁’ 要一个新闻发布系统源码，asp+acc或者sql的
可以给模板，我正在看的一个新闻发布系统，注明新闻发布
msn [email protected]
‘肆’ 求一套PHP新闻管理系统源码
APP 是生成，其实还是手机站 加个壳 有的