<%=rs("title")%>——多媒体库—

<% if Request.QueryString("id")<>"" then Set rs = Server.CreateObject("ADODB.Recordset") SQL1 = "Select * from Media where id=" & Request.QueryString("id") rs.Open SQL1, cn, 1,2,1 rs("click")=rs("click")+1 rs.update %> <% sub Play() '前面代码中调用使用 if FoundErr<>True then if rs("filetype")=0 then %>

<% end if if rs("filetype")=1 then %>

<% end if if rs("filetype")=2 then %>

<% end if if rs("filetype")=3 then %>

>[全屏欣赏] <% end if else response.write "

" end if %> <% end sub %> <%=rs("title")%>——多媒体库——<%=Sitename%>

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

发布日期：<%=rs("date")%> 推荐程度：<%=rs("commend")%> 大小：<%=rs("size")%> 点击次数：<%=rs("click")%>

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

<% call Play() %>

<% 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("commend") <> "★★★★★" then '◆3 %>

<% call Play() %>

<% else '◆3 if rs8("VIP") < 20 then '○4 %> 跟你讲哦,这个媒体可精彩了，您的VIP值 <%=rs8("VIP")%>〈 20 ，真可惜！想见就申请 VIP会员 吧^_^！ <% else '○4 'rs8("vip")=rs8("vip")-1 'rs8.update %>

<% call Play() %>

<% 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 Media 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 Media",1) do while not Rs.eof Rs.movenext loop %>

评论类别：

普通评论

打分评价

友情报错

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

发表评论：

操作选择：

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