⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 film_path.asp

📁 在线点播系统
💻 ASP
字号:
<!--#include file="chklogin.asp"-->
<%

call myobj.chkrq()

path_left="rtsp://<#userid#>:<#pwd#>@"
if request.form("changepath")<>"" then
if request.form("caption")="" then
response.write "<script>alert('路径地址不能为空');history.back();</Script>"
response.end
else
if request.form("id")="" or myobj.ChkNum(request.form("id"))=false then
response.write "<script>alert('ID值错误');history.back();</Script>"
response.end
end if

'###########判断父路径是否是root
film_path=path_left&request.form("caption")
Function CutUrl(Str,i)
	Dim film_path
	film_path = Split(Str,"/")
	CutUrl = film_path(i)
End Function
root = CutUrl(film_path,3)
if root<>"root" then
	response.write "<script>alert('路径的IP后面必须是/root,请仔细查看本页中的帮助');location.href = '"&filename&"';</Script>"
	response.end
end if
'#############################

set rs=server.createobject("adodb.recordset")
rs.open "select * from film_path where id="&request.form("id")&"",conn,1,3
rs("caption")=film_path
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>alert('路径修改成功');location.href = '"&filename&"';</Script>"
response.end
end if
end if

if request.form("delpath")<>"" then
if request.form("id")="" or myobj.ChkNum(request.form("id"))=false then
response.write "<script>alert('ID值错误');history.back();</Script>"
response.end
end if
conn.execute"delete from film_path where id="&request.form("id")&""
response.write "<script>alert('路径删除成功');location.href = '"&filename&"';</Script>"
response.end
end if

if request.form("addpath")<>"" then
if request.form("new_caption")="" then
response.write "<script>alert('路径地址不能为空');history.back();</Script>"
response.end
else

'###########判断父路径是否是root
film_path=path_left&request.form("new_caption")
Function CutUrl(Str,i)
	Dim film_path
	film_path = Split(Str,"/")
	CutUrl = film_path(i)
End Function
root = CutUrl(film_path,3)
if root<>"root" then
	response.write "<script>alert('路径的IP后面必须是/root,请仔细查看本页中的帮助');location.href = '"&filename&"';</Script>"
	response.end
end if
'#############################

set rs=server.createobject("adodb.recordset")
rs.open "select * from film_path where (id is null)",conn,1,3
rs.addnew
rs("caption")=film_path
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>alert('路径增加成功');location.href = '"&filename&"';</Script>"
response.end
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>影片分类管理</title>
<link href="images/style2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #000000;
}
-->
</style></head>

<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="550" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3975CE">
  <tr>
    <td align="center" class="font1"><strong>影片路径管理</strong></td>
  </tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td align="center" valign="middle" bgcolor="#F7F7F7"><table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
        <table width="500" height="40" border="0" cellpadding="0" cellspacing="0">
          <form method="POST" action="<%=filename%>">
            <tr>
              <td width="75">增加路径:</td>
              <td>rtsp://
                <input name="new_caption" type="text" class="input1" id="new_caption" size="30">
                <input name="addpath" type="submit" class="button1" id="addpath" value="确定"></td>
            </tr>
          </form>
        </table>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from film_path",conn,1,1
dim i
i=1
do while not rs.eof
%>
        <table width="500" height="30" border="0" cellpadding="0" cellspacing="0">
          <form method="POST" onsubmit action="<%=filename%>">
            <tr>
              <td width="75">路径ID:<b><font color=red><%=rs("id")%></font></b></td>
              <td>rtsp://
                <input name="caption" type="text" class="input1" id="caption" value="<%=mid(rs("caption"),27,len(rs("caption")))%>" size="30">
                <input name="changepath" type="submit" class="button1" id="changepath" value="修改">
                <input type="hidden" name="id" value="<%=rs("id")%>">
                <font size="2">
                <input name="delpath" type="submit" class="button1" id="delpath" value="删除">
              </font></td>
            </tr>
          </form>
      </table>
        <% 
i=i+1
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
        <br>
        <strong>对应Helix Server中的加载点,例如:rtsp://192.168.0.1/<span class="font3">root</span>/vod1</strong><br>
        如果不明之处,请查看“用前必读”中的安装步骤(5)设置流媒体服务器<br>        
      <table width="500" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td></td>
          </tr>
      </table></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -