Dim ShowHead,isSystem
ShowHead = Request.QueryString("ShowHead")
DvBoke.Stats = "提示信息"
isSystem = 0
If DvBoke.BokeUserID = 0 Then isSystem = 1
If ShowHead "1" Then
DvBoke.Nav(isSystem)
Else
DvBoke.Head(isSystem)
End If
Page_Main()
DvBoke.Footer
'--------------------------------------------------------
' 相关调用说明：
' DvBoke.ShowCode(2) -- 信息编号
' DvBoke.ShowCode("提示内容") -- 自定义内容
' DvBoke.ShowMsg(0) -- 输出形式 0=正常 1=不显示顶部
'
'--------------------------------------------------------
Sub Page_Main()
DvBoke.LoadPage("SysDescription.xslt")
ShowSkins = DvBoke.Page_Strings(0).text
Dim Codes,ShowCodes,i,Description,Count
Dim ShowSkins,TempStr
Count = DvBoke.Page_Strings.length
Description = ""
TempStr = DvBoke.Page_Strings(1).text
Codes = Request.QueryString("Codes")
ShowCodes = Split(Codes,",")
For i=0 to UBound(ShowCodes)
If IsNumeric(ShowCodes(i)) Then
If Clng(ShowCodes(i)) 1 Then
Description = Description & Replace(TempStr,"{$msg}",DvBoke.Page_Strings(ShowCodes(i)).text)
End If
Else
Description = Description & Replace(TempStr,"{$msg}",Server.Htmlencode(ShowCodes(i)))
End If
Next
If Request.QueryString("RefreshID")"" and IsNumeric(Request.QueryString("RefreshID")) Then
ShowSkins = Replace(ShowSkins,"{$refreshinfro}",DvBoke.Page_Strings(42).text)
Dim RefreshUrl
Select Case Request.QueryString("RefreshID")
Case "0"
RefreshUrl = "bokeindex.asp"
ShowSkins = Replace(ShowSkins,"{$refreshname}"," 博客首页")
Case "-1"
RefreshUrl = DvBoke.ModHtmlLinked&DvBoke.BokeName&".index.html"
ShowSkins = Replace(ShowSkins,"{$refreshname}"," "&DvBoke.BokeUserName&"的个人博客首页")
Case Else
RefreshUrl = DvBoke.ModHtmlLinked&DvBoke.BokeName&".showtopic."&Request.QueryString("RefreshID")&".html"
ShowSkins = Replace(ShowSkins,"{$refreshname}"," 主题页面")
End Select
ShowSkins = Replace(ShowSkins,"{$refresh}","")
Else
ShowSkins = Replace(ShowSkins,"{$refresh}","")
ShowSkins = Replace(ShowSkins,"{$refreshinfro}","")
End If
ShowSkins = Replace(ShowSkins,"{$description}",Description)
Response.Write ShowSkins
End Sub
%>
