| 上一篇文章 :: 下一篇文章 |
| 發表人 |
內容 |
alan35
四段
註冊時間: 2001-11-08
文章: 93
來自: 台灣 , 中華民國
|
 發表於: 星期三 六月 19, 2002 4:57 pm 文章標題: 請問用asp新增一筆user資料，為何無法使用呢? |
 |
|
如題!!
我新增資料的欄位如下:
id;name;xxx.idv.tw;20;0;;;;;0;;0
因為密碼欄位我不知道要輸入什麼?所以一開始是留白!!
可是新增的這一筆帳號卻無法使用><"
請問為何會這樣呢@@"
還是我還需要哪些步驟?? |
|
| 回頂端 |
|
 |
George
八段
註冊時間: 2002-06-20
文章: 169
來自: TAIWAN
|
| 發表於: 星期四 六月 20, 2002 2:54 am 文章標題: Re: 請問用asp新增一筆user資料，為何無法使用呢? |
|
|
| alan35 寫到: | 如題!!
我新增資料的欄位如下:
id;name;xxx.idv.tw;20;0;;;;;0;;0
因為密碼欄位我不知道要輸入什麼?所以一開始是留白!!
|
Alan
空間大小後的編碼，你要寫入的是1而非0喔，
雷電MailD每五分鐘會檢查 user.cfg 檔案是否有改變，
所以你新增後，編碼方式將會由1變為預設編碼，密碼當然也會自動改變，
有問題再來切磋切磋 |
|
| 回頂端 |
|
|
oiano
八段
註冊時間: 2002-03-08
文章: 172
來自: 台灣島
|
| 發表於: 星期四 六月 20, 2002 5:15 am 文章標題: Re: 請問用asp新增一筆user資料，為何無法使用呢? |
|
|
| George 寫到: | | alan35 寫到: | 如題!!
我新增資料的欄位如下:
id;name;xxx.idv.tw;20;0;;;;;0;;0
因為密碼欄位我不知道要輸入什麼?所以一開始是留白!!
|
Alan
空間大小後的編碼，你要寫入的是1而非0喔，
雷電MailD每五分鐘會檢查 user.cfg 檔案是否有改變，
所以你新增後，編碼方式將會由1變為預設編碼，密碼當然也會自動改變，
有問題再來切磋切磋 |
呼呼呼~~有那位人兄有寫cgi or asp or php
的程式 願易分享出來嗎^^"
我只會裝和修改不會寫><"~~~(沒學過都是亂玩亂玩玩會的...所以ㄏㄏ)
有那位願意提供 小弟我就........想到再說哈~~~ |
|
| 回頂端 |
|
|
alan35
四段
註冊時間: 2001-11-08
文章: 93
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 11:31 am 文章標題: Re: 請問用asp新增一筆user資料，為何無法使用呢? |
|
|
| George 寫到: | | alan35 寫到: | 如題!!
我新增資料的欄位如下:
id;name;xxx.idv.tw;20;0;;;;;0;;0
因為密碼欄位我不知道要輸入什麼?所以一開始是留白!!
|
Alan
空間大小後的編碼，你要寫入的是1而非0喔，
雷電MailD每五分鐘會檢查 user.cfg 檔案是否有改變，
所以你新增後，編碼方式將會由1變為預設編碼，密碼當然也會自動改變，
有問題再來切磋切磋 |
您是指檔案大小20後面的那個0嗎?
我不曉得他的意義為何??
至於密碼應該是20;0;密碼;;;;0;;0
不是嗎?
我今天試試把0改成1看看^^
真是非常的感謝^^
至於我想做的方式可能會趨向於
1.使用者登入資料
2.系統發MAIL給管理者
3.管理者進入使用者列表幫使用者開通
4.寫入USERS.CFG並發一封啟用通知給使用者並請使用者上線更改密碼
以上是我想做的方式，不過就是卡在寫入USERS.CFG後，帳號還是無法使用(使用WEBMAIL登入)!!
還有遇到困難點就是，如果USER忘記密碼的話無法查詢，需要管理者將其密碼重設(因為密碼已編碼過)!!
不過還是謝謝大家的熱心回應^^ |
|
| 回頂端 |
|
|
George
八段
註冊時間: 2002-06-20
文章: 169
來自: TAIWAN
|
| 發表於: 星期四 六月 20, 2002 7:59 pm 文章標題: |
|
|
我的新增使用者寫入 user.cfg 的 ASP 語法：
| 代碼: | Dim objFS, objTS
Set objFS = CreateObject("Scripting.FileSystemObject")
Application.Lock
Set objTS = objFS.OpenTextFile("C:\RaidenMAILD\users.cfg", 8, True)
objTS.WriteLine(Request.Form("UserAcc") & ";" & Request.Form("UserName") & ";Local Domain;15;1;" & Request.Form("UserPWD1") & ";" & Request.Form("ForwardMail") & ";" & Request.Form("BackupMail") & ";" & Request.Form("AutoReplyFlag") & ";0;;" & Request.Form("ForwardDelFlag"))
objTS.Close
|
|
|
| 回頂端 |
|
|
messagebox
鳳凰
註冊時間: 2002-09-26
文章: 606
來自: 中華民國
|
| 發表於: 星期五 九月 27, 2002 9:21 pm 文章標題: Re: 請問用asp新增一筆user資料，為何無法使用呢? |
|
|
我也來寫一段PERL CGI
| 引言回覆: |
#!/usr/bin/perl
###取出FROM的輸入資料
if ($ENV{''REQUEST_METHOD''} eq "POST") {
read(STDIN, $buffer, $ENV{''CONTENT_LENGTH''});
}
else {
$buffer = $ENV{''QUERY_STRING''};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\t/--/g;
$value =~ s/ / /g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$IN{$name} = $value;
}
###假設申請的表單只有 帳號userid 密碼userpass
###設定區
$domain=''abc.abc.com''; #你的網域名稱
$boxsize=''10''; #申請的信箱容量(單位MBytes)
$filename=''C:\\RaidenMAILD\\users.cfg''; #你的users.cfg檔案位置(目錄分隔請加\\)
$vip=''0''; #是否為vip使用者 1是 0否
###開始寫入users.cfg
open (USERCFG,">>$filename") || die $!;
print USERCFG "$IN{''userid''};;$domain;$boxsize;1;$IN{''userpass''};;;0;0;;0;$vip";
close (USERCFG);
##歡迎畫面##perl cgi規定cgi一定要輸出~不然會出現錯誤~對程式沒影響~但不好看~所以隨便寫個輸出~
print <<htmlend;
<font color=ff0000>
申請完畢，你的電子郵件信箱為<br>
$IN{''userid''}@$domain
smtp跟pop3為$domain
祝你使用愉快
</font>
htmlend
###程式完畢###
附帶一點：這是1703的users.cfg
以後改版後的users.cfg要是有更動就要改程式
|
_________________
http://onlyou.homeip.net/ |
|
| 回頂端 |
|
|
22183389
大熊貓
註冊時間: 2002-08-06
文章: 970
來自: 台灣 , 中華民國
|
| 發表於: 星期六 九月 28, 2002 12:11 pm 文章標題: |
|
|
這樣只是修改USERS.DFG檔
好像不會建立資料夾ㄋㄟ |
|
| 回頂端 |
|
|
messagebox
鳳凰
註冊時間: 2002-09-26
文章: 606
來自: 中華民國
|
| 發表於: 星期六 九月 28, 2002 7:02 pm 文章標題: |
|
|
| 22183389 寫到: | 這樣只是修改USERS.DFG檔
好像不會建立資料夾ㄋㄟ |
沒錯~根本沒想到要建目錄這檔事~在改一次~
| 程式碼 寫到: | #!/usr/bin/perl
###取出FROM的輸入資料
if ($ENV{"REQUEST_METHOD"} eq "POST") {
read(STDIN, $buffer, $ENV{"CONTENT_LENGTH"});
}
else {
$buffer = $ENV{"QUERY_STRING"};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\t/--/g;
$value =~ s/ / /g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$IN{$name} = $value;
}
###假設申請的表單只有 帳號userid 密碼userpass
###設定區
$domain="abc.abc.com"; #你的網域名稱
$boxsize="10"; #申請的信箱容量(單位MBytes)
$filename="C:\\RaidenMAILD\\users.cfg"; #你的users.cfg檔案位置(目錄分隔請加\\)
$vip="0"; #是否為vip使用者 1是 0否
$inboxes="C:\\RaidenMAILD\\Inboxes\\"; #信箱目錄最後要加\\
###開始寫入users.cfg
open (USERCFG,">>$filename") || die $!;
print USERCFG "$IN{"userid"};;$domain;$boxsize;1;$IN{"userpass"};;;0;0;;0;$vip";
close (USERCFG);
mkdir "$inboxes$IN{"userid"}" #建目錄
##歡迎畫面##perl cgi規定cgi一定要輸出~不然會出現錯誤~對程式沒影響~但不好看~所以隨便寫個輸出~
print <<htmlend;
<font color=ff0000>
申請完畢，你的電子郵件信箱為<br>
$IN{"userid"}@$domain
smtp跟pop3為$domain
祝你使用愉快
</font>
htmlend
###程式完畢###
附帶一點：這是1703的users.cfg
以後改版後的users.cfg要是有更動就要改程式 |
_________________
http://onlyou.homeip.net/ |
|
| 回頂端 |
|
|
messagebox
鳳凰
註冊時間: 2002-09-26
文章: 606
來自: 中華民國
|
| 發表於: 星期二 十月 08, 2002 11:21 pm 文章標題: |
|
|
來追加一些功能~~
1.使用者登入資料 (外加一點~檢查是不是有這個帳號存在)
2.系統發MAIL給管理者
3.管理者進入使用者列表幫使用者開通
4.寫入USERS.CFG並發一封啟用通知給使用者並請使用者上線更改密碼
| 程式碼部分 寫到: | #!/usr/bin/perl
###取出FROM的輸入資料
if ($ENV{"REQUEST_METHOD"} eq "POST") {
read(STDIN, $buffer, $ENV{"CONTENT_LENGTH"});
}
else {
$buffer = $ENV{"QUERY_STRING"};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/\t/--/g;
$value =~ s/ / /g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$IN{$name} = $value;
}
###假 設 申 請 的表單只有 帳號userid 密碼userpass 全名username
###設定區
$domain="abc.abc.com"; #你的網域名稱
$boxsize="10"; #申請的信箱容量(單位MBytes)
$filename="C:\\RaidenMAILD\\users.cfg"; #你的users.cfg檔案位置(目錄分隔請加\\)
$vip="0"; #是否為vip使用者 1是 0否
$inboxes="C:\\RaidenMAILD\\Inboxes\\"; #信箱目錄最後要加\\
##檢查是不是有這個帳號存在
open (USERCFG,">>$filename") || die $!;
@usercfg=<USERCFG>;
close (USERCFG);
foreach $userline (@usercfg) {
($chkid,$chkdomain,$chksize,$chkstyle,$chkpass,$chkmail1,$chkmail2,$chkoth1,$chkoth2,$chktime,$chkdelete,$chkvip,$chkenter)= split(/\;/, $userline);
if ($chkid eq $IN{"userid"}) {&error_userid;}
}
###開始寫入users.cfg
open (USERCFG,">>$filename") || die $!;
print USERCFG "$IN{"userid"};$IN{"username"};$domain;$boxsize;1;$IN{"userpass"};;;0;;;0;$vip"; #將帳號設定為停用
close (USERCFG);
mkdir "$inboxes$IN{"userid"}" #建目錄
##歡迎畫面##perl cgi規定cgi一定要輸出~不然會出現錯誤~對程式沒影響~但不好看~所以隨便寫個輸出~
&send_mail;
print <<htmlend;
<font color=ff0000>
申請完畢，你的電子郵件信箱為<br>
$IN{"userid"}@$domain
smtp跟pop3為$domain
系統已發出一封通知信給站長~
站長保留最後絕對核發帳號之權利~
</font>
htmlend
sub send_mail { #發出mail給站長
$Domain = ''smtp.domain.name'';
$data{''Server''} = 127.0.0.1; #SMTP服務機器位置
$data{''From''} = ''"雷電maild申請通知" <[email protected]>''; #站長mail
$data{''To''} = ''"可愛的站長" <[email protected]>''; #站長mail
$data{''Subject''} = ''郵件帳號申請通知!請確認!'';
$data{''Message''} = "站長大大!敬啟\\n$IN{"username"}項你提出郵件服務申請\\n申請資料如下：\\n申請帳號：$IN{"userid"}\\n申請密碼：$IN{"userpass"}\\n申請者暱稱：$IN{"username"}\\n\\n請至管理介面開通該帳號";
use Net::SMTP;
my($server) = new Net::SMTP($data{''Server''}, Hello => $Domain);
$server->mail($data{''From''});
$server->to($data{''To''});
$server->data();
$server->datasend("Content-Type: text/plain; charset=big5\n");
$server->datasend("To: $data{''To''}\n");
$server->datasend("From: $data{''From''}\n");
$server->datasend("Subject: $data{''Subject''}\n");
$server->datasend("\n");
$server->datasend($data{''Message''});
$server->dataend();
$server->quit();
}
##ID已經有人使用
sub error_userid {
print <<htmlend;
<center><font color=ff0000 size=5>
程式發生錯誤<br></font>
$IN{"userid"}已經被使用了<br>
請再選擇一個新id
</font>
htmlend
}
|
###程式完畢###
附帶一點：這是1704的users.cfg
以後改版後的users.cfg要是有更動就要改程式
該有的都有了~~~不缺了吧~~~
本程式必須在PERL 5.04以上版本作用~~
且必須安裝NET::SMTP模組~~~
正常PERL 5.04版~~好像安裝就有NET::SMTP了~~~~~不太記得~~
_________________
http://onlyou.homeip.net/ |
|
| 回頂端 |
|
|
22183389
大熊貓
註冊時間: 2002-08-06
文章: 970
來自: 台灣 , 中華民國
|
| 發表於: 星期四 十一月 21, 2002 10:18 pm 文章標題: |
|
|
太久沒改了
現在有icq
所以新的幫你修改好了
這次是等5分鐘即可開通(要等雷電mail.......)
因為貼上來好像有點怪怪的
所以就用下載原始碼的方式
http;//www.fishsms.com/mail.txt |
|
| 回頂端 |
|
|
|
