<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%

call head()


dim Action,title,vice
bbsid=Request.querystring("bbsid")
title=Request("title")
vice=Request("vice")
vicexs=Request("vicexs")

if title="" or vice="" then
Call cardz("修改失败","zone_vip.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
 Response.Write "各项都不能为空！正在返回.<br/>"%>
<a href="zone_vip.asp?sid=<%=sid%>&saytk=<%=saytk%>&amp;bbsid=<%=bbsid%>">返回上级</a>
 <%Call headsay()
 response.end
 End if 

IF  Request.QueryString("Action")="save" Then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From ydbbs where id="&bbsid
rs.Open sql,conn,1,2
if not rs.eof then
rs("shuo")=title
rs("vice")=vice
rs("vicexs")=vicexs
rs("vicetime")=now()
rs.Update()
end if
end If
Call cardz("修改成功","zone_vip.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
 
%>修改成功
<a href="zone_vip.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;bbsid=<%=bbsid%>">返回上级</a>
<!--#include file="fanhui.asp"-->
<%rs.close
set rs=nothing
conn.close
set conn=Nothing
Call headsay()%>

