gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/List.asp
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/ubb.asp"-->
<!--#include file="Inc/fenye.asp"-->
<!--#include file="Inc.asp"-->
<%
Dim ID,page
ID=LaoYRequest(request("id"))
page=LaoYRequest(Request("Page"))
set rs=server.createobject("adodb.recordset")
sql="select * from "&tbname&"_Article where id="&id
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Call Alert("不正确的ID!",SitePath)
else
If rs("Linkurl")<>"" then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>转向：<%=rs("title")%></title>
<style>
#ndiv{
width:450px;
padding:8px;
margin-top:8px;
background-color:#FCFFF0;
border:3px solid #B4EF94;
height:100px;
text-align:left;
font-size:14px;
line-height:180%;
}
</style>
<meta http-equiv="refresh" content="1;URL=<%=rs("LinkUrl")%>">
</head>
<body>
<div align='center'>
<div id='ndiv'>
正在转向：<a href='<%=rs("LinkUrl")%>'><%=rs("LinkUrl")%></a>，请稍候...
</div>
</div>
</body>
</html>
<%
Response.End
Else
set rsClass=server.createobject("adodb.recordset")
sql = "select * from "&tbname&"_Class where ID="&rs("ClassID")&""
rsClass.open sql,conn,1,1
if rsClass.eof and rsClass.bof then
Call Alert("没有此分类,返回首页!","index.asp")
else
ClassName=rsClass("ClassName")
TopID=rsClass("TopID")
rsClass.close
set rsClass=nothing
end if
If rs("PageNum")=0 then
Content=ManualPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"")
else
Content=AutoPagination1(""&rs("ID")&"",""&UBBCode(rs("Content"))&"",rs("PageNum"))
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="<%=Sitekeywords%>" />
<meta name="description" content="<%=left(LoseHtml(rs("Content")),120)%>" />
<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" />
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
<title><%=rs("Title")%><%=IIF(page>0,"("&page&")","")%>-<%=ClassName%>-Powered by www.8586.com.cn</title>
</head>
<body<%If ""&IsPing&""=1 then%> onLoad="showre(<%=ID%>,1)"<%end if%>>
<div class="mwall">
<%=Head%>
<%=Menu%><div class="mw">
<div class="dh" style="border:1px #CCCCCC solid; margin-top:5px; margin-bottom:5px;">
<%=search%>您现在的位置：<a href="<%=SitePath%>">首页</a> >> <%If TopID>0 then Response.Write("<a href="""&SitePath&"Class.asp?ID="&TopID&""">"&Classlist(TopID)&"</a> >> ") End if%><a href="<%=SitePath%>Class.asp?ID=<%=rs("ClassID")%>"><%=Classlist(rs("ClassID"))%></a> >> 内容
</div>
<div id="nw_left">
<div id="web2l">
<h1><%=rs("Title")%><%=IIF(page>0,"("&page&")","")%></h1>
<h3>时间：<%=rs("DateAndTime")%><%If IsHits=1 then%> 点击：<script type="text/javascript" src="/Hits.asp?id=<%=request("id")%>"></script><%End if%></h3>
<table cellpadding="0" cellspacing="0" width="100%"><tr><td>
<div id="content">
<%If Iszhaiyao=1 and b<2 then%><div class="zhaiyao"><b> 核心提示：</b><%=left(rs("Artdescription"),150)%>...</div><%End if%>
<%Call ShowAD(1)%>
<%
If rs("yn")=2 then
If rs("UserName") = LaoYName then
Response.Write(Content)
else
Response.Write("<div style=""margin:40px auto;text-align:center;color:#ff0000;"">会员私有文章，禁止查看!</div>")
End if
end if
if rs("yn")=1 then
Response.Write("<div style=""margin:40px auto;text-align:center;color:#ff0000;"">该文章还没有通过审核</div>")
end if
if rs("yn")= 0 then
Response.Write(Content)
end if
%>
</div>
</td></tr></table>
<div id="copy"><%If IsAuthor =1 then%>作者：<%=rs("author")%><%End if:If rs("UserID")<>0 then Response.Write(" 录入：<a href="""&SitePath&"User/ShowUser.asp?UserName="&rs("UserName")&""" title=""点击查看资料""><u>"&rs("UserName")&"</u></a>") end if%> <%If IsFrom =1 then%>来源：<%=rs("CopyFrom")%><%End if%></div>
<%If rs("Vote")<>"" then Response.Write(""&ShowVoteList2(rs("Vote"))&"") End if%>
<%If Iswz=1 then%><script type="text/javascript" src="<%=SitePath%>images/wz.js"></script><%End if%>
<p align="center"><%Call ShowAD(22)%></p>
<%If mood=1 then%><div style="margin:0 auto;width:530px;">
<script language="javascript">
var infoid = '<%=ID%>';
</script>
<script language = "JavaScript" src ="<%=SitePath%>Inc/mood.asp?ID=<%=ID%>"></script>
</div><%End if%>
<div class="sxart">
<%=thehead%><%=thenext%>
枫叶文章 </div>
</div>
<div id="web2l">
<h6>相关文章</h6>
<div id="marticle">
<ul>
<%=ShowMutualityArticle(ID,""&rs("KeyWord")&"",20,"·",0)%>
</ul>
</div>
<div id="clear"></div>
</div><%If IsPing=1 then%>
<div id="web2l">
<h6>相关评论</h6>
<div id="list"><img src="<%=SiteTable%>images/loading.gif" /></div>
<div id="MultiPage"></div>
<div id="clear"></div>
<h6>发表我的评论</h6>
<div style="height:205px;">
<div class="pingp">
<%
If PingNum=0 then
Call ShowAD(5)
else
for i = 1 to PingNum%>
<img src="<%=SitePath%>images/faces/<%=i%>.gif" onclick='insertTags("[laoy:","]","<%=i%>")'/>
<%
Next
End if
%>
</div> <div class="artpl">
<ul>
<li>大名：<input name="memAuthor" type="text" class="borderall" id="memAuthor" value="<%If IsUser=1 then Response.Write(""&UserName&"") else Response.Write(""&iparray(GetIP)&"") End if%>" Readonly maxlength="8"/>
</li>
<li>内容：<textarea name="memContent" cols="30" rows="8" style="width:250px;height:120px;" wrap="virtual" id="memContent" class="borderall"/></textarea></li>
<li><input name="ArticleID" type="hidden" id="ArticleID" value="<%=ID%>" />
<input name="button3" type="button" class="borderall" id = "sendGuest" onClick="AddNew()" value="发 表" /></li>
</ul>
</div>
</div></div><%end if%>
</div>
<div id="nw_right">
<%Call ShowAD(21)%>
<div id="web2r">
<h5><a href="http://www.17laidu.com">本类热门</a></h5>
<ul id="list10">
<%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"no","Hits desc,ID desc",0,0)%>
</ul>
</div>
<div id="web2r">
<h5>本类推荐</h5>
<ul id="list10">
<%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"IsHot=1","ID desc",0,0)%>
</ul>
</div>
<div id="web2r">
<h5>本类固顶</h5>
<ul id="list10">
<%Call ShowArticle(""&rs("ClassID")&"",10,5,"·",100,"IsTop=1","ID desc",0,0)%>
</ul>
</div>
</div>
</div>
<script type="text/javascript" src="<%=SitePath%>Ajaxpl.asp"></script>
<%End if%>
<%
rs.close
set rs=nothing
end if
function thehead
headrs=server.CreateObject("adodb.recordset")
sql="select top 1 ID,Title from "&tbname&"_Article where id<"&id&" and ClassID="&rs("ClassID")&" order by id desc"
set headrs=conn.execute(sql)
if headrs.eof then
response.Write("<li>上一篇：没有了</li>")
else
a0=headrs("id")
a1=headrs("Title")
If html=1 then
response.Write("<li>上一篇：<a href='/List.asp?ID="&a0&"'>"&a1&"</a></li>")
else If html=3 then
response.Write("<li>上一篇：<a href='/Html/"&a0&".html'>"&a1&"</a></li>")
Else
response.Write("<li>上一篇：<a href='/Html/?"&a0&".html'>"&a1&"</a></li>")
End if
end if
end if
headrs.close
set headrs=nothing
end function
function thenext
newrs=server.CreateObject("adodb.recordset")
sql="select top 1 ID,Title from "&tbname&"_Article where id>"&id&" and ClassID="&rs("ClassID")&" order by id asc"
set newrs=conn.execute(sql)
if newrs.eof then
response.Write("<li>下一篇：没有了</li>")
else
a0=newrs("id")
a1=newrs("Title")
If html=1 then
response.Write("<li>下一篇：<a href='/List.asp?ID="&a0&"'>"&a1&"</a></li>")
else If html=3 then
response.Write("<li>下一篇：<a href='/Html/"&a0&".html'>"&a1&"</a></li>")
Else
response.Write("<li>下一篇：<a href='/Html/?"&a0&".html'>"&a1&"</a></li>")
End if
end if
end if
newrs.close
set newrs=nothing
end function
%>
<%=Copy%></div>
</body>
</html>