| 上一篇文章 :: 下一篇文章 |
| 發表人 |
內容 |
小謝
六段
註冊時間: 2002-01-05
文章: 135
來自: 台灣 , 中華民國
|
 發表於: 星期四 六月 20, 2002 8:46 am 文章標題: 誰願意提供ㄋ.. |
 |
|
誰願意提供一個完整的
建立帳號網頁表單ㄋ
不會重複建立帳號
並可以列出帳號名單的ㄋ~
因為我不太會寫程式
所以如果有人願意提供
小弟非常感激~
如果有的話請寄到
t0155267@cm1.ethome.net.tw
或是願意提供給大家下載的ㄋ~ |
|
| 回頂端 |
|
 |
報馬仔
四段
註冊時間: 2002-02-06
文章: 88
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 11:04 am 文章標題: |
|
|
我是寫好可建立的asp表單
但還有檢查的程式不會寫
我也好需要會寫的人提供
能否將您寫的表單(程式的部分)寄給我參考參考
感謝！
煩請mail至 glory@org.idv.tw |
|
| 回頂端 |
|
|
alan35
四段
註冊時間: 2001-11-08
文章: 93
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 11:43 am 文章標題: |
|
|
| 報馬仔 寫到: | 我是寫好可建立的asp表單
但還有檢查的程式不會寫
我也好需要會寫的人提供
能否將您寫的表單(程式的部分)寄給我參考參考
感謝！
煩請mail至 glory@org.idv.tw |
我有試著在寫!!但是卡在建立完帳號無法使用的問題!!
至於檢查的方式我建議使用獨立資料庫的方式!!
您可以寄一份您寫的部份給我參考嗎^^"
alan35@pchome.com.tw
非常之感謝!!
若我有完成的話必定分享給大家^^ |
|
| 回頂端 |
|
|
小謝
六段
註冊時間: 2002-01-05
文章: 135
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 1:00 pm 文章標題: |
|
|
請大家互相研究一下
感謝.... |
|
| 回頂端 |
|
|
報馬仔
四段
註冊時間: 2002-02-06
文章: 88
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 2:51 pm 文章標題: |
|
|
| 代碼: |
<%
IF request("sendit")="yes" THEN''''''''''''''''---先檢查表單有沒有發出, 如果有就執行下列?#123;序
id=request("id")
username=request("username")''''''''''''''''--取得表格中使用者名稱
userpassword=request("userpassword")''''''''''''''''--取得表格中使用者密碼
domain=request("domain")
Const ForReading = 1, ForWriting = 2, ForAppending = 8, TristateFalse=0
Dim fs, f ''''''''''''''''line 20
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\Program Files\Raidmail\users.cfg", ForAppending, TristateFalse)
''''''''''''''''以下部分是用來檢查USER名稱有否重複，但不會寫
'''''''''''''''' do while not f.atEndOfStream
'''''''''''''''' temp = split(f.readline(),";")
'''''''''''''''' if id = temp(0) ; username = temp(1) then
'''''''''''''''' response.write"id or name 重覆"
'''''''''''''''' exit do
'''''''''''''''' end if
'''''''''''''''' loop
'''''''''''''''' 到這為止
f.Write id & ";" & username & ";" & domain & ";0;1;" & userpassword & ";;;0;0;;0" & chr(13)
f.Close
''''''''''''''''---寫入結束
Else''''''''''''''''---如果表格未被送出就執行下列?#123;序
%>
<Html>
<head></head>
<body bgcolor="#CCFF99">
<p align="center"><img border="0" src="images/createmail.gif"></p>
<form action="email.asp" method="post">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="582" id="AutoNumber1">
<tr>
<td width="96"><img border="0" src="images/coo1.gif"></td>
<td width="486">
<input type="text" name="id" size="22" tabindex="1" maxlength="16">
<font color="#0000FF">請填入3至16個字元您所想要的英文名字</font></td>
</tr>
<tr>
<td width="96"><img border="0" src="images/coo2.gif"></td>
<td width="486">
<input type="text" name="username" size="22"><font color="#FF00FF">
</font> <font color="#0000FF">請確實填入您的中文姓名</font></td>
</tr>
<tr>
<td width="96"><img border="0" src="images/coo3.gif"></td>
<td width="486">
<input type="password" name="userpassword" size="22" maxlength="16">
<font color="#0000FF">請輸入密碼</font></td>
</tr>
<tr>
<td width="96"><img border="0" src="images/coo4.gif"></td>
<td width="486">
<select size="1" name="domain">
<option selected value="micro.idv.tw">micro.idv.tw</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" height="21" nowrap width="582">
<div align="center">
<input type="submit" value="確定送出" name="submit">
<input type="hidden" name="sendit" value="yes">
<input type="reset" value="取消重寫" name="erase">
</div>
</td>
</tr>
</table>
</center>
</div>
</form>
</body>
</Html>
請將以上此原始碼複製存檔成email.asp 即可使用
若是使用Windows 2000者
請將users.cfg ?#93;定安全讓匿名登入者可寫入
否則會出?#123;錯誤
|
|
|
| 回頂端 |
|
|
小謝
六段
註冊時間: 2002-01-05
文章: 135
來自: 台灣 , 中華民國
|
| 發表於: 星期四 六月 20, 2002 4:55 pm 文章標題: |
|
|
Microsoft VBScript 編譯階段錯誤 錯誤 ''800a03f6''
必須要有 ''End''
/email.asp, 列23
請問一下這要怎麼解決ㄋ
我執行出現這個畫面說~ |
|
| 回頂端 |
|
|
Arnor
究極の素還尊
註冊時間: 2001-11-07
文章: 13011
來自: TAIWAN
|
| 發表於: 星期四 六月 20, 2002 9:13 pm 文章標題: |
|
|
在最後面再加上
<% endif%>
不曉得有無說錯...
太久沒碰asp了...
_________________
*若是想問問題的話, 請務必不要塗改任何 IP, 網域資料, 您若不願貼上IP或網域, 請改以電子郵件來詢問. 謝謝您的配合.*
*若是回報疑似軟體的運行或邏輯或資料處理有誤的問題, 小弟很樂意去了解您的情況, 但請務必以最新版來做回報, 如果以郵件詢問, 請參考 http://www.raidenmaild.com/tw/feedback.html 的說明, 最好標題加個 RaidenMAILD 字樣, 才不致會遺漏了您的信唷. 謝謝您的配合^^*
*在版上發文請遵守網路禮儀, 並請持著虛心敘述問題請教他人, 凡發現違反的文, 均一律刪除為優先, 不另行通知喔.
*與使用者教學相長腦力激盪是我輩成就感的來源, 誠心希望您能不吝指教.
*雷電MAILD 知識庫文件 http://www.raidenmaild.com/tw/kb/
素還尊
Team John Long.
Email: arnor@raidenmaild.com
公司網站 http://www.raidenmaild.com/company/ |
|
| 回頂端 |
|
|
|
