<% Function vipname(num) if num = 0 then vipname = "普通" elseif num = 1 then vipname ="高级" elseif num =2 then vipname = "VIP" else vipname = "特殊" end if End Function IF Request("action") <> "logout" Then Call OpenConn() Dim UserName,password,Sql,Rs,userwealth username=strreplace(left(request("username"),20)) password=strreplace(left(request("password"),20)) if username="" or password="" then AlertError("您输入您的用户名和密码!") 'Str=CheckLogin(username,password) Sql="Select userid,username,Integral,Uservip,usertype From [userinfo] Where Username='"&UserName&"' And PassWord ='"& PassWord &"'" set rs=conn.execute(sql) If Not Rs.Eof And Not Rs.Bof Then Response.Cookies("design").Expires=Date+300 'Response.Cookies("design").Domain = "www.58gem.com" Response.Cookies("design")("userid")=Rs("UserID") Response.Cookies("design")("usertype")=Rs("usertype") Response.Cookies("design")("username")=username if rs("Integral") <> "" Then Response.Cookies("design")("Integral")=rs("Integral") + 2'魅力值: Else Response.Cookies("design")("Integral")=0 + 2'魅力值: End if Response.Cookies("design")("uservip")=vipname(rs("uservip")) 'userwealth = Conn.execute("Select userwealth From Dv_User Where UserID = "& request.Cookies("design")("userid"))("userwealth") 'conn.execute("update userinfo set userwealth='"& userwealth &"',Integral="& request.Cookies("design")("Integral") &",lastlogin='"& now() &"' where username='"& username &"'") closedb() else closedb() AlertError("您输入的用户名,或密码错误,请重新输入!") end if Else 'Response.Cookies("design").Domain = "www.58gem.com" Response.Cookies("design").Expires=Date-365 Response.Cookies("design")("userid")="" Response.Cookies("design")("username")="" Response.Redirect Request.ServerVariables("HTTP_REFERER") End if %>
登录成功,三秒后自动返回原页


1、管理后台:点击进入个人主页的管理 2、上传图片:快速发布最新的图片 3、写新博客:快速发布最新的博客 4、珠宝论坛:最具人气的珠宝交流平台

">返回原页    .58gem.com" target="_top">进入我的空间