videospecialedit.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<!--#include file="admin.asp"-->
<!--#include file="conn1.asp"-->
<!-- #include file="../Inc/Head.asp" -->
<script Language="JavaScript">
function Form_Validator(theForm) 
{ 
	if (theForm.Class_Nclass.value == "") 
	{ 
		alert("请选择所属分类"); 
		theForm.Class_Nclass.focus(); 
		return (false); 
	} 
	if (theForm.Specialname.value == "") 
	{ 
		alert("专辑名不能为空"); 
		theForm.Specialname.focus(); 
		return (false); 
	}
	return (true); 
} 
</script>
<%
   SpecialId=request("SpecialId")
   ClassID=request("ClassID")
   set rs=server.createobject("adodb.recordset")
   set rs1=server.CreateObject("adodb.recordset")
sql="select * from VideoSpecial where SpecialId="&SpecialId
rs.open sql,conn,1,1
if not rs.eof then
  if len(rs("picsrc"))>0 then
  picsrc=rs("picsrc")
else
  picsrc="../images/blank.gif"
end if

%>

	<form name="SpecialEdit" method="post" action="VideoSpecialsave.asp?action=edit&SpecialID=<%=SpecialId%>" onsubmit="return Form_Validator(this)">
      <table width="60%" border="0" align="center"cellspacing="1" cellpadding="2" bgcolor="#ffffff">
      
        <tr> 
          <td width="28%" align="right">所属分类：</td>
          <td width="72%"> 
            <select name="SpecialClass" size="1">
              <option value="">请选择专辑分类</option>
              <%
			  sql1="select classID,className from Videoclass"
			  rs1.open sql1,conn,1,1
			  do while not rs1.eof
			  if rs1("classID")=rs("classID") then
			     k="selected"
			  else
			     k=""
              end if
			  response.Write "<option "&k&" value="&rs1("classID")&">"&rs1("className")&"</option>"
			  rs1.movenext
			  loop
			  rs1.close
			   %> 
            </select>
          </td>
		    <td rowspan=6><img src="<%=picsrc%>" border="0" width="120" height="120" ></td>
        </tr>
        <tr> 
          <td width="28%" align="right">专辑名称：</td>
          <td width="72%"> 
           <input type="text" name="Specialname" size="30" maxlength="50" value="<%=rs("Specialname")%>">
          </td>
        </tr>
  
       <tr> 
          <td width="28%" align="right">封套图片：</td>
            <td width="72%"> <b>
              <input type="text" name="Specialimage" size="30" maxlength="255" value="<%=rs("picsrc")%>"> 
              </b> </td>
        </tr>
        <tr> 
            <td colspan="2" align="center"> 
              <input type="submit" name="Submit" value="提·交">
                  </td>
        </tr>
      </table>
	 </form>

<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<!-- #include file="../Inc/Foot.asp" -->