分享:使用ASP配合ACCESS2000及RaidenMailD新增使用者程式

alan35 · 發表於: 星期日八月 04, 2002 12:49 am 文章標題:

不知道有關於刪除使用者的部分你知道怎麼做嗎??
因為我有做管理模式，但刪除的功能我卻束手無撤@@"
或是有哪位大哥可以分享一下^^

George · 八段 註冊時間: 2002-06-20 文章: 169 來自: TAIWAN

刪除使用者的方式我有做，
給您一個提示，
就是執行前先將資料庫該筆記錄刪除，
再讀資料庫所有記錄寫入 users.cfg 即可，
放心，效能不差的。

alan35 · 發表於: 星期日八月 04, 2002 1:53 pm 文章標題:

George · 八段 註冊時間: 2002-06-20 文章: 169 來自: TAIWAN

用程式新增一筆使用者資料到 users.cfg 約五分鐘後可使用，
但是原來使用者更改記錄或重新寫入 users.cfg 並沒有這個影嚮，您可以自行測試，因為我測了，原來就有的使用者資料重新寫入記錄並不會影嚮到喔。
目前我的伺服器有 714 個帳號喔。

PS:每當會員修改資料及我自己定期維護時都會重寫入 users.cfg 目前還未發生五分鐘不能使用的問題呢。

alan35 · 發表於: 星期日八月 04, 2002 2:25 pm 文章標題:

timkuan · 發表於: 星期日八月 04, 2002 2:37 pm 文章標題:

bighands · 發表於: 星期日八月 04, 2002 2:46 pm 文章標題:

嗯~~~做得粉好喔!!我剛也去申請了一個，說真的申請的用意，是想看看大哥您改的webmail的介面，申請的部份呵呵沒有那個餘力去管理，可惜還沒改好，
改好了之後可以分享給大家嗎??謝謝~

alan35 · 發表於: 星期日八月 04, 2002 3:01 pm 文章標題:

timkuan · 發表於: 星期日八月 04, 2002 3:14 pm 文章標題:

alan35 · 發表於: 星期日八月 04, 2002 3:26 pm 文章標題:

timkuan · 發表於: 星期日八月 04, 2002 3:36 pm 文章標題:

alan35 · 發表於: 星期一八月 05, 2002 12:14 am 文章標題:

[quote="timkuan小弟.....知道那附近是驗證身份證字號用的
不過就不知是那句出問題了...
頭痛[/quote]
我記得是身份證字號驗證到第3段的時候會有問題!!

renjong · 發表於: 星期一八月 05, 2002 3:02 pm 文章標題:

驗證身份證字號用的,改一下用用看吧!!
我另外也有寫身分證字號亂數產生(紀錄)的ASP!!
我看過 George 架好的WAB Matil 網頁...真不是蓋的!...
小弟正在努力學習中...希望能針對users.cfg 及資料庫分別處理!!
看能不能不要由資料庫去產生users.cfg 檔......
目前已經先完成針對users.cfg 檔搜尋及刪除的部分,還望有機會能多向大家討教幾招!!

ps.下面這兩個檔案不是我寫的,但是粉簡單..存粹就是驗證身份證字號....

提供兩個檔:
checkid.asp 內容:
===================================
<%
''==========================================================
''ID Check v2.0
''改版說明：
''這個版本和之前版本除了更換字母對照表和一些小部份的 debug 外，其餘的完全沒有改變。
''這次的字母對照表包含到 I O W Z 的驗證，若有什麼錯誤的地方還請告知。
''程式說明：
''這是支 ASP 的身份證字號驗證函式，在此與大家分享，
''因為看過大部份身份證驗證的函式都是用陣列的方式來寫，
''而我總覺得用陣列速度會變慢，且因為真的不太喜歡用陣列(雖然有時真的很好用)，
''所以在寫這個函式時完全沒有使用到陣列，
''另外，不用懷疑， A123456789 真的是合法的身份證字號，
''可是這一組實在是太好猜了，所以若你不希望有人用 A123456789 來突破驗證的話，
''可以自行加寫一個判斷式將 A123456789 排除審核，
''若有發現程式的 Bug 或是覺得哪裡寫不好的，
''歡迎任意修改本程式，不過前提是要 Copy 一份給我哦！
''本程式可以任意修改傳播與使用，唯獨作者資訊希望大家請不要刪除與修改！
''-------------------- 作者資訊 --------------------
''作者：小白
''ICQ：4999381
''E-mail：samchung@tpts4.seed.net.tw
''--------------------------------------------------
''===================================================================================
Function CheckID(InputID)
CheckID = "False"
InputID = UCase(InputID)
IF InputID <> "" AND Len(InputID) = 10 THEN
IF ASC(Left(InputID,1)) < 64 OR ASC(Left(InputID,1)) > 91 THEN
CheckID = "ERR-2"
''身份證字號的第一碼必需是合法的英文字母
ELSEIF MID(InputID,2,1) <> "1" AND MID(InputID,2,1) <> "2" THEN
CheckID = "ERR-3"
''身份證字號的第二碼必需是數字 1 或 2
ELSE
FOR i = 2 to Len(InputID)
IF ASC(Mid(InputID,i,1)) < 47 OR ASC(Mid(InputID,i,1)) > 58 THEN CheckID = "ERR-4"
''身份證字號的後九碼必需是數字
NEXT
END IF
IF Mid(CheckID,1,3) <> "ERR" THEN
ID_ABC_Data = "A10B11C12D13E14F15G16H17I34J18K19L20M21N22O35P23Q24R25S26T27U28V29W30X31Y32Z33"
InputID = Mid(ID_ABC_Data,InStr(ID_ABC_Data,Left(InputID,1)) + 1,2) & Mid(InputID,2)
GetNo = 2
SUM = Left(InputID,1)
FOR i = 9 TO 1 STEP -1
SUM = SUM + Mid(InputID,GetNo,1) * i
GetNo = GetNo + 1
NEXT
IF ASC(Right(InputID,1)) = ASC(Right(10 - Right(SUM,1),1)) THEN CheckID = "True"
''通過檢查
END IF
ELSE
CheckID = "ERR-1"
''不可留空白或輸入位數錯誤
END IF
End Function
%>
<html>
<body>
<center>
您的身份證字號經過檢查.....<br><br>
<font color="#ff0000">
<%
IF CheckID(Request("ID")) = "True" THEN
Response.Write "通過檢查"
ELSEIF CheckID(Request("ID")) = "False" THEN
Response.Write "不合法的身份證字號"
ELSEIF CheckID(Request("ID")) = "ERR-1" THEN
Response.Write "不可留空白或輸入位數錯誤"
ELSEIF CheckID(Request("ID")) = "ERR-2" THEN
Response.Write "身份證字號的第一碼必需是合法的英文字母"
ELSEIF CheckID(Request("ID")) = "ERR-3" THEN
Response.Write "身份證字號的第二碼必需是數字 1 或 2"
ELSEIF CheckID(Request("ID")) = "ERR-4" THEN
Response.Write "身份證字號的後九碼必需是數字"
END IF
%>
</font>
<br><br>
<a href="javascript:history.back()">回上一頁</a>
</center>
</body>
==========================================================

index.htm檔內容如下:
==========================================================
<HTML>
<HEAD>
<TITLE>身份證字號驗證</TITLE>
</HEAD>
<BODY>
請輸入身份證字號：
<FORM METHOD="Post" ACTION="checkid.asp">
<INPUT TYPE=Text NAME="ID" SIZE=20>
<INPUT TYPE=Reset VALUE="Reset">
<INPUT TYPE=Submit VALUE="Send">
</FORM>
</BODY>
</HTML>

George · 八段 註冊時間: 2002-06-20 文章: 169 來自: TAIWAN

謝囉 renjong,
上一版放出 share 的程式我近日還改了些地方，
現在在等 Arnor 大大的新版 Multi POP3 出來，
寫好再一起放上來 share，
目前也在研究如何解析 .eml 檔案，
成功就可以也線上收信了，目前用 VB6 開發中，
因為覺得現成的許多元件效能並不好喔。