www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > admin/admin_specialmodify.asp

    <!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="inc/char.inc"-->
<!--#include file="checkadmin.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")
        yuyan=rs("yuyan")
        gongsi=rs("gongsi")
        dateandtime=rs("dateandtime")
        zhuangtai=rs("zhuangtai")
        zuozhe=rs("zuozhe")
        classname=rs("classname")
        DjQq=rs("DjQq")
rs.close
end if
%>
<html>
<head>
<title>迪吧后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Admin_Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<form method="POST" action="admin_SpecialSave.asp?specialid=<%=specialid%>&Classid=<%=request("Classid")%>&page=<%=request("page")%>" id=form2 name=special>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber2">
  <tr class="topbg"> 
    <td height="22" colspan="2" align="center"><strong>修 改 专 辑</strong></td>
  </tr>
</table>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" id="AutoNumber3">
    <tr class="tdbg"> 
      <td width="20%" align="right"><strong>选择分类:</strong></td>
      <td width="80%">&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>
<%
set rs=server.createobject("adodb.recordset")
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 class="tdbg"> 
      <td width="20%" align="right"><strong>专辑名称:</strong></td>
      <td width="80%"><input type="text" name="name" value="<%=name%>" size="20"></td>
    </tr>
       <tr class="tdbg"> 
      <td width="20%" align="right"><strong>专辑图片:</td>
      <td width="80%"><input type="text" name="pic" size="50" value="<%=pic%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>发行公司:</td>
      <td width="80%"><input type="text" name="gongsi" size="50" value="<%=gongsi%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>专辑语言:</td>
      <td width="80%"><input type="text" name="yuyan" size="50" value="<%=yuyan%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>专辑作者:</td>
      <td width="80%"><input type="text" name="zuozhe" size="50" value="<%=zuozhe%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>所属分类:</td>
      <td width="80%"><input type="text" name="ClassName" size="50" value="<%=ClassName%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>专辑状态:</td>
      <td width="80%"><input type="text" name="zhuangtai" size="50" value="<%=zhuangtai%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>联系作者:</td>
      <td width="80%"><input type="text" name="DjQq" size="50" value="<%=DjQq%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>发行时间:</td>
      <td width="80%"><input type="text" name="dateandtime" size="50" value="<%=dateandtime%>"></td>
      <tr class="tdbg"> 
      <td width="20%" align="right"><strong>专辑简介:</strong></td>
      <td width="80%"><TEXTAREA name="intro" rows=5 cols="61"><%=htmlencode1(intro)%></TEXTAREA></td>
    </tr>
    <tr class="tdbg"> 
      <td height="22" colspan="2" align="center" class="title"><input type="hidden" value="edit" name="act"> 
              <input type="submit" value=" 修 改 " name="cmdok2">&nbsp; 
              <input type="reset" value=" 清 除 " name="cmdcance2l">
        </td>
    </tr>
  </table>
</form>
</body> 
</html> 
<%
set rs=nothing
conn.close
set conn=nothing
%>