📄 djzhchk.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=config.asp-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>购买道具</title>
<link rel="stylesheet" type="text/css" href="1.CSS">
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" height="371">
<tr>
<td width="778" colspan="4" height="46"><!--#include file=top.asp--></td>
</tr>
<tr>
<td width="157" height="299" valign="top"><br>
<!--#include file=userleft.asp--></td>
<td width="10" height="299" background="img/line_01.gif"> </td>
<td width="603" height="299" valign="top" align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="109">
<%
dim username,rs,sql,jf,a,b,c,d,hb,g_s,i
username=request.cookies("ijob")("username")
sub ijob_1()
i=1
a=trim(request("a"))
b=trim(request("b"))
c=trim(request("c"))
d=trim(request("d"))
set rs=server.createobject("adodb.recordset")
sql = "select a,b,c,d,hb from [user] where username='"&username&"'"
rs.open sql,conn,1,3
if rs("a")<int(request("a")) then
response.write "<li>参数错误！"
response.end
end if
if rs("b")<int(request("b")) then
response.write "<li>参数错误！"
response.end
end if
if rs("c")<int(request("c")) then
response.write "<li>参数错误！"
response.end
end if
if rs("d")<int(request("d")) then
response.write "<li>参数错误！"
response.end
end if
hb=a*g_a+b*g_b+c*g_c+d*g_d
rs("a")=rs("a")-int(a)
rs("b")=rs("b")-int(b)
rs("c")=rs("c")-int(c)
rs("d")=rs("d")-int(d)
rs("hb")=rs("hb")+int(hb)
rs.update
rs.close
set rs=nothing
response.write "<li>转换成功！"
end sub
sub ijob_2()
set rs=server.createobject("adodb.recordset")
sql = "select jf,hb from user where username='"&username&"'"
rs.open sql,conn,1,3
if rs("jf")<int(request("jf")) then
response.write "<li>参数错误！"
response.end
end if
g_s=int(rs("jf")/jf_hb)
rs("jf")=rs("jf")-int(g_s*jf_hb)
rs("hb")=rs("hb")+g_s
rs.update
response.write "<li>转换成功！"
rs.close
set rs=nothing
end sub
%>
<tr>
<td width="94%" height="1"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="26">
<tr>
<td width="100%" height="26">
<%
if request("ijob")="1" then
ijob_1()
end if
%>
<%
if request("ijob")="2" then
ijob_2()
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="99%" height="25" align="center">
<p align="left"> </td>
</tr>
<tr>
<td width="99%" height="25" align="center">
<p align="left"> </td>
</tr>
<tr>
<td width="99%" height="25"> </td>
</tr>
</table>
</td>
<td width="8" height="299" background="img/line_01.gif"> </td>
</tr>
<tr>
<td width="778" height="26" colspan="4"><!--#include file=copywright.asp--></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%closedb%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -