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

📄 editfilm.asp

📁 一个人用ASP+SQL制作的个人博客
💻 ASP
字号:

<!--#include file="articleconn.asp"-->
<!--#include file="security.asp"-->
<!--#include file="home1.asp"-->
<%
id = Request.QueryString("id")
if id="" then
Response.Write("错误参数")
Response.End
end if
set rs=server.createobject("adodb.recordset")
sql="select * from film where id="&id
rs.open sql,conn,1,1
if rs.EOF then
response.write "没找到"
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改影片</title>
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>

<body topmargin="20" leftmargin="15" bgcolor="#666666" >

  <center>
 
  <form method="POST" action="saveeditfilm.asp" name="form1">

      
    <table border="0" cellspacing="0" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" height="20" class="sx">
      <tr bgcolor="#333333"> 
        <td width="100%" height="20"> 
          <p align="center"><font
      color="#FFFFFF">修改影片页</font> 
        </td>
        </tr>
      </table>
      
    <table width="600" border="0" cellpadding="0" cellspacing="0" bordercolorlight="#000000">
      <tr bordercolordark="#FFFFFF"> 
          <td width="100%" height="20"> 
            
          <table width="100%" cellpadding="0" cellspacing="0" border="0">
            <tr> 
              <td colspan="2" height="10">&nbsp;</td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">影片名称:</div></td>
              <td> <input type="text" name="title" size="20"
          class="smallinput" maxlength="255" value="<%=rs("title")%>"> <font color="#FF0000" size="3">*</font> 
              </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">主要演员: </div></td>
              <td> <input type="text" name="dog" size="20"
          class="smallinput" maxlength="255" value="<%=rs("dog")%>"> <font color="#FF0000" size="3">*</font> 
              </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">影片类别:</div></td>
              <td> <select class="smallSel" name="typeid" size="1">
                  <option value="">请选择类别</option>
                  <%
dim rs1,sql,sel
 set rs1=server.createobject("adodb.recordset")
  sql="select * from type"
 rs1.open sql,conn,1.1
			  do while not rs1.eof    
			         if CStr(rs1("typeID"))=CStr(rs("typeid")) then
					  check="selected"
					  else
					  check=""
                     end if
		             response.write "<option "+check+" value='"+CStr(rs1("typeID"))+"' name=typeid>"+rs1("type")+"</option>"+chr(13)+chr(10)
		             rs1.movenext
    		          loop
			rs1.close
			  %>
                </select> &nbsp;&nbsp;&nbsp;&nbsp; </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">影片评价: </div></td>
              <td> <select size="1" name="softlevel">
                  <option  <%if rs("filmlevel")="★" then response.write "selected" end if%>>★</option>
                  <option  <%if rs("filmlevel")="★★" then response.write "selected" end if%>>★★</option>
                  <option   <%if rs("filmlevel")="★★★" then response.write "selected" end if%>>★★★</option>
                  <option  <%if rs("filmlevel")="★★★★" then response.write "selected" end if%>>★★★★</option>
                  <option  <%if rs("filmlevel")="★★★★★" then response.write "selected" end if%>>★★★★★</option>
                </select> </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">文件格式:</div></td>
              <td> <select name="runsystem" size="1">
                  <option value="RM" <%if rs("runsystem")="RM" then response.write "selected" end if%>>RM</option>
                  <option value="RA" <%if rs("runsystem")="RA" then response.write "selected" end if%>>RA</option>
                  <option value="mp3" <%if rs("runsystem")="MP3" then response.write "selected" end if%>>MP3</option>
                  <option value="ASF" <%if rs("runsystem")="ASF" then response.write "selected" end if%>>ASF</option>
                  <option value="MIDI" <%if rs("runsystem")="MIDI" then response.write "selected" end if%>>MIDI</option>
                  <option value="其它" <%if rs("runsystem")="其它" then response.write "selected" end if%>>其它</option>
                </select> </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">电影带宽:</div></td>
              <td><input name="daikuan" type="text"  size="20"
          class="smallinput" maxlength="255" value="<%=rs("daikuan")%>"  > <font color="#FF0000" size="3">*</font></td>
            </tr>
            <tr> 
              <td width="85"> <div align="center">电影缩略图:</div></td>
              <td> <input type="text" name="images" size="50"
          class="smallinput" maxlength="255" value="<%=rs("images")%>"> </td>
            </tr>
            <tr> 
              <td width="85"> <div align="center"> 
                  <p>内容简介: </p>
                </div></td>
              <td> <textarea rows="8" name="content" cols="65" class="smallarea"><%=replace(rs("content"),"<br>",chr(13))%></textarea> 
                <font color="#FF0000" size="3">*</font> <input type="hidden" name="zhuid" value="<%=zhuid%>"> 
                <input type="hidden" name="typename" value="<%=typename%>"> </td>
            </tr>
            <tr> 
              <td width="85" valign=top> <div align="center">影片地址:</div></td>
              <td style="padding:5pt"> <%dim filmurl,url,line
                url ="SELECT * FROM url WHERE filmid = "&rs("id")&" ORDER BY id "
                Set filmurl = Server.CreateObject("ADODB.Recordset")
			    filmurl.open url,Conn,3,1
                if filmurl.eof then
                response.write "<font color='#ffffff'>没有影片提供观看</font>"
                else
				for i=1 to filmurl.recordcount
			  %>
                第 <%=i%> 集: &nbsp; <input type="text" name="url<%=i%>" class="smallinput" style="padding-left:1pt"  size=60 value="<%=filmurl("url")%>"> 
                <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 (form1.del<%=i%>.checked!=true) form1.del<%=i%>.checked=true ;
    else form1.del<%=i%>.checked=false ;
}
//-->
</SCRIPT> <%
			  filmurl.movenext
			   next
			   end if
			  %> <div id="upid"></div>
                <script language="javascript">
	  function setid()
	  {
	  str='';
	  if(!window.form1.no.value)
	   window.form1.no.value=0;
 	  for(i=1;i<=window.form1.no.value;i++)
	    // j=i+<%=filmurl.recordcount%>
	     str+='<font color=red>第 '+(i+<%=filmurl.recordcount%>)+' 集</font>: &nbsp;<input type="text" name="url'+(i+<%=filmurl.recordcount%>)+'" class="smallinput" style="padding-left:1pt"  size=60><BR>';
	  window.upid.innerHTML=str;
	  }
	  </script> </td>
            </tr>
            <tr valign=top> 
              <td>&nbsp; </td>
              <td><FONT COLOR="red">如果需要添加地址请先在此设置所要添加的集数:</FONT> <input type="button" name="Button" class="buttonface" onclick="setid();" value="添加"> 
                <input type="text" name="no" class="smallinput" value="0" size=2 maxlength=3>
                集</td>
            </tr>
            <tr> 
              <td colspan="2"> <div align="center">站长推荐:是: 
                  <input type="radio" name="best" value="1" <%if rs("best")=true then response.write "checked" end if%>>
                  &nbsp;&nbsp;&nbsp; 否: 
                  <input type="radio" name="best" value="0" <%if rs("best")=false then response.write "checked" end if%>>
                </div></td>
            </tr>
          </table>
            
          </td>
        </tr>
      </table>
      <p> <INPUT TYPE="hidden" name=id value=<%=id%>><INPUT TYPE="hidden" name=count value=<%=filmurl.recordcount%>>
        <input type="submit" value=" 修 改 "
  name="edit" class="buttonface">
        &nbsp; 
        <input type="reset" value=" 清 除 "
  name="cmdcancel" class="buttonface">
      </p>
      
  </form>
<div align="center">
  <p>以上带 <font color="#FF0000" size="3">*</font> 为必填写</p>
  <p> <a href="mimi.asp"><font face="Webdings" size="4">7</font>返回管理页面</a> </p>
</div></center>
</body>
</html><%   conn.close
   set conn=nothing 
end if%>

⌨️ 快捷键说明

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