<% dim aqn, rndaq, rsq aqn = 0 rndaq = 0 set rs = server.createobject("adodb.recordset") sql = "select [question] from [" & dbmunber & "aqcode]" rs.cursorlocation = 3 rs.open sql, conn, 1, 1 aqn = rs.recordcount if rs.recordcount > 0 then randomize rndaq = int(rs.recordcount * rnd()) rs.move rndaq rsq = rs(0) end if rs.close set rs = nothing dim webparameters, t act = saferequest(request("act"), 0) t = saferequest(request("t"), 0) set rs = server.createobject("adodb.recordset") sql = "select [parameters] from [" & dbmunber & "config]" rs.cursorlocation = 3 rs.open sql, conn, 1, 1 webparameters = split(rs(0), ",") rs.close set rs = nothing if act = "reg" then dim username, password, password1, xingming, xingbie, shengfen, dizhi, dianhua, xinxiang, qq, tjr, dyzm, dquestion username = saferequest(request.form("username"), 0) password = saferequest(request.form("password"), 0) password1 = saferequest(request.form("password1"), 0) xingming = saferequest(request.form("xingming"), 0) xingbie = saferequest(request.form("xingbie"), 0) shengfen = saferequest(request.form("shengfen"), 0) dizhi = saferequest(request.form("dizhi"), 0) dianhua = saferequest(request.form("dianhua"), 0) xinxiang = saferequest(request.form("xinxiang"), 0) dyzm = saferequest(request.form("yzm"), 0) dquestion = saferequest(request.form("question"), 0) qq = saferequest(request.form("qq"), 1) tjr = saferequest(request.form("tjr"), 0) if len(username) < 3 or len(username) > 20 then call msgbox("登錄帳號長度為3-20位！", "reg.asp") if checkstring(username, "([%]|[?]|[=]|[/]|[\\]|[*]|[ ]|[+]|[<]|[>]|[{]|[}]|[&]|[']$)") = true then call msgbox("登錄帳號中不允許使用非法字符。", "reg.asp") if len(password) < 1 then call msgbox("請?zhí)顚懙卿浢艽a！", "reg.asp") if password <> password1 then call msgbox("兩次輸入的密碼不一致，請重新輸入。", "-1") if len(xingming) < 1 then call msgbox("請?zhí)顚懻鎸嵭彰?, "reg.asp") if len(xingbie) < 1 then call msgbox("請選擇性別！", "reg.asp") if len(shengfen) < 1 then call msgbox("請選擇所在省份！", "reg.asp") if len(dianhua) < 1 then call msgbox("請?zhí)韺懧?lián)系電話！", "reg.asp") if dianhua <> "" then if checkstring(dianhua, "(^[0-9]{3,4}\-[0-9]{7,8}$)|(^[0-9]{3,4}[0-9]{7,8}$)|(^[1-9]{1,1}[0-9]{6,7}$)") = false and checkstring(dianhua, "(^(13|15|18)[0-9]{9}$)") = false then call msgbox("電話的格式不正確。", "reg.asp") if (left(dianhua, 5) = "12590" or left(dianhua, 3) = "168") then call msgbox("不允許使用特別服務(wù)號碼。", "-1") end if if xinxiang <> "" and checkstring(xinxiang, "^([a-zA-Z0-9_-])+@([\.a-zA-Z0-9_-])+((\.[a-zA-Z0-9_-]{2,6}){1,2})$") = false then call msgbox("電子信箱格式不正確。", "reg.asp") if qq <> "" and checkstring(qq, "(^[1-9]{1,1}[0-9]{4,9}$)") = false then call msgbox("騰訊QQ的格式不正確。", "-1") if qq <> "" and qq = "10000" then call msgbox("不允許使用系統(tǒng)服務(wù)號碼。", "reg.asp") if aqn > 0 then if dquestion = "" or dyzm = "" then call msgbox("非法的提交操作。", "index.asp") set rs = server.createobject("adodb.recordset") sql = "select [answer] from [" & dbmunber & "aqcode] where [question] = '" & dquestion & "'" rs.cursorlocation = 3 rs.open sql, conn, 1, 1 if rs.recordcount = 0 then call msgbox("非法的提交操作。", "index.asp") if md5(dyzm) <> md5(rs(0)) then call msgbox("驗證答案輸入不正確。", "-1") end if set rs = server.createobject("adodb.recordset") sql = "select [username], [password], [name], [sex], [province], [address], [tel], [email], [qq], [time], [ip], [lock], [type], [lv], [pay], [loginnumber], [exp], [logintime], [loginip], [tjren] from [" & dbmunber & "member] where [username] = '" & username & "'" rs.cursorlocation = 3 rs.open sql, conn, 1, 3 if rs.recordcount = 0 then rs.addnew rs(0) = username rs(1) = md5(password) rs(2) = xingming rs(3) = xingbie rs(4) = shengfen rs(5) = dizhi rs(6) = dianhua rs(7) = xinxiang rs(8) = qq rs(9) = now() rs(10) = myip if webparameters(0) = 1 then rs(11) = true else rs(11) = false end if rs(12) = "普通用戶" rs(13) = 0 rs(14) = 0 rs(15) = 0 rs(16) = 0 rs(17) = now() rs(18) = myip rs(19) = tjr rs.update if xinxiang <> "" then dim temp_t, temp_b temp_t = "用戶注冊信息" temp_b = "尊敬的用戶：恭喜您！注冊成功！
登錄帳號：" & username & "
登錄密碼：" & password & "

" & ename & "免費發(fā)布各類供求信息！
網(wǎng)址：" & eurl & "
電話：" & eservicetel & "
QQ：" & eserviceqq & " (點擊交談)

" call smtpmail(xinxiang, temp_t, temp_b) end if call msgbox("恭喜，注冊成功！", "userlogin.asp") else call msgbox("提示\n此帳號已被注冊，請換別的吧！", "reg.asp") end if rs.close set rs = nothing end if %> 用戶注冊 - <%= ename & " " & etitle %>

xxxx免费国产在线视频,在线观看亚洲人成影院,国产欧美日韩人成在线,亚洲欧美高清在线精品二区

<small id="rkhe7"><menu id="rkhe7"></menu></small>
  • 

      2. 

      3. 


        
  
        
本站要求大家注冊帳號，然后進行電話認(rèn)證，是為了提高信息的真實性，遠(yuǎn)離虛假信息！希望大家支持我們的做法！謝謝！
        帳號通過電話認(rèn)證才能使用！(絕不收取其他費用)人工審核，請認(rèn)真填寫！
        希望各位重視這里，認(rèn)真注冊！密碼是加密后存入數(shù)據(jù)庫的，所以管理員也查不到，請牢記登錄帳號和密碼！
        
  
        

        

<% if webparameters(2) = 1 then %>
  
<% end if %>

<% if aqn > 0 then %>
  
<% end if %>
    
        
  
  
        
    登錄帳號：
      (必填)  
      
         (三位以上的數(shù)字、字母、漢字均可，您能記住的即可！
      
          
      請不要使用空格、標(biāo)點或特殊字符！)
        
  
        
    登錄密碼：
      
      (必填)
      
         (密碼不要太簡單！一旦被盜用，一切問題后果自負(fù)！)
        
  
        
    確認(rèn)密碼：
      
      (必填)
      
         (再次輸入您上面設(shè)置的密碼)
        
  
        
    真實姓名：
      (必填) 男  女
      
         (請如實填寫您的姓名，如有活動寄發(fā)獎品)
        
  
        
    聯(lián)系地址：
      
        
  
        
    聯(lián)系電話：
      (必填)
      
        (需要認(rèn)證您填寫的電話號碼才能開通權(quán)限，外省市電話注冊無效！) 
      
        
  
        
    電子信箱：
      (建議填寫，如果沒有可不填寫)
      
        (我們將把登錄信息發(fā)送到您的信箱內(nèi))
        
  
        
    聯(lián)系QQ：
      (建議填寫，如果沒有可不填寫)
        
    推薦人帳號：
     
        
    驗證答案：
     
         請回答：<%= rsq %>