showart.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format1.asp"-->
<%
dim founderr
founderr=false
if request.querystring("art_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("art_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法！');javascript:history.back();</script>"
  end if
end if
if request.querystring("art_id")="" then response.redirect "show_error.asp?eid=栏目ID或记录ID不能为空!"
sql="select * from art where art_id="&request.querystring("art_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start="文章中心 - "&rs("art_title")&""
art_images=rs("images")
if rs("Grade")="0" then
hxGrade="游客身份"
elseif rs("Grade")="1" then
hxGrade="会员身份"       
elseif rs("Grade")="2" then
hxGrade="VIP身份"       
end if      
call head()
call menu()
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; 您的位置：<a href='index.asp'>"&webname&"</a> >> <a href='art.asp'>文章中心</a>"
sql="select cat_id,cat_name,sid from a_cat where cat_id="&rs("cat_id")
set rs1=conn.execute(sql)
sql="select cat_id,cat_name from a_cat where cat_id="&rs1("sid")
set rs2=conn.execute(sql)
Response.Write " >> <a href=""art_view.asp?cat_id="&rs2("cat_id")&""">"&rs2("cat_name")&"</a>" 
Response.Write " >> <a href=""art_list.asp?cat_id="&rs1("cat_id")&""">"&rs1("cat_name")&"</a> >> 正文" 
rs1.close 
rs2.close 
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　阅读文章</td></tr></table>" & vbCrLf
if guestart="yes" or request.Cookies("HX_USER")("User_Name")<>"" then
Response.Write "<table align=""center"" width=""96%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top""><br><div align=""center""><font style=""font-size:16px""><b>"&rs("art_title")&"</b></font></div><br>" & vbCrLf
Response.Write "<table width=""99%"" align=""center"" class=""table-top"">" & vbCrLf
Response.Write "<tr><td width=""20%"">&nbsp;</td><td width=""20%"">提交会员："&rs("tjuser")&"</td><td width=""18%"">来源："&WebName&" </td><td width=""27%"">浏览次数："&rs("art_count")&"</td>" & vbCrLf
Response.Write "<td width=""15%"" align=""right"" rowspan='2'>[字体：<a href=""javascript:ContentSize(16)"">大</a> <a href=""javascript:ContentSize(14)"">中</a> <ahref=""javascript:ContentSize(12)"">小</a>]</td></tr>" & vbCrLf
Response.Write "<tr><td width=""20%"">&nbsp;</td><td width=""20%"">阅读权限：<font color=red>"&hxGrade&"</font></td><td width=""18%"">花费听雪币：<font color=red>"&rs("points")&"</font></td><td width=""27%"">添加时间："&rs("art_date")&"</td></tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
set User_UserPoint=conn.execute("select points,usergrade from [user] where userid="&request.Cookies("HX_USER")("uid"))
userPoint=User_UserPoint(0)
userGrade=User_UserPoint(1)
User_UserPoint.close
set User_UserPoint=nothing
if request.Cookies("HX_USER")("Grade")="" then 
Grade=0
else 
Grade=userGrade+1
end if
if Grade>=RS("Grade") and userPoint>=rs("points") then
Pay=request("Pay")
if Pay="" and hxGrade<>"游客身份" then
Response.Write "<table width=""95%"" align=""center""><TD width=""100%"" align=""center"">" & vbCrLf
Response.Write "<p align='center'>阅读本文需要消耗 <b><font color=red>"&rs("points")&"</font></b> 听雪币！<BR>" & vbCrLf
Response.Write "你目前尚有 <b><font color=blue>"&userPoint&"</font></b> 听雪币可用，<BR>阅读本文后，你将剩下 <b><font color=green>" & userPoint-rs("points") & "</font></b> 听雪币。<BR>" & vbCrLf
Response.Write "你确实愿意花费 <b><font color=red>"&rs("points")&"</font></b> 听雪币来阅读本文吗？" & vbCrLf
Response.Write "<br><br><a href='?Pay=yes&art_id=" & rs("art_id") & "'>我愿意</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='index.asp'>我不愿意</a></p></td></table>" & vbCrLf
elseif lcase(trim(request("Pay")))="yes" or hxGrade="游客身份" then
sql="UPDATE [user] SET points = points - "&rs("points")&" where userid="&request.Cookies("HX_USER")("uid")
conn.execute (sql)
Response.Write "<table width=""100%"" align=""center"" style=""word-break:break-all;table-layout:fixed;text-align:left""><TD width=""100%""><div id=""size"" style=""display:block;padding:0px 0px;LINE-HEIGHT: 180%"">" & vbCrLf
if art_images<>"" then response.write "<a href="&art_images&" target=_blank><img src="&art_images&" align=right onload=""javascript:if(this.width>screen.width-666)this.width=screen.width-666"" border=0 alt=按此在新窗口浏览图片></a>"
response.write ""&Ubb2Html(formatStr(autourl(rs("art_content"))),true,true)&"" & vbCrLf
Response.Write "</div></TD></table></td></tr>" & vbCrLf
end if
elseif Grade<RS("Grade") then
Response.Write "<center><font color=red>对不起，你的权限不够，不能阅读此文章!</font></center>" & vbCrLf
elseif userPoint<rs("points") then
Response.Write "<center><font color=red>对不起，本文为收费内容，你的点数不足(你当前点数为：" &userPoint& ")，无法阅读本文章。<BR>请与我们联系进行充值。</font></center>" & vbCrLf
end if
Response.Write "</table><BR>" & vbCrLf
Response.Write "<table width=""96%"" align=""center"" class=""table-shangxia1""><tr><td align=""left"" width=""60%"">" & vbCrLf
set RelationArt = conn.execute("select top 1 art_id,art_title from art where art_id<"&request.querystring("art_id")&" and passed=0 order by art_date desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上篇文章：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上篇文章：</font><a href=""showart.asp?art_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 art_id,art_title from art where art_id>"&request.querystring("art_id")&" and passed=0 order by art_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下篇文章：</font>已经没有了"   
else
Response.Write "<font color=red>·下篇文章：</font><a href=""showart.asp?art_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
Set RelationArt=Nothing 
Response.Write "<td align=""right"">阅读："&rs("art_count")&"人次&nbsp;&nbsp;【 <a href='javascript:copyText(document.all.size)'>复制</a> 】 【 <a href=""javascript:window.print()"">打印</a> 】</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
else
call guesterror()
  response.end
end if
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　相关文章</td></tr></table>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" bgcolor=""#FCFCFC"">" & vbCrLf
Response.Write "<tr><td background=""img/bg.gif"" style=""display:block;padding:0px 10px;LINE-HEIGHT: 210%"">"
sql="select top 5 * from art where art_keyword like '%"&rs("art_keyword")&"%' and art_id <> "&rs("art_id")&" order by art_date DESC"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
Response.Write "·<a href='showart.asp?art_id="&rs2("art_id")&"'>"&rs2("art_title")&"</a> "&rs2("art_date")&"<br>"  
rs2.movenext
loop
if rs2.eof and rs2.bof then
response.write "没有相关文章<br>"
end if
rs2.close
set rs2=nothing
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 150%"">"
response.write "<font color=red>特别声明</font>：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请<a href='mailto:"&webmail&"' Title='给站长写信'><font color=green>联系我们</font></a>，我们尽快予以更正，谢谢。"
Response.Write "</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
if point_article="1" then
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇,当前显示最新的<font color=#CC0000>5</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table align=""center"" width=""98%"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""display:block;padding:0px 10px;LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""view.asp?action=art&art_id="&rs("art_id")&"""> [查看更多评论] [发表我的评论] </a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
elseif point_article="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【文章评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
set rscount=conn.execute("select * from art")
sql="UPDATE art SET art_count = art_count + 1 where art_id="&request.querystring("art_id")
conn.execute (sql)
rscount.close
set rscount=nothing
Response.Write "</table>" & vbCrLf
call footer()%>