admin_picedit.asp

3000首FLASH源程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<%
   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")
                                if request("Classid")&","&request("NClassid")=Classid&","&NClassid then
					k=" selected"
				else
					k=""
				end if
				remember=remember&"<option "&k&" value="&Classid&","&NClassid&">"&ClassName&"──→"&NClassName&"</option>"

			Rs1.movenext
			loop
			Rs1.close

		Rs.movenext
		loop
		Rs.close
%>
<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%>" valign="top" align="center"> 
      <table border="0" cellspacing="1" width="100%" cellpadding="1">
        <tr align="center" bgcolor="<%=Tabletitlecolor%>"> 
          <td colspan="4" valign="top"><b>修改图片资料</b> </td>
        </tr>
        <form method="POST" name="myform" action="admin_picsave.asp?id=<%=request("id")%>&action=edit">
          <tr> 
            <td width="20%" align="right" valign="top"><b>分类：</b></td>
            <td> 
              <select name="Classic" size="1">
                <%=remember%> 
              </select>
              <%
	sql="select * from pic where id="&request("id")
	rs.open sql,conn,1,1
%>
            </td>
            <td align="right"><b>作者：</b></td>
            <td> 
              <select name="authorid">
<%Nke=""
sql="select authorid,author,Nkey from author order by Nkey"
rs1.open sql,conn,1,1
do while not rs1.eof
if cstr(Nke)<>cstr(rs1("Nkey")) then response.write "<option value="""">====  "&rs1("Nkey")&"  ====</option>"
response.write "<option value="&rs1("authorid")
if rs("authorid")=rs1("authorid") then
response.write " selected"
authorid=rs("authorid")
author=rs1("author")
end if
response.write ">"&rs1("author")&"</option>"
Nke=rs1("Nkey")
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
              </select>
              <input type="button" value="修改<%=author%>资料" onClick="Javascript:window.open('admin_authoredit.asp?id=<%=authorid%>','_self','')" name="button">
            </td>
          </tr>
          <tr> 
            <td width="20%" align="right"><b>编号：</b></td>
            <td width="30%"> 
              <input type="text" name="No" size="35" maxlength="100" value="<%=rs("No")%>">
            </td>
            <td align="right" width="20%"><b>标题首拼音：</b></td>
            <td width="30%"> 
              <select size="1" name="Nkey">
                <%
		for i=65 to 90
		response.write "<option value="&chr(i)
		if rs("Nkey")=chr(i) then response.write " selected"
		response.write ">"&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" value="<%=rs("title")%>">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>大小：</b></td>
            <td> 
              <input type="text" name="Pheight" size="35" maxlength="100" value="<%=rs("size")%>">
            </td>
          </tr>
          <tr> 
            <td align="right" valign="top"><b>创作时间：</b></td>
            <td> 
              <input type="text" name="creattime" size="15" maxlength="4" value="<%=rs("creattime")%>"> 年
            </td>
            <td align="right"><b>收藏时间：</b></td>
            <td> 
              <input type="text" name="collecttime" size="35" maxlength="100" value="<%=rs("collecttime")%>">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>关键字：</b></td>
            <td> 
              <input type="text" name="key" size="35" maxlength="100" value="<%=rs("Key")%>">
            </td>
            <td align="right"><b>所属专辑：</b></td>
            <td>
              <input type="text" name="special" size="35" maxlength="100" value="<%=rs("special")%>">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>图片地址：</b></td>
            <td colspan="3"> 
              <input type="text" name="images" size="75" maxlength="200" value="<%=rs("images")%>">
            </td>
          </tr>
          <tr> 
            <td align="right"><b>链接地址：</b></td>
            <td colspan="3"> 
              <input type="text" name="sign" size="75" maxlength="200" value="<%=rs("sign")%>">
            </td>
          </tr>
          <tr> 
            <td align="right" valign="top"><b>简介：</b></td>
            <td colspan="3"> 
              <textarea rows="5" name="content" cols="75"><%=rs("content")%></textarea>
            </td>
          </tr>
          <tr> 
            <td align="right"><b>精品推荐：</b></td>
            <td> 
              <select name="best">
                <option value="不推荐" <%if rs("best")="不推荐" then response.write"selected"%>>不推荐</option>
                <option value="推荐" <%if rs("best")="推荐" then response.write"selected"%>>推荐</option>
                <option value="精品" <%if rs("best")="精品" then response.write"selected"%>>精品</option>
                <option value="逸品" <%if rs("best")="逸品" then response.write"selected"%>>逸品</option>
                <option value="神品" <%if rs("best")="神品" then response.write"selected"%>>神品</option>
                <option value="极品" <%if rs("best")="极品" then response.write"selected"%>>极品</option>
              </select>
            </td>
            <td align="right"><b>我的收藏：</b></td>
            <td> 
              <%if rs("myself")=false then %>
              <table width="198" border="0">
                <tr> 
                  <td width="30%" align="right">是：</td>
                  <td width="14%"> 
                    <input type="radio" name="myself" value="1">
                  </td>
                  <td width="30%" align="right">否： </td>
                  <td width="26%"> <font color="#FFFFFF"> 
                    <input type="radio" name="myself" value="0" checked>
                    </font></td>
                </tr>
              </table>
              <%else%>
              <table width="200" border="0">
                <tr> 
                  <td width="29%" align="right">是：</td>
                  <td width="15%"> 
                    <input type="radio" name="myself" value="1" checked>
                  </td>
                  <td width="28%" align="right">否： </td>
                  <td width="28%"> 
                    <input type="radio" name="myself" value="0">
                  </td>
                </tr>
              </table>
              <%end if%>
            </td>
          </tr>
          <tr> 
            <td colspan="4" align="center"> 
              <input type="submit" value=" 修 改 "  name="cmdok">
              &nbsp; 
              <input type="reset" value=" 返 回 " onclick="javascript:history.go(-1)">
            </td>
          </tr>
        </form>
      </table>
    </td>
    </tr>
</table>
<!--#include file="copyright.asp"-->
<%      rs.close
        set rs = nothing
        conn.Close
        set conn = nothing%></body></html>