📄 admin_news_to_html.asp
字号:
create_html_file=""
exit function '2006-9-22日--改为退出函数。防止批量因出错而中止后面的新闻生成。
end if
'结束判断模板的ID号是否为空。
'如果lm中有模板有设置，但是newsmb中没有存在这个模板ID时，则退出，不生成静态文件。
news_mb_sql = "select * from newsmb where id="&clng(lm_mb)
Set news_mb_rs = Server.CreateObject("ADODB.RecordSet")
news_mb_rs.Open news_mb_sql,conn,1,1
'不存在模板时，则不能生成静态网页，并退出。
if news_mb_rs.recordcount=0 then
news_mb_rs.close
set news_mb_rs=nothing
rs.close
set rs=nothing
'2006-9-22修改，修正因模板错误而不中断运行批量生成程序。
response.write "<font color="&lm_color&">["&lm_name&"]</font> <a href='news_view.asp?newsid="&news_id&"' target='_blank'><font color='"&titlecolor&"'>"&title&"</a>，<font color='red'>静态网页创建失败,原因是：栏目["&lm_name&"]的模板[mb="&lm_mb&"]不存在，请设置正确的模板!</font><BR>"
create_html_file=""
exit function '2006-9-22日--改为退出函数。防止批量因出错而中止后面的新闻生成。
else
dim fddh '08_09_01 增加$$浮动导航$$标签
if config("fddh") =0 then
fddh_x=config("fddh_x")
fddh_y=config("fddh_y")
fddh_body=config("fddh_body")
fddh="<SCRIPT FOR=window EVENT=onload LANGUAGE=""javascript"">initAd();</SCRIPT>"
fddh=fddh&"<script language=""javascript"">function initAd() {" & vbcrlf
fddh=fddh&" document.all.AdLayer.style.posTop = -250;" & vbcrlf
fddh=fddh&" document.all.AdLayer.style.visibility = 'visible'" & vbcrlf
fddh=fddh& " MoveLayer('AdLayer');}" & vbcrlf
fddh=fddh& " function MoveLayer(layerName) {" & vbcrlf
fddh=fddh&" var x = "& fddh_x &";" & vbcrlf
fddh=fddh&" var y = "& fddh_y &";" & vbcrlf
fddh=fddh&" var diff = (document.body.scrollTop + y - document.all.AdLayer.style.posTop)*.40;" & vbcrlf
fddh=fddh&" var y = document.body.scrollTop + y - diff;" & vbcrlf
fddh=fddh&" eval(""document.all."" + layerName + "".style.posTop = y"");" & vbcrlf
fddh=fddh&" eval(""document.all."" + layerName + "".style.posLeft = x"");" & vbcrlf
fddh=fddh&" setTimeout(""MoveLayer('AdLayer');"", 10);}" & vbcrlf
fddh=fddh&" </script>" & vbcrlf
fddh=fddh&"<div id=AdLayer style='position:absolute; width:61px; height:59px; z-index:20; visibility:hidden;; left: "& fddh_x&"'>"& fddh_body &"</div>"
else
fddh=""
end if
dim digg
digg="<SCRIPT src="""&root_path&"Include/digg/ArtDigg.js"" type=text/javascript></SCRIPT>"
digg=digg&"<SCRIPT src="""&root_path&"Include/digg/prototype.js"" type=text/javascript></SCRIPT>"
digg=digg&"<DIV class=endPageVote ><UL><LI>"
digg=digg&"<div class=diggArea>"& vbcrlf
digg=digg&"<div id=Art_ding"&news_id&" class=diggNum><SCRIPT language=javascript src="""&root_path&"Include/digg/digg.asp?id="&news_id&"&post=diggshow""></SCRIPT></div>"& vbcrlf
digg=digg&"<div id=diggact"&news_id&" class=diggLink><a onclick=""javascript:Digg("&news_id&",'"&root_path&"');"" href=""javascript:void(0);"">顶一下</a></div>"& vbcrlf
digg=digg&"</div>"& vbcrlf
digg=digg&"</LI><LI>" & vbcrlf
digg=digg&"<div class=diggArea>"& vbcrlf
digg=digg&"<div id=Art_down"&news_id&" class=diggNum><SCRIPT language=javascript src="""&root_path&"Include/digg/digg.asp?id="&news_id&"&post=downshow""></SCRIPT></div>"& vbcrlf
digg=digg&"<div id=downact"&news_id&" class=diggLink><a onclick=""javascript:down("&news_id&",'"&root_path&"');"" href=""javascript:void(0);"">踩一脚</a></div>"& vbcrlf
digg=digg&"</div>"& vbcrlf
digg=digg&"</LI><LI>" & vbcrlf
digg=digg&"<div class=diggArea>"& vbcrlf
digg=digg&"<div class=diggimg><a href="""&root_path&""" target=_self><img src="""&root_path&"images/end_n_i4.gif"" alt=返回首页 width=""12"" height=""13"" border=""0""align=""absmiddle"" ></a></div>"& vbcrlf
digg=digg&"<div class=diggLink><a href="""&root_path&""" target=_self>返回首页</a></div>"& vbcrlf
digg=digg&"</div>"& vbcrlf
digg=digg&"</LI></UL></DIV>"
dim NewsPurview:NewsPurview="<script language=""javascript"" src="""&root_path&"js_news_read.asp?news_id="&news_id&"&lm_id="&lm_id&"&news_Pay="&news_Pay&"""></script>"
title="<font color="&rs("titlecolor")&">"&title&"</font>"
webtitle=rs("title")
htitle=trim(rs("htitle"))
if htitle="" then htitle=" "
piczz=trim(rs("piczz")) '2007_12_28 增加一个图片来源
if piczz="" then piczz="不详"
updown=news_mb_rs("updown")
nr=NewsPurview&news_mb_rs("mid")
Comment=news_mb_rs("pl")
plfb=news_mb_rs("plfb")
Set rs4 = Server.CreateObject("ADODB.RecordSet") '廖2008-6-1新增，页头页尾调用开始
rs4.Open "select * from [config]",conn,1,1
if rs4.recordcount<>0 then
top=rs4("top")
down=rs4("down")
nr=replace(nr,"$$通用页头$$",top)
nr=replace(nr,"$$通用页尾$$",down)
rs4.close
set rs4=nothing
end if '廖2008-6-1新增，页头页尾调用结束
nr=replace(nr,"$$浮动导航$$",fddh) '08_09_01 增加$$浮动导航$$标签
nr=replace(nr,"$$Digg$$",digg)
nr=replace(nr,"$$页标题$$",webtitle)
nr=replace(nr,"$$标题$$",title)
nr=replace(nr,"$$副标题$$",htitle)
nr=replace(nr,"$$栏目名$$",lm_name)
nr=replace(nr,"$$时间$$",rs("time"))
nr=replace(nr,"$$来源$$",rs("zz"))
nr=replace(nr,"$$图片来源$$",piczz) '2007_12_28 增加一个图片来源
nr=replace(nr,"$$编辑$$",rs("adduser")) '豪-2006-9-16-增加一个编辑
nr=replace(nr,"$$网站目录$$",root_path) '豪-2006-10-23-增加一个网站目录，代替绝对路径。方便网站的转移时，不必再修改模板
nr=replace(nr,"$$NEWSID$$",newsid) '2。5版的newsid标签。
nr=replace(nr,"$$网站名$$",setting("sitename"))
nr=replace(nr,"$$网站描述$$",ClassDescription)
nr=replace(nr,"$$关键字$$",ClassKeywords)
nr=replace(nr,"$$版权信息$$",setting("sitecr"))
if Instr(nr,"$$路径$$")>0 then
uuu_path="<script language=""javascript"" src="""&root_path&"js_news_lmpath.asp?news_id="&news_id&"""></script>"
nr=replace(nr,"$$路径$$",uuu_path)
end if
if Instr(nr,"$$访问量$$")>0 then
out_hit="<script language=""javascript"" src="""&root_path&"js_news_hit.asp?action=1&news_id="&news_id&"""></script>"
nr=replace(nr,"$$访问量$$",out_hit)
end if
if Instr(nr,"$$上下条$$")>0 then
uuu="<script language=""javascript"" src="""&root_path&"js_news_updown.asp?news_id="&news_id&"&lm_id="&lm_id&"""></script>"
nr=replace(nr,"$$上下条$$",uuu)
end if
news_mb_rs.close
set news_mb_rs=nothing
end if
'结束步骤二.
'步骤四:取出文章的内容,并根据是否有分页符进行内容截取,并生成若个的静态文件.
if config("NewsWordKeyon")=1 then '080917___Art增加新闻内容关键字搜索功能
NewsWordKey=","&config("NewsWordKey")&","
aabb=split(NewsWordKey,",")
for jjj=0 to ubound(aabb)
content=replace(content,aabb(jjj),"<a target=_blank title='查看更多' href="&root_path&"so/?word="&aabb(jjj)&"><u>"&aabb(jjj)&"</u></a>")
next
end if
'080705___Art增加自动分页功能
IF PaginationType=1 Then '判断分页类型
Content=SplitNewsPage(Content,MaxCharPerPage) '自动分页函数
End IF
'自动分页功能增加结束
if right(content,len(nextpage_string))=nextpage_string then content=left(content,len(content)-len(nextpage_string)) '去掉最后一个分页符.防止一个人无意在最后加一个分页符.导至下面数组出错
if content<>"" then
array_content=split(content,nextpage_string)
else
array_content=split(content&" ",nextpage_string)
end if
max_page_numbers=ubound(array_content)
if max_page_numbers=0 then only_one_page="yes"
'取出本文章有多少页
for page=0 to max_page_numbers 'n_html--表示第几个页面。
content=array_content(page)
if max_page_numbers>0 then '只有一页时,不显示分页状态条.
content=content&"<Div class=Pagetype>"
select case page_Css
case "1"
content=content&"<DIV class=Pagetype1><TABLE align=right><tr><td>"
content=content&"共["&max_page_numbers+1&"]页："
for p=0 to max_page_numbers
if p=0 then
content=content&" <a href=""@@静态文件@@.@@扩展名@@"">[第"&p+1&"页]</a> "
else
content=content&" <a href=""@@静态文件@@_"&p&".@@扩展名@@"">[第"&p+1&"页]</a> "
end if
next
content=content&"</td></tr></TABLE></Div>"
case "2"
content=content&"<DIV class=Pagetype2><TABLE align=right><tr><td>"
content=content&"第<font color='red'>["&page+1&"]</font>页 "
'显示第一页
if page=0 then
content=content&" <a href=""@@静态文件@@_"&(page+1)&".@@扩展名@@"">下一页>></a> "
end if
'显示上一页及下一页
if page<>0 and page<>max_page_numbers then
'显示上一页及首页
if page=1 then
content=content&" <a href=""@@静态文件@@.@@扩展名@@"">首页</a> "
else
content=content&" <a href=""@@静态文件@@_"&(page-1)&".@@扩展名@@"">上一页</a> "
end if
'显示下页及尾页
if page=max_page_numbers-1 then
content=content&" <a href=""@@静态文件@@_"&(page+1)&".@@扩展名@@"">[尾页]</a> "
else
content=content&" <a href=""@@静态文件@@_"&(page+1)&".@@扩展名@@"">下一页</a> "
end if
end if
'结束显示上一页及下一页
'显示最后一页
if page=max_page_numbers then
if page=1 then
content=content&" <a href=""@@静态文件@@.@@扩展名@@""><<首页</a> "
else
content=content&" <a href=""@@静态文件@@_"&(page-1)&".@@扩展名@@""><<上一页</a> "
end if
end if
'显示总页数
content=content&"共["&max_page_numbers+1&"]页"
content=content&"</td></tr></TABLE></Div>"
case "3"
content=content&"<DIV class=Pagetype3><TABLE align=right><tr><td>"
If Page=0 Then
Content=Content&"<SPAN class=""s3"">上一页</SPAN>"
ElseIf Page=1 Then
Content=Content&"<a href=""@@静态文件@@.@@扩展名@@"" title=""上一页"" class=s1>上一页</a>"
Else
Content=Content&"<a href=""@@静态文件@@_"&(page-1)&".@@扩展名@@"" title=""上一页"" class=s1>上一页</a>"
End If
startpage=0:n=0
if (Page>=10) then startpage=(Page\10-1)*10+Page mod 10+2
For J=startpage To max_page_numbers
If J= Page Then
Content=Content&"<a href=""#"" class=s2 >"& cstr(J+1) &"</a>"
Else
if J=0 then
content=content&"<a href=""@@静态文件@@.@@扩展名@@"">" & (J+1) & "</a>"
else
Content=Content&"<a href=""@@静态文件@@_"&(J)&".@@扩展名@@"">" & (J+1) & "</a>"
end if
End If
n=n+1
if n>10 Then Exit For
Next
If Page=max_page_numbers Then
Content=Content&"<SPAN class=s3>下一页</SPAN> "
Else
Content=Content&"<a href=""@@静态文件@@_"&(page+1)&".@@扩展名@@"" title=""下一页"" class=s1>下一页</a>"
End If
content=content&"</td></tr></TABLE></Div>"
case "4"
content=content&"<DIV class=Pagetype4><TABLE align=right><tr><td>"
If Page=0 Then
Content=Content& "<font face=webdings>9</font> <font face=webdings>7</font>"
ElseIf Page=1 Then
Content=Content& "<a href=""@@静态文件@@.@@扩展名@@"" title=""首页""><font face=webdings>9</font></a> <a href=""@@静态文件@@.@@扩展名@@"" title=""上一页""><font face=webdings>7</font></a>"
Else
Content=Content& "<a href=""@@静态文件@@.@@扩展名@@"" title=""首页""><font face=webdings>9</font></a> <a href=""@@静态文件@@_"&(page-1)&".@@扩展名@@"" title=""上一页""><font face=webdings>7</font></a> "
End If
startpage=0:n=0
if (Page>=10) then startpage=(Page\10-1)*10+Page mod 10+2
For J=startpage To max_page_numbers
If J= Page Then
Content=Content&" <a href=""#"" >"& cstr(J+1) &"</a>"
Else
if J=0 then
content=content&" <a href=""@@静态文件@@.@@扩展名@@"">" & (J+1) & "</a>"
else
Content=Content&" <a href=""@@静态文件@@_"&(J)&".@@扩展名@@"">" & (J+1) & "</a>"
end if
End If
n=n+1
if n>10 Then Exit For
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -