admin_video.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

if request.querystring("action")="newvid" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=Hxcmsss><td colspan="2">新增影片</td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片名称：</td><td width="83%"><input type="text" name="title" size="40" maxlength="255"></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">主要演员：</td><td width="83%"><input type="text" name="dog" size="40" maxlength="255" value="未知"></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片类别：</td><td width="83%">
              <select name="vidcat_id">
<%
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("vidcat_name")&"'>"
sql="select * from vidcat where sid="&rs1("vidcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("vidcat_id")%>">├ <%=rs2("vidcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
              </select>
</td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片评价：</td><td width="83%"><select size="1" name="softlevel">
                    <option>★</option>
                    <option>★★</option>
                    <option selected>★★★</option>
                    <option>★★★★</option>
                    <option>★★★★★</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片格式：</td><td width="83%"><select name="runsystem" size="1">
                    <option value="RM">RM</option>
                    <option value="ASF">ASF</option>
                    <option value="RAM">RAM</option>
                    <option value="其它">其它</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">电影剧照：</td><td width="83%"><input type="text" name="images" class="textarea" size="40" value="img/nopic.gif"></td></tr>
<tr class=Hxcmsds> 
              <td align="right">剧照上传：</td>
              <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=vid"></iframe></td>
            </tr>
<tr class=Hxcmsds><td width="17%" align="right">剧情简介：</td><td width="83%"><textarea rows="4" name="content" cols="50"></textarea></td></tr>
<script language="javascript">
function setid()
{
str='';
if(!window.form2.no.value)
window.form2.no.value=1;
for(i=1;i<=window.form2.no.value;i++)
str+='&nbsp;&nbsp;第 '+'<INPUT TYPE="text" NAME=no'+i+' value='+i+' size=2> 集&nbsp;&nbsp;<input type="text" name="url'+i+'" size=50 value="'+i+'.rm"><BR>';
window.upid.innerHTML=str+'<br>';
}
    </script>
          <tr class=Hxcmsds>
            <td width="17%" align="right">公共路径：</td>
            <td>
              <select name="v_path" size="1">
                <option value="0" >不设置路径</option>
                <option value="1" >根路径(一)</option>
                <option value="2" >根路径(二)</option>
                <option value="3" >根路径(三)</option>
                <option value="4" >根路径(四)</option>
                <option value="5" >根路径(五)</option>
              </select></td>   
          </tr>
              <tr class=Hxcmsds>
                <td width="17%" align="right">影片集数：</td>
                <td><input type="text" name="no" value="2" size=2>
                    <input type="button" name="Button" onclick="setid();" value="设定">(在点击“设定”按钮后才可输入影片对应地址) </td>
              </tr>
              <tr class=Hxcmsds>
                <td width="17%" valign="top" align="right">影片地址：</td>
                <td colspan=2 id="upid"></td>
              </tr>
          <tr class=Hxcmsds>
            <td width="17%" align="right">观看等级：</td> 
            <td><select name="Grade" id="Grade">
                <option value="0" selected>游客观看</option>
                <option value="1">普通用户</option>
                <option value="2">VIP 用户</option>
           </select>&nbsp;&nbsp;扣除会员积分数：<input type="text" name="points" size="4" value="0"> (应添0或正整数数字)</td>
          </tr>
<tr align="center" class=Hxcmsqs><td colspan="2">
<input type="checkbox" name="istop" value="1" class="textarea">置顶&nbsp;&nbsp;&nbsp; <input type="checkbox" name="isbest" value="1" class="textarea">推荐&nbsp;&nbsp;&nbsp; <input type="submit" name="Submit" value="确定新增" class="button"><input type="reset" name="Reset" value="清空重填" class="button">[<a href="admin_video.asp?action=vid">返回</a>]</td></tr><input type="hidden" name="action" value="newvid"><input type="hidden" name="MM_insert" value="true"></form>
</table>
<%end if
if request.QueryString("action")="editvid" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from vid where vid_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=Hxcmsss><td colspan="2" >修改影片</td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片名称：</td><td width="83%"><input type="text" name="title" size="40" maxlength="255" value="<%=rs("title")%>"></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">主要演员：</td><td width="83%"><input type="text" name="dog" size="40" maxlength="255" value="<%=rs("dog")%>"></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">所属分类：</td><td width="83%">
<select name="vidcat_id" id="vidcat_id">
<%
sql="select * from vidcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("vidcat_name")&"'>"
sql="select * from vidcat where sid="&rs1("vidcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("vidcat_id")%>"<%if rs2("vidcat_id")=rs("vidcat_id") then response.write "selected" end if%>>├ <%=rs2("vidcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing%>
              </select>
            </td>
          </tr>
<tr class=Hxcmsds><td width="17%" align="right">影片评价：</td><td width="83%"><select size="1" name="softlevel">
                    <option>★</option>
                    <option>★★</option>
                    <option selected>★★★</option>
                    <option>★★★★</option>
                    <option>★★★★★</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">影片格式：</td><td width="83%"><select name="runsystem" size="1">
<option value="RM" <%if rs("runsystem")="RM" then response.write "selected" end if%>>RM影视</option>
<option value="ASF" <%if rs("runsystem")="ASF" then response.write "selected" end if%>>ASF影视</option>
<option value="RAM" <%if rs("runsystem")="RAM" then response.write "selected" end if%>>RAM影视</option>
<option value="其它" <%if rs("runsystem")="其它" then response.write "selected" end if%>>其它影视</option>
                  </select></td></tr>
<tr class=Hxcmsds><td width="17%" align="right">电影剧照：</td><td width="83%"><input type="text" name="images" id="images" class="textarea" size="40" value="<%=rs("images")%>"></td></tr>
            <tr class=Hxcmsds> 
              <td align="right">剧照上传：</td>
              <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=vid"></iframe></td>
            </tr>
<tr class=Hxcmsds><td align="right">剧情简介：</td><td width="83%"><textarea rows="4" name="content" id="content"cols="50"><%=rs("content")%></textarea></td></tr>
              <tr class=Hxcmsds>
                <td valign="top" align="right">影片地址：</td>
                <td>
                  <%dim filmurl,url,line
url ="SELECT * FROM vidurl WHERE filmid = "&rs("vid_id")&" ORDER BY id"
Set filmurl = Server.CreateObject("ADODB.Recordset")
filmurl.open url,Conn,3,1
if filmurl.eof then
response.write "没有影片提供观看"
else
vvpath=filmurl("path")
for i=1 to filmurl.recordcount
%>            
              <input type="text" name="url<%=i%>" size=50 value="<%=filmurl("url")%>">
              第<%=i%>集
              <INPUT TYPE="hidden" name="id<%=i%>" value="<%=filmurl("id")%>">
              <INPUT TYPE="checkbox" NAME="del<%=i%>">
              <a href="javascript:siit<%=i%>()" title="删除"><FONT COLOR="red">删除</FONT></A><BR>
              <SCRIPT LANGUAGE="JavaScript">
<!--
function siit<%=i%>(){
if (form2.del<%=i%>.checked!=true) form2.del<%=i%>.checked=true ;
else form2.del<%=i%>.checked=false ;
}
//-->
</SCRIPT>
<%
filmurl.movenext
next
end if
%>
              <div id="upid"></div>
              <script language="javascript">
function setid()
{
str='';
if(!window.form2.no.value)
window.form2.no.value=0;
for(i=1;i<=window.form2.no.value;i++)
// j=i+<%=filmurl.recordcount%>
str+='<input type="text" name="url'+(i+<%=filmurl.recordcount%>)+'" size=50> <font color=red>第 '+(i+<%=filmurl.recordcount%>)+' 集</font><BR>';
window.upid.innerHTML=str;
}
</script>
                </td>
             </tr>
             <tr class=Hxcmsds>
                <td align="right">集数追加：</td>
                <td><input type="button" name="Button" onclick="setid();" value="追加">
                    <input type="text" name="no" value="0" size=2 maxlength=50> 集 <FONT COLOR="red">如果需要增加地址请先在此设置所要添加的集数</FONT></td>
            </tr>          
            <tr class=Hxcmsds>
            <td align="right">公共路径：</td>
            <td>
              <select name="v_path" size="1">
                <option value="0"<%if vvpath=0 Then response.write(" selected") End If%> >不设置路径</option>
                <option value="1"<%if vvpath=1 Then response.write(" selected") End If%> >根路径(一)</option>
                <option value="2"<%if vvpath=2 Then response.write(" selected") End If%> >根路径(二)</option>
                <option value="3"<%if vvpath=3 Then response.write(" selected") End If%> >根路径(三)</option>
                <option value="4"<%if vvpath=4 Then response.write(" selected") End If%> >根路径(四)</option>
                <option value="5"<%if vvpath=5 Then response.write(" selected") End If%> >根路径(五)</option>
              </select> *公共路径设定对本片所有集数有效。</td>
          </tr>
          <tr class=Hxcmsds> 
            <td align="right">观看等级：</td>
            <td><select name="Grade" id="Grade">
        <option value="0" <%if rs("Grade")="0" then response.write "selected" end if%>>游客观看</option>
        <option value="1" <%if rs("Grade")="1" then response.write "selected" end if%>>普通用户</option>
        <option value="2" <%if rs("Grade")="2" then response.write "selected" end if%>>VIP 用户</option>
        </select>&nbsp;&nbsp;  扣除会员积分数：<input type="text" name="points" size="5" value="<%=rs("points")%>"> **数字
            </td>
          </tr>
        <tr align="center" class=Hxcmsqs> 
            <td colspan="2"><input name="istop" type="checkbox" class="textarea" id="istop" value="1" <%if rs("istop")=1 then response.write "checked" end if%>>
              置顶&nbsp;&nbsp;&nbsp; <input name="isbest" type="checkbox" class="textarea" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              推荐&nbsp;&nbsp;&nbsp; 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input type="reset" name="Reset" value="清空重填" class="button">
              [<a href="admin_video.asp?action=vid">返回</a>] </td>
          </tr>
          <INPUT TYPE="hidden" name=count value=<%=filmurl.recordcount%>>
	  <input type="hidden" name="id" value="<%=rs("vid_id")%>">
          <input type="hidden" name="action" value="editvid">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%
rs.close
set rs=nothing
end if
if request.QueryString("action")="delvid" then
if request.querystring("id")="" then
  Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("id")) then
     Response.Write("<script language=javascript>alert('非法的ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from vid where vid_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
        <form name="form2" method="post" action="">
<tr class=Hxcmsss><td colspan="2">删除影片</td></tr>
          <tr class=Hxcmsds> 
            <td width="17%">影片名称</td>
            <td width="83%"> <%=rs("title")%> 　</td>
          </tr>
          <tr class=Hxcmsds> 
            <td width="17%">所属分类</td>
            <td width="83%"> 
                <%
sql="select * from vidcat where vidcat_id="&rs("vidcat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
%><%=rs2("vidcat_name")%></td>
          </tr>
          <tr align="center" class=Hxcmsqs> 
            <td colspan="2"> 
              <input name="isbest" type="checkbox" class="textarea" id="isbest" value="1" <%if rs("isbest")=1 then response.write "checked" end if%>>
              推荐 
              <input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
              [<a href="admin_video.asp?action=vid">返回</a>] </td>
          </tr>
          <input type="hidden" name="id" value="<%=rs("vid_id")%>">
          <input type="hidden" name="action" value="delvid">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%
rs.close
set rs=nothing
end if
end if
'****************************************************
' Hxcms 7.6      Power by Hx66.net
' Web: http://www.Hx66.net, http://www.Hx66.com.cn
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
%>