📄 refreshfunction.asp
字号:
else
PageNum = 0
end if
if (DetachPageStr = "1") and (PageNum > 1) And (Fun_More_Pages_Obj.Count = 0) then
for PageIndex = 1 to PageNum
SpecialNewsPageStr = "<tr><td " & TempRowNumberStr & "><table border=""0"" width=""100%""><tr><td width=""50%"" align=""right""><br>第<font color=red>" & PageIndex&"</font>页,共<font color=red>"&PageNum & "</font>页 "
if PageIndex = 1 then
SpecialNewsPageStr = SpecialNewsPageStr & "<font face=webdings>9</font> "
SpecialNewsPageStr = SpecialNewsPageStr & "<font face=webdings>7</font> "
elseif PageIndex=2 then
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index." & ClassSaveExtName & """ title=首页><font face=webdings>9</font></a> "
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index." & ClassSaveExtName & """ title=上一页><font face=webdings>7</font></a> "
else
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index." & ClassSaveExtName & """ title=首页><font face=webdings>9</font></a> "
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index_"&PageIndex-1&"." & ClassSaveExtName & """ title=上一页><font face=webdings>7</font></a> "
end if
dim G
G=0
for j = PageIndex to PageNum
if j = 1 then
if j=PageIndex then
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index" & "." & ClassSaveExtName & """><font color=red>[" & j & "]</font></a> "
else
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index" & "." & ClassSaveExtName & """>[" & j & "]</a> "
end if
else
if j=PageIndex then
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index" & "_" & j & "." & ClassSaveExtName & """><font color=red>[" & j & "]</font></a> "
else
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index" & "_" & j & "." & ClassSaveExtName & """>[" & j & "]</a> "
end if
end if
G=G+1
if G mod 10 = 0 then
exit for
End if
Next
if PageIndex=PageNum then
SpecialNewsPageStr = SpecialNewsPageStr & "<font face=webdings>8</font> "
else
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index" & "_" & PageIndex+1 & "." & ClassSaveExtName & """ title=下一页><font face=webdings>8</font></a> "
end if
if PageIndex=PageNum then
SpecialNewsPageStr = SpecialNewsPageStr & "<font face=webdings>:</font> "
else
SpecialNewsPageStr = SpecialNewsPageStr & "<a href=""" & TempClassSaveFilePath & "/" & "index_"&PageNum&"." & ClassSaveExtName & """ title=最后一页><font face=webdings>:</font></a> "
end if
SpecialNewsPageStr = SpecialNewsPageStr & "</td></tr></table></td></tr>"
RsSpecialObj.AbsolutePage = PageIndex
Dim TempAlreadyShow
TempAlreadyShow = 1
TempSpecialNewsList = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & Chr(13) & Chr(10)
for LoopVar = 1 to RsSpecialObj.PageSize
if TempAlreadyShow > RsSpecialObj.PageSize then Exit For
if RsSpecialObj.Eof then Exit For
TempSpecialNewsList = TempSpecialNewsList & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
TempAlreadyShow = TempAlreadyShow + 1
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
else
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
end if
else
TempDateShowStr = ""
end if
if DateRightStr = "Center" OR DateRightStr = "Right" then
TempSpecialNewsList = TempSpecialNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
else
TempSpecialNewsList = TempSpecialNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
RsSpecialObj.MoveNext
if RsSpecialObj.Eof then Exit For
if TempAlreadyShow > RsSpecialObj.PageSize then Exit For
Next
TempSpecialNewsList = TempSpecialNewsList & "</tr>" & Chr(13) & Chr(10)
TempSpecialNewsList = TempSpecialNewsList & BGPicStr & Chr(13) & Chr(10)
Next
TempSpecialNewsList = TempSpecialNewsList & SpecialNewsPageStr & Chr(13) & Chr(10)
TempSpecialNewsList = TempSpecialNewsList & "</table>"
Fun_More_Pages_Obj.Add PageIndex,TempSpecialNewsList
Next
SpecialLastNewsList = "***分页***"
else
SpecialLastNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">"
do while Not RsSpecialObj.Eof
SpecialLastNewsList = SpecialLastNewsList & "<tr>" & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
if DateRuleStr <> "" then
if DateRightStr = "Left" then
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
elseif DateRightStr = "Center" then
TempDateShowStr = "<td align=""center""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>" & "</td>"& Chr(13) & Chr(10)
elseif DateRightStr = "Right" then
TempDateShowStr = "<td align=""Right""><span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr)& "</span>" & "</td>" & Chr(13) & Chr(10)
else
TempDateShowStr = " <span " & GetCSSStyleStr(DateCSSStyleStr) & ">" & DateFormat(RsSpecialObj("AddDate"),DateRuleStr) & "</span>"
end if
else
TempDateShowStr = ""
end if
if DateRightStr = "Center" OR DateRightStr = "Right" then
SpecialLastNewsList = SpecialLastNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
else
SpecialLastNewsList = SpecialLastNewsList & "<td " & RowHeightStr & ">" & NaviPicStr & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsSpecialObj("NewsID")) & """ title="""& RsSpecialObj("Title")&""">" & GetHTMLTitle(RsSpecialObj("TitleStyle"),GotTopic(RsSpecialObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)
end if
RsSpecialObj.MoveNext
if RsSpecialObj.Eof then Exit For
Next
SpecialLastNewsList = SpecialLastNewsList & "</tr>"
SpecialLastNewsList = SpecialLastNewsList & BGPicStr
Loop
SpecialLastNewsList = SpecialLastNewsList & "</table>"
end if
Set RsSpecialObj = Nothing
end if
end if
End Function
'专题图片导航
Function SpecialNavi(PicTF,SpecialClassID,PicHeight,PicWidth,Dhang,SpecialCss,SpecialMore)
Dim SpecialNaviObj,ClassSaveFilePath
Set SpecialNaviObj=conn.execute("select * from FS_special where EName='"&SpecialClassID&"'")
if SpecialNaviObj.eof then
SpecialNavi=""
else
if SpecialNaviObj("SaveFilePath") = "/" then
ClassSaveFilePath = SpecialNaviObj("SaveFilePath")
else
ClassSaveFilePath = SpecialNaviObj("SaveFilePath") & "/"
end if
SpecialNavi=""
if PicTF = "1" then
SpecialNavi=SpecialNavi&"<table><tr><td><img src=" & GetConfig(0) & SpecialNaviObj("NaviPic") & " height=" & PicHeight & " width=" & PicWidth & "></td><td><a href=" & GetConfig(0) & ClassSaveFilePath & SpecialNaviObj("EName") & "/index." & SpecialNaviObj("FileExtName") & " target=_blank><b>"&SpecialNaviObj("CName")&"</b></a><br> <span class="&SpecialCss&">"&left(SpecialNaviObj("IndexNaviWord"),Dhang)&"</span></td></tr>"
SpecialNavi=SpecialNavi& "<tr><td align=""right"" colspan=""2""><a href=""" &GetConfig(0) & ClassSaveFilePath & SpecialNaviObj("EName") & "/index." & SpecialNaviObj("FileExtName") & """ target=_blank> "&SpecialMore&"</a></td></tr>"
else
SpecialNavi=SpecialNavi&"<table><tr><td><a href=" & GetConfig(0) & ClassSaveFilePath & SpecialNaviObj("EName") & "/index." & SpecialNaviObj("FileExtName") & " target=_blank><b>" & SpecialNaviObj("CName") & "</b></a><br> <span class=" & SpecialCss & ">" & left(SpecialNaviObj("IndexNaviWord"),Dhang)&"</span></td></tr>"
SpecialNavi=SpecialNavi& "<tr><td align=""right""><a href=""" &GetConfig(0) & ClassSaveFilePath & SpecialNaviObj("EName") & "/index." & SpecialNaviObj("FileExtName") & """ target=_blank> "&SpecialMore&"</a></td></tr>"
end if
SpecialNavi=SpecialNavi&"</table>"
end if
Set SpecialNaviObj = Nothing
End Function
'当前位置
Function Location(NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
Select Case Fun_Refresh_Type
Case "Index"
Location = "<a " & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & "/Index."&Application(LoginCacheNameStr)(18)&"""><font color=red>首页</font></a>"
Case "Class"
Location = GetClassLocationStr(Fun_Refresh_ID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Case "News"
Location = GetNewsLocationStr(Fun_Refresh_ID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Case "Special"
Location = GetSpecialLocationStr(Fun_Refresh_ID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Case "DownLoad"
Location = GetDownLoadLocationStr(Fun_Refresh_ID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Case "Product"
Location = GetProductLocationStr(Fun_Refresh_ID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Case Else
Location = ""
End Select
End Function
'栏目当前位置
Function GetClassLocationStr(ClassID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Dim SqlClass,RsClassObj
if ClassID = "" then Exit Function
if NaviType = "1" then
'====================================
If Instr(1,CompatStr,"<img src=")=0 Then
CompatStr = "<img src=""" & GetConfig(0) & CompatStr & """>"
End IF
'====================================
end if
Set RsClassObj = Conn.Execute("Select FileExtName,SaveFilePath,ParentID,ClassID,ClassEName,ClassCName from FS_NewsClass where ClassID='" & ClassID & "'")
if Not RsClassObj.Eof then
GetClassLocationStr = GetClassLocationStr & "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(RsClassObj("ClassEName"),RsClassObj("SaveFilePath"),RsClassObj("FileExtName")) & """ >" & RsClassObj("ClassCName") & "</a>"
do while RsClassObj("ParentID") <> 0
Set RsClassObj = Conn.Execute("Select FileExtName,SaveFilePath,ParentID,ClassID,ClassEName,ClassCName from FS_NewsClass where ClassID='" & RsClassObj("ParentID") & "'")
if RsClassObj.Eof then Exit do
GetClassLocationStr = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetOneClassLinkURL(RsClassObj("ClassEName"),RsClassObj("SaveFilePath"),RsClassObj("FileExtName")) & """ >" & RsClassObj("ClassCName") & "</a>" & CompatStr & GetClassLocationStr
loop
end if
GetClassLocationStr = "<a " & OpenTypeStr & GetCSSStyleStr(CSSStyleStr) & " href=""" & GetConfig(0) & "/Index." & Application(LoginCacheNameStr)(18) & """><font color=red>首页</font></a>" & CompatStr & GetClassLocationStr
RsClassObj.Close
Set RsClassObj = Nothing
End Function
'新闻当前位置
Function GetNewsLocationStr(NewsID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Dim RsNewsObj
if NaviType = "1" then
CompatStr = "<img src=""" & GetConfig(0) & CompatStr & """>"
end if
Set RsNewsObj = Conn.Execute("Select ClassID from FS_News where NewsID='" & NewsID & "'")
if Not RsNewsObj.Eof then
GetNewsLocationStr = GetClassLocationStr(RsNewsObj("ClassID"),NaviType,CompatStr,OpenTypeStr,CSSStyleStr) & CompatStr & "正文"
else
GetNewsLocationStr = ""
end if
Set RsNewsObj = Nothing
End Function
'商品当前位置
Function GetProductLocationStr(ProductID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Dim RsProductObj
if NaviType = "1" then
CompatStr = "<img src=""" & GetConfig(0) & CompatStr & """>"
end if
Set RsProductObj = Conn.Execute("Select ClassID from FS_Shop_Products where ID=" & ProductID & "")
if Not RsProductObj.Eof then
GetProductLocationStr = GetClassLocationStr(RsProductObj("ClassID"),NaviType,CompatStr,OpenTypeStr,CSSStyleStr) & CompatStr & "详情"
else
GetProductLocationStr = ""
end if
Set RsProductObj = Nothing
End Function
'下载当前位置
Function GetDownLoadLocationStr(DownLoadID,NaviType,CompatStr,OpenTypeStr,CSSStyleStr)
Dim RsDownLoadObj
if NaviType = "1" then
CompatStr = "<img src=""" & GetConfig(0) & CompatStr & """>"
end if
Set RsDownLoadObj = Conn.Execute("Select ClassID from FS_DownLoad where DownLoadID='" & DownLoadID & "'")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -