📄 edit_xinxi_a.asp

📁 闲置物品免费交易的平台
💻 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,aa,a
id=trim(request("id"))
username=request.cookies("days6")("username")
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open"select a from [user] where username='"&username&"'",conn,1,1
if rs("a")<=0 then 
aa=0
else
aa=rs("a")
end if
set rs_a = Server.CreateObject("ADODB.RecordSet")
rs_a.open"select a from [shop_books] where bookid="&id&"",conn,1,1
a=rs_a("a")
%>

<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 a="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"><%=aa%></font>
      </font color="#0000FF">标题变色道具 </font>
       </td>
  </tr>
  <tr> 
    <form action="edit_a.asp?id=<%=id%>" method="post">
      <td width="100%" height="25">如果你想增加或修改请选择下拉列表的颜色 
        <%if aa>0 then%>
        <select name="a">
          <option style="COLOR: black" value="0" selected>不使用 </option>
          <option style="background: #000088" value="000088"> </option>
          <option style="background: #0000ff" value="0000ff"> </option>
          <option style="background: #008800" value="008800"> </option>
          <option style="background: #008888" value="008888"> </option>
          <option style="background: #0088ff" value="0088ff"> </option>
          <option style="background: #00a010" value="00a010"> </option>
          <option style="background: #1100ff" value="1100ff"> </option>
          <option style="background: #111111" value="111111"> </option>
          <option style="background: #333333" value="333333"> </option>
          <option style="background: #50b000" value="50b000"> </option>
          <option style="background: #880000" value="880000"> </option>
          <option style="background: #8800ff" value="8800ff"> </option>
          <option style="background: #888800" value="888800"> </option>
          <option style="background: #888888" value="888888"> </option>
          <option style="background: #8888ff" value="8888ff"> </option>
          <option style="background: #aa00cc" value="aa00cc"> </option>
          <option style="background: #aaaa00" value="aaaa00"> </option>
          <option style="background: #ccaa00" value="ccaa00"> </option>
          <option style="background: #ff0000" value="ff0000"> </option>
          <option style="background: #ff0088" value="ff0088"> </option>
          <option style="background: #ff00ff" value="ff00ff"> </option>
          <option style="background: #ff8800" value="ff8800"> </option>
          <option style="background: #ff0005" value="ff0005"> </option>
          <option style="background: #ff88ff" value="ff88ff"> </option>
          <option style="background: #ee0005" value="ee0005"> </option>
          <option style="background: #ee01ff" value="ee01ff"> </option>
          <option style="background: #3388aa" value="3388aa"> </option>
          <option style="background: #000000" value="000000"> </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 + -