ASP编程问题，可以么？？？(50分)

stonehuang · 2002-12-28

<%
dim typeid
typeid = Request("typeid")
id = Request("id")
num=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,2
if not rs.EOF then
rs("hits").value = rs("hits").value + 1
rs.Update
grade=rs("grade")
select case grade
case 0
msg="对所有人开放"
case 1
msg="只对普通会员和VIP会员开放"
case 2
msg="只对VIP会员开放"
end select
if session("grade")="" then
session("grade")=0
end if
select case session("grade")
case 0
msg1="您不是会员"
case 1
msg1="您只是普通会员"
end select
end if%><html>
<head>
<title>::影视剧场－天天精彩 Ver2.0::</title><script src="../fun/time00.js"></script>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<link rel="stylesheet" type="text/css" href="fun/moive.css">
<STYLE type=text/css>.opacity {
FILTER: alpha(opacity=100)</STYLE>
<STYLE type=text/css>.button {
BORDER-RIGHT: #99cc00 1px solid;
BORDER-TOP: #99cc00 1px solid;
BORDER-LEFT: #99cc00 1px solid;
COLOR: #99cc00;
BORDER-BOTTOM: #99cc00 1px solid;
BACKGROUND-COLOR: #313031</STYLE>
<script language="javaScript" type="text/javascript" SRC="js/chromeless.js"></SCRIPT>
<SCRIPT LANGUAGE=javascript>

</SCRIPT></head>
<body bgcolor="333333" text="cc9900" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu=self.event.returnValue=false onselectstart="return false">
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="1%"><img src="images/moive_top_01.gif" width="12" height="19"></td>
<td width="49%" background="images/moive_top_01.gif"><font size="-2">Ver:2.0
</font> </td>
<td width="50%" background="images/moive_top_01.gif">
<div align="right"><a
href="javascript:window.external.AddFavorite('http://www.65city.com/rstars/movie',%20'影视剧场,天天精彩!')">□加入收藏</a>&nbsp;&nbsp;<a href="javascript:;"
onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.65city.com/rstars/movie');">□设为首页</a>&nbsp;&nbsp;</div>
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="14%"><img src="images/moive_top_03.gif" width="138" height="16"></td>
<td width="15%"><img src="images/moive_top_04.gif" width="155" height="16"></td>
<td width="1%"><img src="images/moive_top_05.gif" width="11" height="16"></td>
<td width="38%"><img src="images/moive_top_06.gif" width="395" height="16"></td>
<td width="32%" background="images/bg.gif"><img src="images/moive_top_07.gif" width="46" height="16"></td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" height="72" align="center">
<tr>
<td height="79" width="26%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/moive_top_09.gif" width="263" height="14"></td>
</tr>
<tr>
<td height="58">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13%" height="45"><img src="images/moive_top_13.gif" width="34" height="65"></td>
<td width="22%" height="45"><img src="images/moive_top_14.gif" width="60" height="65"></td>
<td width="65%" height="45">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><img src="images/moive_top_15.gif" width="168" height="21"></td>
</tr>
<tr>
<td rowspan="2"><img src="images/moive_top_17.gif" width="1" height="44"></td>
<td><img src="images/moive_top_18.gif" width="167" height="25"></td>
</tr>
<tr>
<td><img src="images/moive_top_21.gif" width="167" height="19"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td height="79" width="47%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><iframe src=ads/ads1.htm width=469
height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0
scrolling=NO></iframe></td>
<td><img src="images/moive_top_11.gif" width="15" height="60"></td>
</tr>
<tr>
<td colspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="11%"><img src="images/moive_top_22.gif" width="69" height="19"></td>
<td width="80%" background="images/moive_top_23.gif">&nbsp;</td>
<td width="9%"><img src="images/moive_top_25.gif" width="43" height="19"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td height="79" width="27%" valign="top" background="images/bg.gif">&nbsp;
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="10%"><img src="images/moive_top_27.gif" width="115" height="29"></td>
<td background="images/moive_top_28.gif" width="90%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"><a href="default.asp"><img src="images/index.gif" width="40" height="17" border="0" alt="<<返回首页"></a></td>
<td width="1%">|</td>
<td width="4%"><a href="Movie.asp?typeid=1"><img src="images/dalu.gif" width="40" height="17" border="0" alt="大陆影视精品>>"></a></td>
<td width="1%">|</td>
<td width="4%"><a href="Movie.asp?typeid=2"><img src="images/gangtai.gif" width="40" height="17" border="0" alt="港台影视精品>>"></a></td>
<td width="1%">|</td>
<td width="4%"><a href="Movie.asp?typeid=3"><img src="images/omei.gif" width="40" height="17" border="0" alt="欧美影视精品>>"></a></td>
<td width="1%">|</td>
<td width="4%"><a href="Movie.asp?typeid=4"><img src="images/rihan.gif" width="40" height="17" border="0" alt="日韩影视精品>>"></a></td>
<td width="1%">|</td>
<td width="4%"><a href="Movie.asp?typeid=5"><img src="images/qita.gif" width="40" height="17" border="0" alt="卡通动画精品>>"></a></td>
<td width="1%">|</td>
<td width="5%"><a href="Movie.asp?typeid=6"><img src="images/linglei.gif" width="40" height="17" border="0" alt="令类影视精品如广告,幽默等>>"></a></td>
<td width="1%">|</td>
<td width="8%"><a href="Movie.asp?typeid=7"><img src="images/tv.gif" width="71" height="17" border="0" alt="国内外精彩电视台>>"></a></td>
<td width="1%">|</td>
<td width="8%"><a href="Movie.asp?typeid=8"><img src="images/radio.gif" width="71" height="17" border="0" alt="精彩在线广播收听>>"></a></td>
<td width="6%"><a href="gb/" target="_blank"><img src="images/gb.gif" width="55" height="17" border="0" alt="你需要什么电影或电视剧等其他视频在这里说>>"></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bg_1.gif">
<tr>
<td height="10">
<table width="598"bgcolor="4d4d4c" align="center" height="30">
<tr>
<td width="13" align="right"><img src="images/jiao1.gif" width="13" height="30"></td>
<td width="571" style="border-collapse: collapse;
border-bottom: 1px solid #000000" >
<%
if session("User")<>"" then
set rsn=conn.execute("SELECT * FROM user where UserName='"&session("User")&"'")
if (rsn.eof and rs.bof) or err.number<>0 then
%>
<% else
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" width="69%"><a href="member/UserLogout.asp" title="点这里退出/重登陆">欢迎您：<font color=#FF00FF><b><%=session("User")%></b> </font></a>
光临影视剧场！您已经成功登陆！ &nbsp;&nbsp;
</td>
<td align="center" width="16%" valign="bottom">
<input src="images/reg_03.gif" alt="修改个人资料" type=image name="modify2" onClick="javascript:window.open('member/UserModify.asp','_self','')">
</td>
<td align="center" width="16%" valign="bottom">
<input src="images/reg_04.gif" alt="退出登陆" type=image name="image" onClick="javascript:window.open('member/UserLogout.asp','_self','')" >
</td>
</tr>
</table>
<%
rsn.close
end if
else
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<form name="userlogin" action="member/UserChkLogin.asp">
<tr>
<td align="center" rowspan="2" height="22" valign="bottom" width="91%">您还没有登陆,请登陆或注册！名称：
<input type=text name="UserName" size=8 class=button>
密码：
<input type=password name="password" size=8 class=button>
&nbsp;&nbsp;
</td>
<td align="center" rowspan="2" height="22" valign="bottom" width="5%">
<input name="reg2" src="images/reg_01.gif" type=image target="('member/userchklogin.asp','_self','')">
</td>
<td align="center" rowspan="2" height="22" valign="bottom" width="5%">
<a href="member/UserReg.asp"><img border="0" src="images/reg_02.gif" alt="注册成为影视剧场的普通会员！"></a>
</td>
<td align="center" rowspan="2" height="22" valign="bottom" width="0%">&nbsp;</td>
</tr>
</form>
</table>
<%end if%>
</td>
<td width="14" align="left"><img src="images/jiao2.gif" width="14" height="30"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center" background="images/bg_1.gif">
<tr>
<td height="143" valign="top">
<table width="595" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="380" rowspan="4"valign="top">
<table width="380" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td colspan="4"><img src="images/ww_01.gif" width="394" height="31"></td>
</tr>
<tr valign="top">
<td background="images/ww_02.gif" width="6" rowspan="4">&nbsp;</td>
<td width="150">
<table valign="top" width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="8" width="148" ><img src="images/x_01.gif" width="150" height="13"></td>
</tr>
<tr>
<td background="images/x_02.gif" width="148">
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%if rs("images")<>"" and rs("images")<>"movie.gif" then
%>
<div align="left"><a href="show.asp?id=<%=rs("id")%>&typeid=<%=rs("typeid")%>"><img src="<%=rs("images")%>" border="0" alt="海报，点击进入！" width="120" height="90" ></a></div>
<% else
%>
<img src="images/movie.gif" width="120" height="90">
<% end if %>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="26" background="images/x_03.gif" width="148">&nbsp;</td>
</tr>
</table>
</td>
<td width="229">
<table cellspacing=1 cellpadding=3 width="100%"
bgcolor=#333333>
<tr>
<td noWrap align=right width="32%" bgcolor=#4d4d4d> <font color=#99cc00>影片名称：</font></td>
<td bgcolor=#666666 width="68%"><b><font color="#FFCC33"><%=left(rs("title"),12)%></font></b>
<%if RS("dateandtime")>=date() then
response.write("&nbsp;&nbsp;<image src=images/news.gif>")%>
</td>
</tr>
<tr>
<td align=right width="32%" bgcolor=#4d4d4d height="18"><font
color=#99cc00> 领衔主演：</font></td>
<td bgcolor=#666666 height="18" width="68%"> <%=left(rs("dog"),12)%></td>
</tr>
<tr>
<td align=right width="32%" bgcolor=#4d4d4d height="25"><font
color=#99cc00> 推荐程度：</font></td>
<td bgcolor=#666666 height="25" width="68%"><font color="#ffcc330"><%=rs("filmlevel")%>
</font>
<%if RS("best") = true then
response.write("<font color=#ffcc330><b>(强烈推荐)</b></font>")%>
</td>
</tr>
<tr>
<td align=right width="32%" bgcolor=#4d4d4d><font
color=#99cc00> 文件格式：</font></td>
<td bgcolor=#666666 width="68%"><font color="#ffcc330"> <%=rs("runsystem")%></font></td>
</tr>
<tr>
<td align=right width="32%" bgcolor=#4d4d4d><font
color=#99cc00> 观看次数：</font></td>
<td width="68%" bgcolor=#666666><font color="#ffcc330"><b>
<%=rs("hits")%></b></font></td>
</tr>
</table>
</td>
<td width="9" background="images/ww_04.gif" rowspan="4">&nbsp;</td>
</tr>
<tr>
<td colspan="2">
<table cellspacing=1 cellpadding=3 width="99%"
bgcolor=#333333 align="center">
<tbody>
<tr>
<td noWrap align=right width="22%" bgcolor=#666666><font
color=#99cc00>开放范围</font> <font color="#99cc00">：</font></td>
<td bgcolor=#4d4d4d colspan=2><font color="#ffcc330"><b><%=msg%></b></font></td>
</tr>
<tr>
<td align=right width="22%" bgcolor=#666666 valign="top"><font
color=#99cc00>在线欣赏：</font></td>
<td bgcolor=#4d4d4d
colspan=2>
<%
if grade>0 and grade>session("grade") then
response.write "<font color=#ffcc00><b>此片"&msg&"</b></font><br>在线收看地址已隐藏,请<a href='member/userreg.asp'><b>加入我们的会员</b></a>后收看!"
else
if rs("runsystem")<>rm then
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:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>"&filmurl("title")&"</b></font></a>"
else
if filmurl.recordcount=2 then
response.write "<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>上集</b></font></a>"
filmurl.movenext
response.write " <a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>下集</b></font></a>"
else
if filmurl.recordcount=3 then
response.write "<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>上集</b></font></a>"
filmurl.movenext
response.write " <a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>中集</b></font></a>"
filmurl.movenext
response.write " <a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'><b>下集</b></font></a>"
else
do while not filmurl.eof
for line=1 to 10
if len(filmurl("no"))=1 then
response.write "<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'>(0"&filmurl("no") &
")</font></a>&nbsp;&nbsp;"
else
response.write "<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'>("&filmurl("no") &
")</font></a>&nbsp;&nbsp;"
end if
filmurl.movenext
if filmurl.eof then
exitdo
next
response.write "<br>"
loop
filmurl.close
set filmurl=nothing

end if
end if
end if
%>
</td>
</tr>
<tr>
<td align=right width="22%" bgcolor=#666666 valign="top"><font color="#99cc00">剧情简介
：</font></td>
<td bgcolor=4d4d4d colspan=2 valign="top">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("content")%></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<SELECT class=button id=SelPlayerStyle size=1 style="WIDTH:99%" LANGUAGE=javascript onchange="return SelPlayerStyle_onchange()" type="hidden">
<OPTION class=button selected value="PlayerStyle/Player/">↓↓支持本站的长足发展，帮忙点击下面广告！谢谢！↓↓</OPTION>
</SELECT>
</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"><iframe src=ads/ads1.htm width=375
height=60 marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0
scrolling=NO></iframe></div>
</td>
</tr>
<tr>
<td colspan="4"><img src="images/ww_05.gif" width="394" height="15"></td>
</tr>
</table>
</td>
<td width="210" valign="top">
<table valign="top" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#262626" style="border-collapse: collapse;
border: 1px solid #000000">
<tr>
<td background="images/bg1.gif" height="25">&nbsp;
<b><font size="2" color="#FFCC33">
■ 最新添加</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="210" valign="top">
<table valign="top" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#262626" style="border-collapse: collapse;
border: 1px solid #000000">
<%
set rs1=server.createobject("adodb.recordset")
sql="select * from film order by dateandtime desc"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<tr>
<td width="10%" height="22" bgcolor="666666"><img src="images/arrow2.gif" width="20" height="20"></td>
<td width="90%" height="22" bgcolor="4d4d4c">&nbsp;&nbsp;<a href="show.asp?id=<%=rs1("id")%>&typeid=<%=rs1("typeid")%>"><%=rs1("title")%></a><font color="cccccc" size="-2">[<%=rs1("hits")%>]</font></td>
</tr>
<%
rs1.movenext
abc=abc+1
if abc>11 then
exitdo
loop
rs1.close
%>
</table>
</td>
</tr>
<tr>
<td width="210" valign="top">
<table valign="top" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#262626" style="border-collapse: collapse;
border: 1px solid #000000">
<tr>
<td background="images/bg1.gif" height="25">&nbsp;
<b><font size="2" color="#FFCC33">
■ 点击排行</font></b></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="210" valign="top">
<table valign="top" width="100%" border="1" cellspacing="0" cellpadding="0" bordercolor="#262626" style="border-collapse: collapse;
border: 1px solid #000000">
<%
sql="select * from film where title<>'' order by hits desc"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
<tr>
<td width="10%" height="22" bgcolor="666666"><img src="images/arrow2.gif" width="20" height="20"></td>
<td width="90%" height="22" bgcolor="4d4d4c">&nbsp;&nbsp;<a href="show.asp?id=<%=rs1("id")%>&typeid=<%=rs1("typeid")%>"><%=rs1("title")%></a><font color="#cccccc" size="-2">[<%=rs1("hits")%>]</font></td>
</tr>
<%
rs1.movenext
tj=tj+1
if tj>11 then
exitdo
loop
rs1.close
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bg_1.gif" >&nbsp;</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center" height="18">
<tr>
<td background="images/moive_top_01.gif" width="93%">&nbsp;</td>
<td background="images/moive_top_01.gif" width="7%">
<div align="center"><font size="-2" face="Geneva, Arial, Helvetica, san-serif"><b><a href="#top" title="返回到顶部!">TOP↑</a></b></font></div>
</td>
</tr>
</table>
<table width="763" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="4d4d4c">
<div align="center">
<script src="ads/copy.js"></script>
</div>
</td>
</tr>
</table></body>
</html>
<%end if%>
请问如何将此ASP程序的在线播放功能修改成为下载功能，或者增加下载功能呢？？？
我请教过作者，很吝啬，要钱！！！不知道哪位老兄可以帮忙，我只有50分，不是不给！！！

isbo · 2002-12-28

加一个一般的超级连接

stonehuang · 2002-12-28

如何加呢，帮忙在关键的地方写个程序，本程序是access版本50给你！

rehappy · 2002-12-28

我的天，这么长～～谁也不愿意看～～
把下面这句换掉，或者在后面加个下载ｌｉｎｋ
"<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'>("&filmurl("no") &
")</font></a> "

stonehuang · 2002-12-28

老大,我也知道要换那句话,可如何换呢??
还要具备会员功能哦!!

我想要飞 · 2002-12-28

yun~
说那么清楚还不明白!

stonehuang · 2002-12-28

老大，我试着加了连接,可根本不行，因为它连接access,怎么加啊？？？

zxbyh · 2002-12-29

晕了!

stonehuang · 2002-12-29

"<a href='javascript:OpenPlayer(SelPlayerStyle.selectedIndex,"&filmurl("id")&",0);'><font color='#ffcc33'>("&filmurl("no") &
")</font></a> "
这句要如何换呢？？？

fancy105 · 2002-12-29

同意rehappy，真的没有什么人会愿意去看，贴主应该总结出一个问题点让大家讨论就好了！
其实在座的大多数人都是在职程序员，上论坛也只是利用空余时间！工作时间看的代码已经
不少了！

kenbe · 2003-01-02

头晕了

183cmdgman · 2004-04-07

1111111111111111

stonehuang · 2004-04-07

多人接受答案了。

ASP编程问题，可以么？？？(50分)

stonehuang

Unregistered / Unconfirmed

isbo

Unregistered / Unconfirmed

stonehuang

Unregistered / Unconfirmed

rehappy

Unregistered / Unconfirmed

stonehuang

Unregistered / Unconfirmed

我想要飞

Unregistered / Unconfirmed

stonehuang

Unregistered / Unconfirmed

zxbyh

Unregistered / Unconfirmed

stonehuang

Unregistered / Unconfirmed

fancy105

Unregistered / Unconfirmed

kenbe

Unregistered / Unconfirmed

183cmdgman

Unregistered / Unconfirmed

stonehuang

Unregistered / Unconfirmed

Similar threads