求一个网站内容管理系统

asp+access 有文章、下载、会员、会员可发布信息、会员发布求职、招聘。最好可自动生成html页面的
可用再加30分
晕,我找不到合适的才来求助的嘛,快点来回答吧,要不又要关闭问题了

网上那么多`
你自己去下一个就好了啊
要生成HTML
自己加上代码就好拉`
<%
Function GetPage(url)
'获得文件内容
dim Retrieval
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False ', "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function

Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

on error resume next
Url=http://www.163.com'要读取的页面地址