main1.asp

梦想世界虚拟社区

<%
 if session ("name1") = "" then
session ("tishi") = "未注册用户不能直接登录，请注册！"
response.redirect "setup2.asp"
end if
%>
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
rs.open "select 经验值 from 资料 where 昵称 = '" & session ("name1") & "'",cnn
if rs ("经验值") <= 50 then
jibie = "一星准将"
end if
if rs("经验值") > 50 and rs("经验值") <= 200 then
jibie = "二星少将"
end if
if rs("经验值") > 200 and rs("经验值") <= 1000 then
jibie = "三星中将"
end if
if rs("经验值") > 1000 and rs("经验值") <= 3000 then
jibie = "四星上将"
end if
if rs("经验值") >3000 then
jibie = "五星上将（元帅)"
end if
rs.close
rs.open "update 资料 set 登录时间 = '" &now()& "',登录次数 = 登录次数 + 1,当前状态 = 1,级别 = '" & jibie & "',ip = '"&request.servervariables("REMOTE_ADDR")&"' where 昵称 = '" & session ("name1") & "'",cnn
cnn.close
response.redirect "main.asp"
%>