📄 movie_edit.asp
字号:
<!--#include file="check.asp"-->
<%
'#################################################################
'# 晓宇听幽网站内容管理系统(xoYu CMS)
'#
'# 版权所有: 晓宇听幽工作室
'#
'# 制作人 : xoyu(晓宇)
'#
'# 主页地址: http://www.xoYu.com 晓宇听幽工作室
'# 论坛地址: http://www.xoYu.com/bbs/ 晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 电影名称：晓宇听幽网站内容管理系统·电影管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 电影创建时间：2003-7-10
'# 电影完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。
'#################################################################
if CheckAdmin("DownAdminAll",xoYuStudioAdminAdmin) then
else
if CheckAdmin("DownAdmin",xoYuStudioAdminAdmin) then
NotMe=" and user='"&xoYuStudioAdminName&"'"
else
response.write("<li>您没有进入本页面的权限!")
response.end
end if
end if
if CheckAdmin("DownTS",admin) then
DownTS="ok"
end if
DownHot=3
if CheckAdmin("DownHot3",xoYuStudioAdminAdmin) then DownHot=3
if CheckAdmin("DownHot4",xoYuStudioAdminAdmin) then DownHot=4
if CheckAdmin("DownHot5",xoYuStudioAdminAdmin) then DownHot=5
if xoYuStudioCheckAdminAll="ok" then DownHot=5
%>
<!--#include file="mdb_path_Movie.asp"-->
<!--#include file="Movieconfig.asp"-->
<%
savetime=Now()+MovieWebtime/24
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from Movie where id="&request("id")&""&NotMe&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<b>错误：</b>此ID号的电影已被删除或不是你添加的!"
response.end
end if
sqlt="select * from Movietype where id="&rs("tid")
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sqlt,conn,1,1
if not rst.eof then
sortid=rst("id")
tname=rst("tname")
end if
rst.close
rst.open ("select * from Movietype where tj>1 order by ts"),conn,1,1
do while not rst.eof
tname2=replace(rst("tname"),"|","->")
if rst("tj")=2 and rst("tn")<>tn then
i=i+1
if i=2 then
i=0
color="#808000"
else
color="#000000"
end if
end if
tn=rst("tn")
if rst("tstart")<>"" then
else
typelist=typelist&"<option style='COLOR:"&color&"' value='"&rst("id")&"'>"&tname2&"</option>"
end if
rst.MoveNext
loop
rst.close
set rst=nothing
%>
<SCRIPT LANGUAGE="JavaScript">
helpstat = false;
stprompt = true;
basic = false;
function thelp(swtch){
if (swtch == 1){
basic = false;
stprompt = false;
helpstat = true;
} else if (swtch == 0) {
helpstat = false;
stprompt = false;
basic = true;
} else if (swtch == 2) {
helpstat = false;
basic = false;
stprompt = true;
}
}
function AddText(NewCode) {
document.frmAnnounce.body.value+=NewCode
}
function openscriphtml()
{
if (navigator.appName!="Microsoft Internet Explorer")
alert("此功能 Netscape 用户不能使用！")
else
{newwin=window.open('html_editor.htm','','width=544,height=294');
newwin.focus();
}
}
function runEx(){
//alert('请注意，按下确定将生成页面，按下后请稍后....');
var winEx = window.open("", "winEx", "width=300,height=200,status=yes,menubar=yes,scrollbars=yes,resizable=yes"); winEx.document.open("text/html", "replace");
winEx.document.write(unescape(event.srcElement.parentElement.children[2].value));
winEx.document.close();
}
</SCRIPT>
<script language="Javascript">
<!-- hide
function insertsmilie(smilieface){
document.frmAnnounce.body.value+=smilieface;
}
// -->
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="电影制作：xoyu（QQ：5964887）www.xoyu.com">
<title>晓宇听幽 网站内容管理系统—添加文章</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body topmargin="1" leftmargin="1">
<form action="movie_edit_save.asp?d=editsave&id=<%=request("id")%>" method=post name="frmAnnounce">
<input type="hidden" name="user" value="<%=rs("user")%>">
<div align="center">
<center>
<table border="0" cellspacing="1" class="tableHeaderText" width="98%" cellpadding="2" height="530">
<tr>
<th width="100%" height="31">
<p align="left"><b><a class=xoYuStudioSort href=Movie_List.asp>电影首页</a>>> <a class=xoYuStudioSort href="Movie_List.asp?id=<%=sortid%>"><%=tname%></a> ++（编辑电影）++</b> <a class=xoYuStudioSort target="_blank" href="../software/xoyusoft_<%=request("id")%>.html"><b><%=request("id")%></b></a></td>
</tr>
<%if request("d")="saveok" then%>
<tr>
<td width="100%" height="9">
<table border="0" cellspacing="0" class="tableHeaderText" cellpadding="0" height="11" width="98%">
<tr>
<td bgcolor="#D6DFF7" height="11" width="550"><font color="#ff0000">·</font>修改完成!(<%=Now()%>)<%if request("update")="yes" then%>,你选择了自动生成Html页,请等待结果:</td>
<td height="11">
<iframe src='makemovie.asp?type=page&id=<%=request("id")%>' width='171' height='100%' frameborder='no' border='0' MARGINWIDTH='0' MARGINHEIGHT='0' SCROLLING='no'></iframe><%end if%></td>
</tr>
</table>
</td>
</tr>
<%end if%>
<tr>
<td width="100%" bgcolor="#F4F4F4" height="15"><font color="#000080"><b>电影信息</b> </font>
<font color="#808080">红字必填</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="336">
<table border="0" cellspacing="0" class="tableHeaderText" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#FF0000">电影类别</font>：<select size="1" name="tid">
<option selected value="<%=sortid%>"><%=tname%>(<%=sortid%>)</option>
<%=typelist%></select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2"><font color="#FF0000">电影名称</font>：<input type="text" size=41 name="MovieName" value="<%=rs("MovieName")%>"> 片长：<input type="text" size=25 name="movieTime" value="<%=rs("movieTime")%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">播放格式：
<input<%if rs("gs")=1 then%> checked<%end if%> type="radio" value="1" name="gs">电影<img border="0" src="../images/play_1.gif">
<input<%if rs("gs")=2 then%> checked<%end if%> type="radio" value="2" name="gs">电影<img border="0" src="../images/play_2.gif">
</td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">电影性质：类别:<select name="cd" size="1">
<option selected value="">
<%
if xoYuMovieLb<>"" then
LB=split(xoYuMovieLb,",")
for i=0 to ubound(LB)
response.write "<option value='"&LB(i)&"'"
if rs("cd")=LB(i) then
response.write " selected"
end if
response.write ">"&LB(i)&"</option>"
next
end if
%>
</select> 语言:<select name="yy" size="1">
<option selected value="">
<%
if xoYuMovieYy<>"" then
YY=split(xoYuMovieYy,",")
for i=0 to ubound(YY)
response.write "<option value='"&YY(i)&"'"
if rs("yy")=YY(i) then
response.write " selected"
end if
response.write ">"&YY(i)&"</option>"
next
end if
%>
</select> 授权:<select name="sq" size="1">
<option selected value="">
<%
if xoYuMovieSq<>"" then
SQ=split(xoYuMovieSq,",")
for i=0 to ubound(SQ)
response.write "<option value='"&SQ(i)&"'"
if rs("sq")=SQ(i) then
response.write " selected"
end if
response.write ">"&SQ(i)&"版</option>"
next
end if
%>
</select> 大小:<input type="text" size=2 name="size" value="<%=rs("size")%>"> 评价:<select size="1" name="hot">
<%for i=1 to DownHot%>
<option<%if rs("hot")=i then%> selected<%end if%> value="<%=i%>"><%=i%>星</option>
<%next%>
</select></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">主要演员：<input type="text" size=89 name="star" value="<%=rs("star")%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">官方网站：<input type="text" size=32 name="lu" value="<%=rs("lu")%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2"><a target="_blank" href="<%=rs("pic")%>">
电影图片</a>：<input type="text" size=32 name="pic" value="<%=rs("pic")%>">
<font color="<%if rs("hy")>0 then%>#FF0000<%end if%>">会员电影</font><select size="1" name="hy">
<option selected value="0"></option>
<option<%if rs("hy")="1" then%> selected<%end if%> value="1">普通会员</option><option<%if rs("hy")="2" then%> selected<%end if%> value="2">高级会员</option>
</select> <font color="<%if rs("show")=1 then%>#FF0000<%end if%>">推荐电影</font><input type="checkbox" name="show" value="1"<%if rs("show")=1 then%> checked<%end if%>></td>
</tr>
<tr>
<td bgcolor="#F9F9F9" nowrap>图片上传：</td>
<td width="99%" bgcolor="#F9F9F9">
<iframe name="xoYuStudioUpload" frameborder="0" width="100%" height="23" scrolling="no" src="upload.htm"></iframe></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" nowrap valign="top">电影简介：<br>
<input type="checkbox" name="html" value="yes" checked>HTML<br>
<a href="javascript:openscriphtml()">HTML编辑</a>
</td>
<td width="99%" bgcolor="#FFFFFF"><textarea rows="6" name="body" cols="90"><%=rs("body")%></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" colspan="2">解压密码：<input type="text" size=20 name="pwd" value="<%=rs("pwd")%>"><%
if DownTS="ok" then%> <input type="checkbox" name="zd_date_yes" value="yes"<%if request("html")="yes" then%> checked<%end if%>>自定修改时间<input type="text" size=19 name="zd_date" value="<%=savetime%>"><%end if%>
最后更新:<%=rs("date")%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F4F4F4" height="15"><font color="#000080"><b>下载地址</b></font>
<font color="#808080">(序号|下载说明|下载地址|删除) 下载地址除了已选删除的都不能为空</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="35"><%sql_file="select * from Moviefile where downid="&rs("id")&" order by downno"
Set rs_file= Server.CreateObject("ADODB.Recordset")
rs_file.open sql_file,conn,1,1
if rs_file.eof then
response.write "没有下载连接地址"
else
for i=1 to rs_file.recordcount
f=f+1
%>
地址<a target="_blank" href="<%=rs_file("file")%>"><%=i%></a>:<input name="filename<%=i%>" size="22" style="PADDING-LEFT: 1pt" value="<%=rs_file("filename")%>"> <input name="file<%=i%>" size="55" style="PADDING-LEFT: 1pt" value="<%=rs_file("file")%>"><INPUT TYPE="checkbox" NAME="del<%=i%>" value="ON"><INPUT TYPE="hidden" name="id<%=i%>" value="<%=rs_file("id")%>"><a href="javascript:delit<%=i%>()" title="删除"><FONT COLOR="red">删除</FONT></A><BR>
<SCRIPT LANGUAGE="JavaScript">
<!--
function delit<%=i%>(){
if (frmAnnounce.del<%=i%>.checked!=true) frmAnnounce.del<%=i%>.checked=true ;
else frmAnnounce.del<%=i%>.checked=false ;
}
//-->
</SCRIPT>
<%rs_file.movenext
next
end if
rs_file_all_count=rs_file.recordcount
rs_file.close%>
<INPUT TYPE="hidden" name="oldhow" value=<%=rs_file_all_count%>
<div id="upid"></div><script language="javascript">
function setid()
{
str='';
if(!window.frmAnnounce.no.value)
window.frmAnnounce.no.value=0;
for(i=1;i<=window.frmAnnounce.no.value;i++)
// j=i+<%=rs_file_all_count%>
str+='<font color=red>'+(i+<%=rs_file_all_count%>)+'</font>:<input type="text" name="filename'+(i+<%=rs_file_all_count%>)+'" style="padding-left:1pt" size=23> <input type="text" name="file'+(i+<%=rs_file_all_count%>)+'" style="padding-left:1pt" size=55 value="<%=request.cookies("xoYuStudioUserSoftUrl")%>"><BR>';
window.upid.innerHTML=str;
}
</script></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" height="22">设置添加地址的数量:<input type="text" name="no" value="0" size=2><input type="button" name="Button" onclick="setid();" value="添加"></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" id="upid" height="1">
</td>
</tr>
<tr>
<th width="100%" bgcolor="#DFDFDF" align="center" height="22">
<input name="change" value="修改" type="submit">
<input name="change1" value="重置" type="reset"><input type="checkbox" name="update" value="yes" checked>更新HTML页 <input type="checkbox" name="updatetime" value="yes" checked>更新现在时间<%
if DownTS="ok" then%>
<input type="checkbox" name="updatehits" value="yes">下载数<input type="text" size=6 name="hits" value="<%=rs("hits")%>"><%end if%>
<%if rs("error")<>0 then%>错误报数<font color="#FF0000"><b><%=rs("error")%></b></font>,如已修正错误请选<input type="checkbox" name="updateerror" value="0"><%end if%></td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -