<%if request("action")="save" then
SMT_sortid=request("SMT_sortid")
SMT_name=request("SMT_name")
SMT_collection=request("SMT_collection")
if left(SMT_collection,7)<>"http://" or len(SMT_collection)<10 then
errstyle="·对不起，请填写正确收藏地址！"
scripterr
end if
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_collection where SMT_yp_id="& session("id")
rs.open sql,conn,1,3
if userflag22<>0 then
if rs.recordcount >= cint(userflag22) then
errstyle="·您是"&SMT_user_flagdj&"，只能上传最多 "&userflag22&" 个收藏地址！"
scripterr
end if
else
errstyle="·对不起，此功能已对"&vipshow&"关闭！"
scripterr
end if
rs.addnew
rs("SMT_sortid")=SMT_sortid
rs("SMT_name")=SMT_name
rs("SMT_collection")=SMT_collection
rs("SMT_yp_id")=session("id")
rs.update
rs.close
set rs=nothing
response.write ""
Response.End
end if
%>
加入收藏 - <%=citytitle%>
<%
if userflag26=0 or userflag22=0 or userflag9=0 or SMT_user_vip=1 or session("id")="" then
response.write ""
Response.End
end if
tit=request("tit")
page=request("page")
if tit<>"" or page<>"" then%>