📄 fnews.asp
字号:
tmp = Replace(tmp,"{$infos}",s)
Next
End If
OutNews Fixjs(tmp)
End Sub
Sub recallaffiche
Dim Rs,i,tmp,total,psize,formattime
total = HRF(2,2,"total")
psize = HRF(2,2,"psize")
formattime = HRF(2,2,"formattime")
Rs = team.Affiche
If IsArray(Rs) Then
For i = 0 To UBound(Rs,2)
If i =>total Then Exit For
tmp = tmp & Stringhtml(Team.HtmlNews (4))
tmp = Replace(tmp,"{$weburl}",WebUrl)
tmp = Replace(tmp,"{$Csslist}",team.Styleurl)
tmp = Replace(tmp,"{$fid}",RS(0,i))
tmp = Replace(tmp,"{$title}",Cutstr(RS(1,i),psize))
tmp = Replace(tmp,"{$infos}",FormatDateTime(RS(4,i),formattime))
Next
End If
OutNews Fixjs(tmp)
End Sub
Private Sub Main()
team.Headers(Team.Club_Class(1) & "- 论坛调用指南")
Echo "<form action=""?action=Next1"" method=""post""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td> 您好，欢迎管理论坛调用向导 －－ 》，请首先选择您需要的调用内容。然后点击下一步。</td></tr>"
Echo " <tr class=""tab3""><td><SELECT NAME=""NewsType""> "
Echo " <option value=""0"">选取调用类型</option>"
Echo " <option value=""1"">论坛参数调用</option>"
Echo " <option value=""2"">帖子调用</option>"
Echo " <option value=""3"">版块调用</option>"
Echo " <option value=""4"">会员调用</option>"
Echo " <option value=""5"">公告调用</option>"
Echo " </SELECT> </td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""下 一 步""></center></form>"
team.footer
End Sub
Private Sub Next1()
Dim NewsType
team.Headers(Team.Club_Class(1) & "- 论坛调用指南")
NewsType = HRF(1,2,"NewsType")
If NewsType = 0 Then
team.Error "请输入调用类型。"
End If
Select Case NewsType
Case "1"
Echo "<form action=""?action=Next2"" method=""post""><input type=""hidden"" name=""myjs"" value=""1""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td colspan=""2""> 论坛参数调用</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">标题长度：</td><td class=""altbg2""><input type=""text"" name=""psize"" size=""30"" value=""20""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">时间格式：</td><td class=""altbg2""> <select name=""formattime"" ID=""formatTime"">"
Echo " <option value=""0"" SELECTED>YYYY-M-D H:M:S(长格式)</option>"
Echo " <option value=""1"">YYYY年M月D</option>"
Echo " <option value=""2"">YYYY-M-D</option>"
Echo " <option value=""3"">H:M:S</option>"
Echo " <option value=""4"">hh:mm</option>"
Echo " </select> [服务器设置: "& Now &"] </td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""生成JS""></center></form>"
Case "2"
Echo "<form action=""?action=Next2"" method=""post""><input type=""hidden"" name=""myjs"" value=""2""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td colspan=""2""> 帖子调用</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">心情图标：</td><td class=""altbg2""> <input type=""radio"" name=""icon"" value=""1"" class=""radio"" CHECKED> 是 <input type=""radio"" name=""icon"" value=""0"" class=""radio""> 否</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">显示类型：</td><td class=""altbg2""> <input type=""radio"" name=""showtypes"" value=""1"" class=""radio"" CHECKED> 显示所有主题 <input type=""radio"" name=""showtypes"" value=""0"" class=""radio""> 只显示精华主题 </td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">显示版块名称：</td><td class=""altbg2""> <input type=""radio"" name=""showname"" value=""1"" class=""radio"" CHECKED> 是 <input type=""radio"" name=""showname"" value=""0"" class=""radio""> 否</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">排序方式：</td><td class=""altbg2""> <select name=""showorders"">"
Echo " <option value=""0"" SELECTED>默认最新排序(推荐使用)</option>"
Echo " <option value=""1"">按照时间(按发表时间)</option>"
Echo " <option value=""2"">按照时间(按回复时间)</option>"
Echo " <option value=""3"">按照点击数(最热帖)</option>"
Echo " <option value=""4"">按照回复数(最热帖)</option>"
Echo " </select> </td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">调用版面：</td><td class=""altbg2""> <select name=""showboards"">"
Echo " <option value=""0"" SELECTED>显示所有版块</option>"
Echo team.BBs_Value_List(0,0)
Echo " </select> </td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">标题长度：</td><td class=""altbg2""><input type=""text"" name=""psize"" size=""30"" value=""20""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">显示记录数：</td><td class=""altbg2""><input type=""text"" name=""total"" size=""30"" value=""10""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">时间格式：</td><td class=""altbg2""> <select name=""formattime"" ID=""formatTime"">"
Echo " <option value=""0"" SELECTED>YYYY-M-D H:M:S(长格式)</option>"
Echo " <option value=""1"">YYYY年M月D</option>"
Echo " <option value=""2"">YYYY-M-D</option>"
Echo " <option value=""3"">H:M:S</option>"
Echo " <option value=""4"">hh:mm</option>"
Echo " </select> [服务器设置: "& Now &"] </td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""生成JS""></center></form>"
Case "3"
Echo "<form action=""?action=Next2"" method=""post""><input type=""hidden"" name=""myjs"" value=""3""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td colspan=""2""> 版块调用</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">板块样式：</td><td class=""altbg2""><input type=""radio"" name=""myclass"" value=""0"" class=""radio"" CHECKED> 树型结构 <input type=""radio"" name=""myclass"" value=""1"" class=""radio""> 地图结构</td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""生成JS""></center></form>"
Case "4"
Echo "<form action=""?action=Next2"" method=""post""><input type=""hidden"" name=""myjs"" value=""4""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td colspan=""2""> 会员调用</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">显示记录数：</td><td class=""altbg2""><input type=""text"" name=""total"" size=""30"" value=""10""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">标题长度：</td><td class=""altbg2""><input type=""text"" name=""psize"" size=""30"" value=""20""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">会员排序：</td><td class=""altbg2""> <select name=""userorder"" ID=""userorder"">"
Echo " <option value=""0"" SELECTED>按注册时间</option>"
Echo " <option value=""1"">按用户发帖数</option>"
Echo " <option value=""2"">按用户总贴数</option>"
Echo " <option value=""3"">按用户精华贴数</option>"
Dim ExtCredits,u
ExtCredits = Split(team.Club_Class(21),"|")
for u = 0 to ubound(ExtCredits)
If Split(ExtCredits(u),",")(4)=1 Then
Echo "<option value="""& u+4 &""">按用户" & Split(ExtCredits(u),",")(0) &"</option>"
End if
Next
Echo " </select> </td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""生成JS""></center></form>"
Case "5"
Echo "<form action=""?action=Next2"" method=""post""><input type=""hidden"" name=""myjs"" value=""5""><table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td colspan=""2""> 公告调用</td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">显示记录数：</td><td class=""altbg2""><input type=""text"" name=""total"" size=""30"" value=""10""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">标题长度：</td><td class=""altbg2""><input type=""text"" name=""psize"" size=""30"" value=""20""></td></tr>"
Echo " <tr><td class=""altbg1"" align=""center"" width=""40%%"">时间格式：</td><td class=""altbg2""> <select name=""formattime"" ID=""formatTime"">"
Echo " <option value=""0"" SELECTED>YYYY-M-D H:M:S(长格式)</option>"
Echo " <option value=""1"">YYYY年M月D</option>"
Echo " <option value=""2"">YYYY-M-D</option>"
Echo " <option value=""3"">H:M:S</option>"
Echo " <option value=""4"">hh:mm</option>"
Echo " </select> [服务器设置: "& Now &"] </td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""生成JS""></center></form>"
End Select
team.footer
End Sub
Sub Next2
Dim MyJs,MakeJs
team.Headers(Team.Club_Class(1) & "- 论坛调用指南")
MyJs = HRF(1,2,"myjs")
Select Case MyJs
Case "1"
MakeJs = "FNews.asp?action=recallinfos&psize="&HRF(1,2,"psize")&"&formattime="&HRF(1,2,"formattime")&""
Case "2"
MakeJs = "FNews.asp?action=recallboardfids&formattime="&HRF(1,2,"formattime")&"&showboards="&HRF(1,2,"showboards")&"&showorders="&HRF(1,2,"showorders")&"&icon="&HRF(1,2,"icon")&"&showtypes="&HRF(1,2,"showtypes")&"&total="&HRF(1,2,"total")&"&psize="&HRF(1,2,"psize")&"&showname="&HRF(1,2,"showname")&""
Case "3"
MakeJs = "FNews.asp?action=recallshowlinks&myclass="&HRF(1,2,"myclass")&""
Case "4"
MakeJs = "FNews.asp?action=recallmembers&total="&HRF(1,2,"total")&"&psize="&HRF(1,2,"psize")&"&orderys="&HRF(1,2,"userorder")&""
Case "5"
MakeJs = "FNews.asp?action=recallaffiche&total="&HRF(1,2,"total")&"&psize="&HRF(1,2,"psize")&"&formattime="&HRF(1,2,"formattime")&""
End Select
Echo "<script language=""JavaScript"">"
Echo " <!-- "
Echo " function oCopy(obj){ "
Echo " obj.select(); "
Echo " var js=obj.createTextRange(); "
Echo " js.execCommand('Copy');"
Echo " }"
Echo " //-->"
Echo "</script>"
Echo "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td>调用JS代码</td></tr>"
Echo " <tr class=""tab3""><td><textarea name=""makemyjs"" ID=""makemyjs"" style=""width:100%;height:50"" rows=""5"" cols=""50""><script src="" & weburl & MakeJs & ""></script></textarea></td></tr></table><BR>"
Echo "<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""10"" align=""center"" class=""a2"">"
Echo "<tr class=""tab1""><td>JS代码调用演示</td></tr>"
Echo "<tr class=""a4""><td><script src=""" & weburl & MakeJs & """></script></td></tr>"
Echo " </table><BR><center><input type=""submit"" name=""submit"" value=""拷贝调用代码"" onclick=""oCopy($('makemyjs'));""></center>"
team.footer
End Sub
Private Sub NotCallNews
OutNews("系统禁止了调用功能。")
Response.End
End Sub
Private Sub OutNews(s)
Response.Write "document.write('"
Response.Write s
Response.Write "');"
Response.Write vbNewline
End Sub
Private Function CheckServer()
Dim i,servername,str
Str = Trim(team.Club_Class(28))
If str = "" Or IsNull(str) Then
CheckServer = True
Exit Function
Else
CheckServer = False
End If
servername=Request.ServerVariables("HTTP_REFERER")
If instr(Cstr(str),Chr(13)&Chr(10)) > 0 Then
str=split(Cstr(str),Chr(13)&Chr(10))
For i=0 to Ubound(str)
If Right(str(i),1)="/" Then str(i)=left(Trim(str(i)),Len(str(i))-1)
If Lcase(left(servername,Len(str(i))))=Lcase(str(i)) then
checkserver = True
Exit For
Else
checkserver = False
End if
Next
Else
If Right(str,1)="/" Then str(i)=left(Trim(str),Len(str(i))-1)
If Lcase(left(servername,Len(str)))=Lcase(str) then
checkserver = True
Exit Function
Else
checkserver = False
End if
End if
End Function
Private Function Stringhtml(str)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<!--(.[^>]*)>"
str=re.replace(str, "")
Stringhtml=str
End Function
Function Fixjs(Strings)
Dim Str
Str = Strings
str = Replace(str, CHR(39), "\'")
str = Replace(str, CHR(13), "")
str = Replace(str, CHR(10), "")
str = Replace(str, "]]>","]]>")
Fixjs = str
End Function
End Class
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -