📄 edit_xinxi_d.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,dd,d
id=trim(request("id"))
username=request.cookies("days6")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open"select d from [user] where username='"&username&"'",conn,1,1
if rs("d")<=0 then
dd=0
else
dd=rs("d")
end if
set rs_a = Server.CreateObject("ADODB.RecordSet")
rs_a.open"select d from [shop_books] where bookid="&id&"",conn,1,1
d=rs_a("d")
%>
<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 d="0" then%>
<font color="#FF0000">没有使用</font>
<%else%>
<font color="#FF0000">使用了</font>
<%end if%>
<font color="#0000FF">重新竞价道具 </font></td>
</tr>
<tr>
<td width="100%" height="25">你现在还有<font color="#0000FF"><%=dd%></font>
</font color="#0000FF">标题变色道具 </font>
</td>
</tr>
<tr>
<form action="edit_d.asp?id=<%=id%>" method="post">
<td width="100%" height="24">如果你想增加请选择使用
<%if dd>0 then%>
<select name="d">
<option style="COLOR: black" value="0" selected>不使用 </option>
<option style="COLOR: black" value="1">使用</option>
</select> <input type="submit" value="提交" name="B1">
<%else%>
<font color="#999999">没有道具</font>
<%
cl
%>
<%end if%>
</td>
</form>
</tr>
</table>
<p>此操作需要支付1个<font color="#0000FF">站长推荐道具</font></p>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 5000)">
<%end sub%>
<%closedb%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -