bf.asp

来自「《Web数据库技术》-高晗-vod点播系统程序源代码」· ASP 代码 · 共 58 行

ASP
58
字号
<!--#include file="conn.asp"-->
<%if request.cookies("userid")="" or request.cookies("password")="" then
   response.write"没有登陆不能查看"
   response.end
   end if
   set rsb=server.createobject("adodb.recordset") 
   rsb.open "select * from history",conn,1,3 
   rsb.addnew 
   rsb("title")=request("title") 
   rsb("userip")=request.servervariables("remote_addr") 
   rsb("userid")= request.cookies("userid")
   rsb("lookordown")="在线" 
   rsb("looktime")=now()
   rsb.update 
   rsb.close 
   set rsb=nothing 
   sql1="update user set times=times+1 where userid="&request.cookies("userid")
   conn.execute sql1
   sql2="update Playbill set hits=hits+1 where title='"&trim(request("title"))&"'"
   conn.execute sql2
   %>
<html>
<head>
<title>欢迎收看电影《<%=trim(request("title"))%>》</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ffffff">
<p>&nbsp; </p>
<table width="101%" border="0" height="420">
  <tr> 
    <td height="275"> 
<div align="center">
<object id="emerge" classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"
width="435" height="275">
          <param name="autostart" value="false">
          <param name="controls" value="imagewindow">
          <param name="console" value="clip1">
          <param name="src" value="<%=trim(request("Path")) %>">
        </object></div>
    </td>
  </tr>
  <tr> 
    <td> 
<div align="center">
<object id="emerge4" classid="clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa"
                 width="429" height="118">
          <param name="autostart" value="true">
          <param name="controls" value="all">
          <param name="console" value="clip1">
          <param name="src" value="<%=trim(request("Path"))%>">
        </object></div>
    </td>
  </tr>
</table>
<p>&nbsp; </p>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?