疑問 - 請教html+VB Script問題

[mini]

VB Script 與 VB IDE裡的語法很像的
不知你會不會 VB ?

比如
If Len(Trim(PostText))=0 Then
msgbox "請填寫資料"
Else
'送出資料
End If


至於 "身分證檢測規則"
==============
身份證字號 共有十碼, 以下是位置說明，僅供各位參考

Ｎ１　Ｎ２　Ｎ３　Ｎ４　Ｎ５　Ｎ６　Ｎ７　Ｎ８　Ｎ９　Ｎ１０
戶籍　性別　～流～～～～～～～～水～～～～～～～～～～～碼～

代表說明

戶籍代表字母
Ａ台北市 Ｂ台中市 Ｃ基隆市 Ｄ台南市 Ｅ高雄市 Ｆ台北縣
Ｇ宜蘭縣 Ｈ桃園縣 Ｉ嘉義市 Ｊ新竹縣 Ｋ苗栗縣 Ｌ台中縣
Ｍ南投縣 Ｎ彰化縣 Ｏ新竹市 Ｐ雲林縣 Ｑ嘉義縣 Ｒ台南縣
Ｓ高雄縣 Ｔ屏東縣 Ｕ花蓮縣 Ｖ台東縣 Ｗ金門縣 Ｘ澎湖縣
Ｙ陽明山 Ｚ連江縣

英文字母代表的數字
A=10 B=11 C=12 D=13 E=14 F=15 G=16 H=17 I=34 J=18 K=19 L=20
M=21 N=22 O=35 P=23 Q=24 R=25 S=26 T=27 U=28 V=29 W=32 X=30
Y=31 Z=33

性別代表數字
１：男性
２：女性

步驟

１． 查出英文字所代表的數字

再將所查出的數字 "十位數+個位數x9"
例: 台北市=10
1 + 0x9 =1
台中市=11
1 + 1x9 =10

２． N2x8+N3x7+N4x6+N5x5+N6x4+N7x3+N8x2+N9+N10

將流水碼依序乘8765432
一個個乘.乘完要加起來.　（別忘了先乘除後加減）
例: 123456789
1x8+2x7+3x6+4x5+5x4+6x3+7x2+8+9


３．將步驟1 和步驟2 的兩個數加起來除以10.

例:步驟1 台北計算結果 =1
步驟2 1x8+2x7+3x6+4x5+5x4+6x3+7x2+8+9 =129 (1+129)/10

除10後看看是否可以整除.如可以整除即為正確的
身份證字號. 如無法整除即是錯誤的身份證字號

(1+129)/10 = 13 => 可以整除.正確

==============
在史萊姆裡 (或 google之類上)
也可找到 其他解說
你可以搜搜看