黒うさp百科:新闻发布系统怎样生成动态的ASP页面?

来源:百度文库 编辑:高考问答 时间:2024/03/29 15:27:44
这是生成静态页面的,怎么才能把她改成生成动态页面的呢?
解决后追加分,谢谢!

%>
<!--#include file="../newsweb/config.asp" -->
<%If Request.ServerVariables("REQUEST_METHOD")="POST" Then
strTitle = trim(ChkString(Request.Form("title"),"save"))
strContent = trim(ChkString(Request.Form("content"),"save"))
newsassort=request.form("newsassort")
assort_id=replace(newsassort,Mid(newsassort,InstrRev(newsassort,",")),"")
newsassort1=Mid(newsassort,InstrRev(newsassort,",")+1)
newstemplate=request.form("newstemplate")
newskey=trim(ChkString(request.form("newskey"),"save"))
newsfrom=trim(ChkString(request.form("newsfrom"),"save"))
newssetup=request.form("newssetup")
Set fso = CreateObject("Scripting.FileSystemObject")

gblScriptName= Request.ServerVariables("Script_Name")
gblScriptName = Mid(gblScriptName,InstrRev(gblScriptName,"/") + 1)

folderPath=replace(Server.MapPath(Request.ServerVariables("Script_Name")),gblScriptName,"")
folderPath = replace(folderPath,Mid(folderPath,InstrRev(folderPath,"\")-9),"")

Set objStream = fso.OpenTextFile(folderPath & "newstemplate\template\" & newstemplate & ".asp")

while not objStream.AtEndOfStream
newscontent= newscontent&objStream.ReadLine
newscontent=replace(newscontent,"{newstitle}",strTitle)
newscontent=replace(newscontent,"{newscontent}",strContent)
if newsfrom="" then
newscontent=replace(newscontent,"{newsfrom}","")
else
newscontent=replace(newscontent,"{newsfrom}","本产品信息由:" & newsfrom & "发布    ")
end if
if Instr(newssetup,"2")>0 then
newscontent=replace(newscontent,"{newslink}","<script language=""javascript"" src=""../../newsweb/news_link.asp?assort=" & assort_id & "&keyword=" & ToUrl(newskey) & """></script>")
else
newscontent=replace(newscontent,"{newslink}","")
end if
newscontent=replace(newscontent,"{newsdate}","本条信息发表于:" & Now())
wend
objStream.close
htmllfilename=DateToFilename(Now())
If not fso.FolderExists(folderPath & "newshtml\" & newsassort1) Then
Set f = fso.CreateFolder(folderPath & "newshtml\" & newsassort1)
set f=nothing
end if
Set objhtml = fso.CreateTextFile(folderPath & "newshtml\" & newsassort1 & "\" & htmllfilename)
objhtml.WriteLine newscontent
objhtml.close
set fso=nothing

超级简单!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!把这些HTML脚本复制到某个网页编辑器上,如Dreamweaver,选择代码模式,复制到相应的地方就OK了