www.gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/news.asp
<!--#include file="Inc/conn.asp"--> <!--#include file="Inc/Function_Page.asp"--> <!--#include file="Inc.asp"--> <% Dim ID ID=LaoYRequest(request("id")) If ID="" then Call Alert("不正确的ID","Index.asp") end if set rsclass=server.createobject("adodb.recordset") sql="select * from Yao_Class where id="&id rsclass.open sql,conn,1,1 if rsclass.eof and rsclass.bof then Call Alert("不正确的ID","Index.asp") else if rsclass("Link")=1 then Response.Redirect ""&laoy(rsclass("Url"))&"" End if %> <!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> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <meta name="keywords" content="<%=rsclass("keyword")%>" /> <meta name="description" content="<%=rsclass("ReadMe")%>" /> <link href="<%=SitePath%>images/8586<%=Css%>.css" ID="skin" type=text/css rel=stylesheet> <link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" /> <script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script> <%If rss=1 then%> <link rel="alternate" title="订阅<%=rsclass("ClassName")%>(RSS 2.0)" href="http://<%=SiteUrl%><%=SitePath%>Rss/Rss<%=ID%>.xml" type="application/rss+xml" /> <%end if%> <title><%=rsclass("ClassName")%><%=IIF(rsclass("ClassName2")<>"","-"&rsclass("ClassName2")&"-","-")%><%=SiteTitle%></title> </head> <body> <!-- //包含头部文件--> <%=Head%> <div class="mw"> <!-- //导航--> <div class="dh"> 您现在的位置:<a href="<%=SitePath%>">首页</a> >> <%If rsclass("TopID")>0 then%><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rsclass("TopID")&".html",""&SitePath&"news.asp?ID="&rsclass("TopID")&"")%>"><%=Classlist(rsclass("TopID"))%></a> >> <%End if%><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&ID&".html",""&SitePath&"news.asp?ID="&ID&"")%>"><%=rsclass("ClassName")%></a> >> 列表 </div> <!-- //left--> <div id="nw_left"> <%If Mydb("Select Count([ID]) From ["&tbname&"_Class] Where TopID="&ID&"",1)(0)>0 then%> <div id="web2l" style="border:0px;"> <% Sqlpp ="select [ID],[ClassName] from "&tbname&"_Class Where TopID="&ID&" order by num" Set Rspp=server.CreateObject("adodb.recordset") rspp.open sqlpp,conn,1,1 Do while not Rspp.Eof %> <div id="sclass"> <h6><span><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rspp("ID")&".html",""&SitePath&"news.asp?ID="&rspp("ID")&"")%>">more...</a></span><a href="<%=IIF(Html=3,""&SitePath&"news/news_"&rspp("ID")&".html",""&SitePath&"news.asp?ID="&rspp("ID")&"")%>"><%=rspp("ClassName")%></a><%If rss=1 then%><a href="http://<%=SiteUrl%><%=SitePath%>Rss/Rss<%=rspp("ID")%>.xml" target="_blank"><img src="<%=SitePath%>images/rss.gif" title="订阅<%=rspp("ClassName")%>(RSS 2.0)" style="margin:0 0 0 30px;"/></a><%End if%></h6> <ul> <%Call ShowArticle(rspp("id"),10,5,"·",100,"no","DateAndTime desc,ID desc",0,0)%> </ul> </div> <% Rspp.Movenext Loop rspp.close set rspp=nothing %> </div> <%else%> <div id="web2l"> <h6><%=rsclass("ClassName")%><%If rss=1 then%><a href="http://<%=SiteUrl%><%=SitePath%>Rss/Rss<%=request("ID")%>.xml" target="_blank"><img src="<%=SitePath%>images/rss.gif" title="订阅<%=rspp("ClassName")%>(RSS 2.0)" style="margin:0 0 0 30px;"/></a><%End if%></h6> <div id="content"> <ul id="listul"> <% Set mypage=new xdownpage mypage.getconn=conn mypage.getsql="Select ID,Title,DateAndTime,Hits,IsTop,Images,TitleFontColor,Artdescription from "&tbname&"_Article Where ClassID="&rsclass("ID")&" and yn=0 order by IsTop desc,DateAndTime desc" mypage.pagesize=artlistnum set rs=mypage.getrs() for i=1 to mypage.pagesize if not rs.eof then %> <li style="border-bottom:1px dashed #CCCCCC;"> <!-- //img--> <% if artlist=0 then%> <%if rs("Images")<>"" then%> <div style="float:left;margin:5px 5px 0 5px;"><img src="<%=SitePath%><%=SiteUp%>/<%if IsAspJpeg=1 then Response.Write("s90/") End if%><%=rs("Images")%>" style="width:90px;height:90px;"/></div> <%else%> <div style="float:left;margin:5px 5px 0 5px;"><img src="<%=SitePath%>Images/8586cms.jpg" style="width:90px;height:90px;"/></div> <%end if%> <%end if%> <!-- //ding--> <%If rs("IsTop")=1 then Response.Write("<font color=red>[顶]</font>") end if%> <a href="<%If html=1 then Response.Write(""&SitePath&"article.asp?ID="&rs("ID")&"") else:if html=2 then Response.Write(""&SitePath&"article/?"&rs("ID")&".html") else:if html=3 then Response.Write(""&SitePath&"article/"&rs("ID")&".html") End if%>" target="_blank"><%if rs("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs("TitleFontColor")&""">"&rs("Title")&"</font>") else Response.Write(""&rs("Title")&"") end if%></a> <span style="color:#AAA;font-size:12px;"><%=FormatDate(rs("DateAndTime"),11)%> 点击:<%=rs("Hits")%> 评论:<%=Mydb("Select Count([ID]) From ["&tbname&"_Pl] Where yn=0 And ArticleID="&ID&"",1)(0)%></span> </li> <%If artlist=0 then%> <div class="box" style="height:65px;"><%=left(LoseHtml(rs("Artdescription")),90)%>...</div> <%End if%> <% rs.movenext else exit for end if next %> </ul> </div> <div id="clear"></div> <div id="page"> <ul> <%=mypage.showpage()%> </ul> </div> </div> <% rs.close set rs=nothing end if %> </div> <!-- //right--> <div id="nw_right"> <%Call ShowAD(3)%> <div id="web2r"> <h5>热门信息</h5> <ul id="list10"> <%Call ShowArticle(ID,10,5,"·",100,"no","Hits desc,ID desc",0,0)%> </ul> </div> <%Call ShowAD(4)%> <div id="web2r"> <h5>图片推荐</h5> <ul class="topimg"> <%Call ShowImgArticle(ID,4,10,"no","DateAndTime desc,ID desc")%> </ul> </div> </div> </div> <%=Copy%> <% rsclass.close set rsclass=nothing end if%></div> </body> </html>