阿宅與阿臻

訊息視窗

2009年10月27日

‘//彈跳訊息視窗，按確定後新開另外一個網頁

Response.Write(”<script langauge=’JavaScript’>alert(’確定開Default2.aspx？’);newwindow=window.open(’Default2.aspx’);</script>”)

‘//彈跳訊息視窗，按確定後在原本的視窗開啟網頁

Response.Write(”<script langauge=’JavaScript’>alert(’確定開Default2.aspx？’);location.href=’Default2.aspx’;</script>”)

阿臻程式語言

Function monerychange(ByVal s1 As String)
        Dim i
        Dim r1 = “拾佰仟萬拾佰仟億拾佰仟兆”
        Dim n = Len(s1)
        Dim s2 = Mid(s1, n, 1)
        Dim j = 1
        For i = n – 1 To 1 Step -1
            s2 = Mid(s1, i, 1) & Mid(r1, j, 1) & s2
            j = j + 1
        Next
        s2 = Replace(s2, “1″, “壹”)
        s2 = Replace(s2, “2″, “貳”)
        s2 = Replace(s2, “3″, “參”)
        s2 = Replace(s2, “4″, “肆”)
        s2 = Replace(s2, “5″, “伍”)
        s2 = Replace(s2, “6″, “陸”)
        s2 = Replace(s2, “7″, “柒”)
        s2 = Replace(s2, “8″, “捌”)
        s2 = Replace(s2, “9″, “玖”)
        s2 = Replace(s2, “0″, “零”)
        s2 = Replace(s2, “零拾”, “零”)
        s2 = Replace(s2, “零佰”, “零”)
        s2 = Replace(s2, “零仟”, “零”)
        s2 = Replace(s2, “零零零”, “零”)
        s2 = Replace(s2, “零零”, “零”)
        If Mid(s2, Len(s2), 1) = “零” Then s2 = Mid(s2, 1, Len(s2) – 1)
        If s2 = “” Then s2 = “零”
        Return s2
    End Function