www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/Index.asp
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=SiteTitle%> - <%=SiteTitle2%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<meta name="description" content="<%=Sitedescription%>" />
<link href="<%=SitePath%>images/8586.css" type=text/css rel=stylesheet>
<link href="<%=SitePath%>images/Css8.css" ID="skin" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" />
<%If rss=1 then%>
<link rel="alternate" title="订阅<%=SiteTitle%>(RSS 2.0)" href="http://<%=SiteUrl%><%=SitePath%>Rss/Rss.xml" type="application/rss+xml" />
<%end if%>
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
</head>
<body>
<%call spiderbot()%>
<div class="mwall">
<%=Head%>
<%=Menu%>
<div class="mw">
<div class="dh" style="border:1px #CCCCCC solid; margin-top:5px;">
<%=search%>您现在的位置：<a href="<%=SitePath%>"><%=SiteTitle%></a> >> 首页
</div>
<!-- //主体开始-->
<div id="lxmain">
<!-- //left-->
<div id="lxmain_L">
<div id="lxmain_L_01">
<script type="text/javascript">
linkarr = new Array();
picarr = new Array();
textarr = new Array();
var swf_width=350;
var swf_height=450;
var files = "";
var links = "";
var texts = "";
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top "&IsHomeimg&" ID,Title,Images from "&tbname&"_Article where yn = 0 and IsFlash=1 and Images<>'' order by ID desc"
rs1.open sql1,conn,1,3
NoI=0
If Not rs1.Eof Then
do while not (rs1.eof or err)
NoI=NoI+1
%>
picarr[<%=NoI%>] = "<%=SitePath%><%=SiteUp%>/<%if IsAspJpeg=1 then Response.Write("s250/") End if%><%=rs1("Images")%>";
linkarr[<%=NoI%>] = "<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>";
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
for(i=1;i<picarr.length;i++){
if(files=="") files = picarr[i];
else files += "|"+picarr[i];
}
for(i=1;i<linkarr.length;i++){
if(links=="") links = linkarr[i];
else links += "|"+linkarr[i];
}
for(i=1;i<textarr.length;i++){
if(texts=="") texts = textarr[i];
else texts += "|"+textarr[i];
}
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="Images/bcastr3.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_config=0xffffff|2|0x8CA2AD|60|0xffffff|0xff9900|0x000033|2|3|1|_blank">');
document.write('<embed src="Images/bcastr3.swf" wmode="opaque" FlashVars="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'& menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
document.write('</object>');
</script>
</div>
<div id="lxmain_L_02">
<div id="lxmain_L_02_txt"><b>推荐信息</b></div>
<div id="lxmain_L_02_list">
<!-- //list-->
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 3 * from "&tbname&"_Article where IsHot=1 and Images<>'' order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="lxmain_L_02_chage">
<div id="lxmain_L_02_chage_img">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank">
<img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0" />
</a>
</div>
<div id="lxmain_L_02_chage_txt">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><b><%=rs1("Title")%></b></a><br />
<font color="#666666"><%=left(rs1("ArtDescription"),50)%>...</font>
</div>
</div>
<div id="lxmain_L_02_list_heng"></div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
<!-- //end list-->
</div>
</div>
</div>
<!-- //right-->
<div id="lxmain_R">
<!-- //left-->
<div id="lxmain_R_left">
<!-- //001-->
<div id="lxmain_R_left_01">
<div style="width:378px; height:10px; line-height:10px; overflow:hidden"></div>
<!-- //list-->
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 2 * from "&tbname&"_Article where IsTop=1 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="lxmain_R_left_01_list">
<div id="lxmain_R_left_01_list_title">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><b><%=rs1("Title")%></b></a>
</div>
<div id="lxmain_R_left_01_list_content"><%=left(rs1("ArtDescription"),80)%>...</div>
</div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
<!-- //end list-->
<div id="lxmain_L_02_list_heng" style="width:350px;"></div>
</div>
<!-- //002 list-->
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>美容</b><font color="#777777" style="font-size:12px; font-family:Arial, Helvetica, sans-serif">·Beauty</font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=56 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a>
</div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(56,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>服饰</b><font color="#777777" style="font-size:12px; font-family:Arial, Helvetica, sans-serif">·Dress</font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=64 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a>
</div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(64,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>时尚</b><font color="#777777" style="font-size:12px; font-family:Arial, Helvetica, sans-serif">·Fashion</font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=65 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a>
</div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(65,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>生活</b><font color="#777777" style="font-size:12px; font-family:Arial, Helvetica, sans-serif">·Life</font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=68 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title">
<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a>
</div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(68,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<!-- //end list-->
</div>
<!-- //right-->
<div id="lxmain_R_right">
<div id="lxmain_R_right_01">
<%Call ShowAD(24)%>
</div>
<div id="lxmain_R_right_02">
<div id="lxmain_R_right_02_title"><b>文章关注排行</b></div>
<div id="lxmain_R_right_02_list">
<ul>
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from "&tbname&"_Article where yn=0 order by Hits desc"
rs3.open sql3,conn,1,3
NoI=0
ii=0
If Not rs3.Eof Then
do while not (rs3.eof or err)
NoI=NoI+1
ii=ii+1
%>
<li><img src="Images/yujiaxue/<%=NoI%>.jpg"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs3("ID")&"") else:if html=2 then Response.Write("Html/?"&rs3("ID")&".html") else:if html=3 then Response.Write("Html/"&rs3("ID")&".html") End if%>" target="_blank"><%=rs3("Title")%></a></li>
<%
if ii>=10 then exit do
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>
</ul>
</div>
</div>
<div id="lxmain_R_right_01" style="margin-top:10px;">
<%Call ShowAD(25)%>
</div>
<div id="lxmain_R_right_01" style="margin-top:10px; height:120px;">
<%Call ShowAD(26)%>
</div>
</div><!-- //end right-->
</div><!-- //end right-->
</div>
<!-- //图片信息显示处-->
<div id="aa_img">
<div id="aa_img_a"><b>图片资讯</b></div>
<div id="aa_img_listall">
<!-- //list-->
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 6 * from "&tbname&"_Article where isImg=1 and Images<>'' order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="aa_img_list"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="135" height="180" border="0" alt="<%=rs1("Title")%>"></a></div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
<!-- //end list-->
</div>
</div>
<!-- //图片信息显示结束-->
<!-- //第一部分-->
<div class="mw">
<div id="dione">
<div id="dione_01">美容美体</div>
<div id="dione_02">
<a href="/<%=IIF(Html=3,"Class_56.html","Class.asp?ID=56")%>" target="_blank">完美肌肤</a> |
<a href="/<%=IIF(Html=3,"Class_57.html","Class.asp?ID=57")%>" target="_blank">靓丽彩妆</a> |
<a href="/<%=IIF(Html=3,"Class_58.html","Class.asp?ID=58")%>" target="_blank">美发时尚</a> |
<a href="/<%=IIF(Html=3,"Class_59.html","Class.asp?ID=59")%>" target="_blank">香氛物语</a> |
<a href="/<%=IIF(Html=3,"Class_61.html","Class.asp?ID=61")%>" target="_blank">减肥技巧 </a> |
<a href="/<%=IIF(Html=3,"Class_62.html","Class.asp?ID=62")%>" target="_blank">美容评测</a>
</div>
</div>
<!-- //主体开始-->
<div id="lxmain">
<!-- //left-->
<div id="lxone_L">
<div id="lxone_L_01">
<%Call ShowAD(27)%>
</div>
<div id="lxone_L_02">
<div id="lxone_L_02_txt"><b>推荐信息</b></a></div>
<div id="lxone_L_02_list">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 5 * from "&tbname&"_Article where ClassID in (56,57,58,59,61,62) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></li>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</ul>
</div>
</div>
</div>
<!-- //right-->
<div id="lxone_R">
<!-- //left-->
<div id="lxmain_R_left">
<!-- //001-->
<div id="lxmain_R_left_01">
<div style="width:378px; height:10px; line-height:10px; overflow:hidden"></div>
<div id="lxmain_R_left_01_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where IsTop=1 and ClassID in (56,57,58,59,61,62) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="lxmain_R_left_01_list_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<div id="lxmain_R_left_01_list_content"><%=left(rs1("ArtDescription"),50)%>...</div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</div>
<div id="lxmain_L_02_list_heng" style="width:350px;"></div>
</div>
<!-- //002 list-->
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>减肥技巧</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=61 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(61,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>美发时尚</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=58 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(58,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<!-- //end list-->
</div>
<!-- //right-->
<div id="lxone_R_right">
<div id="lxone_R_right_02">
<div id="lxone_R_right_02_title"><b>文章关注排行</b></div>
<div id="lxone_R_right_02_list">
<ul>
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from "&tbname&"_Article where yn=0 and ClassID in (56,57,58,59,61,62) order by Hits desc"
rs3.open sql3,conn,1,3
ii=0
If Not rs3.Eof Then
do while not (rs3.eof or err)
ii=ii+1
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs3("ID")&"") else:if html=2 then Response.Write("Html/?"&rs3("ID")&".html") else:if html=3 then Response.Write("Html/"&rs3("ID")&".html") End if%>" target="_blank"><%=rs3("Title")%></a></li>
<%
if ii>=15 then exit do
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>
</ul>
</div>
</div>
</div><!-- //end right-->
</div><!-- //end right-->
</div>
<!-- //第二部分-->
<div class="mw">
<div id="dione">
<div id="dione_01">服饰时尚</div>
<div id="dione_02">
<a href="/<%=IIF(Html=3,"Class_64.html","Class.asp?ID=64")%>" target="_blank">潮流风尚</a> |
<a href="/<%=IIF(Html=3,"Class_65.html","Class.asp?ID=65")%>" target="_blank">流行搭配</a> |
<a href="/<%=IIF(Html=3,"Class_66.html","Class.asp?ID=66")%>" target="_blank">摩登前沿</a> |
<a href="/<%=IIF(Html=3,"Class_67.html","Class.asp?ID=67")%>" target="_blank">明星街拍</a>
</div>
</div>
<!-- //主体开始-->
<div id="lxmain">
<!-- //left-->
<div id="lxone_L">
<div id="lxone_L_01">
<%Call ShowAD(28)%>
</div>
<div id="lxone_L_02">
<div id="lxone_L_02_txt"><b>推荐信息</b></div>
<div id="lxone_L_02_list">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 5 * from "&tbname&"_Article where ClassID in (64,65,66,67) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></li>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</ul>
</div>
</div>
</div>
<!-- //right-->
<div id="lxone_R">
<!-- //left-->
<div id="lxmain_R_left">
<!-- //001-->
<div id="lxmain_R_left_01">
<div style="width:378px; height:10px; line-height:10px; overflow:hidden"></div>
<div id="lxmain_R_left_01_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where IsTop=1 and ClassID in (64,65,66,67) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="lxmain_R_left_01_list_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<div id="lxmain_R_left_01_list_content"><%=left(rs1("ArtDescription"),50)%>...</div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</div>
<div id="lxmain_L_02_list_heng" style="width:350px;"></div>
</div>
<!-- //002 list-->
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>潮流风尚</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=64 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(64,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>流行搭配</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=65 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(65,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<!-- //end list-->
</div>
<!-- //right-->
<div id="lxone_R_right">
<div id="lxone_R_right_02">
<div id="lxone_R_right_02_title"><b>文章关注排行</b></div>
<div id="lxone_R_right_02_list">
<ul>
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from "&tbname&"_Article where yn=0 and ClassID in (64,65,66,67) order by Hits desc"
rs3.open sql3,conn,1,3
ii=0
If Not rs3.Eof Then
do while not (rs3.eof or err)
ii=ii+1
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs3("ID")&"") else:if html=2 then Response.Write("Html/?"&rs3("ID")&".html") else:if html=3 then Response.Write("Html/"&rs3("ID")&".html") End if%>" target="_blank"><%=rs3("Title")%></a></li>
<%
if ii>=15 then exit do
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>
</ul>
</div>
</div>
</div><!-- //end right-->
</div><!-- //end right-->
</div>
<!-- //第三部分-->
<div class="mw">
<div id="dione">
<div id="dione_01">情感在线</div>
<div id="dione_02">
<a href="/<%=IIF(Html=3,"Class_68.html","Class.asp?ID=68")%>" target="_blank">情感生活</a> |
<a href="/<%=IIF(Html=3,"Class_70.html","Class.asp?ID=70")%>" target="_blank">星座爱情</a> |
<a href="/<%=IIF(Html=3,"Class_71.html","Class.asp?ID=71")%>" target="_blank">宠物宝贝</a> |
<a href="/<%=IIF(Html=3,"Class_73.html","Class.asp?ID=73")%>" target="_blank">健康热线</a>
</div>
</div>
<!-- //主体开始-->
<div id="lxmain">
<!-- //left-->
<div id="lxone_L">
<div id="lxone_L_01">
<%Call ShowAD(29)%>
</div>
<div id="lxone_L_02">
<div id="lxone_L_02_txt"><b>推荐信息</b></div>
<div id="lxone_L_02_list">
<ul>
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 5 * from "&tbname&"_Article where ClassID in (68,70,71,73) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></li>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</ul>
</div>
</div>
</div>
<!-- //right-->
<div id="lxone_R">
<!-- //left-->
<div id="lxmain_R_left">
<!-- //001-->
<div id="lxmain_R_left_01">
<div style="width:378px; height:10px; line-height:10px; overflow:hidden"></div>
<div id="lxmain_R_left_01_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where IsTop=1 and ClassID in (68,70,71,73) order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then
do while not (rs1.eof or err)
%>
<div id="lxmain_R_left_01_list_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<div id="lxmain_R_left_01_list_content"><%=left(rs1("ArtDescription"),50)%>...</div>
<%
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
%>
</div>
<div id="lxmain_L_02_list_heng" style="width:350px;"></div>
</div>
<!-- //002 list-->
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>情感生活</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=68 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(68,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<div id="lxmain_R_left_02">
<div id="lxmain_R_left_02_h1"><font color="#BB0066" style="font-size:14px;"><b>星座爱情</b></font></div>
<div id="lxmain_R_left_02_list">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 1 * from "&tbname&"_Article where Images<>'' and ClassID=70 order by ID desc"
rs1.open sql1,conn,1,3
%>
<div id="lxmain_R_left_02_list_L"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><img src="<%=SitePath%><%=SiteUp%>/<%=rs1("Images")%>" width="75" height="100" border="0"></a></div>
<div id="lxmain_R_left_02_list_R">
<div id="lxmain_R_left_02_list_R_title"><a href="/<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" target="_blank"><%=rs1("Title")%></a></div>
<%
rs1.close
set rs1=nothing
%>
<div id="lxmain_R_left_02_list_R_list">
<ul>
<% Call ShowArticle(70,3,0,"",18,"no","ID desc",0,1) %>
</ul>
</div>
</div>
</div>
</div>
<!-- //end list-->
</div>
<!-- //right-->
<div id="lxone_R_right">
<div id="lxone_R_right_02">
<div id="lxone_R_right_02_title"><b>文章关注排行</b></div>
<div id="lxone_R_right_02_list">
<ul>
<%
set rs3=server.createobject("ADODB.Recordset")
sql3="select * from "&tbname&"_Article where yn=0 and ClassID in (68,70,71,73) order by Hits desc"
rs3.open sql3,conn,1,3
ii=0
If Not rs3.Eof Then
do while not (rs3.eof or err)
ii=ii+1
%>
<li>·<a href="/<%If html=1 then Response.Write("List.asp?ID="&rs3("ID")&"") else:if html=2 then Response.Write("Html/?"&rs3("ID")&".html") else:if html=3 then Response.Write("Html/"&rs3("ID")&".html") End if%>" target="_blank"><%=rs3("Title")%></a></li>
<%
if ii>=15 then exit do
rs3.movenext
loop
end if
rs3.close
set rs3=nothing
%>
</ul>
</div>
</div>
</div><!-- //end right-->
</div><!-- //end right-->
</div>
<div id="clear"></div>
<div class="mw" style="margin-top:10px;">
<div class="link"><%Call Link(0,0,0,1)%>【<a href="Link.asp">更多...</a>】【<a href="javascript:void(0)" onClick="document.getElementById('light').style.display='block';document.getElementById('fade').style.display='block';document.getElementById('fade').style.width = document.body.scrollWidth + 'px';document.getElementById('fade').style.height = document.body.scrollHeight + 'px';document.getElementById('light').style.left = (parseInt(document.body.scrollWidth) - 400) / 2 + 'px';">链接申请</a>】</div>
</div>
<div class="mw">
<div class="link"><%Call Link(0,0,1,0)%></div>
</div>
<div id="light" class="white_content">
<h5><span><a href="javascript:void(1)" onClick="document.getElementById('light').style.display='none';document.getElementById('fade').style.display='none'"><img src="<%=SitePath%>images/close.gif" /></a></span>链接申请</h5>
<iframe id="link" src="<%=SitePath%>Reglink.asp" width="100%" height="170" SCROLLING="NO" FRAMEBORDER="0"></iframe>
</div>
<div id="fade" class="black_overlay"></div>
<%=Copy%>
</div>
</div>
</div><%if request.QueryString("action")="search" then
dim keyword,laoy8
keyword = Server.UrlEncode(trim(request.Form("keyword")))
laoy8 = request.Form("bbs")
Select case laoy8
case "1"
response.Redirect("Search.asp?KeyWord="&keyword)
case "2"
response.Redirect("Guestbook.asp?KeyWord="&keyword)
case "3"
response.Redirect("http://www.baidu.com/s?wd="&keyword&"&_si=%CB%D1%CB%F7&tn=xiaotang969_pg&fyb=0")
case "4"
response.Redirect("http://www.google.cn/search?hl=zh-CN&q="&keyword)
case "5"
response.Redirect("http://www.youdao.com/search?q="&keyword)
case "6"
response.Redirect("http://one.cn.yahoo.com/s?p="&keyword)
end select
end if%>
</body>
</html>