📄 film_add.asp

📁 视频点播系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="chklogin.asp"-->
<%

call myobj.chkrq()
%>
<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;
}
.style1 {color: #FF0000}
-->
</style>
<script language="javascript">
function setid()
{
str='';
if(!window.form1.no2.value)
window.form1.no2.value=1;

for(i=1;i<=window.form1.no2.value;i++)
{
if(window.form1.no2.value<2)
{
str+='全集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+''+window.form1.no3.value+'"><BR>';
}  

else if(window.form1.no2.value<10)
{
str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/0'+i+''+window.form1.no3.value+'"><BR>';
}  
else if(window.form1.no2.value<100)
{
	if(i<10)
	{
	str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/0'+i+''+window.form1.no3.value+'"><BR>';
	}
	else
	{
	str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/'+i+''+window.form1.no3.value+'"><BR>';
	}
} 
else if(window.form1.no2.value<1000)
{
	if(i<10)
	{
	str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/'+'00'+i+''+window.form1.no3.value+'"><BR>';
 	} 
else if(i<100)
	{
	str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/'+'0'+i+''+window.form1.no3.value+'"><BR>';
 	}
	else
	{
	str+='第'+i+'集：<input type="text" name="urla'+i+'" size=20 class="input1" value="'+window.form1.no1.value+'/'+i+''+window.form1.no3.value+'"><BR>';
	}
}
}
window.upid.innerHTML=str+'<br>';
} 
</script>
<script language=vbscript>
<!--
function c_chinese_char(char)
tmp=65536+asc(char)
if(tmp>=45217 and tmp<=45252) then 
c_chinese_char= "a"
elseif(tmp>=45253 and tmp<=45760) then
c_chinese_char= "b"
elseif(tmp>=45761 and tmp<=46317) then
c_chinese_char= "c"
elseif(tmp>=46318 and tmp<=46825) then
c_chinese_char= "d"
elseif(tmp>=46826 and tmp<=47009) then 
c_chinese_char= "e"
elseif(tmp>=47010 and tmp<=47296) then 
c_chinese_char= "f"
elseif(tmp>=47297 and tmp<=47613) then 
c_chinese_char= "g"
elseif(tmp>=47614 and tmp<=48118) then
c_chinese_char= "h"
elseif(tmp>=48119 and tmp<=49061) then
c_chinese_char= "j"
elseif(tmp>=49062 and tmp<=49323) then 
c_chinese_char= "k"
elseif(tmp>=49324 and tmp<=49895) then 
c_chinese_char= "l"
elseif(tmp>=49896 and tmp<=50370) then 
c_chinese_char= "m"
elseif(tmp>=50371 and tmp<=50613) then 
c_chinese_char= "n"
elseif(tmp>=50614 and tmp<=50621) then 
c_chinese_char= "o"
elseif(tmp>=50622 and tmp<=50905) then
c_chinese_char= "p"
elseif(tmp>=50906 and tmp<=51386) then 
c_chinese_char= "q"
elseif(tmp>=51387 and tmp<=51445) then 
c_chinese_char= "r"
elseif(tmp>=51446 and tmp<=52217) then 
c_chinese_char= "s"
elseif(tmp>=52218 and tmp<=52697) then 
c_chinese_char= "t"
elseif(tmp>=52698 and tmp<=52979) then 
c_chinese_char= "w"
elseif(tmp>=52980 and tmp<=53640) then 
c_chinese_char= "x"
elseif(tmp>=53689 and tmp<=54480) then 
c_chinese_char= "y"
elseif(tmp>=54481 and tmp<=62289) then
c_chinese_char= "z"
else //如果不是中文，则不处理
c_chinese_char=char
end if
end function

Function myobj.MakeRnd(maxLen) //生成随机字符串
    Dim strNewPass
    Dim whatsNext, upper, lower, intCounter
    Randomize
    For intCounter = 1 To maxLen
        whatsNext = Int((1 - 0 + 1) * Rnd + 0)
        If whatsNext = 0 Then
            upper = 90
            lower = 65
        Else
            upper = 57
            lower = 48
        End If
        strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
    Next
    myobj.MakeRnd = strNewPass
End Function

function c_chinese(str)
for i=1 to len(str)
c_chinese=c_chinese&c_chinese_char(mid(str,i,1))
next
form1.no1.value=c_chinese&myobj.MakeRnd(10)
msgbox "随机文件名生成完成，请在服务器硬盘中将.rm文件名改为本页自动生成的影片文件名称"
end function
//-->
</SCRIPT>
</head>

<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<%
action_e=request.form("action")
Select Case action_e
	Case ""
	  Call main()
    Case "save_film"
	  Call save_film()
    Case "upload_pic"
	  Call upload_pic()
end select
%>
<%
sub main()
%>
<form name="form1" method="post" action="<%=filename%>">
<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" height="30" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td align="center" bgcolor="#F7F7F7"><table width="500" height="30" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="60">影片路径：</td>
        <td><select name="pathid" class="select1" id="pathid">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from film_path"
rs.open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("id")%>">ID<%=rs("id")%>：rtsp://<%=mid(rs("caption"),27,len(rs("caption")))%></option>
<%
rs.movenext
loop
rs.close
%>
</select></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="550" height="160" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td align="center" bgcolor="#F7F7F7"><table width="500" height="25" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="60">影片名称：</td>
        <td width="120"><input name="film_name" type="text" class="input1" id="film_name" size="15"></td>
        <td width="60">影片别名：</td>
        <td><input name="other_name" type="text" class="input1" id="other_name" size="15"></td>
      </tr>
    </table>
      <table width="500" height="25" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="60">影片导演：</td>
          <td width="120"><input name="film_director" type="text" class="input1" id="film_director" value="无" size="15"></td>
          <td width="60">主要演员：</td>
          <td><input name="film_player" type="text" class="input1" id="film_player" size="15"></td>
        </tr>
      </table>
      <table width="500" height="25" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="60">影片类别：</td>
          <td width="120"><select name="film_class" class="select1" id="film_class">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from film_class"
rs.open sql,conn,1,1
do while not rs.eof
%>
            <option value="<%=rs("caption")%>"><%if rs("isvip")=true then%>[VIP]<%end if%><%=rs("caption")%></option>
<%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
          </select></td>
12 下一页
💿 文件大小 1385 K
👤 上传用户 rubyist
📂 所属分类 SQL Server
🏷️ 相关标签

#视频点播系统
⌨️ 快捷键说明

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