%
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
%>
<%=rs("title")%>——多媒体库——<%=Sitename%>
|
发布日期:<%=rs("date")%> 推荐程度:<%=rs("commend")%> 大小:<%=rs("size")%> 点击次数:<%=rs("click")%>
|
|
|
| 内容提要:<%=rs("as")%> |
| 媒体大小:<%=rs("size")%> |
| 推荐指数:<%=rs("commend")%> |
| 更新日期:<%=rs("date")%> |
| 点击次数:<%=rs("click")%> |
| 播放地址:
<%
if rs("best")=false then '■1
%>
">">[点击播放]
<%
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
%>
">">[点击播放]
<%
else '◆3
if rs8("VIP") < 20 then '○4
%>
跟你讲哦,这个媒体可精彩了,您的VIP值 <%=rs8("VIP")%>〈 20 ,真可惜!想见就申请 VIP会员 吧^_^!
<%
else '○4
rs8("vip")=rs8("vip")-1
rs8.update
%>
">">[点击播放]
<%
end if '○4
end if '◆3
%>
<%
set rs8 = nothing
end if '☆2
end if '■1
%>
| |
<%=rs("content")%>
<%
if id<>"" then
set Rs=GrateRs("select * from Media where id="&id,1)
end if
set rs = nothing
end if
%>