<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% if request.QueryString("Act") = "logout" then Response.Cookies("member_check") = "" Response.Cookies("qq_name") = "" Response.Cookies("qq_id") = "" Response.Cookies("qq_Tx") = "" if request.QueryString("to") = "" then Response.Redirect("/index.asp") else response.redirect ""&request.QueryString("to")&"" end if end if %> <%=site_name%> - <%=site_sname%>
<%=ad_content%> <% if member_level = 0 then %>
本站共有注册会员： <% Set rs = server.CreateObject("adodb.recordset") sql = "select * from cms_member " rs.Open sql, conn, 1, 3 If rs.EOF Then Response.write "0" ELSE Response.write rs.recordcount End If %> 名欢迎新会员加入，他 是：<% Set rs = server.CreateObject("adodb.recordset") sql = "select top 1 * from cms_member order by ID desc " rs.Open sql, conn, 1, 3 If rs.EOF Then Response.write "无会员" ELSE Response.write ""&rs("m_name")&"" End If %>
用户名 密  码      忘记密码?
<%else%>
<%=member_name%> 欢迎你！ 余额：<%=member_point%>积分    【进入会员中心】 【注销】
<%end if %> <% if laiyuan = "pc" then %>
每天搜一下                 找资源更方便
资源名称    
<% Set rs = ado_query("select top 1 * from xiaoyewl_ad where ad = 'banner' and isnull(content) order by ad_orderby asc") Do While Not rs.EOF %> " href="<%=rs("ad_url")%>" target="_blank">" alt="" width="100%" height="363" title="" align="" /> <% rs.movenext Loop rs.Close Set rs = Nothing %>
今天已更新 <% Set rs = ado_query("select * from cms_info where i_enable = 1 and DATEDIFF('d',now(),i_date)=0 and i_fbsj <= #"&now()&"# ") Response.write "" & rs.recordcount %> 个资源本站一共收集了 <% Set rs = ado_query("select * from cms_info ") Response.write "" & rs.recordcount %> 个资源
<% Set rs = ado_query("select top 16 * from cms_info where i_enable =1 and i_parent <> 2 order by i_iftop desc,i_order desc ,id desc ") i=1 Do While Not rs.EOF IF str_time("yy-mm-dd",rs("i_date")) = str_time("yy-mm-dd",Now()) Then riqixg = " style=""color:#F00""" ELSE riqixg = "" END IF IF rs("i_iftop") = 1 Then ico = ""&skin&"/images/zhiding.gif" ELSE ico = ""&skin&"images/new.gif" END IF %> <% if i mod 2=0 then response.write "" rs.movenext i=i+1 Loop rs.Close Set rs = Nothing %>
>" href="<%=i_url(rs("id"))%>" target="<%=rs("i_target")%>" title="<%=rs("i_name")%>" ><%=str_left(rs("i_name"),36,"...")%>
 ><%=str_time("mm-dd",rs("i_date"))%>    
下面是活动区
<% Set rs = ado_query("select top 6 * from cms_info where i_enable =1 and i_parent =2 order by i_iftop desc,i_order desc ,id desc ") i=1 Do While Not rs.EOF IF str_time("yy-mm-dd",rs("i_date")) = str_time("yy-mm-dd",Now()) Then riqixg = " style=""color:#F00""" ELSE riqixg = "" END IF IF rs("i_iftop") = 1 Then ico = ""&skin&"/images/1.gif" ELSE ico = ""&skin&"images/new.png" END IF %> <% if i mod 2=0 then response.write "" rs.movenext i=i+1 Loop rs.Close Set rs = Nothing %>
" href="<%=i_url(rs("id"))%>" target="<%=rs("i_target")%>" title="<%=rs("i_name")%>" ><%=str_left(rs("i_name"),36,"...")%>
 >2015-<%=str_time("mm-dd",rs("i_date"))%>    
下面是代码区
<% Set rs = ado_query("select top 6 * from cms_info where i_enable =1 and i_parent =4 order by i_iftop desc,i_order desc ,id desc ") i=1 Do While Not rs.EOF IF str_time("yy-mm-dd",rs("i_date")) = str_time("yy-mm-dd",Now()) Then riqixg = " style=""color:#F00""" ELSE riqixg = "" END IF IF rs("i_iftop") = 1 Then ico = ""&skin&"/images/1.gif" ELSE ico = ""&skin&"images/new.png" END IF %> <% if i mod 2=0 then response.write "" rs.movenext i=i+1 Loop rs.Close Set rs = Nothing %>
" href="<%=i_url(rs("id"))%>" target="<%=rs("i_target")%>" title="<%=rs("i_name")%>" ><%=str_left(rs("i_name"),36,"...")%>
 >2015-<%=str_time("mm-dd",rs("i_date"))%>    
<% end if %>
<% Set rs = ado_query("select * from xiaoyewl_ad where ad = 'head' and isnull(content) order by ad_orderby asc") Do While Not rs.EOF %>

" href="<%=rs("ad_url")%>" target="_blank">" alt="" width="980" title="" align="" />

<% rs.movenext Loop rs.Close Set rs = Nothing %>
<% if laiyuan = "wap" or laiyuan <> "pc" then %>
最近更新
<% end if %> <% for i =1 to 3 %>
<% next %>
<% for i =4 to 6 %>
<% next %>
<% for i =7 to 9 %>
<% next %>
<% for i =10 to 12 %>
<% next %>
<% for i =15 to 17 %>
<% next %>
<% for i =18 to 20 %>
<% next %>
<% Set rs = ado_query("select * from xiaoyewl_ad where ad = 'footer' and isnull(content) order by ad_orderby asc") Do While Not rs.EOF %>

" href="<%=rs("ad_url")%>" target="_blank">" alt="" width="980" title="" align="" />

<% rs.movenext Loop rs.Close Set rs = Nothing %>
<% if laiyuan = "pc" then %>
      友情链接
<% Set rs = ado_query("select top 18 * from cms_link where l_ifpicture = 1 and l_enable = 1 order by l_order asc , id asc") Do While Not rs.EOF %> " target="_blank">" width="170px" height="55px" title="<%=rs("l_name")%>" alt="<%=rs("l_name")%>" /> <% rs.movenext Loop rs.Close Set rs = Nothing %>
<% Set rs = ado_query("select top 18 * from cms_link where l_ifpicture = 0 and l_enable = 1 order by l_order asc , id asc") Do While Not rs.EOF %>
" title="<%=rs("l_name")%>" target="_blank"><%=rs("l_name")%>
<% rs.movenext Loop rs.Close Set rs = Nothing %>
<%end if %>