『壹』 找一個 新聞發布系統 源碼 要求如下：
無資料庫怎麼實現這些功能，估計你是怕麻煩，那就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 是生成，其實還是手機站 加個殼 有的