com_edithb.asp 盐城分类信息网asp源码程序 - ASP源码程序

www.gusucode.com > 盐城分类信息网asp源码程序 > admin/com_edithb.asp
    <!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,id
id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>参数错误！"
response.end
end if
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select jf,hb from [com] where id="&cstr(id)
rs.open sql,conn,1,1
%>
<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<title>修改货币</title>
<body topmargin="0" leftmargin="0">
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="180" height="35">
    <form action="com_edithbchk.asp?id=<%=id%>" method="POST">
    <tr>
      <td width="60" height="10">
      <p align="center"></td>
      <td width="121" height="10">
      </td>
    </tr>
    <tr>
      <td width="60" height="10">
      <p align="center">积分：</td>
      <td width="121" height="10">
      <input type="text" name="jf" size="12" value="<%=rs("jf")%>"></td>
    </tr>
    <tr>
      <td width="60" height="20">
      <p align="center">货币：</td>
      <td width="121" height="20">
      <input type="text" name="hb" size="12" value="<%=rs("hb")%>"></td>
    </tr>
    <tr>
      <td width="60" height="6"></td>
      <td width="121" height="6">
      <p align="center">
      <input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td>
    </tr>
    <tr>
      <td width="181" height="6" colspan="2">
      <p align="center"><font color="#FF0000">两项都必须为数字</font></td>
    </tr>
    </form>
  </table>
  </center>
</div>
<%
rs.close
set rs=nothing
closedb
%>