admin_softinfo.asp

网络电视免费版

    onecount=0;
    subcat = new Array();
        <%count = 0
        do while not rs.eof %>
    subcat[<%=count%>] = new Array("<%= trim(rs("SubCateName"))%>","<%=cstr(rs("cateid"))%>","<%=cstr(rs("subcateid"))%>");<%count = count + 1
        rs.movenext
        loop
        rs.close
        %>
    onecount=<%=count%>;

function changelocation(locationid)
    {
    document.myform.subcateid.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
                document.myform.subcateid.options[document.myform.subcateid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
    </SCRIPT> <form name="myform" method="post" action="Admin_SoftInfo.asp" onSubmit="return Juge(this)" >
          <%
  		 if isedit then
		  set rse=server.createobject("adodb.recordset")
 		   rse.open "select * from "&CategoryName&"_SoftInfo where SoftID=" & cstr(request("SoftID")),conn,1,1
		   cateid=cstr(rse("cateid"))
		   subcateid=cstr(rse("subcateid"))
	        pubTitle="编辑节目"
	     else
           cateid=request("cateid")
           subcateid=request("subcateid")	   
	       pubTitle="添加节目"
	    end if %>
          <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else  %>add<% End If %>'>
          <%If isedit then%>
          <input type="Hidden" name="SoftID" value='<%=cstr(request("SoftID"))%>'>
          <%End If%>
          
  <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder">         
    <tr> 
      <th height="25" colspan="4"><%=pubTitle%></th>
     </tr>            
    <tr> 
      <td class="forumRowHighlight">节目名称：</td>
              
      <td class="forumRow"> 
        <input type="text" name="SoftName" size="28"  value='<% if isedit then
		                                                         response.write trim(rse("SoftName")) 
															 end if %>' maxlength="50"> 
                <font color="#FF0000">！</font> </td>
              
      <td class="forumRowHighlight">节目版本：</td>
              
      <td class="forumRow"> 
        <input type="text" name="SoftVer" maxlength="40" size="24" value='<% if isedit then
		                                                         response.write trim(rse("SoftVer")) 
															 end if %>'> </td>
            </tr>
            
    <tr> 
      <td class="forumRowHighlight">所属大类：</td>
              
      <td class="forumRow"> 
        <select name="cateid" onChange="changelocation(document.myform.cateid.options[document.myform.cateid.selectedIndex].value)" size="1">
                  <%
    sql="select * from "&CategoryName&"_Cate"
 	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "没有大类"
	else
	do while not rs.eof
        if cateid=cstr(rs("cateid")) then 
		sel="selected"
        else
		sel=""
        end if	
	response.write "<option " & sel & " value='"&cstr(rs("cateid"))&"' name=cateid>"+trim(rs("CateName"))+"</option>"
	rs.movenext
    	loop
	end if
	rs.close
%>
                </select> <font color="#FF0000">！</font> </td>
              
      <td class="forumRowHighlight">所属小类：</td>
              
      <td class="forumRow"> 
        <select name="subcateid" size="1">
                  <%
		if isedit or cateid<>"" then
  	       sql="select * from "&CategoryName&"_SubCate where cateid="&cateid
	    else
	       sql="select * from "&CategoryName&"_SubCate"
	    end if
 	    rs.open sql,conn,1,1
	    if rs.eof and rs.bof then
		    response.write "没有小类"
	    else
            do while not rs.eof
            if subcateid=cstr(rs("subcateid")) then
               sel="selected"
            else
               sel=""
            end if	
            response.write "<option " & sel & " value='"&cstr(rs("subcateid"))&"'>" + trim(rs("SubCateName")) + "</option>"
            rs.MoveNext
            Loop
	    end if
        rs.close
%>
                </select> <font color="#FF0000">！</font> </td>
            </tr>
            
    <tr> 
      <td nowrap class="forumRowHighlight">运行环境：</td>
              
      <td colspan="3" class="forumRow"> 
        <%
	  theSystem=split(SystemType, ",")
	   for i = 0 to ubound(theSystem)	
	   response.write "<input type=""checkbox"" name=""System"" value="""&trim(theSystem(i))&""" "
	   if isedit then
	       if instr(rse("System"),trim(theSystem(i)))>0 then 
		   response.write "checked"
		   end if
	   elseif instr(DefaultSystemType,trim(theSystem(i)))>0 then 
		   response.write "checked"
	   end if
	   response.write ">"&trim(theSystem(i))&" "
	   if i=5 then response.write "<br>"
	   next %> <font color="#FF0000">！</font> </td>
            </tr>
            
    <tr> 
      <td height="25" nowrap class="forumRowHighlight">节目等级：</td>
              
      <td height="25" class="forumRow"> 
        <input type="text" name="SoftSize" size="1" maxlength="10"  value='0' style="color: #D6DFF7; border-style: solid; border-width: 1; background-color: #D6DFF7"><select name="Rank" size="1">
                  <% if isedit then%>
                  <option value="1" name="Rank" <%if trim(rse("Rank"))="1" then
		  response.write "selected"         
          end if%>>一星级</option>
                  <option value="2" name="Rank" <%if trim(rse("Rank"))="2" then
		  response.write "selected"         
          end if%>>二星级</option>
                  <option value="3" name="Rank" <%if trim(rse("Rank"))="3" then
		  response.write "selected"         
          end if%>>三星级</option>
                  <option value="4" name="Rank" <%if trim(rse("Rank"))="4" then
		  response.write "selected"         
          end if%>>四星级</option>
                  <option value="5" name="Rank" <%if trim(rse("Rank"))="5" then
		  response.write "selected"         
          end if%>>五星级</option>
                  <% else %>
                  <option value="" name="Rank"></option>
                  <option value="1" name="Rank">一星级</option>
                  <option value="2" name="Rank">二星级</option>
                  <option value="3" name="Rank">三星级</option>
                  <option value="4" name="Rank">四星级</option>
                  <option value="5" name="Rank">五星级</option>
                  <% end if %>
                </select> <font color="#FF0000">！</font> </td>
              
      <td height="25" class="forumRowHighlight">　</td>
              
      <td height="25" class="forumRow"> 
        　</td>
            </tr>
            
    <tr> 
      <td nowrap class="forumRowHighlight">数据类型：</td>
              
      <td class="forumRow"> 
        <select name="LicenceType">
                  <% if isedit then
			  response.write "<option value="""&rse("LicenceType")&""">"&rse("LicenceType")&"</option>"
			  else
			  response.write "<option value=""""></option>"
			  end if
			  %>
                  <option value="在线播放">在线播放</option>
                  <option value="早期录象">早期录象</option>
                  <option value="在线播放/早期录象">在线播放/早期录象</option>
                  <option value="数据正在整理">数据正在整理</option>
                </select> <font color="#FF0000">！</font> </td>
              
      <td class="forumRowHighlight">作者网址：</td>
              
      <td class="forumRow"> 
        <input type="text" name="SoftFrom" size="24" maxlength="100"  value='<% if isedit then
		                                                         response.write trim(rse("SoftFrom")) 
															 end if %>'> <font color="#FF0000">！</font> 
              </td>
            </tr>
            
    <tr> 
      <td nowrap class="forumRowHighlight">节目类型：</td>
              
      <td class="forumRow"> 
        <select name="SoftType">
                  <% if isedit then
			  response.write "<option value="""&rse("SoftType")&""">"&rse("SoftType")&"</option>"
			  else
			  response.write "<option value=""""></option>"
			  end if
			  %>
                  <option value="国内电视节目">国内电视节目</option>
                  <option value="港台电视节目">港台电视节目</option>
                  <option value="外国电视节目">外国电视节目</option>
                  <option value="国内电台">国内电台</option>
                  <option value="港台电台 ">港台电台</option>
                  <option value="外国电台">外国电台</option>
                </select> <font color="#FF0000">！</font> </td>
              
      <td class="forumRowHighlight">节目语言：</td>
              
      <td class="forumRow"> 
        <select name="Language">
                  <% if isedit then
			  response.write "<option value="""&rse("Language")&""">"&rse("Language")&"</option>"
			  else
			  response.write "<option value=""""></option>"
			  end if
			  %>
                  <option value="普通话">普通话</option>
                  <option value="英语">英语</option>
                  <option value="其他语言">其他语言</option>
                </select> <font color="#FF0000">！</font></td>
            </tr>
            
    <tr> 
      <td nowrap class="forumRowHighlight">界面预览： </td>
              
      <td colspan="3" class="forumRow"> 
        <input type="text" name="SoftViewImg" size="38"  value='<% if isedit then
		                                                         response.write trim(rse("SoftViewImg")) 
															 end if %>'>
                节目界面预览图片，大小不定</td>
            </tr>
            
    <tr> 
      <td nowrap class="forumRowHighlight">LOGO图片：</td>
              
      <td colspan="3" class="forumRow">