<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write ""
end if
'=======================================
'Modelurl 模板路径,生成文件类型-----------新闻页面
Function HtmlNews(Modelurl,newsid)
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from news where newsid="&newsid
rs.open sql,conn,1,1
if not rs.eof then
newsname=rs("newsname")
addname=rs("addname")
newscontent=rs("newscontent")
datestr=rs("adddate")
id=rs(0)
classname=NewsClassName(trim(rs("sorts")))
classid=rs("sorts")
pic=rs("focus")
filename2=rs(0)&".html"
End If
set rsmodel=conn.execute("select templetcontent from templets where id=2")
if not rsmodel.eof then
aboutlistmodel=rsmodel(0)
end if
rsmodel.close
set rsmodel=nothing
set rscumlun=conn.execute("select sortsid,sorts from sorts where categoryid=(select categoryid from sortsid="&classid&") order by sortsorder")
do while not rscumlun.eof
aboutlistmodel1=aboutlistmodel1&replace(replace(aboutlistmodel,"[YanhanUrl]","?classid="&rscumlun(0)),"[YanhanTitle]",rscumlun("sorts"))
rscumlun.movenext
loop
if trim(pic)<>"" then
pic ="![](/"&pic)
"
else
pic=""
end if
filename=Modelurl
set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(server.mappath(""&filename&"")) then
response.Write ""
end if
set f2= fso.OpenTextFile(server.mappath(""&filename&""))
If Not fso.FileExists(server.mappath(""&filename&"")) Then
mb1="该栏目页面模版不存在，请检查该路径文件。"
else
mb1=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
mb1=replace(mb1,"1242",id)
mb1=replace(mb1,"ZZR447214005",newsname)
mb1=replace(mb1,"[newscontent]",newscontent)
mb1=replace(mb1,"",addname)
mb1=replace(mb1,"2026-10-20 06:00:14",datestr)
mb1=replace(mb1,"[classname]",classname)
mb1=replace(mb1,"",pic)
mb1=replace(mb1,"协会信息通知通告行业信息协会党支部活动ZZSUB144257",aboutlistmodel1)
''call makehengtiao
call CommonHtml(mb1)
filename1="/news/"&filename2
set fso=server.createobject("scripting.filesystemobject")
CreateFolder("/news/")
set ffile=fso.createtextfile(server.mappath(""&filename1&""))
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
rs.close
set rs=nothing
end Function
'Modelurl 模板路径,生成文件类型----------------------频道栏目生成静态页面
Function HtmlHzContent(Modelurl,newsid)
set rs=server.createobject("adodb.recordset")
sql="select * from product2 where id="&newsid
rs.open sql,conn,1,1
if not rs.eof then
bigClassname=ProductbigClassname(rs("categoryid"))
categoryid=rs("categoryid")
SmallClassname=ProductSmallClassname(rs("sortsid"))
title=rs("name")
model=rs("model")
place=rs("place")
price=rs("price")
pic=rs("pic")
intro=rs("intro")
addTime=rs("addtime")
filename2=rs(0)&".html"
id=rs(0)
End If
if trim(pic)<>"" then
pic =""
else
pic=""
end if
filename=Modelurl
set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(server.mappath(""&filename&"")) then
response.Write ""
end if
set f2= fso.OpenTextFile(server.mappath(""&filename&""))
If Not fso.FileExists(server.mappath(""&filename&"")) Then
mb1="该栏目页面模版不存在，请检查该路径文件。"
else
mb1=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
if err.number<>0 then err.Clear
mb1=replace(mb1,"1242",id)
mb1=replace(mb1,"行业动态",bigClassname)
mb1=replace(mb1,"ZZSUB144257",SmallClassname)
mb1=replace(mb1,"ZZR447214005",title)
mb1=replace(mb1,"B
",intro)
mb1=replace(mb1,"",addname)
mb1=replace(mb1,"2026-10-20 06:00:14",addTime)
mb1=replace(mb1,"",pic)
call Columnlist(mb1,categoryid)
call OnePage(mb1)
call CommonHtml(mb1)
call newlist(mb1,16,8)
filename1="/"&categoryid&"/"&filename2
set fso=server.createobject("scripting.filesystemobject")
CreateFolder("/"&categoryid&"/")
set ffile=fso.createtextfile(server.mappath(""&filename1&""))
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
rs.close
set rs=nothing
end Function
'=======================================
'Modelurl 模板路径,生成文件类型-----------关于我们页面生成
Function HtmlAout(Modelurl,newsid)
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from notice where id="&newsid& " order by topid"
rs.open sql,conn,1,1
if not rs.eof then
newsname=rs("Title")
newscontent=rs("Content")
id=rs(0)
datestr=rs("adddate")
filename2=rs(0)&".html"
End If
filename=Modelurl
set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(server.mappath(""&filename&"")) then
response.Write ""
end if
set f2= fso.OpenTextFile(server.mappath(""&filename&""))
If Not fso.FileExists(server.mappath(""&filename&"")) Then
mb1="该栏目页面模版不存在，请检查该路径文件。"
else
mb1=f2.ReadAll
End If
f2.close
set f2=nothing
set fso=nothing
mb1=replace(mb1,"1242",id)
mb1=replace(mb1,"ZZR447214005",newsname)
mb1=replace(mb1,"[content]",newscontent)
mb1=replace(mb1,"2026-10-20 06:00:14",datestr)
''call makehengtiao
call OnePage(mb1)
call CommonHtml(mb1)
filename1="/about/"&filename2
set fso=server.createobject("scripting.filesystemobject")
CreateFolder("/about/")
set ffile=fso.createtextfile(server.mappath(""&filename1&""))
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
rs.close
set rs=nothing
end Function
Sub CreateFolder(strFolder)
'首选判断要建立的文件夹是否已经存在
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 检查文件夹是否存在
If not objFSO.FolderExists(strTestFolder) Then
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End Sub
'常规设置
function CommonHtml(str)
str=replace(str,"",websyssiteurl)
str=replace(str,"广西高尔夫球协会",websitename)
str=replace(str,"桂ICP备10000277号",icp)
end function
'间页列表模板
function OnePage(str)
set rsmodel=conn.execute("select templetcontent from templets where id=1")
if not rsmodel.eof then
aboutlistmodel=rsmodel(0)
end if
rsmodel.close
set rsmodel=nothing
set rsabout=conn.execute("select * from notice order by topid ")
do while not rsabout.eof
aboutlistmodel1=aboutlistmodel1&replace(replace(aboutlistmodel,"[YanhanUrl]","/about/"&rsabout(0)&".html"),"[YanhanTitle]",rsabout("title"))
rsabout.movenext
loop
rsabout.close
set rsabout=nothing
str=replace(str,"addfnaddidEV3PROOFprobeZZ9机构设置党支部建设协会介绍章程条例联系我们",aboutlistmodel1)
end function
'栏目列表
function Columnlist(str,categoryid)
set rsmodel=conn.execute("select templetcontent from templets where id=2")
if not rsmodel.eof then
aboutlistmodel=rsmodel(0)
end if
rsmodel.close
set rsmodel=nothing
set rscumlun=conn.execute("select sortsid,sorts,model,categoryid from sorts where categoryid="&categoryid&" order by sortsorder")
do while not rscumlun.eof
aboutlistmodel1=aboutlistmodel1&replace(replace(aboutlistmodel,"[YanhanUrl]",replace(replace(rscumlun(2),"/templets",""),".html",".asp")&"?bigclassid="&rscumlun("categoryid")&"&classid="&rscumlun(0)),"[YanhanTitle]",rscumlun("sorts"))
rscumlun.movenext
loop
rscumlun.close
set rscumlun=nothing
str=replace(str,"协会信息通知通告行业信息协会党支部活动ZZSUB144257",aboutlistmodel1)
end function
'文章表表替换
function newlist(str,classid,num)
CommonNewLable=""
set rslabel=conn.execute("select top "&num&" id, [name],categoryid from product2 where categoryid="&classid&" order by topid desc,id desc")
do while not rslabel.eof
CommonNewLable=CommonNewLable&"·"&left(rslabel("name"),30)&""
rslabel.movenext
loop
rslabel.close
set rslabel=nothing
str=replace(str,"·桂林山水高尔夫球场简介·桂林乐满地高尔夫俱乐部·柳州卧龙湖高尔夫俱乐部·凤凰河高尔夫俱乐部·嘉和城温泉高尔夫球会·三千海温泉高尔夫俱乐部·广西梧州市桂茵度假村·南宁青秀山国际高尔夫球会",CommonNewLable)
end function
%>