vip_adminchk.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 23 行

<!--#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")
xgzt=request("xgzt")
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,3
rs("vip")=1
rs("vipqx")=request("vipqx")
rs("vipmemo")=request("vipmemo")
if xgzt<>1 then
rs("vipdata")=now()
end if
rs.update
rs.close
set rs=nothing
closedb
response.write "<li>操作成功！"
%>