数据库设计：
模板表(存储各页面相同部分的html) / 数据表(存储各项数据)
标签分析：
将将需要取数据库的内容部分用标签代替，例如：$Content$---取内容 $Title$---取标题
评论/热点/排行页面实现：
利用<script src=test.asp?id=###></script>放式调用，特别注意test.asp中输入方法为：
response.write "document.write('xxxxxxxxxxxxxx')" 为Js输出格式。
核心代码：
openconn
rs.open "select * from News_class order by orderid",conn,1,1
'利用存储过程将后台提交的数据上传至SQL数据库
if request("Title")<>"" then
set Cmd=server.CreateObject("ADODB.Command")
set Cmd.ActiveConnection=conn
Cmd.CommandText = "Insert_news"
Cmd.CommandType = 4
Cmd.Parameters.Append Cmd.CreateParameter("@Subform",200,1,50,request("Subform"))
Cmd.Parameters.Append Cmd.CreateParameter("@Cid",3,1,,request("Cid"))
Cmd.Parameters.Append Cmd.CreateParameter("@Nwz",200,1,2,request("Nwz"))
Cmd.Parameters.Append Cmd.CreateParameter("@Ntype",200,1,2,request("Ntype"))
Cmd.Parameters.Append Cmd.CreateParameter("@Profile",200,1,50,request("
rofile"))
Cmd.Parameters.Append Cmd.CreateParameter("@title",200,1,80,request("title"))
Cmd.Parameters.Append Cmd.CreateParameter("@Mess",203,1,-1,request("Mess"))
Cmd.Parameters.Append Cmd.CreateParameter("@Nid",3,2)
Cmd.execute
'存储过程返回的新添加新闻ＩＤ
Nids=cmd.Parameters("@Nid")
set cmd=nothing
'开始生成静态页面，第一步 打开静态模板
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from News_Htmlmb",conn,1,1
while not rs2.eof
if rs2("Mbtitle")="Top" then Mtop=rs2("Mbhtml")
if rs2("Mbtitle")="Content" then Mcontent=rs2("Mbhtml")
if rs2("Mbtitle")="Bottom" then Mbottom=rs2("Mbhtml")
rs2.movenext
wend
rs2.close
set rs2=nothing
'模板替换生成
Mainmb=replace(replace(Mcontent,"$Top$",Mtop),"$Bottom$",Mbottom)
'生成HTML文件名，建立文件夹，指定文件路径
fname = makefilename(date(),Nids) 'makefilename为自定义函数
folder = "/News/"&year(date())&"/"
filepath = folder&fname
'测试目录是否存在
set fso=server.CreateObject("Scripting.FileSystemObject")
if ReportFolderStatus(server.MapPath(folder))=-1 then
createFolderDemo(server.MapPath(folder))
end if
'标签替换
Mainmb=replace(Mainmb,"$Title$",request("Title"))
Mainmb=replace(Mainmb,"$Subdate$",now())
Mainmb=replace(Mainmb,"$Subform$",request("Subform"))
Mainmb=replace(Mainmb,"$Mess$",request("Mess"))
Mainmb=replace(Mainmb,"$Nid$",Cstr(Nids))
Mainmb=replace(Mainmb,"$Cid$",request("Cid"))
Mainmb=replace(Mainmb,"$Fpath$",filepath)
'更新文件名
set rs2=server.CreateObject("adodb.recordset")
Sql="exec Update_Newsfilepath "&Nids&",'"&filepath&"'"
rs2.open Sql,conn,1,1
'创建文件
Set fout = fso.CreateTextFile(Server.MapPath(filepath))
fout.WriteLine Mainmb
'关闭操作
fout.close
set fso=nothing
if rs2.state<>0 then
rs2.close
set rs2=nothing
end if
response.Write "<script>if(!confirm('新闻上传成功，是否继续上传？')){window.location='Admin_News_class.asp';}else{window.location='Add_News.asp';}</script>"
'调用存储过程，插入日记记录
set rs3=server.CreateObject("adodb.recordset")
Sqlstr3="exec Insert_log '"&session("Zovy_user")&"','"&now()&"','上传新闻 - "&request("Title")&"'"
rs3.open Sqlstr3,conn,1,1
if rs3.state<>0 then
rs3.close
set rs3=nothing
end if
'以下为需要生成静态页调用的函数集
Function ReportFolderStatus(fldr)
'//功能：判断目录是否存在 形参：目录 返回值：成功为1，失败为-1
Dim msg
msg = -1
If (fso.FolderExists(fldr)) Then
msg = 1
Else
msg = -1
End If
ReportFolderStatus = msg
End Function
Function createFolderDemo(FolderName)
'//功能：创建的文件夹 形参：目录名 返回值：成功为1，失败为-1
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = fso.createFolder(FolderName)
createFolderDemo = 1
End if
End Function
Function ReportFileStatus(FileName)
'//功能：判断文件是否存在 文件名 成功为1，失败为-1
Dim msg
msg = -1
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function
function makefilename(fname,fname2)
'生成文件名的函数
fname = fname
fname = replace(fname,"-","")
makefilename=fname &fname2&".html"
end function
function HTMLEncode(fString)
'保持数据格式不变的函数
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "<br>")
fString = Replace(fString, CHR(10), "<br>")
HTMLEncode = fString
end function
end if
如果您发现本免费资源已过期，请点击报告错误提交过期信息，谢谢!
