📄 editfilm.asp
字号:
<!--#include file="primary_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<%dim id
id=request.QueryString("id")
if id="" then
response.Redirect("Addfilm.Asp")
response.End()
end if
dim filmRS,filmURLRS
set filmRS=server.createobject("adodb.recordset")
filmRS.open "select * from film where id="&id,conn,1,1
set filmURLRS=server.createobject("adodb.recordset")
filmURLRS.open "select * from fimlURL where filmid="&id,conn,1,1
%>
<html>
<head>
<title>顶级影视 设计维护:QQ:1243619 Email:yakai@163.net</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style/style.css">
</head>
<body>
<form action="edsavfilm.asp" method="POST" name="form1" target="_self">
<table width="80%" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCCCCC" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="../images/back_3.gif" rowspan="2"></td>
<td class="12v">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20">
<div align="center"><font color="#FFFFFF">顶级影视--后台管理系统>>>更改影片</font></div>
</td>
</tr>
<tr>
<td height="213" valign="top" bgcolor="#E8F1FF"><br>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="16"> ·片名：</td>
<td height="16"><input type="text" name="title" size="45" maxlength="255" value="<%=filmRS("title")%>">
<input type="hidden" name="id" size="45" maxlength="255" value="<%=id%>"></td>
</tr>
<tr>
<td width="15%">·主演：</td>
<td width="85%"><input type="text" name="dog" size="45" maxlength="255" value="<%=filmRS("mainactors")%>"></td>
</tr>
<tr>
<td>·导演：<br> </td>
<td><input type="text" name="directors" size="45" maxlength="255" value="<%=filmRS("directors")%>"></td>
</tr>
<tr>
<td>·出品公司：</td>
<td><input type="text" name="productor" size="45" maxlength="255" value="<%=filmRS("productor")%>"></td>
</tr>
<tr>
<td>·影片产地：</td>
<td><input type="text" name="madein" size="45" maxlength="255" value="<%=filmRS("madein")%>"></td>
</tr>
<tr>
<td>·影片格式：</td>
<td><input type="text" name="runsystem" size="3" maxlength="255" value="<%=filmRS("runsystem")%>">
·影片质量： <input type="text" name="quality" size="5" maxlength="255" value="<%=filmRS("quality")%>">
·影片长度： <input type="text" name="filmtime" size="3" maxlength="255" value="<%=filmRS("filmtime")%>">分钟
</td>
</tr>
<tr>
<td>·影片来源：</td>
<td><input type="text" name="madeBy" size="45" maxlength="255" value="<%=filmRS("madeBy")%>"></td>
</tr>
<tr>
<td>·影片类型：</td>
<td><select name="FilmType" id="FilmType" size="1">
<%dim filmTypeRS
set filmTypeRS=server.CreateObject("adodb.recordset")
filmTypeRS.Open "select * from type",conn,1,1
do while not filmTypeRS.eof
if filmTypeRS("typeid")=filmRS("typeid") then
response.Write("<option value='"&filmTypeRS("typeid")&"' selected>"&filmTypeRS("typeid")&"、［"&filmTypeRS("type")&"］</option>")
else
response.Write("<option value='"&filmTypeRS("typeid")&"'>"&filmTypeRS("typeid")&"、［"&filmTypeRS("type")&"］</option>")
end if
filmTypeRS.movenext
loop
filmTypeRS.close
set filmTypeRS=nothing%>
</select>
·存放文件夹：<input type="text" name="filmFile" size="10" maxlength="255" value="<%=filmURLRS("filmFile")%>"></td>
</tr>
<tr>
<td>·文件名称：</td>
<td><input type="text" name="FilmName" size="19" maxlength="255" value="<%=filmURLRS("FilmName")%>">
影片扩展名<input type="text" name="FilmExtent" size="15" maxlength="255" value="<%=filmURLRS("FilmExtent")%>"></td>
</tr>
<tr>
<td>·影片集数：</td>
<td>开始集 <input type="text" name="FilmStart" size="10" maxlength="255" value="<%=filmURLRS("FilmStart")%>">
总集数 <input type="text" name="Filmcount" size="10" maxlength="255" value="<%=filmURLRS("Filmcount")%>">
</td>
</tr>
<tr>
<td>·站点地址：</td>
<td><select name="webAddr" id="webAddr" size="1">
<%dim webAddRS
set webAddRS=server.CreateObject("adodb.recordset")
webAddRS.Open "select * from WebAddr",conn,1,1
do while not webAddRS.eof
if webAddRS("webaddrID")=filmRS("WebAddr") then
response.Write("<option value='"&webAddRS("webaddrID")&"' selected>"&webAddRS("webaddrID")&"、［"&webAddRS("WedAddr")&"］</option>")
else
response.Write("<option value='"&webAddRS("webaddrID")&"'>"&webAddRS("webaddrID")&"、［"&webAddRS("WedAddr")&"］</option>")
end if
webAddRS.movenext
loop
webAddRS.close
set webAddRS=nothing%>
</select></td>
</tr>
<tr>
<td>·剧照目录：</td>
<td><select name="imgefile" id="imgefile" size="1">
<%dim imNameRS
set imNameRS=server.CreateObject("adodb.recordset")
imNameRS.Open "select * from imagefile",conn,1,1
do while not imNameRS.eof
if imNameRS("PicFileID")=filmRS("imagefile") then
response.Write("<option value='"&imNameRS("PicFileID")&"' selected>"&imNameRS("PicFileID")&"、［"&imNameRS("ImgeFile")&"］</option>")
else
response.Write("<option value='"&imNameRS("PicFileID")&"'>"&imNameRS("PicFileID")&"、［"&imNameRS("ImgeFile")&"］</option>")
end if
imNameRS.movenext
loop
imNameRS.close
set imNameRS=nothing%>
</select></td>
</tr>
<tr>
<td>·剧照名称：</td>
<td><input type="text" name="imagesname" size="20" maxlength="255" value="<%=filmRS("imagesname")%>">
·开放范围：<select name="grade" size="1">
<option value="0" <%if filmRS("grade")=0 then
response.Write("selected")
end if%>>所有人</option>
<option value="1" <%if filmRS("grade")=1 then
response.Write("selected")
end if%>>普通用户</option>
<option value="2" <%if filmRS("grade")=2 then
response.Write("selected")
end if%>>VIP用户</option>
</select>
</td>
</tr>
<tr>
<td>·观看费用：</td>
<td><input type="text" name="filmprice" size="1" maxlength="255" value="<%=filmRS("filmprice")%>">
·推荐程度：
<select name="filmlevel" size="1">
<% dim i
for i=0 to 10
if i=filmRS("filmlevel") then
response.Write("<option value='"&i&"' selected>"&i&"</option>")
else
response.Write("<option value='"&i&"'>"&i&"</option>")
end if
next
%>
</select>
·首页显示：YES
<input type="radio" name="best" value=1 <%if filmRS("recomfilm")=true then
response.Write("checked")
end if%>> NO
<input type="radio" name="best" value=0 <%if filmRS("recomfilm")=false then
response.Write("checked")
end if%>>
</td>
</tr>
<tr>
<td>·上传剧照：</td>
<td><input name="filmpic" type="text" id="filmpic" value="上传即可，不必填写！" size="35" readonly="">
<input type="button" name="Submit2" value="上 传" onClick="javascript:window.open('upfile0.asp','','width=500,height=160,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"></td>
</tr>
<tr>
<td>·影片简介：</td>
<td><textarea name="content" cols="60" rows="10"><%
dim jianjie2
jianjie2=filmRS("content")
jianjie2=replace(jianjie2,"<br>",Chr(13))
jianjie2=replace(jianjie2," "," ")
response.Write(jianjie2)%></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="提 交" name="cmdok" class="button">
<input type="reset" value="重 置" name="cmdcancel" class="button">
</td>
</tr>
</table>
<br>
<table width="90%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#99FFFF">
<tr>
<td>
<div align="center">提示说明</div>
</td>
</tr>
<tr>
<td><font color="#FF0000">·1、影音文件的名称由"[文件名称]+[影片集数]+[影片扩展名]"构成；<br>
·2、[站点地址]是指放置影音文件的WEB地址；<br>
·3、 一般情况下，强烈推荐的影片才应用[首页显示];<br>
·4、如果影片只有一集，[影片集数]一栏要置空，在[文件名称]栏中填入完整的文件名即可，但不包括扩展名。
</font></td>
</tr>
</table>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td class="12v" background="../images/back_3.gif" width="9" rowspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
filmRS.close
set filmRS=nothing
filmURLRS.close
set filmURLRS=nothing
%>
<!--#include file="copyright.asp"-->
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -