📄 com_userdjzh.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file=usercookies.asp-->
<!--#include file="config.asp"-->
<%dim djzh
djzh=trim(request("djzh"))
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居 旅游出行 招聘求职 房产信息
建材装饰 烟酒副食 电脑网络 餐饮酒店 医药保健 农林牧渔 安全防护 包装纸张 办公文教 电子通讯
纺织皮革 服装服饰 工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">
<title>会员管理中心-道具转换-<%=title%></title>
</head>
<body topmargin="0">
<!--#include file="topcnmai.asp"-->
<div align="center">
<table width="760" id="table1" bgcolor="#FFFFFF" style="border-left:1px solid #CCCCCC; border-right:1px solid #CCCCCC; padding:1px; border-top-width:1px; border-bottom-width:1px" cellspacing="1">
<tr>
<td width="158" height="25" class=td2_muen>
<p align="center"><font color=white>会员管理系统</font></td>
<td width="1" height="139" rowspan="2"> </td>
<td width="594" height="25" class=td4_muen>
<p align="center">会员管理中心</font>-道具转换</td>
</tr>
<tr>
<td width="157" height="113" bgcolor="#F6F6F6" valign="top"><!--#include file=com_userleft.asp--></td>
<td valign="top" bgcolor="#F6F6F6">
<%if djzh="" then%>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<%
dim username,rs,sql,jf,a,b,c,d,i,hb,rs1,sql1,g_s
i=1
username=request.cookies("cnmai")("username")
set rs=server.createobject("adodb.recordset")
sql = "select jf,a,b,c,d from [com] where username='"&username&"'"
rs.open sql,conn,1,1
jf=rs("jf")
a=trim(rs("a"))
b=trim(rs("b"))
c=trim(rs("c"))
d=trim(rs("d"))
rs.close
set rs=nothing
closedb
%>
<tr>
<td width="99%" height="25" colspan="5" bgcolor="#FFECD9"> 此操作将你的积分转换为虚拟货币KB，方便你购买其他道具！</td>
</tr>
<tr>
<td height="25" class=td_muen colspan="5">
<p align="left"> 道具转换</td>
</tr>
<form method="POST" action="com_userdjzh.asp?cnmai=1">
<tr>
<td width="3%" height="25" align="center">
<p align="left"> </td>
<td width="21%" height="25" align="center">
我有<font color="#800000">标题变色道具</font></td>
<td width="15%" height="25" align="center">
<select name="a">
<option value="0">转换数量</option>
<%for i=1 to int(a)%>
<option value="<%=i%>"><%=i%>个</option>
<%next%>
</select></td>
<td width="36%" height="100" align="center" rowspan="4">
<p align="center">
<img border="0" src="image/point03.gif" width="38" height="85">虚拟货币KB</td>
<td width="24%" height="25" align="center">
</td>
</tr>
<tr>
<td width="3%" height="25" align="center">
<p align="left"> </td>
<td width="21%" height="25" align="center">
我有<font color="#800000">信息置顶道具</font></td>
<td width="15%" height="25" align="center">
<select name="b">
<option value="0">转换数量</option>
<%for i=1 to int(b)%>
<option value="<%=i%>"><%=i%>个</option>
<%next%>
</select></td>
<td width="24%" height="25" align="center">
</td>
</tr>
<tr>
<td width="3%" height="25" align="center">
<p align="left"> </td>
<td width="21%" height="25" align="center">
我有<font color="#800000">内容贴图道具</font></td>
<td width="15%" height="25" align="center">
<select name="c">
<option value="0">转换数量</option>
<%for i=1 to c%>
<option value="<%=i%>"><%=i%>个</option>
<%next%>
</select></td>
<td width="24%" height="25" align="center">
<input type="submit" value="我要转换" name="djzh"></td>
</tr>
<tr>
<td width="3%" height="25"> </td>
<td width="21%" height="25" align="center">
<p align="center">我有<font color="#800000">通过验证道具</font></td>
<td width="15%" height="25">
<p align="center">
<select name="d">
<option value="0">转换数量</option>
<%for i=1 to d%>
<option value="<%=i%>"><%=i%>个</option>
<%next%>
</select></td>
<td width="24%" height="25">
<p align="center"> </td>
</tr>
</form>
<tr>
<td width="99%" height="25" class=td_muen colspan="5"> 积分转换
只要您天天登陆本站,就可以不断增加您的积分哟</td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">当前我的积分是：<font color="#FF0000"><%=jf%></font></td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">本站可以用 <font color="#FF0000"> <%=jf_hb%></font> 积分转换
<font color="#FF0000">1</font> 个虚拟货币KB</td>
</tr>
<tr>
<td width="99%" height="23" colspan="5">我的积分可以转换 <font color="#FF0000"><%=int(jf/jf_hb)%></font>
个虚拟货币KB，剩余的积分我们将予以保留。</td>
</tr>
<form method="POST" action="com_userdjzh.asp?cnmai=2">
<tr>
<td width="99%" height="23" colspan="5">是否要转换虚拟货币KB：
<input type="hidden" name="jf" size="7" value="<%=jf%>"><input type="submit" value="我要转换" name="djzh"></td>
</tr>
</form>
</table>
<%else
username=request.cookies("cnmai")("username")
sub cnmai_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 [com] 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>转换成功！"
response.write "<meta http-equiv=refresh content=""1;URL=com_userdjzh.asp"">"
end sub
sub cnmai_2()
set rs1=server.createobject("adodb.recordset")
sql1 = "select jf,hb from [com] where username='"&username&"'"
rs1.open sql1,conn,1,3
if rs1("jf")<int(request("jf")) then
response.write "<li>参数错误！"
response.end
end if
g_s=int(rs1("jf")/jf_hb)
rs1("jf")=rs1("jf")-int(g_s*jf_hb)
rs1("hb")=rs1("hb")+g_s
rs1.update
rs1.close
set rs1=nothing
response.write "<li>转换成功！"
response.write "<meta http-equiv=refresh content=""1;URL=com_userdjzh.asp"">"
end sub
%>
<%
if request("cnmai")="1" then
cnmai_1()
end if
if request("cnmai")="2" then
cnmai_2()
end if
%>
<%closedb%>
<%end if%>
</td>
</tr>
</table>
</div>
<!--#include file="endcnmai.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -