admin_video.asp

本程序采用花香内核

              <%
i=1
showye=totalpages
if showye>10 then
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_video.asp?action=vid&page=<%=i%>&vidcat_id=<%=request.querystring("vidcat_id")%>"><%=i%></a> 
<%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
              <a href="admin_video.asp?action=vid&page=<%=page%>&vidcat_id=<%=request.querystring("vidcat_id")%>" title="下一页">>></a> 
              <%end if%>
              &nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="text" name="page" class="textarea" size="4">
              <input type="submit" name="Submit" value="Go" class="button">
            </td>
          </tr>
        </form>
      </table>
	  <%end if
	  if request.querystring("action")="newvid" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2">新增影片</td></tr>
<tr class=lanyuds><td width="17%">影片名称</td><td width="83%"><input type="text" name="title" size="40" maxlength="255"></td></tr>
<tr class=lanyuds><td width="17%">主要演员</td><td width="83%"><input type="text" name="dog" size="40" maxlength="255" value="未知"></td></tr>
<tr class=lanyuds><td width="17%">影片类别</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
rs1.close
set rs1=nothing%>
              </select>
</td></tr>
<tr class=lanyuds><td width="17%">影片评价</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=lanyuds><td width="17%">影片格式</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=lanyuds><td width="17%">电影剧照</td><td width="83%"><input type="text" name="images" class="textarea" size="40" value="img/nopic.gif"></td></tr>
<tr class=lanyuds> 
              <td> 剧照上传 </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=lanyuds><td width="17%">剧情简介</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=lanyuds>
                <td width="17%">影片集数</td>
                <td><input type="text" name="no" value="2" size=2>
                    <input type="button" name="Button" onclick="setid();" value="设定">
              (在点击“设定”按钮后才可输入影片对应地址) </td>
              </tr>
              <tr class=lanyuds>
                <td colspan=2 id="upid"></td>
              </tr>
          <tr> 
            <td class=lanyuds colspan="2"> 
              观看等级：
        <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=""> (应添整数数字) *游客观看,请留空.
            </td>
          </tr>
<tr align="center" class=lanyuqs><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>
<tr> <td class=lanyuds align="right" colspan="2"> 版权所有：<a href="http://26q.net" target=_blank>听雪资源网 ver6.5</a></td></tr>
</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=lanyubk style="border-collapse: collapse">
<form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2" >修改影片</td></tr>
<tr class=lanyuds><td width="17%">影片名称</td><td width="83%"><input type="text" name="title" size="40" maxlength="255" value="<%=rs("title")%>"></td></tr>
<tr class=lanyuds><td width="17%">主要演员</td><td width="83%"><input type="text" name="dog" size="40" maxlength="255" value="<%=rs("dog")%>"></td></tr>
<tr class=lanyuds><td width="17%">所属分类</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
rs1.close
set rs1=nothing%>
              </select>
            </td>
          </tr>
<tr class=lanyuds><td width="17%">影片评价</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=lanyuds><td width="17%">影片格式</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=lanyuds><td width="17%">电影剧照</td><td width="83%"><input type="text" name="images" id="images" class="textarea" size="40" value="<%=rs("images")%>"></td></tr>
<tr class=lanyuds> 
              <td> 剧照上传 </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=lanyuds><td width="17%">剧情简介</td><td width="83%"><textarea rows="4" name="content" id="content"cols="50"><%=rs("content")%></textarea></td></tr>
              <tr class=lanyuds>
                <td width="85" valign="top"><div align="center">影片地址：</div></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
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=lanyuds>
                <td colspan=2><FONT COLOR="red">如果需要增加地址请先在此设置所要添加的集数：</FONT>
                    <input type="button" name="Button" onclick="setid();" value="添加">
                    <input type="text" name="no" value="0" size=2 maxlength=50>
                    集 </td>
              </tr>
          <tr> 
            <td class=lanyuds colspan="2"> 
              观看等级：
        <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=lanyuqs> 
            <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>
	  <%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=lanyubk style="border-collapse: collapse">
        <form name="form2" method="post" action="">
<tr class=lanyuss><td colspan="2">删除影片</td></tr>
          <tr class=lanyuds> 
            <td width="17%">影片名称</td>
            <td width="83%"> <%=rs("title")%> 　</td>
          </tr>
          <tr class=lanyuds> 
            <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=lanyuqs> 
            <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>
<%end if
end if
rs.close
set rs=nothing
%>