📄 edit_xinxi_b.asp
字号:
<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
<%
dim i,bb,b
id=trim(request("id"))
username=request.cookies("days6")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open"select b from [user] where username='"&username&"'",conn,1,1
if rs("b")<=0 then
bb=0
else
bb=rs("b")
end if
set rs_a = Server.CreateObject("ADODB.RecordSet")
rs_a.open"select b from [shop_books] where bookid="&id&"",conn,1,1
b=rs_a("b")
%>
<body topmargin="0">
<title>信息修改-信息固顶使用</title>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%" height="25">此前该信息<%if b>"0" then%>使用<%=b%>个<%else%>没有使用<%end if%>
<font color="#0000FF">信息固顶道具</font></font></td>
</tr>
<tr>
<td width="100%" height="25">你现在还有<font color="#0000FF"><%=bb%></font>个<font color="#0000FF">信息固顶</font> 道具 </td>
</tr>
<tr>
<form action="edit_b.asp?id=<%=id%>" method="POST">
<td width="100%" height="25">如果你想增加请选择数量
<%if bb>0 then%>
<select name="b">
<option value="0" selected>不使用</option>
<%for i=1 to bb%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
<input type="submit" value="提交" name="B1">
<%else%> <font color="#FF9933">你现在还没有信息固顶道具，请联系购买</font>
<%
cl
%>
<%end if%>
</td>
</form>
</tr>
</table>
<p>此操作将减掉相应的道具数量</p>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 5000)">
<%end sub%>
<%closedb%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -