video_down.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_video.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim power,server_vv,server_v1,server_v2,emoney,movieid,urlid,vtitle,vtype,vurl
movieid=request("id2")
urlid=request("id1")

tit="影视下载"
call web_head(0,0,4,0,0)

if movieid="" or urlid="" then
response.write error
response.end
end if

  sql="select power,emoney,type,title from video where id="&movieid
  set rs=conn.execute(sql)

if not rs.eof then
power=rs("power")
emoney=rs("emoney")
vtitle=rs("title")
vtype=rs("type")
else
rs.close:set rs=nothing
conn.close:set conn=nothing
response.write error
response.end
end if

call emoney_notes(power,emoney,n_sort,movieid,"js",1,1,"video_view.asp?id="&movieid&"",p_name)

  rs.close:set rs=nothing
  sql="update video set counter=counter+1 where id="&movieid
  conn.execute(sql)
dim rst
   set rst=server.createobject("adodb.recordset")
   sql="select url from videourl where id="&urlid
   rst.open sql,conn,1,1
   vurl=rst("url")
   rst.close:set rst=nothing

call close_conn()
%>

<table border=1 width='100%' cellspacing=0 cellpadding=0 align=center align=center bgcolor=#F7F7F7 bordercolor=#007db5>
<tr><td width='100%' height='22' align=center colspan=2 background="images/video/menu_bg.gif"><font class=red_3><b>影 视 下 载</b></font></td></tr>
<tr><td width='20%' height='26' align=center><font class=red_3>影视名称：</font></td><td>&nbsp;<%response.write "<font class=blue><b>"&vtitle&"</b></font>&nbsp;&nbsp;"&action%></td></tr>
<tr><td width='20%' height='26' align=center><font class=red_3>下载地址：</font></td><td>&nbsp;<a href=<%=vurl%>><%=vurl%></a></td></tr>
<tr><td width='20%' height='25' align=center><font class=red_3>备&nbsp;&nbsp;&nbsp;&nbsp;注：</font></td><td>&nbsp;</td></tr>
</table>