 <% data_path="../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
vipinfo_id=Replace_Text(request("vipinfo_id"))
'找到类别ID
sql="select viptype from Websen_vipinfo where vipinfo_id="&vipinfo_id
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if not rs.eof then
viptype=rs("viptype")
end if
htmlpath=viptype&"-"&vipinfo_id&".html"
 response.Redirect("../vipinfo/offerdetail"&offerdetail&"/"&htmlpath)
rs.close
set rs=nothing
conn.close
%>
 