📄 showart.asp
字号:
End if
end if
else
response.write("<div class=""buyMsg"">·此篇文章为会员文章,需要"&pointName&"为 <font color=""#ff0000"">"&rs("jifen")&"</font> "&pointUnits&"以上的会员级别才能查看，查看消费"&moneyName&" <font color=#ff0000>"&rs("money")&"</font> "&moneyUnits&"<br>·如果你还没注册，请<a href=""user_reg.asp""><font color=#ff0000>点此注册</font></a>！<br>·如果你已经注册但还没登录，请<a href=""logon.asp"" target=""_blank""><font color=#ff0000>点此登录</font></a> ！</div>")
end if
elseif popedom=2 then
if cint(userInfo(2))>=2 then
if getBuyUser(buyUser,userInfo(1))=true then
isbuy=1
else
isbuy=0
end if
if isbuy=0 and money>0 then
if csng(userInfo(4))<money then
response.write("<div class=""buyMsg"">很遗憾，您的"&moneyName&"不足，阅读此需要消费"&moneyName&"<font color=""#ff0000"">"&money&"</font> "&moneyUnits&"，目前您有"&moneyName&" <font color=""#ff0000"">"&userInfo(4)&"</font> "&moneyUnits&"</div>")
else
response.write("<div class=""buyMsg"">此篇文章为VIP会员文章,需要"&pointName&"为 <font color=""#ff0000"">"&rs("jifen")&"</font> "&pointUnits&"以上的VIP会员级别才能查看，查看消费"&moneyName&" <font color=#ff0000>"&rs("money")&"</font> "&moneyUnits&"<br>您是否愿意花费<font color=""#ff0000"">"&money&"</font>"&moneyUnits&moneyName&"购买<p style=""word-spacing:20px;text-align:center;""><a href=""?pay=yes&id="&rs("id")&""">我愿意购买</a> <a href=""javascript:"" onclick=""window.history.go(-1)"">我不愿意</a></p></div>")
end if
else
If rs("showpage")=0 Then
Response.Write(bbimg(rs("art_content"),550))
Elseif rs("showpage")=1 Then
Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("art_content"),550),"showart.asp"))
Elseif rs("showpage")=2 Then
Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("art_content"),550),"showart.asp"))
Else
Response.Write(bbimg(rs("art_content"),550))
End if
end if
else
response.write("<div class=""buyMsg"">·此篇文章为VIP会员文章,需要"&pointName&"为 <font color=""#ff0000"">"&rs("jifen")&"</font> "&pointUnits&"以上的VIP会员级别才能查看，查看消费"&moneyName&" <font color=#ff0000>"&rs("money")&"</font> "&moneyUnits&"<br>·如果你还没注册，请<a href=""user_reg.asp""><font color=#ff0000>点此注册</font></a>！<br>·如果你已经注册但还没登录，请<a href=""logon.asp"" target=""_blank""><font color=#ff0000>点此登录</font></a> ！</div>")
end if
end if
else
response.write("<div class=""buyMsg"">·此篇文章为会员文章,需要"&pointName&"为 <font color=""#ff0000"">"&rs("jifen")&"</font> "&pointUnits&"以上的会员级别才能查看，查看消费"&moneyName&" <font color=#ff0000>"&rs("money")&"</font> "&moneyUnits&"<br>·如果你还没注册，请<a href=""user_reg.asp""><font color=#ff0000>点此注册</font></a>！<br>·如果你已经注册但还没登录，请<a href=""logon.asp"" target=""_blank""><font color=#ff0000>点此登录</font></a> ！</div>")
end if
else
If rs("showpage")=0 Then
Response.Write(bbimg(rs("art_content"),550))
Elseif rs("showpage")=1 Then
Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("art_content"),550),"showart.asp"))
Elseif rs("showpage")=2 Then
Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("art_content"),550),"showart.asp"))
Else
Response.Write(bbimg(rs("art_content"),550))
End if
end if
%>
</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="23" class="cA3">[关键词：<%=rs("art_keyword")%>] [文章录入：<%=rs("post_member")%>]</td>
</tr>
<tr>
<td height="40" valign="middle">
<div style="padding-left:2px;"><%Call UpAndNext("ms_art",id,"showart.asp","id","art_title","篇文章")'显示上一篇,下一篇%></div>
</td>
</tr>
<tr>
<td height="23" class="cA3"> <a href="user_publish.asp?channel=article&action=maosin_appArticle"><img src="images/pencil.gif" border="0" align="absmiddle">我要投稿</a> <a href="javascript:print()"><img src="images/print.gif" border="0" align="absmiddle">打印此文</a> <a href="javascript:copyurl()"><img src="images/commend.gif" border="0" align="absmiddle">告诉好友</a> <a href="javascript:window.external.addFavorite(window.location,'<%=rs("art_title")%>')"><img src="images/favorite.gif" border="0" align="absmiddle">加入收藏</a> <a href="#top"><img src="images/top.gif" border="0" align="absmiddle">返回顶部</a> <a href="javascript:window.close()"><img src="images/close.gif" border="0" align="absmiddle">关闭窗口</a></td>
</tr>
</tbody>
<tr>
<td class="aboutTitle">∷相关搜索∷</td>
</tr>
<tr>
<td class="aboutLine">
<div><img src="images/zhongsou.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://p.zhongsou.com/p?w=<%=rs("art_title")%>&k=zhongsouskeyword&aid=B0100128025"><%=rs("art_title")%></a>”相关内容</div>
<div><img src="images/baidu.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://www.baidu.com/s?wd=<%=rs("art_title")%>&tn=ibaidukeysword"><%=rs("art_title")%></a>”相关内容</div>
</td>
</tr>
<tr>
<td class="aboutTitle">∷相关新闻∷</td>
</tr>
<tr>
<td class="aboutLine">
<%if rs("art_keyword")<>"" then
sql="select top "&articalAboutNum&" * from ms_news where news_keyword in ("""&rs("art_keyword")&""") or news_keyword like ""%"&rs("art_keyword")&"%"""
set aNews=conn.execute(sql)
If Not aNews.Eof And Not aNews.Bof Then
Do While Not aNews.Eof
Response.Write("<span>☉<a href=shownews.asp?id="&aNews("id")&">"&aNews("news_title")&"</a></span><BR>")
aNews.MoveNext
Loop
Else
Response.Write("<font color=#777777>☉没有相关新闻</font>")
End If
aNews.close
else
Response.Write("<font color=#777777>☉没有相关新闻</font>")
end if
%>
</td>
</tr>
<tr>
<td class="aboutTitle">∷相关文章∷</td>
</tr>
<tr>
<td class="aboutLine">
<%if rs("art_keyword")<>"" then
sql="select top "&articalAboutNum&" * from ms_art where art_keyword in ("""&rs("art_keyword")&""") or art_keyword like ""%"&rs("art_keyword")&"%"""
Set aArt=conn.Execute(sql)
If Not aArt.Eof And Not aArt.Bof Then
Do While Not aArt.Eof
Response.Write("<span>☉<a href=showart.asp?id="&aArt("id")&">"&aArt("art_title")&"</a></span><BR>")
aArt.MoveNext
Loop
Else
Response.Write("<font color=#777777>☉没有相关文章</font>")
End If
aArt.close
else
Response.Write("<font color=#777777>☉没有相关文章</font>")
end if
%>
</td>
</tr>
<tr>
<td class="aboutTitle">∷相关下载∷</td>
</tr>
<tr>
<td class="aboutLine">
<%if rs("art_keyword")<>"" then
sql="select top "&articalAboutNum&" * from ms_down where down_keyword in ("""&rs("art_keyword")&""") or down_keyword like ""%"&rs("art_keyword")&"%"""
Set downrs=conn.Execute(sql)
If Not downrs.Eof And Not downrs.Bof Then
Do While Not downrs.Eof
Response.Write("<span>☉<a href=showdown.asp?id="&downrs("id")&">"&downrs("down_title")&"</a></span><BR>")
downrs.MoveNext
Loop
Else
Response.Write("<font color=#777777>☉没有相关下载</font>")
End If
downrs.close
else
Response.Write("<font color=#777777>☉没有相关下载</font>")
end if
%>
</td>
</tr>
<tr>
<td valign="middle"><div class="aboutLine"><font color="#ff0000">特别声明：</font>本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正
</div></td>
</tr>
<%if rs("allow_pl") then
sql="select * from ms_art_pl where id="&rs("id")&" order by pl_date desc"
Set plrs=Server.CreateObject("ADODB.RecordSet")
plrs.Open sql,connstr,1,1
plrs.pagesize=articlePlNum
%>
<tr>
<td class="aboutTitle">∷相关评论∷（共<font color="#ff0000"><%=plrs.recordcount%></font>条 显示最新<font color="#ff0000"><%=articlePlNum%></font>条。评论内容只代表网友观点，与本站立场无关！） </td>
</tr>
<tr>
<td height="30" class="plContent">
<%
If Not plrs.Eof And Not plrs.Bof Then
line=1
Do While Not plrs.Eof and line<=plrs.pagesize
Response.Write("<span><img src=images/pl_1.gif align=absmiddle>"&plrs("pl_name")&" 打分：<font color=""#ff0000"">"&plrs("pl_fen")&"</font> 发表时间："&plrs("pl_date")&" [来自："&plrs("pl_ip")&"]</span><BR>")
Response.write("<span class='plLine'>"&plrs("pl_content")&"</span><BR>")
plrs.MoveNext
line=line+1
Loop
Response.write("<div class='plall'><a href=pl.asp?pltype=art&id="&id&"&title="&rs("art_title")&">查看全部评论</a></div>")
Else
Response.Write("<font color=#777777>暂时没有相关评论！</font>")
End If
plrs.close
set plrs=nothing
%>
</td>
</tr>
<tr>
<td class="aboutTitle">∷发表评论∷</td>
</tr>
<tr>
<td><%Call plModule()%></td>
</tr>
<%else%>
<tr>
<td height="25" valign="middle" align="center"><div class="plClose">【此文章评论已关闭】</div></td>
</tr>
<%end if%>
</table>
<%
End Sub
'========================================================
'MaoSin CMS 1.1 Power by maosin.com
'Email: maosin@163.com , maosin@maosin.com
'Web: http://www.maosin.com http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'=======================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -