vip_admin.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<meta http-equiv="Content-Language" content="zh-cn">
<%
dim rs,sql,id,vip,xgzt
id=request("id")
set rs=server.createobject("adodb.recordset")
sql="select companyName,vip,vipzt,vipsqdata,vipdata,vipqx,vipmemo from [company] where id="&cstr(id)
rs.open sql,conn,1,1
vip=rs("vip")
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
    <%if rs("vip")=true then
    xgzt=1
    %>
    <%else
    xgzt=0
    %>
    <%end if%>

  <form method="POST" action="vip_adminchk.asp?xgzt=<%=xgzt%>&id=<%=id%>">
  <tr>
    <td width="17%">　</td>
    <td width="83%">公司名称：<%=rs("companyName")%></td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%">　</td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%">开始时间：<%=rs("vipdata")%></td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%">　</td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%">会员期限：<input type="text" name="vipqx" size="20" value="<%=rs("vipqx")%>">年</td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%">　</td>
  </tr>
  <tr>
    <td width="17%">　</td>
    <td width="83%" valign="top">会员说明：<textarea rows="12" name="vipmemo" cols="39"><%=rs("vipmemo")%></textarea></td>
  </tr>
  <tr>
    <td width="100%" colspan="2">　</td>
  </tr>
  <tr>
    <td width="100%" colspan="2">
    <p align="center"><input type="submit" value="提交" name="B1"></td>
  </tr>
  <tr>
    <td width="100%" colspan="2">　</td>
  </tr>
  </form>
</table>
<%
rs.close
set rs=nothing
closedb
%>