📄 cls.content.asp
字号:
<%
Class Cls_Page
'p
Private pRs,pRso,pI
Dim pDir,pAreaID,pQQ,pPic,pTags,pTag,pAreaName,pBigUrl,pSmallUrl,pClassName
Dim pParentPath,pBigDir,pSmallDir,pSearchByOrher,ClassUrl,pContent
Private Sub Class_Initialize()
Set pRs = Server.CreateObject("ADODB.Recordset")
Call WRMPS.FsoBegin()
End Sub
Private Sub Class_Terminate()
Call WRMPS.FsoEnd()
Set pRso = Nothing
Set pRs = Nothing
End Sub
'信息内容页获取
Function PageClassShow(pID)
pRs.Open "select A.WM_Title,A.WM_PostTime,A.WM_Content,A.WM_ClassID,A.WM_DB10T,A.WM_AreaID,A.WM_Post,A.WM_Contact,A.WM_Tel,A.WM_QQ,A.WM_AddRess,A.WM_IP,A.WM_EndTime,A.WM_PostType,A.WM_Pic,A.WM_Email,A.WM_ClassDir,A.WM_Tag,A.WM_DB1,A.WM_DB2,A.WM_DB3,A.WM_DB4,A.WM_DB5,A.WM_DB6,A.WM_DB7,A.WM_DB8,A.WM_DB9,A.WM_DB10,A.WM_DB1T,A.WM_DB2T,A.WM_DB3T,A.WM_DB4T,A.WM_DB5T,A.WM_DB6T,A.WM_DB7T,A.WM_DB8T,A.WM_DB9T,B.WM_Name,B.WM_ParentPath,A.WM_ComID,A.WM_TempID,A.WM_Full from WM_ClassAD A Inner Join WM_ClassSort B on A.WM_ClassID = B.WM_ID where A.WM_id="&pID,Conn,1,1
ID=pID
pDir = pRs(16)
ClassID = pRs(3)
pAreaID = pRs(5)
If pRs(41) > 0 Then PageClassShow = WRTemp.SiteTemplates(1,0,70,2) Else PageClassShow = WRTemp.SiteTemplates(1,pRs(40),17,2)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$ID}",pID)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Title}",pRs(0))
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Time}",pRs(1))
pContent = pRs(2)
pContent = WRMPS.CheckStr(pContent,10)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Content}",pContent)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Post}",WRUser.DispUser(0,pRs(6)))
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$LinkMan}",pRs(7))
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IP}",pRs(11))
pQQ = pRs(9)
If Int(WR_UpLoad(41)) > 0 Then
If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C1")&".gif") Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$EmailSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C1")&".gif border=0 align=absmiddle>")
If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C2")&".gif") Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$TelSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C2")&".gif border=0 align=absmiddle>")
If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C3")&".gif") Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$QQSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C3")&".gif border=0 align=absmiddle>")
If WRMPS.FsoIsTrue("File",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C4")&".gif") Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$AddressSign}","<img src="&WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/C/"&pID&"/"&MD5(0,pID&"C4")&".gif border=0 align=absmiddle>")
End If
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$EmailSign}","{$Email}")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$TelSign}","{$Tel}")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$QQSign}","{$QQ}")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$AddressSign}","{$Address}")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Email}",pRs(15))
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Tel}",pRs(8))
If pQQ <> "" Then pQQ = "<a target=blank href=tencent://message/?uin="&pQQ&"&Site="&WR_Setting(0)&"&Menu=yes>"&pQQ&"</a>"
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$QQ}",pQQ)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Address}",pRs(10))
EndTime = Cdate(pRs(12))
If EndTime <> "" Then If EndTime < Now() Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IsOver}","<div style='position:absolute;z-index:100;text-align:center;padding:30px;'><img src="&WR_Setting(3)&"images/btt.gif></div>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IsOver}","")
pPic = pRs(14)
If pPic <> "" Then pPic = "<table class=classPic><tr><td><a target=_blank href='"&pPic&"'><img src='"&pPic&"' border=0 onload=""javascript:DrawImage(this,160,160);""></a></td></tr></table>"
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Pic}",pPic)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Hit}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Hit'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Re}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",reNum'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Commend}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Commend'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$SortErr}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",SortErr'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Trash}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Trash'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Agency}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Agency'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$UserData}",WRUser.UserData(pRs(6)))
If pRs(39) > 0 Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$CompanyData}","<script language=javascript src='"&WR_Setting(3)&"Company/Company.asp?ID="&pRs(39)&"'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$CompanyData}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$NewRe}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",reShow'></script>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Collection}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Class.asp?"&ID&",Collection'></script>")
If Instr(PageClassShow,"{$IDCode}") > 0 Then
If WRMPS.CheckCode("Re",1) Then
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IDCode}","")
Else
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IDCode}"," style=""display:none""")
End If
End If
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$IsIDCode}",WRMPS.CheckCode("Re",1))
pTags = ""
If Instr(PageClassShow,"{$Tags}") > 0 Then
pTag = pRs(17)
If pTag <> "" and IsNUll(pTag) = False Then
pTag = Split(pTag,",")
For pi=0 To UBound(pTag)
If pTag(pi) <> "" Then
If pTags = "" Then
pTags = "<a href="&WR_Setting(3)&"Search/C?Key="&escape(pTag(pi))&" target=_blank>"&pTag(pi)&"</a>"
Else
pTags = pTags&",<a href="&WR_Setting(3)&"Search/C?Key="&escape(pTag(pi))&" target=_blank>"&pTag(pi)&"</a>"
End If
End If
Next
Else
pTags = ""
End If
End If
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Tags}",pTags)
If pRs(28) <> "" and IsNull(pRs(28)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB1}",pRs(28)&pRs(18)&"<br>")
If pRs(29) <> "" and IsNull(pRs(29)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB2}",pRs(29)&pRs(19)&"<br>")
If pRs(30) <> "" and IsNull(pRs(30)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB3}",pRs(30)&pRs(20)&"<br>")
If pRs(31) <> "" and IsNull(pRs(31)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB4}",pRs(31)&pRs(21)&"<br>")
If pRs(32) <> "" and IsNull(pRs(32)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB5}",pRs(32)&pRs(22)&"<br>")
If pRs(33) <> "" and IsNull(pRs(33)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB6}",pRs(33)&pRs(23)&"<br>")
If pRs(34) <> "" and IsNull(pRs(34)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB7}",pRs(34)&pRs(24)&"<br>")
If pRs(35) <> "" and IsNull(pRs(35)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB8}",pRs(35)&pRs(25)&"<br>")
If pRs(36) <> "" and IsNull(pRs(36)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB9}",pRs(36)&pRs(26)&"<br>")
If pRs(4) <> "" and IsNull(pRs(4)) = False Then PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB10}",pRs(4)&pRs(27)&"<br>")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB1}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB2}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB3}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB4}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB5}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB6}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB7}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB8}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB9}","")
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$DB10}","")
UrlPath = WR_Setting(4)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$Url}",WRMPS.GetShowUrl(1,1,0,ID,pRs(1),ChannelDir&"/"&pRs(16),ChannelID))
pClassName=pRs(37)
pParentPath=pRs(38)
pRs.Close
pAreaName=WRDB.GetClassName("WM_Area",pAreaID)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$ClassName}",pClassName)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$ClassID}",ClassID)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$AreaName}",pAreaName)
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$AreaID}",pAreaID)
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
If Instr(pParentPath,",") Then
pParentPath = Right(pParentPath,Len(pParentPath)-2)
For i = 0 To UBound(Split(pParentPath,","))
If Split(pParentPath,",")(i) <> "" Then
Set pRso = Conn.Execute("Select WM_Name,WM_ID,WM_ParentDir,WM_Dir From WM_ClassSort where WM_ID="&Int(Split(pParentPath,",")(i)))
If Not pRso.Eof Then
SitePath = SitePath & ",<a href="&WRMPS.GetClassUrl(0,1,1,ChannelDir&pRso(2)&pRso(3),pRso(1))&">"&pRso(0)&"</a>"
End If
pRso.Close
End If
Next
End If
ClassUrl = WRMPS.GetClassUrl(0,1,1,ChannelDir&pDir,ClassID)
SitePath = SitePath & ",<a href="&ClassUrl&">"&pClassName&"</a>"
PageClassShow = WRMPS.GetReplace(PageClassShow,"{$ClassUrl}",ClassUrl)
SitePath = WRMPS.GetSitePath(pAreaID,SitePath)
PageClassShow = WRTemp.SiteChannel(PageClassShow)
PageClassShow = WRTemp.SiteLabel(PageClassShow)
End Function
'分类信息首页
Function PageClassIndex()
SitePath = ",<a href="&WR_Setting(3)&ChannelDir&"/>"&ChannelName&"</a>"
SitePath = WRMPS.GetSitePath(0,SitePath)
PageClassIndex = WRTemp.SiteTemplates(1,0,14,ChannelID)
PageClassIndex = WRTemp.SiteChannel(PageClassIndex)
PageClassIndex = WRTemp.SiteLabel(PageClassIndex)
End Function
'###############################################################################################
'文章内容页获取
'pType 1为获取分页数
'pPageNum 当前为第几页
'pCre 0为不生成，1为生成
Function PageArticleShow(pID,pPageNum,pType,pCre)
Dim pParentPath,pPrevArticle,pNextArticle
ID=pID
ClassID = "":ClassName = "":pParentPath = ""
If pPageNum = "" Then pPageNum = 1
pRs.Open "select A.WM_Title,A.WM_TitleIntact,A.WM_Synopsis,A.WM_Content,A.WM_Author,A.WM_CopyFrom,A.WM_Editor,A.WM_AddTime,A.WM_MaxCharPerPage,A.WM_PageNext,A.WM_Grade,A.WM_ClassID,A.WM_ClassDir,B.WM_Name,B.WM_ParentPath,A.WM_LinkUrl,A.WM_Keyword,A.WM_TempID From WM_Article A Inner Join WM_ArticleSort B on A.WM_ClassID = B.WM_ID where A.WM_id="&pID,Conn,1,1
ClassID = pRs(11)
PageArticleShow = WRTemp.SiteTemplates(1,pRs(17),24,ChannelID)
If pRs(15) = "" or IsNull(pRs(15)) Then
Select Case pType
Case 0
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleTitle}",pRs(0))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleSubheading}",pRs(1))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleIntro}",pRs(2))
Select Case pCre
Case 0
pContent = WRMPS.ContentPageNext("",pPageNum,pRs(3),pRs(9),pRs(8),pID)
Case 1
pContent = WRMPS.ContentPageNext(WRMPS.GetShowUrl(0,1,0,pID,pRs(7),ChannelDir&pRs(12),ChannelID),pPageNum,pRs(3),pRs(9),pRs(8),pID)
End Select
pContent = WRMPS.CheckStr(pContent,10)
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleContent}",pContent)
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Hit}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Article.asp?"&pID&",Hit'></script>")
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Re}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Article.asp?"&pID&",reNum'></script>")
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$NewRe}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Article.asp?"&pID&",reShow'></script>")
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Collection}","<script language='JavaScript' src='{$InstallDir}Inc/WM.Article.asp?"&pID&",Collection'></script>")
If Instr(PageArticleShow,"{$IDCode}") > 0 Then
If WRMPS.CheckCode("Re",1) Then
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$IDCode}","")
Else
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$IDCode}"," style=""display:none""")
End If
End If
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$IsIDCode}",WRMPS.CheckCode("Re",1))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$ArticleID}",pID)
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$Author}",pRs(4))
PageArticleShow = WRMPS.GetReplace(PageArticleShow,"{$CopyFrom}",pRs(5))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -