<%Dim urls,urlsid urls=Request.Querystring("url") If urls="" Then urls="index.asp" If instr(urls,"@@")>0 or instr(urls,"?")>0 Then urlsid="@@sid=" Else urlsid="?sid=" End if dim sid,TP,Action sid=request("sid") Action=request("Action") if Action="ok" then dim wapgo wapgo=Request.QueryString("wapgo") wapgo=replace(wapgo,"@@","&") wapgo=replace(wapgo,"bbo","bbsid") dim user,pass,sql,kie user=request("user") pass=request("pass") kie=request("kie") if user="" or pass="" then Call Error("

各项不能为空！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from Users where sjhm='"&user&"'",conn,1,1 if rs.eof then rs.close set rs=nothing set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from Users where id="&user&"",conn,1,1 if rs.eof then Call Error("

没有该会员注册信息！") end if end if if pass<>rs("mm") then Call Error("

密码错误！") end if '-----------------写入cookies response.cookies("TextCookies1")="" response.cookies("TextCookies1").Path="/" '写入前先去掉缓存 if kie > 0 then response.cookies("TextCookies1")=rs("sid") response.cookies("TextCookies1").Path="/" Response.Cookies("TextCookies1").Expires=#January 01, 2010# end if '-----------------写入cookies Response.write "" Response.write "

" response.write " 登录成功！正在返回..
" response.write "手动进入
" response.write "----------
" response.write "我的空间" response.write "
社区首页" response.write "
网站首页" rs.close set rs=nothing conn.close set conn=nothing else Response.Write "

" dim act act=trim(request.querystring("act")) if act<>"" then Response.Write "您的IP与上次IP不符请重新登录
" end if Response.Write "输入ID或手机号码:
" Response.Write "
" Response.Write "密码:
" Response.Write "
" response.write "cookies" response.write "
" Response.write "登录" Response.write "" Response.write "" Response.write "" Response.write "" Response.write ""&chr(13) Response.write "免费注册" Response.write "
登录帮助(?)" 'Response.write "自动登录注册
" Response.write "
忘记密码？" Response.write "
-----------" Response.write "
社区首页" Response.write "
返回首页
" end if response.write "

" %>