admin_specialmodify.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

<%PageName="admin_SpecialModify"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="inc/char.inc"-->
<%
specialid=request.QueryString("specialid")
AskClassid=request.QueryString("AskClassid")
set rs=server.createobject("adodb.recordset")
sql="select * from special where specialid="&specialid
rs.open sql,conn,1,1
if rs.eof then
	errmsg="<li>操作错误！请联系管理员</li>"
	call error()
	Response.End 
else
	name=rs("name")
	classid=rs("classid")
	pic=rs("pic")
	intro=rs("intro")
rs.close
end if
%>
<!--#include file="top1.asp"-->
<br><br><table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="269"> 
<tr>
    <td width=5 valign=top background="images/line_bg02.gif" height="292">
    <img border="0" src="images/line_bg02.gif"></td>
    <td width=202 valign=top height="292"><!--#include file="admin_left.asp"--></td>
    <td width=6 valign=top background="images/line_bg02.gif" height="292">　</td>
    <td align=center valign=top width="580" height="292">
      <table border="2" width="100%" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#408AC1">
        <form method="POST" action="admin_SpecialSave.asp?specialid=<%=specialid%>&AskClassid=<%=request("AskClassid")%>&page=<%=request("page")%>" id=form2 name=form2>
          <tr>
            <td width="100%" height="20" colspan=2  align=center><b>修 改 专 辑</b></td>
          </tr>
          <tr>
            <td align="right">类型：</td>
            <td>&nbsp;&nbsp;栏目：
	          <select name="Classid" size="1" onchange="window.open('admin_SpecialModify.asp?Specialid=<%=Specialid%>&AskClassid=<%=Askclassid%>&page=<%=request("page")%>&Classid='+this.options[this.selectedIndex].value,'_self')">
                <option value="" <%if request("classid")="" then%> selected<%end if%>>选择栏目</option>
<%
sql="select * from class"
rs.open sql,conn,1,1
Do until rs.eof
%>
                <option<%if (cstr(request("classid"))=cstr(rs("classid")) and request("classid")<>"") or (cstr(Classid)=cstr(rs("Classid")) and request("classid")="") then%> Selected<%end if%> value="<%=Cstr(rs("classid"))%>"><%=rs("class")%></option>
<%rs.MoveNext
Loop
rs.close
%>            </select></td>
          </tr>
          <tr>
            <td width="15%" align="right">专辑名称：</td>
            <td width="85%">
            <input type="text" name="name" value="<%=name%>" size="20"></td>
          </tr>
          <tr>
            <td align="right">专辑图片：</td>
            <td>
            <iframe name="I1" frameborder=0 width="89%" height=48 scrolling=no src="uploadspecial.asp?id=<%=id%>"></iframe>
			<br>
			<input type="text" name="pic" size="50" value="<%=pic%>">
			</td>
          </tr>
          <tr>
            <td align="right">专辑简介：</td>
            <td><TEXTAREA name="intro" rows=5 cols="61"><%=htmlencode1(intro)%></TEXTAREA></td>
          </tr>
          <tr>
            <td align="center" colspan=2>
              <input type="hidden" value="edit" name="act"> 
              <input type="submit" value=" 修 改 " name="cmdok2">&nbsp; 
              <input type="reset" value=" 清 除 " name="cmdcance2l">
            </td>
          </tr>
        </form>
      </table>
    </td>
    <td align=center valign=top width="5" height="292" background="images/line_bg02.gif">
      <img border="0" src="images/line_bg02.gif"></td>
  </tr>



  <tr>
    <td width=786 valign=top background="images/line_bg01.gif" height="1" colspan="5">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr></talbe></talbe></talbe>
<br><br>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>