⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 soft.asp

📁 一个人用ASP+SQL制作的个人博客
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
dim typeid
typeid = Request.QueryString("typeid")
id = Request.QueryString("id")
if id="" then
Response.Write("错误参数")
Response.End
else
set rs3=server.createobject("adodb.recordset")
sql3="select * from type where typeid="&typeid
rs3.open sql3,conn,1,1
types=rs3("type")
rs3.close
set rs=server.createobject("adodb.recordset")
sql="select * from film where id="&id
rs.open sql,conn,1,1
if not rs.EOF then
rs("hits").value = rs("hits").value + 1
rs.Update
end if%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("homes")%>=&gt;<%=rs1("home")%></title>
<style type="text/css">
<!--
body,td {  font-size: 14.1px}
.f138 {  font-size: 14px;line-height: 20px}
.nav {  font-size: 14px; color: #000000; letter-spacing: 5px}
a:link {  color: #66CCFF;text-decoration: none}
a:active {  text-decoration: none}
a:visited {  color: #66CCFF;text-decoration: none}

.td1  { border-color: #99CCFF black black #99CCFF; color: #99CCFF; padding-left: 5px; border-style: outset; border-top-width: thin; border-left-width: thin}-->
</style>
<script language="javascript">
function urlwin(id){window.open("open.asp?id="+id,"");}
</script> 
<script language="JavaScript">
function popwin2(id)
{		window.open("review.asp?id="+id,"","height=500,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<script language="javascript">
		<!--
		function Listen(ListenURL)
		{
		var Listen = window.open(ListenURL,"Listen","scrollbars=no,width=485,height=455");
		return false;
		}
		function Listci(ListenURL)
		{
		var Listci = window.open(ListenURL,"listci","scrollbars=yes,width=300,height=380");
		return false;
		}
		function addci(ListenURL)
		{
		var addci = window.open(ListenURL,"addci","scrollbars=yes,width=440,height=500");
		return false;
		}
function popwin2(id)
{		window.open("review.asp?id="+id,"","height=500,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
		//-->
</script> 

</head>

<body bgcolor="003366" text="#000000" leftmargin="0" topmargin="0">
<center>
  <table width=474 border=0 cellpadding=0 cellspacing=0 align="center">
    <tr> 
      <td width="36"> <img src="images/top_01.gif" width=37 height=25></td>
      <td width="742"> <img src="images/top_02.gif" width=435 height=25></td>
    </tr>
    <tr> 
      <td height="207"> <img src="images/top_03.gif" width=37 height=209></td>
      <td bgcolor="377DB9" valign="top"> 
        <table width="100%" border="0" cellspacing="1" cellpadding="1">
          <tr> 
            <td width="33%" height="185" align=center valign=top><br>
              <%if rs("images")<>"" and rs("images")<>"/film/image/juzhao/.jpg" then%>
              <div align="center"><img src="<%=rs("images")%>" class=bk border="0" alt="剧照" width="120" height="114" > 
                <%end if%>
                <br>
              </div>
            </td>
            <td width="67%" valign="top"> 
              <table width="98%" height="183" border="1" cellpadding="1" cellspacing="0"  bordercolor="48AEF5">
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">片名:<%=rs("title")%> 
                    <%if RS("dateandtime")>=date() then response.write("&nbsp;&nbsp;<image src=images/new.gif>")%>
                    </font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">主演:<%=rs("dog")%></font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">格式:<%=rs("runsystem")%></font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">推荐程度:<%=rs("filmlevel")%> 
                    <%if RS("best") = true then response.write("<font color=#ffffff>强烈推荐</font>")%>
                    </font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">上站时间:<%=rs("dateandtime")%></font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">带宽:<%= rs("daikuan") %></font></td>
                </tr>
                <tr> 
                  <td height="100%" class=td1><font color="#FFFFFF">人气指数:<%=rs("hits")%>人</font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
        <img src="images/top.gif" width="435" height="23"></td>
    </tr>
  </table>
  <span style="font-size:4px"><br>
  </span> 
  <table width="474" align="center" cellpadding="1" cellspacing="0" bgcolor="377DB9">
    <tr> 
      <td> <div align="center">点击播放: </div></td>
    </tr>
    <tr> 
      <td> <div align="center"> 
          <%dim filmurl,url,line
url ="SELECT * FROM url WHERE filmid = "&rs("id")&" ORDER BY id "
Set filmurl = Server.CreateObject("ADODB.Recordset")
filmurl.open url,Conn,3,1
if filmurl.eof then
response.write "<font color='#ffffff'>没有影片提供观看</font>"
else if filmurl.recordcount=1 then
response.write "<a href='javascript:urlwin("&filmurl("id")&")'>"&filmurl("title")&"</a>"
else if filmurl.recordcount=2 then
response.write "<a href='javascript:urlwin("&filmurl("id")&")'>上集</a>"
filmurl.movenext
response.write " <a href='javascript:urlwin("&filmurl("id")&")'>下集</a>"
else if filmurl.recordcount=3 then
response.write "<a href='javascript:urlwin("&filmurl("id")&")'>上集</a>"
filmurl.movenext
response.write " <a href='javascript:urlwin("&filmurl("id")&")'>中集</a>"
filmurl.movenext
response.write " <a href='javascript:urlwin("&filmurl("id")&")'>下集</a>"
else
do while not filmurl.eof
for line=1 to 8
if len(filmurl("no"))=1 then
response.write "<a href='javascript:urlwin("&filmurl("id")&")'>第0"&filmurl("no") & "集</a>&nbsp;"
else
response.write "<a href='javascript:urlwin("&filmurl("id")&")'>第"&filmurl("no") & "集</a>&nbsp;"
end if
filmurl.movenext
if filmurl.eof then exit do    
next
response.write "<br>"
loop
filmurl.close
set filmurl=nothing
end if
end if
end if
end if
%>
        </div></td>
    </tr>
  </table>
  <span style="font-size:4px"><br>
  </span> 
  <table width="474" border="0" align="center" cellpadding="0" cellspacing="20" bgcolor="377DB9">
    <tr> 
      <form action=score.asp method=post onSubmit="return checkform()">
        <td valign="top" bordercolor="#CCCCCC" bgcolor="377DB9" style="font-size:12px;padding: 10px"> 
          <a href="javascript:popwin2(<%=rs("id")%>)" 
            >点评影片</a> &nbsp;&nbsp;<%=rs("reviewcount")%> 篇</td>
      </form>
    </tr>
    <tr> 
      <td valign="top" bgcolor="377DB9" style="padding: 10px"> 
        <p>剧情介绍:</p>
        <p style="line-height:18px"><%=rs("content")%>&nbsp;&nbsp;&nbsp;&nbsp;</p>
      </td>
    </tr>
  </table>
  
</center>
</body></html>
<%end if
rs1.close
set rs1=nothing
conn.close
set conn=nothing%>

⌨️ 快捷键说明

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