<% title = "用户注册 - 金花站长工具箱官网 - 关键词挖掘、排名自动查询" desc = "" if request("act") = "x" then username = request("kinguser") password = request("kingpass") password1 = request("kingpass1") qq = request("qq") email = request("email") replacekey(username) replacekey(password) replacekey(qq) replacekey(email) if request("mac") <> "" then mac = int(request("mac")) else mac = 0 end if if password1 <> password then Response.write("") Response.End end if if int(request("code")) <> int(session("SafeCode")) then session("SafeCode") = "-1" Response.write("") Response.End end if set rs = conn.execute("select * from [user] where username='"&username&"'") if not rs.bof then Response.write("") Response.End else conn.execute("INSERT INTO [user] (username,[password],qq,email)VALUES('"&username&"','"&password&"','"&qq&"','"&email&"')") if mac <> 0 then set rs1 = conn.execute("select top 1 id from [user] order by id desc") set rs = conn.execute("select endtime from userstats where id="&mac) if not rs.eof then if rs("endtime") > date() then conn.execute("update userstats set endtime = '"&date()&"',userid = "&rs1("id")&" where id="&mac) conn.execute("update [user] set maccount = 1,endtime = '"&rs("endtime")&"' where username = '"&username&"'") response.Write "" response.End() end if end if end if response.Write "" response.End() end if end if Function GetRndPassword(PasswordLen) Dim Ran,i,strPassword strPassword="" For i=1 To PasswordLen Randomize Ran = CInt(Rnd * 2) Randomize If Ran = 0 Then Ran = CInt(Rnd * 25) + 97 strPassword =strPassword & UCase(Chr(Ran)) ElseIf Ran = 1 Then Ran = CInt(Rnd * 9) strPassword = strPassword & Ran ElseIf Ran = 2 Then Ran = CInt(Rnd * 25) + 97 strPassword =strPassword & Chr(Ran) End If Next GetRndPassword=strPassword End Function %>

金花关键词工具会员注册