vipset.asp

默认管理员：etaodu 密码：etaodu 陶都房市++介绍： 本版本是基于<住易江南>美化

<!--#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
%>