sheng.asp

来自「ASP+ACCESS 产品报价系统 开发环境简单 主要是周杰伦FANs的交互活动」· ASP 代码 · 共 23 行

<%
if session("admin_name")="" then response.end
set rs=server.createobject("adodb.recordset")
%>
<!--#include file="conn.asp"-->
<%
if request("action")="up" then

sql="select user_type from member where user_id="&request("user_id")
rs.open sql,conn,3,3
if rs.eof then
response.write "没有此用户信息!"
else
rs("user_type")="VIP"
response.write "用户升级为VIP会员成功!"
rs.update
end if
end if
%>