<%=rs("title")%>——生物书籍—

<% if Request.QueryString("id")<>"" then Set rs = Server.CreateObject("ADODB.Recordset") SQL1 = "Select * from Book where id=" & Request.QueryString("id") rs.Open SQL1, cn, 1,2,1 rs("click")=rs("click")+1 rs.update %> <%=rs("title")%>——生物书籍——<%=Sitename%>

"><%=rs("title")%>

发布日期：<%=rs("date")%> 发布来源：<%=rs("writer")%> 点击次数：<%=rs("click")%>

<% if rs("best")=false then '■1 %>

<%=rs("content")%>

<% else '■1 %> <% if session("userlogin")="" then '☆2 %>

本文章乃推荐文章，只有成为会员才可见啦^_^！
耽搁一点时间，请您注册或登陆成本站会员再来吧！谢谢了——

<% else '☆2 dim userid,rs8,sql8 userid = Session("id") set rs8=server.createobject("adodb.recordset") '创建纪录集 sql8="select * from GYS_User where id="&userid&" " '查找用户信息 rs8.open sql8,cn,1,2 '在这里找错误，找了一个通宵，原来rs后面少个8，正确写法应该是rs8[如此低级的错误]，否则就会和上面定义的rs打架。 rs8("mlz")=rs8("mlz")+1 rs8.update %> <% if rs("color") <> "#FF0000" then '◆3 %>

<%=rs("content")%>

<% else '◆3 if rs8("VIP") < 20 then '○4 %>

本文章乃顶级好文章，您的VIP值 <%=rs8("VIP")%>〈 20 ，所有不才可见啦^_^！
请您到 留言本 上申请后再来吧！谢谢了——

<% else '○4 rs8("vip")=rs8("vip")-1 rs8.update %>

<%=rs("content")%>

<% end if '○4 end if '◆3 %> <% set rs8 = nothing end if '☆2 end if '■1 %>

〖访客评论〗

<%=rs("review")%>

<% dim id id=request("id") if request("dd")<>"" then set Rs=GrateRs("select * from Book where id="&id,3) if len(request("review"))>200 then response.write("

对不起，您评论不能这么长[大于200字符]，阿赛的空间有限。

") else select case request("dd") case 1 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "您发表的 “普通评论” 已成功记录在案！请退后再刷新本页！" case 2 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "您发表的 “打分评价” 已成功记录在案！请退后再刷新本页！" case 3 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "您发表的 “友情报错” 已成功记录在案！请勿退后再刷新本页！" end select Rs.update end if end if set Rs=GrateRs("select * from Book",1) do while not Rs.eof Rs.movenext loop %>

评论类别：

普通评论

打分评价

友情报错

评论发表员，请您注意：
1.请控制在200个字符以内！
2.非关于本页面的评论，请到论坛上！
3.请别发表猥琐的评论！否则立马封IP！
4.评论的负面影响、法律责任与本站无关！

发表评论：

操作选择：

<% if id<>"" then set Rs=GrateRs("select * from Book where id="&id,1) end if set rs = nothing end if %>