有大神幫忙嗎？
求大神們幫忙寫一個簡單的asp的網站注冊程式，大概是有注冊賬號，密碼，QQ填寫就行了，然后把注冊填寫的賬號和密碼寫入一個盤符（比如是D:/REG/1.scp的這個文本里，但是順便檢測一個2.scp這個文本里，是否有這個賬號存在，有就提示賬號已經存，請換個賬號名）寫入D:/REG/1.scp的檔案格式大概如下：
[這里是賬號名]
PASSWORD=這里是密碼
LEVEL=0
PRIV=0
uj5u.com熱心網友回復：
為什么要到寫文本檔案里面？是練習還是專案需求？另外，ASP操作的是server.mapPath()下的內容，也就是網站的根目錄以下的內容，你這樣以絕對路徑指定能不能實作是一回事，從道理上講是不對的。
uj5u.com熱心網友回復：
是一個游戲需要注冊賬號，不知道你玩過或則聽過網路創世紀這個游戲沒？它這個游戲自身在線注冊有問題BUG可以盜號，所以必須做一個網站注冊賬號，要求就像我上面說的那樣檢測賬號是否有人注冊過，沒有才能注冊寫入指定的文本里，我可以把這個賬號檔案夾一起放在IIIS上就行了啊uj5u.com熱心網友回復：
很簡單，可以密我uj5u.com熱心網友回復：
可以支持絕對路徑的
uj5u.com熱心網友回復：
參考，可按自己業務自行修改：表面代碼（regist.asp）：
<form name="form1" method="post" action="regists.asp">
<table width="600" height="356" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#999999" bgcolor="#FFFFFF">
<tr>
<th height="89" colspan="2" scope="col"><h2 class="STYLE5">用戶注冊</h2></th>
</tr>
<tr>
<td width="120" align="right">用戶名：</td>
<td width="350"><label></label>
<label>
<input name="username" type="text" id="username" />
</label></td>
</tr>
<tr>
<td align="right">密 碼：</td>
<td><label>
<input name="password" type="password" id="password" />
</label></td>
</tr>
<tr>
<td align="right">重復密碼：</td>
<td><label>
<input name="repassword" type="password" id="repassword" />
</label></td>
</tr>
<tr>
<td align="right">性 別：</td>
<td><label>
<input name="sex" type="radio" value="https://bbs.csdn.net/topics/男" checked="checked" />
男
<input type="radio" name="sex" value="https://bbs.csdn.net/topics/女" />
女
</label></td>
</tr>
<tr>
<td align="right">E-mail: </td>
<td><label>
<input name="E-mail" type="text" id="E-mail" />
</label></td>
</tr>
<tr>
<td height="31" align="right">公 司：</td>
<td><label>
<input name="company" type="text" id="company" />
</label></td>
</tr>
<tr>
<td height="89" colspan="2" align="center"><label>
<input name="post" type="submit" id="post" value="https://bbs.csdn.net/topics/提交" />
<input type="reset" name="Submit2" value="https://bbs.csdn.net/topics/重置" />
</label></td>
</tr>
</table>
</form>
處理頁面代碼(regists.asp)：
<title>用戶注冊頁面</title><!--#include file="access/conn.asp"-->
<%
if trim(request("username"))<>"" and trim(request("password"))<>"" then
call a
else
response.Write"<script language='javascript'>"& "alert('用戶名和密碼不能為空！');history.go(-1);</script>"
end if
%>
<%
private sub a
if (len(trim(request("username")))>5) and (len(trim(request("password")))>5) then
call b
else
response.Write"<script language='javascript'>"& "alert('用戶名和密碼長度不能少于6個字符');history.go(-1);</script>"
end if
end sub
%>
<%
private sub b
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from regist where username='" & trim(request("username")) & "'",conn,1,3
if not (rs.bof and rs.eof) then
rs.close
set rs=close
response.Write"<script language='javascript'>"& "alert('對不起，該用戶名已存在！');history.go(-1);</script>"
else
call c
end if
end sub
%>
<%
private sub c
dim pwd1
pwd1=Request("password")
dim pwd2
pwd2=Request("repassword")
if pwd1<>pwd2 then
rs.close
response.Write"<script language='javascript'>"& "alert('用戶密碼前后輸入不一致！');history.go(-1);</script>"
else
call d
end if
end sub
%>
<%
private sub d
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from regist where username='" & trim(request("username")) & "'",conn,1,3
rs.close
rs.open "select * from regist",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("password")=trim(request("password"))
rs("sex")=trim(request("sex"))
rs("E-mail")=trim(request("E-mail"))
rs("company")=trim(request("company"))
rs.update
rs.close
response.Write "恭喜您!"& trim(request("username")) & "注冊成功！"
response.Write "<p><a href=https://bbs.csdn.net/topics/index.asp>回傳首頁"
set rs1=nothing
end sub
%>
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/68851.html
標籤：ASP