admin_video.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

            <td><%call chk_power(rs("power"),0)%></td>
          </tr>
  <tr>
            <td align=center>所需<%=objv7.web_var(web_config,8)%>：</td>
            <td><%call chk_emoney(rs("emoney"))%>&nbsp;&nbsp;影片产地：<select size="1" name="where">
          <option value="大陆" <% if where="大陆" then response.write " selected" %>>大陆</option>
          <option value="台湾" <% if where="台湾" then response.write " selected" %>>台湾</option>
          <option value="香港" <% if where="香港" then response.write " selected" %>>香港</option>
          <option value="日本" <% if where="日本" then response.write " selected" %>>日本</option>
          <option value="韩国" <% if where="韩国" then response.write " selected" %>>韩国</option>
          <option value="欧美" <% if where="欧美" then response.write " selected" %>>欧美</option>
          <option value="其他" <% if where="其他" then response.write " selected" %>>其他</option>
          <option value="未知" <% if where="未知" then response.write " selected" %>>出产地区</option>
          </select></td>
          </tr>
<tr>
            <td><div align="center">影片类别：</div></td>
            <td>[ <img src="images/video/real.gif" width="16" height="16"> <input type="radio" value="rm" name="movie" <%if rs("type")="rm" then response.write "checked" end if%>>  
              ]&nbsp; [ <img src="images/video/mov.gif" width="18" height="18"> <input type="radio" value="mov" name="movie" <%if rs("type")="mov" then response.write "checked" end if%>>  
              ]&nbsp; [<img src="images/video/media.gif" width="18" height="17"> <input type="radio" value="md" name="movie" <%if rs("type")="md" then response.write "checked" end if%>>
              ]&nbsp;&nbsp;&nbsp; </td>  
          </tr>

<td><div align="center">开放方式：</div></td>
<td> <input type="radio" value="1" name="ld" <%if rs("ld")=1 then response.write "checked" end if%>>在线观看 <input type="radio" value="0" name="ld"<%if rs("ld")=0 then response.write "checked" end if%>>影片下载 <input type="radio" value="2" name="ld" <%if rs("ld")=2 then response.write "checked" end if%>>即能观看也可下载</td>  
</tr>
  <tr><td align=center>影片主演：</td><td><input type=text name=name value='<%response.write rs("name")%>' size=50 maxlength=50>&nbsp;&nbsp;&nbsp;影片人气：<input type=text name=counter value='<%response.write rs("counter")%>' size=4 maxlength=10></td></tr>
<%set rs1=server.createobject("adodb.recordset")
    sql="select * from video_sev where id="&rs("serverip")
    rs1.open sql,conn,1,1
   
%>
<%
dim rsurl,no,idno
idno=trim(request("id"))
sql="select * from videourl where nameid="&idno
'set rsurl=conn.execute(sql)
set rsurl=server.createobject("adodb.recordset")
rsurl.open sql,conn,1,3

            set rs4=server.createobject("adodb.recordset")
            rs4.open "select * from video_sev",conn,1,1
           
if rsurl.bof and rsurl.eof then
response.write "<tr><td></td><td>没有影片提供观看</td></tr>"
else
no=rsurl.recordcount
'response.write no
'response.end
for i=1 to no
%><tr><td width="114" bgcolor="#FFFFFF" align="center">在线观看：</td>
<td bgcolor="#FFFFFF" width="507" colspan="2">
<input type="text" nameurl="url<%=i%>" value="<%=rsurl("url")%>" size="50"> 第<%=i%>集
<%
if request("free")=1 then
sql="update videourl set free=0 where nameid="&request("id")&" and url='"&request("url")&"'"
conn.execute(sql)
else
sql="update videourl set free=1 where nameid="&request("id")&" and url='"&request("url")&"'"
conn.execute(sql)
end if
%>
<a title="修改" href='admin_video.asp?action=video_edit&id=<%response.write id%>&free=<%=rsurl("free")%>&url=<%=rsurl("url")%>'><%
if rsurl("free")=0 then
      response.write "收费"
    else
      response.write "<font class=red_2>免费</font>"
    end if
%></a>
<a title="地址不能修改请删除" href="?delid=<%=rsurl("id")%>"><font color="#FF0000">删除</font></a><font color="#FF0000">(不能修改请删)</font></td></tr>
<%rsurl.movenext
next
end if
rsurl.close
set rsurl=nothing
%><tr><td width="114" bgcolor="#FFFFFF" align="center">增加地址：</td>
<td nowrap><select size="1" name="serverip"><%dim i
i=1
do while not rs4.eof%><option value="<%=rs4("id")%>" <%if rs4("id")=rs("serverip") then%> selected <%end if%>><%=rs4("ipsip")%><%=rs4("movie")%></option>
<%i=i+1
rs4.movenext
      loop
      rs4.close
      set rs4=nothing%></select><iframe width="200" height="22" noresize target="main" border="0" rows="64,*" frameborder="0" scrolling="no" framespacing="0" src="video_addurl.asp?id=<%=request("id")%>"></iframe></td></tr>
  <tr height=35><td align=center><%call frm_ubb_type()%></td><td><%call frm_ubb("add_frm","remark","&nbsp;&nbsp;")%></td></tr>
  <tr><td align=center valign=top><br>影片备注：</td><td><%response.write("<textarea rows=6 name=remark cols=70>"&rs("remark")&"</textarea>")%></td></tr>
  <tr><td align=center>影片长度：</td><td><input type=text name=long value='<%response.write rs("howlong")%>' size=12>
&nbsp;图片：<input type=test name=pic value='<% if ispic<>"no_pic.gif" then response.write pic %>' size=30>&nbsp;<a href='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic' target=upload_frame>上传图片</a>&nbsp;&nbsp;<a href='upload.asp?uppath=video&upname=n&uptext=remark' target=upload_frame>上传至内容</a></td></tr>
  <tr><td align=center>上传图片：</td><td><iframe frameborder=0 name=upload_frame width='100%' height=30 scrolling=no src='upload.asp?uppath=video&upname=<%response.write ispic%>&uptext=pic'></iframe></td></tr>
  <tr height=30><td></td><td><input type=submit value=' 提 交 修 改 '></td></tr>
</form></table><%
  end if
  rs.close:set rs=nothing
%></td></tr></table><%
end sub

sub video_add()
%>
<% if request("serverip")="" then
response.write"<script>alert('请你回去选择电影服务器');history.back();</Script>"
response.end
end if
%>
<table border="0" width="600" cellspacing="0" cellpadding="0">
<tr><td align=center height=300><%
if request.querystring("types")="add" then
  dim csid,title,pic,sql1,no,url,vid
no=request.form("no")
  csid=trim(request.form("cid"))
  adsid=trim(request.form("adsid"))
  title=code_admin(request.form("title"))
  pic=request.form("pic")

  if len(pic)<3 then pic="no_pic.gif"

  if len(csid)<1 or var_null(title)="" or request.form("movie")="" then
    response.write("<font class=red_2>影片的类型、名称、格式和影片地址不能为空！</font><br><br>"&go_back)
  else

    sql="select * from video"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,3
    rs.addnew
    rs("serverip")=request.form("serverip")
	rs("type")=request.form("movie")
    rs("c_id")=csid
    rs("adsid")=adsid
    rs("title")=title
    rs("username")=login_username
    rs("lang")=request.form("lang")
	rs("howlong")=request.form("long")
	rs("where")=request.form("where")
	rs("remark")=request.form("remark")
rs("name")=request.form("name")
    rs("hidden")=true


    if isnumeric(trim(request.form("emoney"))) then
      rs("emoney")=trim(request.form("emoney"))
    else
      rs("emoney")=0
    end if
    rs("power")=replace(replace(trim(request.form("power"))," ",""),",",".")
if request.form("hot")="yes" then
rs("good")=1
rs("hot")=5
elseif request.form("hot")="gold" then
rs("good")=1
rs("hot")=99
else
rs("hot")=request.form("hot")
end if
rs("ld")=request.form("ld")
    rs("pic")=pic
    rs("tim")=now_time
    rs("counter")=0

    rs.update
	vid=rs("id")
    rs.close

set rs=server.createobject("adodb.recordset")
sql1="select * from videourl where (id is null)"
rs.open sql1,conn,1,3
for i=1 to no
rs.addnew
url=request.form("url"&i&"")
rs("nameid")=vid
rs("url")=url
rs.update
next
rs.close
set rs=nothing
    call upload_note(data_name,first_id(data_name))
    response.write "<font class=red>影片添加成功！</font>&nbsp;<a href='?c_id="&cid&"'>点击返回</a><br><br><a href='?c_id="&cid&"&action=addsever'>点击继续添加</a>" & _
		   VbCrLf&"<meta http-equiv='refresh' content='" & objv7.web_var(web_num,5) & "; url=?c_id="&cid&"&action=addsever'>"
  end if
else
%>
<table border=0 width='98%' cellspacing=0 cellpadding=2>
<form name='add_frm' action='?action=video_add&types=add' method=post>
<input type=hidden name=upid value=''>
  <tr><td width='15%' align=center>影片名称：</td><td width='85%'><input type=text name=title size=70 maxlength=40><% response.write redx %></td></tr>
  <tr><td align=center>影片类型：</td><td>
  <select name=cid size=1>
  <%
  sql="select * from videotype order by typeid"
  set rs=conn.execute(sql)
  do while not rs.eof
    response.write vbcrlf&"<option value='"&rs("typeid")&"' class=bg_2>"&rs("type")&"</option>"
	rs.movenext
  loop
  rs.close:set rs=nothing
%>
</select>
<% response.write redx %></td></tr>
  <tr>
            <td align=center>影片信息：</td>
            <td>语言类型： 
              <select name=lang size=1>
<option value='汉语'>汉语</option>
<option value='粤语'>粤语</option>
<option value='日语'>日语</option>
<option value='英语'>英语</option>
<option value='韩语'>韩语</option>
<option value='其他'>其他</option>
</select>	
			
			
			&nbsp;&nbsp;&nbsp;推荐等级：<select name=hot size=1>
<option value='yes'>推荐显示</option>
<option value="gold">黄金通道</option>
<option value='5'>五星级</option>
<option value='4'>四星级</option>
<option value='3'>三星级</option>
<option value='2'>二星级</option>
<option value='1'>一星级</option>
</select> </td>
          </tr>


  <tr><td>&nbsp;&nbsp;影片产地：<select size="1" name="where">
          <option value="大陆">大陆</option>
          <option value="台湾">台湾</option>
          <option value="香港">香港</option>
          <option value="日韩">日本</option>
          <option value="韩国">韩国</option>
          <option value="欧美">欧美</option>
          <option value="其他">其他</option>
          <option value="未知" name="where">出产地区</option>
          </select></td>