📄 cl_clspage.asp
字号:
<%
Class Cls_PageData
Public Sub Web_Index()
Cl.Path = Cl.LanguageNode("//CurrentPath") & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> >> " & Cl.ChannelName
Call Template.Load(0,1)
TempStr = Template.Html
End Sub
'mjtd Begin
Public Sub Web_Special()
Call Special_Setting()
Dim sModuleID
PageSize=Cl.ChannelOtherSetting(4)
Cl.Path=CurrentPath & " >> 专题 "&SpecialName&" 列表"
Cl.Title=""&SpecialName&" 专题列表--" & "[" & Cl.Web_info(1) & "]"
if SpecialID>0 then ChannelID=CLng(Application(Cl.CacheName&"_speciallist").documentElement.selectSingleNode("special[@specialid="&SpecialID&"]/@channelid").text)
if ChannelID>0 then
FileName=Cl.WebDir & Application(Cl.CacheName&"_channellist").documentElement.selectSingleNode("channel[@channelid="&ChannelID&"]/@channeldir").text&"/ShowSpecial.asp?SpecialID=" & SpecialID
sModuleID=Application(Cl.CacheName&"_channellist").documentElement.selectSingleNode("channel[@channelid="&ChannelID&"]/@moduleid").text
Template.TemplateID = SpecialStyleID
Call Template.Load(sModuleID,7)
else
sModuleID=0
Template.TemplateID = SpecialStyleID
Call Template.Load(0,7)
end if
TempStr = Template.Html(0)
TempStr = Template.ReplaceSuperSpecialLoop(TempStr)
TempStr = Template.ReplaceInfoLoop(sModuleID,TempStr,0,"and SpecialID like (',"&SpecialID&",')")
TempStr= Replace(TempStr,"{$speciallinkurl}",FileName)
End Sub
'mjtd End
Rem 文章模块 ================================
Public Sub Article_Index()
PageSize = Cl.ChannelOtherSetting(9)
Cl.Path = CurrentPath & " >> 首页"
If CLng(Cl.Channel.selectSingleNode("@index_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@index_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@index_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@index_cssid").text)
End if
if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 and Cl.Web_Info(15) = "1" Then
Rem 定时生成首页（待测试）
Dim CurrentHour,IndexFileUrlStr
CurrentHour = Hour(Now())
IndexFileUrlStr = Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt
If InStr(","&Cl.Web_Info(17)&",",","&CurrentHour&",")>0 Then
Cl.Name="CreateIndex"
If InStr(","&Cl.value&",",","&ChannelID&"_"&CurrentHour&",")=0 Then
Call Template.Load(1,1)
TempStr = Template.Html
TempStr = Template.ReplaceAllFlag(TempStr)
Call Cl.MakeHtml(TempStr,IndexFileUrlStr)
Cl.Name = "CreateIndex"
Cl.Value= Cl.Value & ","&ChannelID&"_" & CurrentHour
End If
End If
Response.redirect(IndexFileUrlStr)
Response.end
End if
Call Template.Load(1,1)
TempStr = Template.Html
End Sub
Public Sub Article_Class()
PageSize = Cl.ChannelOtherSetting(3)
Cl.Path = CurrentPath
if ClassID>0 then
if Not Cl.TrueBrowsePurview and CreateHtmlIng=False then Call Cl.OutErr(0,Cl.Language.selectSingleNode("//ClassNoPurview").text)
Cl.Title= ClassName & "--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
end If
FileName="ShowClass.asp?ClassID=" & ClassID
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@class_templateid").text)
If CLng(ClassTemplateID)>0 Then Template.TemplateID = ClassTemplateID
Call Template.Load(1,2)
TempStr = Template.Html
TempStr = Template.ReplaceInfoLoop(1,TempStr,0,"")
End Sub
Public Sub Article_Elite()
PageSize = Cl.ChannelOtherSetting(6)
Cl.Path = CurrentPath & " >> 推荐列表"
Cl.Title = "推荐列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
FileName = "ShowElite.asp?ClassID=" & ClassID
If CLng(Cl.Channel.selectSingleNode("@elite_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@elite_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@elite_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@elite_cssid").text)
End if
Call Template.Load(1,3)
TempStr = Template.Html
TempStr = Template.ReplaceInfoLoop(1,TempStr,0,"and Elite="&TrueType)
End Sub
Public Sub Article_Hot()
PageSize=Cl.ChannelOtherSetting(7)
Cl.Path=CurrentPath & " >> 热门列表"
Cl.Title="热门列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
FileName="ShowHot.asp?ClassID=" & ClassID
If CLng(Cl.Channel.selectSingleNode("@hot_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@hot_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@hot_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@hot_cssid").text)
End if
Call Template.Load(1,4)
TempStr = Template.Html
TempStr = Template.ReplaceInfoLoop(1,TempStr,0,"and Hot="&TrueType)
End Sub
Public Sub Article_Update()
PageSize=Cl.ChannelOtherSetting(5)
Cl.Path=CurrentPath & " >> 更新列表"
Cl.Title="更新列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
FileName="ShowUpdate.asp?ClassID=" & ClassID
If CLng(Cl.Channel.selectSingleNode("@update_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@update_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@update_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@update_cssid").text)
End if
Call Template.Load(1,5)
TempStr = Template.Html
TempStr = Template.ReplaceInfoLoop(1,TempStr,0,"")
End Sub
Public Sub Article_Search()
PageSize=Cl.ChannelOtherSetting(8)
Cl.Path=CurrentPath & " >> 搜索结果"
Cl.Title="搜索结果--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
FileName="ShowSearch.asp?Field=" & Field & "&Keyword=" & Keyword & "&ClassID=" & ClassID & "&SpecialID=" & SpecialID
Rem 搜索Begin
Dim KeywordTitle,TopNum,WhereStr
if Keyword="" then Call Cl.OutErr(0,"<p align='center'><br /><br />请输入关键字！</p>")
TopNum = Cl.GetClng(Request("TopNum"))
Keyword = Cl.ReplaceBadChar(Keyword&"")
KeywordTitle = "<font color=""#ff0033"">"&Keyword&"</font>"
Select Case LCase(Field)
Case "id"
KeywordTitle="ID号为 "&KeywordTitle
WhereStr = " and InfoID = "&Cl.GetClng(Keyword)&" "
Case "keyword"
KeywordTitle="关键字含有 "&KeywordTitle
WhereStr = " and Keyword like '%" & Keyword & "%' "
Case "intro"
KeywordTitle="简介含有 "&KeywordTitle
WhereStr = " and Content like '%" & Keyword & "%' "
Case "copyfrom"
KeywordTitle="来源含有 "&KeywordTitle
WhereStr = " and CopyFrom like '%" & Keyword & "%' "
Case "author"
KeywordTitle="作者含有 "&KeywordTitle
WhereStr = " and Author like '%" & Keyword & "%' "
Case "editor"
KeywordTitle=KeywordTitle & " 添加"
WhereStr = " and Editor='" & Keyword & "' "
Case "censor"
KeywordTitle=KeywordTitle & " 审核"
WhereStr = " and Censor='" & Keyword & "' "
Case "point"
KeywordTitle=""&Cl.Web_Setting(28)&"小于或等于 "&KeywordTitle
WhereStr = " and InfoPoint <= "&Cl.GetClng(Keyword)&" "
Case Else
KeywordTitle="标题含有 "&KeywordTitle
WhereStr = " and Title like '%" & Keyword & "%' "
End Select
KeywordTitle = KeywordTitle & " 的"&Cl.ChannelItemName
Rem 搜索End
If CLng(Cl.Channel.selectSingleNode("@search_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@search_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@search_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@search_cssid").text)
End if
Call Template.Load(1,6)
TempStr = Template.Html
TempStr = Replace(TempStr,"{$keywordtitle}",KeywordTitle)
TempStr = Template.ReplaceInfoLoop(1,TempStr,TopNum,WhereStr)
End Sub
Public Sub Article_Special()
Call Special_Setting()
PageSize=Cl.ChannelOtherSetting(4)
Cl.Path=CurrentPath & " >> 专题 "&SpecialName&" 列表"
Cl.Title="专题"&SpecialName&"列表--" & Cl.NoHtml(Cl.ChannelName) & " " & Cl.GotTopic(Cl.ChannelReadMe,50) & "[" & Cl.Web_info(1) & "]"
FileName="ShowSpecial.asp?SpecialID=" & SpecialID
If CLng(Cl.Channel.selectSingleNode("@special_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@special_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@special_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@special_cssid").text)
End if
Call Template.Load(1,7)
TempStr = Template.Html
TempStr = Template.ReplaceInfoLoop(1,TempStr,0,"and SpecialID like (',"&SpecialID&",')")
End Sub
Public Sub Article_Show()
Cl.Path=CurrentPath & " >> 正文"
Cl.Title=InfoTitle & "[" & Cl.Web_info(1) & "]"
if Not IsNull(rs("Intro")) then
Cl.DeScriptIon=InfoTitle & "[" & Replace(Left(Cl.NoHtml(rs("Intro")),150),VbCrlf,"") & "]"
else
Cl.DeScriptIon=InfoTitle & "、" & Cl.Web_info(3)
end if
Cl.Keywords=InfoTitle & "|" & rs("Keyword") & "|" & Cl.Web_Info(2)
Cl.Keywords=Replace(Cl.Keywords,"||","|")
FileName=InstallDir & Cl.ChannelDir & "/ShowInfo.asp"
If Rs("ProjectID")>0 Then
Template.ProjectID = Rs("ProjectID")
Template.TemplateID = Rs("TemplateID")
Template.CssID = Rs("CssID")
End if
Call Template.Load(1,8)
TempStr = Template.Html
TempStr = Template.ReplaceCl_Rs(TempStr)
TempStr = Cl.ReplaceField(TempStr)
If InStr(TempStr,"{$attribute}")>0 Then
Dim Attribute
if rs("OnTop") then Attribute="<font color='blue'>顶</font> "
if rs("Hot") then Attribute=Attribute & "<font color='#ff0033'>热</font> "
if rs("Elite") then Attribute=Attribute & "<font color='green'>荐</font>"
TempStr = Replace(TempStr,"{$attribute}",Attribute)
End If
If InStr(TempStr,"{$author}")>0 Then
Dim Author
Author = rs("Author")
if instr(Author,"|")>0 then
TempStr = Replace(TempStr,"{$author}","<a href=""mailto:" & right(Author,len(Author)-instr(Author,"|")) & """>" & left(Author,instr(Author,"|")-1) & "</a>")
else
TempStr = Replace(TempStr,"{$author}",Author)
end If
End If
If InStr(TempStr,"{$copyfrom}")>0 Then
Dim CopyFrom
CopyFrom = rs("CopyFrom")
if instr(CopyFrom,"|")>0 then
TempStr = Replace(TempStr,"{$copyfrom}","<a href=""" & right(CopyFrom,len(CopyFrom)-instr(CopyFrom,"|")) & """ target=""_blank"">" & left(CopyFrom,instr(CopyFrom,"|")-1) & "</a>")
else
TempStr = Replace(TempStr,"{$copyfrom}",CopyFrom)
end if
End If
If InStr(TempStr,"{$hits}")>0 Then
TempStr = Replace(TempStr,"{$hits}","<script type='text/JavaScript' Src='"&Cl.WebDir&"GetHits.asp?ChannelID="&ChannelID&"&InfoID="&rs("infoid")&"'></script>")
end If
If InStr(TempStr,"{$picurl}")>0 Then
if IsNull(rs("picurl")) or rs("picurl")="" then
TempStr = Replace(TempStr,"{$picurl}",InstallDir & "images/nopic.gif")
else
TempStr = Replace(TempStr,"{$picurl}",rs("picurl")&"")
end If
End If
If InStr(TempStr,"{$infogroup}")>0 Then
TempStr = Replace(TempStr,"{$infogroup}",Cl.GetUserGroupName(rs("InfoGroup")))
End If
If InStr(TempStr,"{$stars}")>0 Then
TempStr = Replace(TempStr,"{$stars}",Cl.Getstar(rs("Stars")))
End If
If InStr(TempStr,"{$intro}")>0 Then
TempStr = Replace(TempStr,"{$intro}",Cl.Ubbcode(rs("Intro")))
End If
Call Cl.UpdateInfoHits("Cl_Article",InfoID,rs("LastHitTime"))
End Sub
Rem =========================================
Rem 下载模块 ================================
Public Sub Soft_Index()
PageSize=Cl.ChannelOtherSetting(9)
Cl.Path=CurrentPath & " >> 首页"
If CLng(Cl.Channel.selectSingleNode("@index_projectid").text)>0 Then
Template.ProjectID = CLng(Cl.Channel.selectSingleNode("@index_projectid").text)
Template.TemplateID = CLng(Cl.Channel.selectSingleNode("@index_templateid").text)
Template.CssID = CLng(Cl.Channel.selectSingleNode("@index_cssid").text)
End if
if Clng(Cl.Channel.selectSingleNode("@iscreatehtml").text)=1 and Cl.Web_Info(15) = "1" Then
Rem 定时生成首页（待测试）
Dim CurrentHour,IndexFileUrlStr
CurrentHour = Hour(Now())
IndexFileUrlStr = Cl.WebDir & Cl.GetItemIndexPath(Cl.CreatePathType, Cl.HtmlDir, Cl.ChannelDir) & "Index." & Cl.CreateFileExt
If InStr(","&Cl.Web_Info(17)&",",","&CurrentHour&",")>0 Then
Cl.Name="CreateIndex"
If InStr(","&Cl.value&",",","&ChannelID&"_"&CurrentHour&",")=0 Then
Call Template.Load(2,1)
TempStr = Template.Html
TempStr = Template.ReplaceAllFlag(TempStr)
Call Cl.MakeHtml(TempStr,IndexFileUrlStr)
Cl.Name = "CreateIndex"
Cl.Value= Cl.Value & ","&ChannelID&"_" & CurrentHour
End If
End If
Response.redirect(IndexFileUrlStr)
Response.end
End if
Call Template.Load(2,1)
TempStr=Template.Html
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -