<%
if session("zhbg_name")="" then Response.Redirect "../../error.asp?id=440"
id=request("id")
if id="" then
response.write "参数不足"
response.end
end if
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT 银两 FROM 用户 WHERE 姓名='"& session("zhbg_name") &"'",conn,1,3
if rs("银两")<5000 then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.write "你的银两不足5000两，不可以观看！"
	response.end
end if
rs("银两")=rs("银两")-5000
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="conn.asp"-->
<%
sql="select * from learning where articleid="&id
rs.open sql,conn,1,2
if rs.bof or rs.eof then
response.write "该内容已经不删除或者不存在"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
rs("hits")=rs("hits")+1
rs.update
%>
<html>
<head>
<title><%=rs("title")%></title>
</head>
<body >
<table width="469" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#660000">
  <tr>
<td width="469" bgcolor="#FF6868">
<table border="0" cellspacing="1" width="100%" height="35">
<tr>
<td width="100%" bgcolor="#ffffff" height="31">
<table border="0" cellpadding="0" cellspacing="0" align="center" width="100%">
<tr>
<td width="100%">
<table border="0" cellspacing="1" width="100%" height="287">
<tr>
                      <td width="100%" align="center" height="21"> 〖<%=rs("title")%>〗 
                        浏览：<%=rs("hits")%>次 添加日期：<%=rs("dateandtime")%> </td>
</tr>
<tr>
                      <td width="100%" align="center" height="21"> </td>
</tr>
<tr>
                      <td width="100%" align="left" height="247" valign="top"> 
                        <table width="96%" height="173" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#660000">
                          <tr>
<td width="100%" height="201"><br><%=rs("content")%><br></td>
</tr><tr>
<td width="100%" height="16">
<hr style="border-style: dotted" size="1" color="#808080">
</td>
</tr>
<tr>
<td width="100%" height="17">发表于：<%=rs("dateandtime")%></td>
</tr>
<tr>
<td width="100%" height="17">  浏&nbsp;
览：<%=rs("hits")%>次</td>
</tr>
<tr>
<td width="100%" height="17">上一篇：
<%
rs.close
sql="select * from learning where articleid="&id-1
rs.open sql,conn,1,2
if rs.bof or rs.eof then
response.write "上一篇不存在"
else
response.write "<a href=list.asp?id="&id-1&">"&rs("title")&"</a>"
end if
rs.close
%>
</td>
</tr>
<tr>
<td width="100%" height="17">下一篇：
<%
sql="select * from learning where articleid="&id+1
rs.open sql,conn,1,2
if rs.bof or rs.eof then
response.write "上一篇不存在"
else
response.write "<a href=list.asp?id="&id+1&">"&rs("title")&"</a>"
end if
%>
</td>
</tr>
</table>
                      </td>
</tr>
<tr>
                      <td width="100%" align="left" height="17"> 
                        <div align="center">[非凡国度]祝大家天天有个好心情！</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn = nothing
%>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
