admin_downadd.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<!--#include file="admin_loginchk.asp"-->
<%admin2%>
<title>添 加 动 画 地 址</title>
<!--#include file="code.asp"-->

<%
dim rs
dim sql
dim count
set rs=server.createobject("adodb.recordset")
sql = "select * from ANclass order by Nclassid asc"
rs.open sql,conn,1,1
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
   count = 0
   do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("Nclass"))%>","<%= trim(rs("classid"))%>","<%= trim(rs("Nclassid"))%>");
<%
        count = count + 1
        rs.movenext
        loop
        rs.close
%>
		
onecount=<%=count%>;

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

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { //这句不是很理解
             document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script><LINK rel="stylesheet" href="../style.css"><table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="#D8D5B4">
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top>
      <div align="center">
        <center>
      <table border="0" cellpadding="4" cellspacing="0" width="98%" style="border-collapse: collapse" bordercolor="#111111">
        <tr align="center"> 
          <td bgcolor="#D8D5B4"><font color="#CCCCCC">::</font>添 加 动 画 地 址<font color="#CCCCCC">::</font></td>
        </tr>
        <tr align="center"> 
          <td align="center" valign="top"> 
		  
		   <form method="POST" name="myform" action="admin_downsave.asp" >
              <table width="95%" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                <td width="100%" height="20"> 
                    <table width="100%" cellpadding="0" cellspacing="0" border="0">
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center">作品类别：</div>
                        </td>
                        <td nowrap align="left" width="87%" bgcolor="#F2F1E6"> 
                          <%
                              sql = "select * from Aclass"
                              rs.open sql,conn,1,1
	                          if rs.eof and rs.bof then
	                          response.write "请先添加栏目。"
                           	  response.end
	                          else
                          %>
                          <select name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">
                            <option selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
                            <%      dim selclass
                                  selclass=rs("classid")
                                  rs.movenext
                                  do while not rs.eof
							%>
                            <option value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>
                            <%rs.movenext
						   loop
						   end if
						   rs.close
						   %>
                          </select>
                         <SELECT name="Nclassid">
		 <OPTION selected value="">==请选分类==</OPTION>
	  </SELECT>
                          <font color="#FF0000">** </font></td>
                      </tr>
                      <tr> 
                        <td width="13%"> 
                          <div align="center">作品名称：</div>
                        </td>
                        <td colspan="2" align="left" width="87%"> 
                          <input type="text" name="txtshowname" size="40"
          class="smallinput" maxlength="100">
                          <font color="#FF0000" size="3">*</font> </td>
                      </tr>
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center">作者： </div>
                        </td>
                        <td colspan="2" align="left" width="87%" bgcolor="#F2F1E6"> 
                          <input type="text" name="txtfilename1" size="20"
          class="smallinput" maxlength="100" value="不详">
                        </td>
                      </tr>
                      <tr> 
                        <td width="13%"> 
                          <div align="center">作者信箱：</div>
                        </td>
                        <td colspan="2" align="left" width="87%"> 
                          <input type="text" name="txtfilename2" size="40"
          class="smallinput" maxlength="100" value="不详">
                        </td>
                      </tr>
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center">下载地址：</div>
                        </td>
                        <td colspan="2" align="left" width="87%" bgcolor="#F2F1E6"> <font color="#FF0000"> 
                          <input type="text" name="txtfilename" size="40"
          class="smallinput" maxlength="100" value="date/dh/">
                          </font></td>
                      </tr>
                      <tr> 
                        <td width="13%"> 
                          <div align="center">推荐程度：</div>
                        </td>
                        <td colspan="2" align="left" width="87%">&nbsp; 
                          <select name="hot" size="1">
                            <option value="1" name="hot">一星级</option>
                            <option value="2" name="hot">二星级</option>
                            <option value="3" name="hot">三星级</option>
                            <option value="4" name="hot">四星级</option>
                            <option value="5" name="hot" selected>五星级</option>
                          </select>
                          <FONT color="#FF0000">**</FONT></td>
                      </tr>
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center">作品大小：</div>
                        </td>
                        <td colspan="2" align="left" width="87%" bgcolor="#F2F1E6"> 
                          <input type="text" name="size" size="20"
          class="smallinput" maxlength="100" value="K">
                          <font color="#FF0000"> **</font></td>
                      </tr>
                      <tr> 
                        <td width="13%"> 
                          <div align="center">图片地址：</div>
                        </td>
                        <td colspan="2" align="left" width="87%"> 
                          <input type="text" name="images" size="40"
          class="smallinput" maxlength="160" value="date/pic2/">
                        </td>
                      </tr>
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center">来源地址：</div>
                        </td>
                        <td colspan="2" align="left" width="87%" bgcolor="#F2F1E6"> 
                          <input type="text" name="fromurl" size="40"
          class="smallinput" maxlength="100" value="http://game.3330.net">
                          <font color="#FF0000" size="3">*</font> </td>
                      </tr>
                      <tr> 
                        <td width="13%"> 
                          <div align="center">简 介：</div>
                        </td>
                        <td colspan="2" align="left" width="87%"> 
<textarea rows="6" name="order" cols="40" class="smallarea">(无)</textarea>
                          <!--<input type="text" name="order" size="60" class="smallinput" maxlength="100" value="免费">-->
                          是否推荐 
                          <input type="checkbox" name="hots" value="on">
                          是否隐藏 
                          <input type="checkbox" name="hide" value="on">
                        </td>
                      </tr>
                      
                      <tr> 
                        <td width="13%" bgcolor="#F2F1E6"> 
                          <div align="center"> 
                            <p>歌手： </p>
                          </div>
                        </td>
                        <input type="hidden" name="thname" value="不详">
                        <td colspan="2" align="left" width="87%" bgcolor="#F2F1E6"> <font color="#FF0000"> 
<input type="text" name="txtnote" size="40"
          class="smallinput" maxlength="100" value="(无)">
                          </font></td>
                      </tr>
                      <tr> 
                        <td colspan="3"> 
                          <div align="center"> 
                            <input type="submit" value=" 添 加 " name="cmdok" class="buttonface">
                            <input type="hidden" value="add" name="action" class="buttonface">
                            &nbsp;&nbsp; 
                            <input type="reset" value=" 清 除 " name="cmdcancel" class="buttonface">
                            &nbsp;&nbsp; 
                            <input name=".goback" type="reset" value=" 返 回 " onClick="history.go(-1)" class="buttonface">
                          </div>
                        </td>
                      </tr>
                      <tr> 
                        <td colspan="3">以上代 <font color="#FF0000" size="3">*</font> 
                          为必填写　</td>
                      </tr>
                      <%=gun%> 
                    </table>
                </td>
              </tr>
            </table>
			
			</form>
			
          </td>
        </tr>
      </table>
      
        </center>
      </div>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
</body>
</html>