const.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 ("金钱") < 0 then 
response.write ("你的金钱已为负，不能再进行游戏！")
response.end
end if
rs.close 
%>