showart.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="include/ms_setting.asp"-->
<!--#include file="include/ms_page.asp"-->
<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
catTitle="文章中心→正文阅读"
id=request.queryString("id")
dim iserror,iderror
if not isNumeric(id) or id="" then
	iserror=true
else
	iserror=false
	sql="select * from ms_art where id="&id&" and pass=true"
	Set rs=Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,connstr,1,3
	if not rs.eof and not rs.bof then
		dim popedom,jifen,money,keyword
		dim isbuy:isbuy=0
		keyword=rs("art_keyword")
		popedom=cint(rs("popedom"))
		jifen=csng(rs("jifen"))
		money=csng(rs("money"))
		buyUser=trim(rs("buyUser"))
		if session(userVar)=userVal then
		dim userInfo
			userInfo=session("userinfo")
			if getBuyUser(buyUser,userInfo(1))=true then
				isbuy=1
			else
				isbuy=0
			end if
			if Request("pay")="yes" then
				if cint(userInfo(2))=2 and popedom=2 and csng(userInfo(4))>=money and isbuy=0 then
					rs("buyUser")=rs("buyUser")&","&userinfo(1)
					rs.update
					conn.execute("update ms_user set user_money=user_money-"&money&" where user_id="&userinfo(0))
					userInfo(4)=csng(userInfo(4))-money
					userInfo(4)=replace(FormatNumber(userInfo(4),2,-1),",","")
					session("userinfo")=userInfo
					userInfo=session("userinfo")
				end if
			end if
		end if
		popedom=cint(rs("popedom"))
		jifen=csng(rs("jifen"))
		money=csng(rs("money"))
		buyUser=rs("buyUser")
		iderror=true
	else
		iderror=false
	end if
end if
%>
<!--#include file="ms_start.asp"-->
<!--页面主体开始-->
<script language="JavaScript" src="include/wisdom.js"></script>
<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" class="mainMiddle_tdble"><tr>
<!--左栏开始-->
<td valign="top" class="mainMiddle_td_left">
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">会员登录</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call publiclogonModule()%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">站内搜索</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call searchInput("art")%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">热门文章</span></td><td class="ltr"></td></tr></table>
		<div class="lmc"><%Call hotart()%></div>
		</div>
		<div class="groupblock">
		<table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td class="ltl"><script type="text/javascript">ico()</script></td><td class="ltc"><span class="tt">本类推荐</span></td><td class="ltr"></td></tr></table>
		<div class="lmc">
		 <%
		 if isNumeric(id) and id<>"" then
		 	if iderror then
			 sql="select top "&articalOrderNum&" * from ms_art where classID="&rs("classID")&" and art_good=true and pass=true order by art_date desc"
			 artIsGood
			 else
			  response.Write("本类暂时没有推荐文章！")
			 end if
		 else
			 response.Write("本类暂时没有推荐文章！")
		 end if
		 %>
		</div>
		</div>
</td>
<td class="mainMiddle_td_middle" onClick="switchCol(this)" title="关闭左栏"><img src="images/closeL.gif"></td>
<td width="*" valign="top" class="mainMiddle_td_right">
<%	if iserror then
		Call showmsg("<li>参数必须为数字型参数，且不能为空</li>","参数出错")
	else
		if iderror then
		pltype="art"
		Call showartBody()
		rs.close
		Set rs=Nothing
		conn.execute("UPDATE ms_art SET art_clicks=art_clicks+1 WHERE id="&id)
		else
			showmsg "<li>您要查找的 ID 编号新闻不存在或者已经被删除了！</li>","系统返回信息"
		end if
	end if%>
</td></tr></table>
<!--#include file="ms_end.asp"-->
<%
Sub hotart()
	sql="select top "&articalOrderNum&" * from ms_art where art_clicks>0 and pass=true order by art_clicks desc"
	Set hrs=conn.execute(sql)
	If Not hrs.Eof and not hrs.Bof Then
	Do While Not hrs.Eof%>
		<div class="rlineX">☉<a href="showart.asp?id=<%=hrs("id")%>" target="_blank" title="新闻标题：<%=hrs("art_title")%>&#10;发布时间：<%=hrs("art_date")%>&#10;浏览次数：<%=hrs("art_clicks")%>"><%=cutStr(hrs("art_title"),12)%></a></div>
<%
		hrs.MoveNext
	Loop
	else
		Response.Write("暂无热点新闻！")
	end if
hrs.Close
Set hrs=Nothing
End Sub
Sub artIsGood()
	Set grs=conn.execute(sql)
	If Not grs.Eof and not grs.Bof Then
	Do While Not grs.Eof%>
		<div class="rlineX">☉<a href="showart.asp?id=<%=grs("id")%>" target="_blank" title="新闻标题：<%=grs("art_title")%>&#10;发布时间：<%=grs("art_date")%>&#10;浏览次数：<%=grs("art_clicks")%>"><%=cutStr(grs("art_title"),12)%></a></div>
<%
		grs.MoveNext
	Loop
	else
		Response.Write("暂无推荐新闻！")
	end if
grs.Close
Set grs=Nothing
End Sub
Sub showartBody()%>
<script language="javascript" src="include/scrollwindow.js"></script>
		<table cellspacing="0" class="naviTable"><tr><td class="naviL"></td><td class="naviM"><span class="rtt">当前位置：<a class="classNavig" href="index.asp">本站首页</a>→<a class="classNavig" href="art.asp">文章中心</a>→正文阅读</span></td><td class="naviR"></td></tr></table>
		<table width="100%" border="0" cellpadding="0" cellspacing="0" class="bodyTable">
		  <tbody id="bg">
		  <tr> 
			<td width="100%" height="60" valign="middle" align="center" style="font-size:20px;font-weight:bold;"><font color="<%=rs("titlecolor")%>"><%=rs("art_title")%></font></td>
		  </tr>
		  <tr> 
			<td height="24" valign="middle" align="center" class="cA1">作者：<%=rs("art_authors")%> | 来源：<%=rs("art_from")%> | 时间：<%=rs("art_date")%> | 浏览：<%=rs("art_clicks")%> 查看权限：
			<%if rs("popedom")=1 then
				response.write("会员级别")
			  elseif rs("popedom")=2 then
			  	response.write("VIP会员级别")
			  else
			  	response.write("游客查看")
			  end if
			%></td></tr>
		  <tr><td height="24" valign="middle" align="center" class="cA2">查看 【字号：<a href="javascript:ContentSize(16)">大</a> <a href="javascript:ContentSize(14)">中</a> <a href="javascript:ContentSize(12)">小</a>】【背景色 <a href="javascript:setColor('FaFBE6')"><img height=10 border=0 alt=杏仁黄 src="images/color1.gif" width=10></a> 
			<a href="javascript:setColor('FFF2E2')"><img height=10 alt=秋叶褐 src="images/color2.gif" width=10 border=0></a> 
			<a href="javascript:setColor('FDE6E0')"><img height=10 alt=胭脂红 src="images/color3.gif" width=10 border=0></a> 
			<a href="javascript:setColor('F3FFE1')"><img height=10 alt=芥末绿 src="images/color4.gif"  width=10 border=0></a> 
			<a href="javascript:setColor('DaFaFE')"><img height=10 alt=天蓝 src="images/color5.gif" width=10 border=0></a> 
			<a href="javascript:setColor('E9EBFE')"><img height=10 alt=雪青 src="images/color6.gif" width=10 border=0></a> 
			<a href="javascript:setColor('EaEaEF')"><img height=10 alt=灰 src="images/color7.gif" width=10 border=0></a> 
			<a href="javascript:setColor('FFFFFF')"><img height=10 alt=银河白(默认色) src="images/color8.gif" width=10 border=0></a>】【双击滚屏/单击停止】【<a href="javascript:copyText(document.all.size)">复制</a>】</td>
		  </tr>
		  <tr> 
			<td>
			<table width="100%" border="0" cellpadding="0" cellspacing="0" style="table-layout:fixed;">
				<tr>
					<td width="*"><div id="size" class="content">
					<%
					if popedom>0 then
						if session(userVar)=userVal then
							userInfo=session("userInfo")
							if popedom=1 then
								if cint(userInfo(2))>=1 then
									if csng(userInfo(3))<jifen then
										response.write("<div class=""buyMsg"">很遗憾，您的"&pointName&"不够，阅读此需要"&pointName&"<font color=""#ff0000"">"&jifen&" "&pointUnits&"</font>以上，目前您的"&pointName&"为<font color=""#ff0000"">"&userInfo(3)&pointUnits&"</font></div>")
									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))