📄 cls.templates.asp
字号:
Case 1
Str = WRMPS.GetReplace(Str,"{$BriefnessIndexUrl}",WR_Setting(3)&"index_0/")
Str = WRMPS.GetReplace(Str,"{$BriefnessUrl}",WR_Setting(3)&"index_1/")
End Select
Randomize Timer
Str = WRMPS.GetReplace(Str,"{$RandomNum}",int(rnd*9998)+1000)
Str = WRMPS.GetReplace(Str,"{$MyCityID}",MyCityID)
Str = WRMPS.GetReplace(Str,"{$MyCity}",MyCity)
Str = WRMPS.GetReplace(Str,"{$P"&"o"&"w"&"e"&"r"&"e"&"d}","P"&"o"&"w"&"e"&"r"&"e"&"d B"&"y <a href='ht"&"tp:/"&"/w"&_
"w"&"w.wa"&"ng"&"r"&"en"&".n"&"e"&"t' target=_blank>W"&"R"&"M"&"P"&_
"S v"&SystemVersion&"</a> 20"&"06"&"-20"&"09 W"&"a"&"n"&"g"&"r"&"en I"&"nc"&".")
SiteLabel = Str
Str = Empty
End Function
'用户标签
Function SiteUser(Str)
Str = WRMPS.GetReplace(Str,"{$JsUserState}","<script language='JavaScript' src='"&UrlPath&"Inc/WM.User.asp?IsLog'></script>")
Str = WRMPS.GetReplace(Str,"{$UserLeast}",Split(WR_User(3),"|")(0))
Str = WRMPS.GetReplace(Str,"{$UserMost}",Split(WR_User(3),"|")(1))
Str = WRMPS.GetReplace(Str,"{$PassLeast}",Split(WR_User(4),"|")(0))
Str = WRMPS.GetReplace(Str,"{$PassMost}",Split(WR_User(4),"|")(1))
Str = WRMPS.GetReplace(Str,"{$User}",WRUser.DispUser(0,MemName))
Str = WRMPS.GetReplace(Str,"{$ComeUrl}",ComeUrl)
SiteUser = Str
Str = Empty
End Function
'通用频道标签
Public Function SiteChannel(Str)
If Str = "" or isnull(Str) Then Exit Function
Str = WRMPS.GetReplace(Str,"{$ChannelName}",ChannelName)
Str = WRMPS.GetReplace(Str,"{$ChannelID}",ChannelID)
Str = WRMPS.GetReplace(Str,"{$ChannelDir}",ChannelDir)
If ChannelLogo <> "" Then Str = WRMPS.GetReplace(Str,"{$SiteLogo}",ChannelLogo)
If MetaKey <> "" Then Str = WRMPS.GetReplace(Str,"{$Meta_Keywords}",MetaKey)
If MetaContent <> "" Then Str = WRMPS.GetReplace(Str,"{$Meta_Description}",MetaContent)
SiteChannel = Str
Str = Empty
End Function
'通用栏目标签
Function SiteClass(Str)
Str = WRMPS.GetReplace(Str,"{$ClassID}",ClassID)
Str = WRMPS.GetReplace(Str,"{$ClassName}",ClassName)
SiteClass = Str
Str = Empty
End Function
'取得广告页内容
Function CreateAdsJs(aSort,aType,aPic,aText,aUrl,aSize,aOpenType,aPlayType,aBegin,aEnd)
Dim AdsContent
AdsContent = "<"&"!"&"--"&"#"&"include file="&CHR(34)&"Main_Cls.asp"&CHR(34)&"--"&">"&CHR(10)
AdsContent = AdsContent &"<"&"%"&CHR(10)&"Dim aADUrl,aSort,aType,aPic,aText,aUrl,aSize,aOpenType,aPlayType,aBegin,aEnd"&CHR(10)
AdsContent = AdsContent &"aADUrl = "&CHR(34)&WR_Setting(3)&"Img/"&CHR(34)&CHR(10)
AdsContent = AdsContent &"aSort = "&aSort&CHR(10)
AdsContent = AdsContent &"aType = "&aType&CHR(10)
AdsContent = AdsContent &"aPic = "&CHR(34)&aPic&CHR(34)&CHR(10)
AdsContent = AdsContent &"aText = "&CHR(34)&aText&CHR(34)&CHR(10)
AdsContent = AdsContent &"aUrl = "&CHR(34)&aUrl&CHR(34)&CHR(10)
AdsContent = AdsContent &"aSize = "&CHR(34)&aSize&CHR(34)&CHR(10)
AdsContent = AdsContent &"aOpenType = "&CHR(34)&aOpenType&CHR(34)&CHR(10)
AdsContent = AdsContent &"aPlayType = "&aPlayType&CHR(10)
AdsContent = AdsContent &"aBegin = "&CHR(34)&aBegin&CHR(34)&CHR(10)
AdsContent = AdsContent &"aEnd = "&CHR(34)&aEnd&CHR(34)&CHR(10)&CHR(10)
AdsContent = AdsContent &"Call AdsShow(aADUrl,aSort,aType,aPic,aText,aUrl,aSize,aOpenType,aPlayType,aBegin,aEnd)"&CHR(10)
AdsContent = AdsContent &"%"&">"
CreateAdsJs = SiteLabel(AdsContent)
AdsContent = Empty
End Function
'取得代码广告页内容
Function CreateAdsCodeJs(aPlayType,aBegin,aEnd,aCode)
AdsContent = "<"&"%"&CHR(10)&"Dim aPlayType,aBegin,aEnd,aCode,DateKey"&CHR(10)
AdsContent = AdsContent &"aPlayType = "&aPlayType&CHR(10)
AdsContent = AdsContent &"aBegin = "&CHR(34)&aBegin&CHR(34)&CHR(10)
AdsContent = AdsContent &"aEnd = "&CHR(34)&aEnd&CHR(34)&CHR(10)&CHR(10)
AdsContent = AdsContent &"DateKey = 0"&CHR(10)
AdsContent = AdsContent &"If aPlayType = 2 Then"&CHR(10)
AdsContent = AdsContent &" If cDate(aBegin) <= Date() And cDate(aEnd) >= Date() Then DateKey = 1"&CHR(10)
AdsContent = AdsContent &"Else"&CHR(10)
AdsContent = AdsContent &" DateKey = 1"&CHR(10)
AdsContent = AdsContent &"End If"&CHR(10)
AdsContent = AdsContent &"If DateKey = 1 Then"&CHR(10)
AdsContent = AdsContent &"%"&">"&CHR(10)
aCode = WRMPS.ToJs(lcase(aCode))
aCode = WRMPS.GetReplace(aCode,"<script","<scr""+""ipt")
aCode = WRMPS.GetReplace(aCode,"<\/script>","<\/scr""+""ipt>")
AdsContent = AdsContent &aCode&CHR(10)
AdsContent = AdsContent &"<"&"%"&CHR(10)
AdsContent = AdsContent &"End If"&CHR(10)
AdsContent = AdsContent &"%"&">"
CreateAdsCodeJs = SiteLabel(AdsContent)
AdsContent = Empty
End Function
'取得幻灯广告内容
Function CreateAdsHDJs(aStr,byval id)
If aStr = "" Or isNUll(aStr) Then CreateAdsHDJs = "":Exit Function
tTemp = ""
aStr = WRMPS.CheckStr(aStr,5)
aStr = Split(aStr,"§§§")
CreateAdsHDJs = CreateAdsHDJs & "var roll_image"&id&" = new Array;" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "var image_link"&id&" = new Array;" & vbCrlf
tN = -1
For tI = 0 To UBound(Split(aStr(7),vbCrlf))
If IsNUll(Split(aStr(7),vbCrlf)(tI)) = False And Split(aStr(7),vbCrlf)(tI) <> "" Then
tN = tN + 1
CreateAdsHDJs = CreateAdsHDJs & "roll_image"&id&"["&tN&"] = '"&Split(Split(aStr(7),vbCrlf)(tI),"|")(1)&"';" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "image_link"&id&"["&tN&"] = '"&Split(Split(aStr(7),vbCrlf)(tI),"|")(0)&"';" & vbCrlf
End If
Next
CreateAdsHDJs = CreateAdsHDJs & "var cliNum"&id&" = "&tN&";" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "var interval"&id&" = "&aStr(4)&"000;" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "var setTime"&id&" = '';" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "var cliID"&id&";" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "function ckhd"&id&"(ad_n"&id&"){" & vbCrlf
If Int(aStr(0)) = 1 Then
CreateAdsHDJs = CreateAdsHDJs & " for(var ad_i"&id&"=0;ad_i"&id&"<=cliNum"&id&";ad_i"&id&"++){" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('ad_"&id&"'+ad_i"&id&").className = 'ad_button"&id&"';" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " }" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('ad_"&id&"'+ad_n"&id&").className = 'ad_button_1"&id&"';" & vbCrlf
End If
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('imglink"&id&"').href=image_link"&id&"[ad_n"&id&"];" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('bigimg"&id&"').src=roll_image"&id&"[ad_n"&id&"];" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " clearTimeout(setTime"&id&");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " setTime"&id&" = setTimeout('ro"&id&"('+ad_n"&id&"+')',interval"&id&");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "}" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "function ro"&id&"(ad_n"&id&"){" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " if(ad_n"&id&">cliNum"&id&"){ad_n"&id&"=0}" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " if(ad_n"&id&"<=0){cliID"&id&"=cliNum"&id&"}else{cliID"&id&" = ad_n"&id&"-1}" & vbCrlf
If Int(aStr(0)) = 1 Then
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('ad_"&id&"'+cliID"&id&").className = 'ad_button"&id&"';" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('ad_"&id&"'+ad_n"&id&").className = 'ad_button_1"&id&"';" & vbCrlf
End If
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('imglink"&id&"').href=image_link"&id&"[ad_n"&id&"];" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " document.getElementById('bigimg"&id&"').src=roll_image"&id&"[ad_n"&id&"];" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " ad_n"&id&" = ad_n"&id&"+1;" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & " setTime"&id&" = setTimeout('ro"&id&"('+ad_n"&id&"+')',interval"&id&");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "}" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write(""<style>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_pic"&id&"{width:"&aStr(5)&"px;height:"&aStr(6)&"px;border:0px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" ul{list-style:none;margin:0px;padding:0px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write(""#clearboth"&id&"{clear:both; visibility:hidden}"");" & vbCrlf
Select Case Int(aStr(1))
Case 1,2
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{padding:5px 0;background:#FFFFFF}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{float:left;text-align:center;cursor:pointer;FONT-FAMILY:Arial;margin:0 5px 0 0;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px;}"");" & vbCrlf
Case 3,4
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{padding:0 5px;background:#FFFFFF}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{text-align:center;cursor:pointer;margin:0 0 5px 0;FONT-FAMILY:Arial;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px;}"");" & vbCrlf
Case 5
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_Magic"&id&"{position:relative}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{position:absolute;top:10px;left:10px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{float:left;text-align:center;cursor:pointer;FONT-FAMILY:Arial;margin:0 5px 0 0;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px;}"");" & vbCrlf
Case 6
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_Magic"&id&"{position:relative}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{position:absolute;bottom:12px;right:8px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{float:left;text-align:center;cursor:pointer;FONT-FAMILY:Arial;margin:0 5px 0 0;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px;}"");" & vbCrlf
Case 7
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_Magic"&id&"{position:relative}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{position:absolute;top:10px;left:10px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{text-align:center;cursor:pointer;margin:0 0 5px 0;FONT-FAMILY:Arial;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px;}"");" & vbCrlf
Case 8
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_Magic"&id&"{position:relative}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&"{position:absolute;top:10px;right:10px}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_div"&id&" li{text-align:center;cursor:pointer;margin:0 0 5px 0;FONT-FAMILY:Arial;width:"&aStr(2)&"px;min-height:"&aStr(3)&"px}"");" & vbCrlf
End Select
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button"&id&"{"&WRMPS.Getreplace(aStr(8)," "," ")&"}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("".ad_button_1"&id&"{"&WRMPS.Getreplace(aStr(9)," "," ")&"}"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write(""</style>"");" & vbCrlf
If Int(aStr(0)) = 1 Then
tN = -1:tTemp=""
For tI = 0 To UBound(Split(aStr(7),vbCrlf))
If IsNUll(Split(aStr(7),vbCrlf)(tI)) = False And Split(aStr(7),vbCrlf)(tI) <> "" Then
tN = tN + 1
If tTemp <> "" Then
tTemp = tTemp & "<li id=ad_"&id&""&tN&" onMouseOver=ckhd"&id&"("&tN&") class=ad_button"&id&">"&tN+1&"</li>"
Else
tTemp = tTemp & "<li id=ad_"&id&""&tN&" onMouseOver=ckhd"&id&"("&tN&") class=ad_button_1"&id&">"&tN+1&"</li>"
End If
End If
Next
End If
tTemp = "<div class=ad_button_div"&id&"><ul>"& tTemp & "</ul><div id=clearboth></div></div>"
CreateAdsHDJs = CreateAdsHDJs & "document.write(""<TABLE cellSpacing=0 cellPadding=0 border=0>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TBODY>"");" & vbCrlf
Select Case Int(aStr(1))
Case 1
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD>"&tTemp&"</TD></TR>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD><A onfocus=this.blur() id=imglink"&id&" target=_blank><IMG id=bigimg"&id&" class=ad_pic"&id&"></A></TD></TR>"");" & vbCrlf
Case 2
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD><A onfocus=this.blur() id=imglink"&id&" target=_blank><IMG id=bigimg"&id&" class=ad_pic"&id&"></A></TD></TR>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD>"&tTemp&"</TD></TR>"");" & vbCrlf
Case 3
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD valign=top>"&tTemp&"</TD><TD><A onfocus=this.blur() id=imglink"&id&" target=_blank><IMG id=bigimg"&id&" class=ad_pic"&id&"></A></TD></TR>"");" & vbCrlf
Case 4
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD><A onfocus=this.blur() id=imglink"&id&" target=_blank><IMG id=bigimg"&id&" class=ad_pic"&id&"></A></TD><TD valign=top>"&tTemp&"</TD></TR>"");" & vbCrlf
Case 5,6,7,8
CreateAdsHDJs = CreateAdsHDJs & "document.write("" <TR><TD><div class=ad_Magic"&id&">"&tTemp&"<A onfocus=this.blur() id=imglink"&id&" target=_blank><IMG id=bigimg"&id&" class=ad_pic"&id&"></A></div></TD></TR>"");" & vbCrlf
End Select
CreateAdsHDJs = CreateAdsHDJs & "document.write("" </TBODY>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "document.write(""</TABLE>"");" & vbCrlf
CreateAdsHDJs = CreateAdsHDJs & "ro"&id&"(0);" & vbCrlf
End Function
End Class
Set WRTemp = New Cls_Temp
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -