admin_picadd.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<table width="770" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td width="157" bgcolor="<%=Tabletitlecolor%>" valign="top"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="609" bgcolor="<%=Tablebodycolor%>" align="center" valign="top"> 
      <table border="0" cellspacing="1" width="100%" cellpadding="1">
        <tr align="center"> 
          <td colspan="4" valign="top" bgcolor="<%=Tabletitlecolor%>"><b>添加图片资料</b> </td>
        </tr>
        <form method="POST" name="myform" action="admin_picsave.asp?action=add">
          <tr> 
            <td width="20%" align="right" valign="top"><b>分类：</b></td>
            <td> 
              <%
   remember="<option selected value=''>==请选择图片的分类==</option>"
   set rs1=server.createobject("adodb.recordset")
   Sql="select * from class where not class like '%图片%'"
   Rs.open Sql,conn,1,1
	Do while not Rs.eof
			ClassName=Rs("Class")
			Classid=Rs("Classid")
			Sql1="select * from nclass where classid="&classid
			Rs1.open Sql1,conn,1,1
			Do while not Rs1.eof
				i=i+1
				Nclassid=Rs1("Nclassid")
				NClassName=Rs1("NClass")
				remember=remember&"<option value='"&Classid&","&NClassid&"'>"&ClassName&"──→"&NClassName&"</option>"

			Rs1.movenext
			loop
			Rs1.close

		Rs.movenext
		loop
		Rs.close
%>
              <select name="Classic" size="1">
                <%=remember%> 
              </select>
            </td>
            <td align="right"><b>作者：</b></td>
            <td> 
              <select name="authorid">
                <option selected value="">==选择作者==</option>
<%Nke=""
sql="select authorid,author,Nkey from author order by Nkey"
rs.open sql,conn,1,1
do while not rs.eof
if cstr(Nke)<>cstr(rs("Nkey")) then response.write "<option value="""">====  "&rs("Nkey")&"  ====</option>"
response.write "<option value="&rs("authorid")&">"&rs("author")&"</option>"
Nke=rs("Nkey")
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
              </select>
              <input type="button" value="添 加 作 者" onclick="Javascript:window.open('admin_authoradd.asp','_self','')">
            </td>
          </tr>
          <tr> 
            <td width="20%" align="right"><b>编号：</b></td>
            <td width="30%"> 
              <input type="text" name="No" size="35" maxlength="100">
            </td>
            <td align="right" width="20%"><b>标题首拼音：</b></td>
            <td width="30%"> 
              <select size="1" name="Nkey">
                <option value="" selected>*</option>
                <%
		for i=65 to 90
		response.write "<option value="&chr(i)&">"&chr(i)&"</option>"
		next
%>
              </select>
            </td>
          </tr>
          <tr> 
            <td align="right"><b>标题：</b></td>
            <td colspan="3"> 
              <input type="text" name="Title" size="35" maxlength="100">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>大小：</b></td>
            <td> 
              <input type="text" name="size" size="35" maxlength="100">
            </td>
          </tr>
          <tr> 
            <td align="right" valign="top"><b>创作时间：</b></td>
            <td> 
              <input type="text" name="creattime" maxlength="4" size="15"> 年</td>
            <td align="right"><b>收藏时间：</b></td>
            <td> 
              <input type="text" name="collectyear" maxlength="4" size="6">
              年 
              <select name="collectmonth">
                <%
response.write "<option selected value=''>*</option>"
for i=1 to 12
	response.write "<option value="&i&">"&i&"</option>"
next
%>
              </select>
              月 
              <select name="collectdate">
                <%
response.write "<option selected value=''>*</option>"
for i=1 to 31
	response.write "<option value="&i&">"&i&"</option>"
next
%>
              </select>
              日 </td>
          </tr>
          <tr> 
            <td align="right"><b>关键字：</b></td>
            <td>
              <input type="text" name="key" size="35" maxlength="100">
            </td>
            <td><b>专辑名称：</b></td>
            <td>
              <input type="text" name="special" size="35" maxlength="100">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>图片地址：</b></td>
            <td colspan="3"> 
              <input type="text" name="images" size="75" maxlength="200">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>链接地址：</b></td>
            <td colspan="3"> 
              <input type="text" name="sign" size="75" maxlength="200">
            </td>
          </tr>
          <tr> 
            <td align="right" valign="top"><b>简介：</b></td>
            <td colspan="3"> 
              <textarea rows="5" name="content" cols="75">非常好听的一首歌，请向你的朋友们推荐，好吗？</textarea>
            </td>
          </tr>
          <tr> 
            <td align="right"><b>推荐等级：</b></td>
            <td> 
              <select name="best">
                <option value="推荐" selected>推荐</option>
                <option value="不推荐">不推荐</option>
                <option value="精品">精品</option>
                <option value="逸品">逸品</option>
                <option value="神品">神品</option>
                <option value="极品">极品</option>
              </select>
            </td>
            <td align="right"><b>我的收藏：</b></td>
            <td> 
              <table width="200" border="0">
                <tr> 
                  <td width="27%" align="right">是：</td>
                  <td width="22%"> 
                    <input type="radio" name="myself" value="1" checked>
                  </td>
                  <td width="24%" align="right">否： </td>
                  <td width="27%"> 
                    <input type="radio" name="myself" value="0">
                  </td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td colspan="4" align="center"> 
              <input type="submit" value=" 添 加 ">
              &nbsp; 
              <input type="reset" value=" 清 除 ">
            </td>
          </tr>
        </form>
      </table>
      
    </td>
    </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>