📄 chuli.asp
字号:
<!--#include file="in.inc" -->
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../format.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="300" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"></td>
</tr>
<tr>
<td align="center">
<%
temp = request ("t")
if temp = "money" then
mo = int(request ("m"))
rs.open "select 金钱 from 资料 where 昵称 = '"&session ("name1")&"'",cnn
if mo > rs ("金钱") then
%>你没有这么多的钱！！！
<% rs.close
else
rs.close
rs.open "update 资料 set 金钱 = 金钱 - "&mo&",经验值 = 经验值 + "&mo&" where 昵称 = '" & session ("name1") & "'",cnn
response.write ("已经兑换成功！")
end if
end if %>
<%
if temp = "jyz" then
mo = int (request ("j"))
rs.open "select 经验值 from 资料 where 昵称 = '"&session ("name1")&"'",cnn
if mo > rs ("经验值") then
%>你没有这么多的经验值！！！
<% rs.close
else
rs.close
rs.open "update 资料 set 金钱 = 金钱 + "&mo&",经验值 = 经验值 - "&mo&" where 昵称 = '" & session ("name1") & "'",cnn
response.write ("已经兑换成功！")
end if
end if %>
</td>
</tr>
<tr>
<td align="center"><a href="javascript:history.back();">返回</a></td>
</tr><% cnn.close%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -