ubb

来自「WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品」· 代码 · 共 34 行

Public Sub main()
    Dim strHost
    Set MyXML = MyKernel.XMLParser
    strHost = GetHost()
    MyXML.Align = "center"
    MyXML.Printf "UBB标签说明"
    MyXML.Align = "left"
    MyXML.Println "支持url|img|u|i|b|call等标签，标签己其效果如下"
    MyXML.Printf "[url]" & strHost & "[/url]等同于"
    MyXML.Println MyXML.CreateA(strHost, strHost, "", "")
    MyXML.Printf "[url=" & strHost & "]" & MyKernel.Config("SiteName") & "[/url]等同于"
    MyXML.Println MyXML.CreateA(strHost, MyKernel.Config("SiteName"), "", "")
    MyXML.Printf "[u]" & MyKernel.Config("SiteName") & "[/u]等同于"
    MyXML.Println MyXML.CreateU(MyKernel.Config("SiteName"))
    MyXML.Printf "[i]" & MyKernel.Config("SiteName") & "[/i]等同于"
    MyXML.Println MyXML.CreateI(MyKernel.Config("SiteName"))
    MyXML.Printf "[b]" & MyKernel.Config("SiteName") & "[/b]等同于"
    MyXML.Println MyXML.CreateB(MyKernel.Config("SiteName"))
    MyXML.Printf "[img]" & strHost & "images/home.gif[/u]等同于"
    MyXML.Println MyXML.CreateImg(strHost & "images/home.gif", "装载中……", -1, -1)
    MyXML.Printf "[call]13812345678[/call]等同于"
    MyXML.Println MyXML.CreateA("wtai://wp/mc;13812345678", "13812345678", "", "")
    MyXML.Printf "[call=13812345678]联系我哦[/call]等同于"
    MyXML.Println MyXML.CreateA("wtai://wp/mc;13812345678", "联系我哦", "", "")
    Dim strReferer
    strReferer = MyIO.QueryString("Referer")
    IF strReferer <> "" Then
        MyXML.Println MyXML.CreateA(strReferer, "快速返回", GetImagePrefix("images/back.gif"), "")
    End If
    Call BackHome
    Call SetLog("ubb", 0)
    Call MyKernel.OutputXML(Empty)
End Sub