📄 userdjzhchk1.asp

📁 一套现成的分类信息网站发布系统

💻 ASP

字号:

<!--#include file=conn1.asp-->
<!--#include file=usercookies.asp-->
<!--#include file="config.asp"-->
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>购买道具</title>
<link href="inc_style.css" rel="stylesheet" type="text/css">
</head>

<body topmargin="0" leftmargin="0">
<!--#include file=top.asp-->
<div align="center">
  <center>
  <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="768" height="34">
 
    <tr>
      <td width="157" height="34" valign="top"><br>
      <!--#include file=userleft.asp--></td>
      <td width="10" height="34" background="images/line_01.gif">　</td>
      <td width="603" height="34" valign="top" align="center">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="25">
<%
dim username,rs,sql,jf,a,b,c,d,hb,g_s,i
username=request.cookies("cnmai")("username")
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
rs.close
set rs=nothing
response.write "<li>转换成功！"
response.write "<meta http-equiv=refresh content=""1;URL=userdjzh.asp"">"
%>
        </table>
      </td>
      <td width="8" height="34" background="images/line_01.gif">　</td>
    </tr>
<!--#include file=end.htm-->
  </table>
  </center>
</div>
</body>
</html>
<%closedb%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -