vipset.asp

来自「默认管理员：etaodu 密码：etaodu 陶都房市++介绍： 」· ASP 代码 · 共 26 行

<!--#include file=../conn/conn1.asp -->
<% 
 dim typeto
 dim zid
 dim page
typeto=trim(request("typeto"))
zid=trim(request("zid"))
page=trim(request("page"))
 %>
 <%
dim rs
set rs=server.createobject("adodb.recordset")
sql="select vip from "&typeto&" where zid="&zid
rs.open sql,conn,1,3
if rs("vip")="是" then
rs("vip")="否"
else
rs("vip")="是"
end if
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect "edit.asp?typeto="&typeto&"&page="&page
%>