我的收藏列表

添加新收藏 | 全部收藏列表 | <% Set oRs2=conn.Execute("Select * From qingtiandy_curl Where c_uid="&Request.Cookies(G_u_Cookies)("soojs_id")&" Order by id Desc") Do While Not oRs2.Eof oid=oRs2("id") oc_typename=oRs2("c_typename") oc_no=oRs2("c_no") Response.Write ""&oc_typename&" | " oRs2.MoveNext Loop %>
<% t=Replace(Request("t"),"'","") t=Bint(t) IF t<>0 Then Sql="Select * From qingtiandy_listurl Where list_uid="&Request.Cookies(G_u_Cookies)("soojs_id")&" And list_type1="&t&" Order by list_no Desc, id Desc" Else Sql="Select * From qingtiandy_listurl Where list_uid="&Request.Cookies(G_u_Cookies)("soojs_id")&" Order by list_no Desc, id Desc" End IF Set oRs2=conn.Execute(Sql) Do While Not oRs2.Eof oid=oRs2("id") olist_url=oRs2("list_url") olist_name=oRs2("list_name") olist_gx=oRs2("list_gx") IF olist_gx="1" Then zolist_gx="共享" Else zolist_gx="不共享" End IF olist_type1=oRs2("list_type1") oplist_url=IIf(Instr(olist_url,"http://")>0,olist_url,"http://"&olist_url) olist_no=oRs2("list_no") %> <% oRs2.MoveNext Loop %>
网站 分类 是否共享 权重 操作
<%=olist_name%> <%=Get_curl_type1(olist_type1)%> <%=zolist_gx%> <%=olist_no%> 修改 - 删除