<%
sub asp2htm()
’定義Recordset對象
Set rs=Server.CreateObject("ADODB.Recordset")
’設(shè)置rs的ActiveConnection屬性，綁定到連接
Set rs.ActiveConnection = Conn
’設(shè)置游標(biāo)類型
rs.CursorType = 3
sql="select * from article where title=’"&title&"’"
rs.open sql
do while not rs.eof
ArticleID=rs("ArticleID")
title=rs("title")
author=rs("Author")
copyfrom=rs("copyfrom")
hits=rs("hits")
updatetime=rs("updatetime")
editor=rs("editor")
content=rs("content")
Key=rs("key")
content = replace(content,"../UploadFiles/","../../UploadFiles/") ’解決圖片路徑問題
’title = Request("title") ’獲取標(biāo)題
’content = Request("content") ’獲取內(nèi)容
’path = Server.MapPath("html") ’保存路徑
tnow = now()
fname = year(tnow)&FormatNumber(month(tnow)/100,2,Flase)&FormatNumber(day(tnow)/100,2,Flase)&FormatDateTime(tnow,3)&ArticleID
fname = replace(fname,".","")
fname = replace(fname,":","")
fname = fname & ".htm" ’生成HTML文件的文件名
Set fso = CreateObject("Scripting.FileSystemObject")
Set ftemp = fso.OpenTextFile(Server.MapPath("asp2htm/templates.txt"), 1)
TempData = ftemp.ReadAll ’讀取模板內(nèi)容
ftemp.Close
TempData = Replace(TempData,"#title#",title) ’寫入標(biāo)題
TempData = Replace(TempData,"#content#",content) ’寫入內(nèi)容
TempData = Replace(TempData,"happig",author)
TempData = Replace(TempData,"本站原創(chuàng)",copyfrom)
’TempData = Replace(TempData,"#click#",hits)
TempData = Replace(TempData,"2006-11-9 15:56:13",updatetime)
TempData = Replace(TempData,"admin",editor)
TempData = Replace(TempData,"7744",articleid)
TempData = Replace(TempData,"|asp,自動生成,html,優(yōu)化|",Key)
TempData = Replace(TempData,"7744",ArticleID)
Set fhtml = fso.CreateTextFile(path&"\"&fname)
fhtml.WriteLine TempData ’保存文件
fhtml.Close
Set fso = nothing
sql="update Article set content=’"&fname&"’ where articleid="&cint(articleid)
cmd(sql)
rs.movenext
response.Write("添加"&title&"成功<br>")
response.Clear()
Response.Flush()
loop
call cdb(rs)
’將信息存入數(shù)據(jù)庫略。
end sub
%> |
