‘//彈跳訊息視窗,按確定後新開另外一個網頁
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
引用:http://t945935.blogspot.com/2009/03/blog-post_05.html
阿臻 程式語言
最新回應