showres.asp

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

			  elseif rs("popedom")=2 then
			  	response.write("VIP会员级别")
			  else
			  	response.write("游客查看")
			  end if
			%></td></tr>
		  <tr><td height="24" valign="middle" align="center" class="cA1">查看 【字号：<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("res_content"),550))			
										Elseif rs("showpage")=1 Then
											Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
										Elseif rs("showpage")=2 Then
											Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
										Else
											Response.Write(bbimg(rs("res_content"),550))
										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>&nbsp;<a href=""javascript:"" onclick=""window.history.go(-1)"">我不愿意</a></p></div>")
										end if
									else
										If rs("showpage")=0 Then
											Response.Write(bbimg(rs("res_content"),550))			
										Elseif rs("showpage")=1 Then
											Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
										Elseif rs("showpage")=2 Then
											Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
										Else
											Response.Write(bbimg(rs("res_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("res_content"),550))			
						Elseif rs("showpage")=1 Then
							Response.Write(AutoShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
						Elseif rs("showpage")=2 Then
							Response.Write(FingerShowContentPage("id",rs("id"),bbimg(rs("res_content"),550),"showart.asp"))
						Else
							Response.Write(bbimg(rs("res_content"),550))
						End if
					end if
					%>
					</div></td>
				</tr>
			  </table></td>
		  </tr>
		  <tr> 
			<td height="23"  class="cA3">[关键词：<%=rs("res_keyword")%>] [资源录入：<%=rs("post_member")%>]</td>
		  </tr>
		  <tr> 
			<td height="40" valign="middle">
			<div style="padding-left:2px;"><%Call UpAndNext("ms_res",id,"showres.asp","id","res_title","资源")'显示上一篇,下一篇%></div>
			</td>
		  </tr>
		  <tr> 
			<td height="23" class="cA3"> <a href="user_publish.asp?channel=res&action=maosin_appRes"><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("res_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("res_title")%>&k=zhongsouskeyword&aid=B0100128025"><%=rs("res_title")%></a>”相关内容</div>			<div><img src="images/baidu.gif">搜索更多“<a id="searhKey" style="color:#ff0000;" href="http://www.baidu.com/s?wd=<%=rs("res_title")%>&tn=ibaidukeysword"><%=rs("res_title")%></a>”相关内容</div>			</td>
		  </tr>
		  <tr> 
			<td class="aboutTitle">∷相关资源∷</td>
		  </tr>
		  <tr>
		  	<td class="aboutTitle">
			<%if rs("res_keyword")<>"" then	
				sql="select top "&resAboutNum&" * from ms_res where res_keyword in ("""&rs("res_keyword")&""") or res_keyword like ""%"&rs("res_keyword")&"%"""		
				Set ares=conn.Execute(sql)
				If Not ares.Eof And Not ares.Bof Then
				Do While Not ares.Eof
					Response.Write("<span>☉<a href=showres.asp?id="&ares("id")&">"&ares("res_title")&"</a></span><BR>")
				ares.MoveNext
				Loop
				Else
					Response.Write("<font color=#777777>☉没有相关文章</font>")
				End If
				ares.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_res_pl where id="&rs("id")&" order by pl_date desc"
			Set plrs=Server.CreateObject("ADODB.RecordSet")
			plrs.Open sql,connstr,1,1
			plrs.pagesize=resPlNum
			%>
		  <tr> 
			<td class="aboutTitle">∷相关评论∷（共<font color="#ff0000"><%=plrs.recordcount%></font>条 显示最新<font color="#ff0000"><%=resPlNum%></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")&" &nbsp;打分：<font color=""#ff0000"">"&plrs("pl_fen")&"</font>&nbsp; 发表时间："&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=res&id="&id&"&title="&rs("res_title")&">查看全部评论</a></div>")
			Else
				Response.Write("<font color=#777777>暂时没有相关评论！</font>")
			End If
			plrs.close
		  %>
			</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
%>