有關VB程式設計問題,很多題喔!(20點)

Question

我想請問各位程式老手...>.<
請問如果要用VB寫以下的問題要如何寫呢?
我想要的是範例喔...因為醬子我比較好去參考..
不然我會不知道要貼放在哪裡..>.<

<均用VB喔>
1.驗證身份證無誤
2.驗證統一編號無誤
3.如何做二層式下拉式選單
4.如何在會員註冊後自動創建會員資料夾(一個帳號一個資料夾)
5.如何在會員註冊後自動寄信至他填寫的依妹耳
6.如何在寄信後要求會員按下回函才算註冊完成
7.會員登入後,如何在網頁顯示會員ID,如何登出?

抱歉我的問題太多了..希望至少會一題就回答我一題好嗎..>.<
感激各位大大

Answer 1

●●●身份證檢核範例●●
Function dfIDCheck_TW(ByVal strUserID As String, Optional ByRef strReason As String = "") As Boolean

Dim intAreaNo As Integer ' 區域碼變數。
Dim intCheckSum As Integer ' 檢核碼變數。
Dim intCount As Integer ' 計數變數。
Dim strAreaCode As String ' 區域碼變數。

' 轉換為大寫。
strUserID = UCase(strUserID)
' 取得首碼字母。(2001/04/26 修改 Left 為 Mid)
strAreaCode = Mid(strUserID, 1, 1)

' 設定起始值。
dfIDCheck_TW = False

' 確定身份證有10碼。
If Len(strUserID) <> 10 Then
strReason = "國民身份證號碼必須是十碼。"
Exit Function
End If

' 確定首碼在A-Z之間。
If (strAreaCode < "A" Or strAreaCode > "Z") Then
strReason = "國民身份證號碼第一碼必須是英文字母。"
Exit Function
End If

' 確定第二碼是數字 1 或 2。(1為男生, 2為女生)
If Mid(strUserID, 2, 1) <> "1" And Mid(strUserID, 2, 1) <> "2" Then
strReason = "第二碼只能是數字 1(男) 或 2(女)。"
Exit Function
End If

' 確定3-10碼是數字。
If Not IsNumeric(Mid(strUserID, 3)) Then
strReason = "第三碼至第十碼不是全部為數字。"
Exit Function
End If

' 取得英文字母對應編號。
' A -> 10, B -> 11 等等。
intAreaNo = InStr("ABCDEFGHJKLMNPQRSTUVXYWZIO", strAreaCode) + 9

' 組合字串。(2001/04/26 修改 + 為 &)
' 如A123456789(10碼) -> 101234567890(11碼)
strUserID = CStr(intAreaNo) & Mid(strUserID, 2)

' 計算首尾二者之和。(2001/04/26 修改 CLng 為 CInt)
intCheckSum = CInt(Mid(strUserID, 1, 1)) + CInt(Mid(strUserID, 11, 1))

' 計算第二碼至第十碼之積。(2001/04/26 修改 CLng 為 CInt)
For intCount = 2 To 10
intCheckSum = intCheckSum + CInt(Mid(strUserID, intCount, 1)) * (11 - intCount)
Next intCount

' 檢查是否為10整除。
If (intCheckSum Mod 10 = 0) Then
dfIDCheck_TW = True
strReason = "輸入正確"
Else
strReason = "輸入錯誤，請再檢查。"
End If
End Function
應用：
IF dfIDCheck_TW("A123456789") =TRUE THEN "檢核正確。"

Answer 2

基本上這種關於會員註冊及資料管理的程式一定得經過網頁的傳遞,
既然非得經由網頁傳遞不可,您上述的功能在PHP及ASP裡都有可供運用的模組,
用VB來常駐是很不智的選擇。