📄 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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -