如需移除,請網站管理者移除.
例如這是我會員註冊的程式..你可以參考看看.. 不過裡面有個傳值過來的IP位址忘了寫判斷偵查^^"...
<!--#include file="conn.asp"--><% set rs = server.createobject("adodb.recordset") ID = Replace(request.form("ID"),"'","") PA = Replace(request.form("PA"),"'","") Mail = Replace(request.form("Mail"),"'","") ip = Request.ServerVariables("remote_addr") //判斷是否傳值正確 if ID = empty or PA = empty or Mail = empty then response.write "<script>while(1){alert('請從正常入口登入! 按Ctrl+Alt+Del三次後關閉視窗!')}</script>" set rs = Nothing set conn = Nothing response.end end if //禁止同IP短時間申請 SQL = "select top 5 * from C_User " rs.open SQL,conn,1,1 for i = 1 to rs.RecordCount if rs("ip") = ip then response.write "<p align=center><font size=2 color=#FF0000>您已經申請過!</font>" response.write "--<font size=2><a href=./>返回</a></font>--</p>" rs.close set rs = Nothing set conn = Nothing response.end end if next rs.close //判斷是否有人已經申請此帳號 SQL = "select id from C_User where AD = '" & ID & "'" rs.open SQL,conn,1,1 if not rs.eof then response.write "<p align=center><font size=2 color=#FF0000>已經有人申請此帳號!</font>" response.write "--<font size=2><a href=ImageAdd.asp>返回</a></font>--</p>" rs.close set rs = Nothing set conn = Nothing response.end end if rs.close //判斷是否有人已經申請此信箱 SQL = "select id from C_User where E_Mail = '" & Mail & "'" rs.open SQL,conn,1,1 if not rs.eof then response.write "<p align=center><font size=2 color=#FF0000>已經有人使用此信箱!</font>" response.write "--<font size=2><a href=ImageAdd.asp>返回</a></font>--</p>" rs.close set rs = Nothing set conn = Nothing response.end end if rs.close //限制300人申請 rs.open "C_User",conn,1,1 if rs.RecordCount > 300 then response.write "<p align=center><font size=2 color=#FF0000>已達到申請名額,無法申請!</font>" response.write "--<font size=2><a href=./>返回</a></font>--</p>" rs.close set rs = Nothing set conn = Nothing response.end end if rs.close //添加一個用戶到資料庫 SQL = "select * from C_User" rs.open SQL,conn,3,3 rs.addnew rs("AD") = ID rs("PA") = PA rs("E_Mail") = Mail rs("ST") = true rs("DayOut") = Now rs("DayIn") = Now rs("ip") = ip rs.update rs.close set rs = Nothing set conn = Nothing response.redirect "ImageAdd_View.asp?ID=" & ID %>
回覆
or tags.