admin_user_vip.asp

来自「全站生成htm静态页面」· ASP 代码 · 共 60 行

<!--#include file="function.asp"-->
<%CheckAdmin3%>
<%PageName="admin_UserModify"%>
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where id="&id
rs.open sql,conn,1,1
if rs.eof then
errmsg="<br>操作错误！请联系管理员"
call error()
Response.end
else
Username=rs("Username")
vipdate=rs("vipdate")
rs.close
end if
%>
<!--#include file="style.asp"-->
<!--#include file="top.asp"-->
<div align="center">
<table border="0" width="88%" cellspacing="1" cellpadding="1">
  <tr>
    <td align=center valign=top>
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="GREEN" bordercolordark="#FFFFFF">
        <form method="POST" action="Admin_User_Save.asp?id=<%=id%>" id=form2 name=form2>
          <tr>
            <td width="100%" height="22" colspan=2 bgcolor="#39867B" align=center><font color="white">用 户 冲 值</font></td>
          </tr>
          <tr>
            <td width="15%" height="20" align="right">用户ID：</td>
            <td width="90%"><%=Username%></td>
          </tr><tr>
            <td width="15%" height="20" align="right">VIP期限：</td>
            <td width="90%"><input class=input  type="text" name="vipdate" value="<%=vipdate%>" size="20"><font color=red>  时间以天为单位，只要输入数字就OK</font></td>
          </tr>
            <tr>
            <td width="15%" height="20" align="right"><font color=red>计算开始日期：</font></td>
            <td width="90%"><input class=input  type="text" name="adddate" value="<%=now()%>" size="20"><font color=green>  默认为现在时间，假如是在原来的基础上加时间，请用</font><a href=Admin_User_Modify.asp?id=<%=id%>><font color=red>修改资料</a></font><font color=green>冲值</font></td>
          </tr>
            
          <tr align="center">
            <td colspan=2>
              <input class=input  type="hidden" value="cz" name="act"> 
              <input class=input  type="submit" value=" 修 改 " name="cmdok2">&nbsp; 
              <input class=input  type="reset" value=" 清 除 " name="cmdcance2l">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>