<%response.write rs("Title")%>
|
<%
if rs("OnTop")=true then
response.Write("顶 ")
else
response.write(" ")
end if
if rs("Hits")>=HitsOfHot then
response.write("热 ")
else
response.write(" ")
end if
if rs("Elite")=true then
response.write("荐")
else
response.write(" ")
end if
response.write " " & string(rs("Stars"),"★") & ""
%>
|
|
| <%=rs("Title")%> |
| ［
<%
dim Author,CopyFrom
Author=rs("Author")
CopyFrom=rs("CopyFrom")
response.write "作者："
if instr(Author,"|")>0 then
response.write "" & left(Author,instr(Author,"|")-1) & ""
else
response.write Author
end if
response.write " 转贴自："
if instr(CopyFrom,"|")>0 then
response.write "" & left(CopyFrom,instr(CopyFrom,"|")-1) & ""
else
response.write CopyFrom
end if
response.write " 点击数：" & rs("Hits") & " 更新时间：" & FormatDateTime(rs("UpdateTime"),2) & " 文章录入："
set tUser=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
if tUser.bof and tUser.eof then
response.write rs("Editor")
else
response.write "" & rs("Editor") & ""
end if
%>
］ |
|
<%call ShowArticleContent()%> |
|
上一篇文章：
<% call ShowPrevArticle(200) %>
下一篇文章：
<% call ShowNextArticle(200) %>
|
|
| 【" target="_blank">发表评论】【" target="_blank">告诉好友】【">打印此文】【关闭窗口】 |
|
|
|
|
|
|
<% call ShowElite(5,24) %>
|
|
|
|
|
|
|
<% call ShowCorrelative(5,24) %>
|
|
|
 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
|
|
<% call ShowComment(10) %>
|
|
|