<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if

if memberclass<>"VIP会员" then
  response.Write "<p align=""center"" class=""STYLE30""><br><br> 对不起！只有VIP会员才能有发布特别交友信息的权利。如果您想升级为VIP会员，请点击<a href=""userupdate.asp"" target=""_blank""><font color=#FF0000>这里</font></a>升级为VIP会员。<br> <br> </p>"
end if
	

dim f_id

f_id=request.QueryString("vid")
if f_id="" or not isnumeric(f_id) then
  response.Write "操作错误!"
  response.end
end if
set rs=server.CreateObject("adodb.recordset")
sql="select userid from video_info where id="& f_id
rs.open sql,conn,1
if rs.eof and rs.bof then
  response.Write "没有找到此视频文件！"
  response.end
end if
if rs("userid")<>userid then
  response.Write "此视频不是由你发布，你没有此操作的权限！"
  response.end
end if
rs.close
set rs=nothing

conn.execute "update user_info set shipinid="& f_id &" where userid="& userid &"" '设置特别交友视频
conn.close
set conn=nothing
response.Write "<script language='javascript'>alert('个人介绍视频设置完毕！');window.location='manavideo.asp';</script>"
%>