📄 cls_refresh.asp
字号:
end if
if CurrPageNum <= NewsPageCount - 1 then
NewsPageStr = NewsPageStr & "<a href="& f_RS("FileName") & "_" & CStr(CurrPageNum + 1) & "." & f_RS("FileExtName") &">[下一页]</a> "
else
NewsPageStr = NewsPageStr & "[下一页] "
end if
if CurrPageNum < NewsPageCount then
NewsPageStr = NewsPageStr & "<a href=" & f_RS("FileName") & "_" & NewsPageCount& "." & f_RS("FileExtName") &">[末页]</a> "
else
NewsPageStr = NewsPageStr & "[末页] "
end if
NewsPageStr = NewsPageStr & SelectPageStr & "</div>"
'列表式分页 by iyuki====================================修改2
else
NewsPageStr = ""
end if
'========图片新闻，分页时，按图处即显示下一页========star by doudou888
if i <> NewsPageCount-1 then
dim FileName1
FileName1 = f_RS("FileName") & "_" & CurrPageNum+1 & "." & f_RS("FileExtName")
f_News_Cont_Array(i)=replace(Lcase(f_News_Cont_Array(i)),"<img","<A href='"&FileName1&"' ><img")+"</A>" 'doudou888
'f_News_Cont_Array(i)=replace(f_News_Cont_Array(i),"<img","<A href='"&FileName1&"' ><img")+"</A>" 'doudou888
'f_News_Cont_Array(i)=replace(f_News_Cont_Array(i),"<img","<A href='"&FileName1&"' ><img") 'doudou888 y
end if
'========图片新闻，分页时，按图处即显示下一页=========end by doudou888
f_News_Cont_Array(i)=replace(replace(f_News_Cont_Array(i),"<IMG","<img"),"<img","<img onmousewheel= 'return bbimg(this)' alt='点击，用滚轴可无级缩放图片大小' onLoad=javascript:resizepic(this)") 'doudou888
m_More_Pages.Add i,f_News_Cont_Array(i) & NewsPageStr
Next
end if
Set f_RS = Nothing
end if
End Sub
'────────────────────────────────
Private Sub Replace_Browser_Cont(f_News_Cont)
Dim f_Sql,f_RS
If m_Refresh_Type = "News" then
f_Sql = "Select * from FS_News where NewsID='" & m_Refresh_ID & "'"
Set f_RS = Conn.Execute(f_Sql)
if Not f_Rs.Eof then m_Content = GetNewsContent(m_Content,f_RS,f_News_Cont)
Set f_RS = Nothing
end if
If m_Refresh_Type = "DownLoad" then
f_Sql = "Select * from FS_DownLoad where DownLoadID='" & m_Refresh_ID & "'"
Set f_RS = Conn.Execute(f_Sql)
if Not f_Rs.Eof then m_Content = GetDownLoadContent(m_Content,f_RS)
Set f_RS = Nothing
end if
If m_Refresh_Type = "Product" then
f_Sql = "Select * from FS_Shop_Products where ID=" & m_Refresh_ID & ""
Set f_RS = Conn.Execute(f_Sql)
if Not f_Rs.Eof then m_Content = GetProductContent(m_Content,f_RS)
Set f_RS = Nothing
end if
End Sub
'────────────────────────────────
Private Sub CreatePath()
'栏目保存路径为空时不能生成的问题
Dim f_Str,f_Standard_Str,f_Create_Path,f_Array,f_i,f_Check_Str
If InStr(4,m_SavePath,"\")<>0 Then
f_Standard_Str = Left(m_SavePath,InStr(4,m_SavePath,"\")-1)
f_Create_Path = f_Standard_Str
f_Str = Mid(m_SavePath,Len(f_Standard_Str)+2)
f_Array = Split(f_Str,"\")
for f_i = LBound(f_Array) to UBound(f_Array)
if f_Array(f_i) <> "" then
f_Create_Path = f_Create_Path & "\" & f_Array(f_i)
if Not m_FSO.FolderExists(f_Create_Path) then m_FSO.CreateFolder(f_Create_Path)
end if
Next
End If
End Sub
'────────────────────────────────
Private Sub DeleteHistory()
Dim f_Del_Path,f_i
f_i = 1
f_Del_Path = m_SavePath & "\" & m_SaveFileName & "." & m_SaveFile_ExtName
do while m_FSO.FileExists(f_Del_Path) = True
m_FSO.DeleteFile(f_Del_Path)
f_i = f_i + 1
f_Del_Path = m_SavePath & "\" & m_SaveFileName & "_" & f_i & "." & m_SaveFile_ExtName
Loop
if Err.Number <> 0 then Err.Clear
End Sub
'────────────────────────────────
Private Sub SaveFile(f_Content,LocalFileName)
f_Content = Get_Vision_Str & f_Content
if m_SaveFile_Type = "1" then
FSOSaveFile f_Content,LocalFileName
elseif m_SaveFile_Type = "2" then
ADODBSaveFile f_Content,LocalFileName
else
FSOSaveFile f_Content,LocalFileName
end if
End Sub
'────────────────────────────────
Private Sub ADODBSaveFile(Content,LocalFileName)
Dim f_AdodbStream
Set f_AdodbStream = Server.CreateObject(G_FS_STREAM)
With f_AdodbStream
.Type = 2
.Open
.Charset = "GB2312"
.WriteText Content
.SaveToFile LocalFileName,2
If Err.Number<>0 then
m_Err_Info = "保存文件失败"
m_Err_NO = -1
Err.Clear
end If
.Cancel()
.Close()
End With
Set f_AdodbStream = Nothing
End Sub
'────────────────────────────────
Sub FSOSaveFile(Content,LocalFileName)
Dim FileObj,FilePionter
Set FileObj=Server.CreateObject(G_FS_FSO)
Set FilePionter = FileObj.CreateTextFile(LocalFileName,True)
FilePionter.Write Content
FilePionter.close
Set FilePionter = Nothing
Set FileObj = Nothing
End Sub
'────────────────────────────────
Private Function Get_Pop_Str()
Dim f_Sql,f_RS
if M_Refresh_Type = "News" then
f_Sql = "Select BrowPop,FileExtName from FS_News where NewsID='" & m_Refresh_ID & "'"
Set f_RS = Conn.Execute(f_Sql)
if Not f_RS.Eof then
if Not ISNull(f_Rs("BrowPop")) then
if f_Rs("BrowPop") <> "" And f_Rs("FileExtName") = "asp" then
Get_Pop_Str = AddInCludeFileForPopNews
Get_Pop_Str = Get_Pop_Str & "<% GetNewsID """ & m_Refresh_ID & """ %" & ">" & Chr(13) & Chr(10)
end if
end if
end if
Set f_RS = Nothing
end if
End Function
'────────────────────────────────
Private Function Select_Function()
Select Case LCase(m_Prar_Cont_Array(0))
Case "freelable" : if UBound(m_Prar_Cont_Array) = 6 then : Select_Function = FreeLable(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6)) : else :Select_Function = "" : Exit Function : end if
Case "selfclass"
if UBound(m_Prar_Cont_Array) = 16 then ReDim Preserve m_Prar_Cont_Array(17) : m_Prar_Cont_Array(17) = "0"
if UBound(m_Prar_Cont_Array) = 17 then : Select_Function = SelfClass(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17)) : else : Select_Function = "" : Exit Function : end if
Case "childclasslist"
if UBound(m_Prar_Cont_Array) = 18 then ReDim Preserve m_Prar_Cont_Array(19) : m_Prar_Cont_Array(19) = "0"
if UBound(m_Prar_Cont_Array) = 19 then : Select_Function = ChildClassList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17),m_Prar_Cont_Array(18),m_Prar_Cont_Array(19)) : else : Select_Function = "" : Exit Function : end if
Case "specialnewslist" : if UBound(m_Prar_Cont_Array) = 15 then: Select_Function = SpecialNewsList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
Case "specialnavi" : if UBound(m_Prar_Cont_Array) = 7 then : Select_Function = specialnavi(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7)) : else : Select_Function = "" : Exit Function : end if
Case "location" : if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = Location(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
Case "locationnavi" : if UBound(m_Prar_Cont_Array) = 7 then : Select_Function = LocationNavi(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7)) : else : Select_Function = "" : Exit Function : end if
Case "classnavi" : if UBound(m_Prar_Cont_Array) = 6 then : Select_Function = ClassNavi(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6)) : else : Select_Function = "" : Exit Function : end if
Case "hotnews"
if UBound(m_Prar_Cont_Array) = 11 then ReDim Preserve m_Prar_Cont_Array(12) : m_Prar_Cont_Array(12) = "-800"
if UBound(m_Prar_Cont_Array) = 12 then : Select_Function = HotNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : else : Select_Function = "" : Exit Function : end if
Case "lastnews" : if UBound(m_Prar_Cont_Array) = 11 then : Select_Function = LastNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11)) : else : Select_Function = "" : Exit Function : end if
Case "recnews" : if UBound(m_Prar_Cont_Array) = 15 then : Select_Function = RecNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
Case "marqueenews"
if UBound(m_Prar_Cont_Array) = 10 then ReDim Preserve m_Prar_Cont_Array(12) : m_Prar_Cont_Array(11) = "" : m_Prar_Cont_Array(12) = "0"
if UBound(m_Prar_Cont_Array) = 12 then : Select_Function = MarqueeNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : else : Select_Function = "" : Exit Function : end if
Case "classnewslist" : if UBound(m_Prar_Cont_Array) = 20 then : Select_Function = ClassNewsList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17),m_Prar_Cont_Array(18),m_Prar_Cont_Array(19),m_Prar_Cont_Array(20)) : else : Select_Function = Array("") : Exit Function : end if
Case "search" : Select_Function = Search : Exit Function
Case "advancedsearch" : Select_Function = AdvancedSearch : Exit Function
Case "uselogin" : Select_Function = UseLogin : Exit Function
Case "infostat" : if UBound(m_Prar_Cont_Array) = 3 then : Select_Function = InfoStat(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3)) : else : Select_Function = "" : Exit Function : end if
Case "downinfostat" : if UBound(m_Prar_Cont_Array) = 3 then : Select_Function = DownInfoStat(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3)) : else : Select_Function = "" : Exit Function : end if
Case "friendlink" : if UBound(m_Prar_Cont_Array) = 8 then : Select_Function = FriendLink(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8)) : else : Select_Function = "" : Exit Function : end if
Case "navireadnews" : if UBound(m_Prar_Cont_Array) = 13 then : Select_Function = NaviReadNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : else : Select_Function = "" : Exit Function : end if
Case "relatenews" : if UBound(m_Prar_Cont_Array) = 7 then : Select_Function = RelateNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7)) : else : Select_Function = "" : Exit Function : end if
Case "relatespecialnews" : if UBound(m_Prar_Cont_Array) = 7 then : Select_Function = RelateSpecialNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7)) : else : Select_Function = "" : Exit Function : end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -