📄 option.asp
字号:
<%
Response.Expires=0
username=session("hxf_u_nickname")
if username="" then Response.Redirect "../error.asp?id=440"
nowdate=cstr(date())
mo=Request.Form ("mo")
newmo=Request.Form ("newmo")
bkmn=Request.Form("money")
bkop=Request.Form("op")
if mo="" or newmo="" then Response.End
if isnumeric(bkmn) then
if bkmn>1 then
if bkop="取款" then
if bkmn-newmo>0 then Response.Redirect "bank.asp"
sqlstr="update 用户 set 银两=银两+"&bkmn&",存款=存款-"&bkmn&" where 姓名='"&username&"' and 存款>="&bkmn
end if
if bkop="存款" then
if bkmn-mo>0 then Response.Redirect "bank.asp"
sqlstr="update 用户 set 银两=银两-"&bkmn&",存款=存款+"&bkmn&" where 姓名='"&username&"' and 银两>="&bkmn
end if
if sqlstr="" then
response.redirect "bank.asp"
response.end
else
set conn=server.CreateObject("adodb.connection")
conn.Mode=16
conn.IsolationLevel=256
conn.Open Application("hg_connstr")
conn.Execute(sqlstr)
conn.Close
set conn=nothing
response.redirect "bank.asp"
response.end
end if
else
response.redirect "bank.asp"
response.end
end if
else
response.redirect "bank.asp"
response.end
end if
%>
<html>
<head>
<script language=""javascript"">if(window==window.top){top.location.href=""jhchat.asp"";} </script>
</head>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -