<!--#include file="articleconn.asp"-->
              <%
dim sql
dim rs
sql="select * from learning where articleid="&request("id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
                %> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="style.css">
<title>修改歌曲</title>
</head>
<body topmargin="20" leftmargin="15" bgcolor="#0099CC" >
<form method="POST" action="saveedit.asp?id=<%=request("id")%>">
  <div align="center"><center>
      <table border="0" cellspacing="5" width="600" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="5" bgcolor="#FFFFFF">
        <tr bgcolor="#006cd9"> 
          <td width="100%" height="20" bgcolor="#0099CC"> 
            <p align="center"><b><font
      color="#FFFFFF"><%=rs("home")%>修改歌曲页</font></b> 
          </td>
    </tr>
    <tr align="center">
          <td width="100%" bgcolor="#B3ECFF"> 
            <table border="0" cellspacing="1" width="100%">
              <tr>
                <td>
                  <div align="center">歌曲名称：</div>
                </td>
                <td width="85%" height="30">
                  <input type="text" name="title" size="20" 
                  class=put maxlength="255" value="<%=rs("title")%>">
                  可选，填写后，才能有贺卡搜索功能。 </td>
              </tr>

              <tr> 
                <td> 
                  <div align="center">歌曲分类：</div>
                </td>
                <td width="85%" height="30"> 
                  <select class="put" name="typeid" size="1">
                    <%
dim rs1,sql1,sel
 set rs1=server.createobject("adodb.recordset")
  sql1="select * from type"
 rs1.open sql1,conn,1,1
			  do while not rs1.eof
                                sel="selected"    
		             response.write "<option  value='"+CStr(rs1("typeID"))+"' name=typeid "
		           ' Response.Write rs1("typeid")& rs("typeid")
		             if rs("typeid")=rs1("typeid") then Response.Write sel
		             Response.Write ">"+rs1("type")+"</option>"+chr(13)+chr(10)
		             rs1.movenext
    		          loop
			rs1.close
			  %> 
                  </select>
                </td>
              </tr>
              <tr> 
                <td> 
                  <div align="center">图片地址：</div>
                </td>
                <td width="85%" height="30"> 
                  <input type="text" name="images" size="70" 
                  class=put maxlength="255" value="<%=rs("images")%>">
                  <font color="#FF0000" size="3">*</font> </td>
              </tr>
              <tr> 
                <td> 
                  <div align="center">歌曲地址：</div>
                </td>
                <td width="85%" height="30"> 
                  <input type="text" name="images1" size="70" 
                  class=put maxlength="255" value="<%=rs("images1")%>">
                  <font color="#FF0000" size="3">*</font> </td>
              </tr>
            </table>
          </td>
    </tr>
  </table>
      <p>
        <input type="submit" value=" 修 改 "
  name="cmdok" class=put1>
        &nbsp;&nbsp;&nbsp;&nbsp; 
        <input type="reset" value=" 复 原 "
  name="cmdcancel" class=put1>
      </p>
    </center>
  </div>
  <div align="center">
    <center>
    </center></div>
</form>
<div align="center"> 
  <p>以上代 <font color="#FF0000" size="3">*</font> 为必填写</p>
  <p><a href="manage.asp"><font color="#FFFFFF">返回管理</font></a> </p>
</div>
</body>
</html>
<% 
   
 rs.close 
set rs=nothing 
  conn.close  
  set conn=nothing  
%>
