mtvmodify.asp

来自「全站生成htm静态页面」· ASP 代码 · 共 211 行

<%PageName="Songadd"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<%
Classid=cstr(trim(request.QueryString("classid")))
SClassid=cstr(trim(request.QueryString("sclassid")))
NClassid=cstr(trim(request.QueryString("Nclassid")))
%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="CHAR.INC"-->
<%
mtvlistid=request.QueryString("mtvlistid")
AskClassid=request.QueryString("AskClassid")
AskSClassid=request.QueryString("AskSClassid")
AskNClassid=request.QueryString("AskNClassid")
set rs=server.createobject("adodb.recordset")
sql="select * from mtvlist where mtvlistid="&mtvlistid
rs.open sql,conn,1,1
if rs.eof then
	errmsg="<li>操作错误！请联系管理员</li>"
	call error()
	Response.End 
else
	name=rs("name")
	classid=rs("classid")
	SClassid=rs("SClassid")
	Nclassid=rs("Nclassid")
	name=rs("name")
	pic=rs("pic")
	Times=rs("Times")
	fuwuqi=rs("fuwuqi")
	hits=rs("hits")
	Yuyan=rs("Yuyan")
	mtvurl=rs("mtvurl")
	singer=rs("singer")
	hot=rs("hot")
rs.close
end if
%> 
<!--#include file="style.asp"-->
<div align="center">
  <center>
  <table border="1" width="95%" cellspacing="0" cellpadding="0" class="TableLine" bordercolor="#64CB1F" style="border-collapse: collapse">
    <tr>
      <td width="100%" height="25" bgcolor="#64CB1F" align="center">
      <font color="white"><b>修 改 专 辑</b></font></td>
    </tr>
    <tr>
      <td width="100%" height="22" bgcolor="#D7F4C4" align="center">
      <div align="center">
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <form method="POST" action="AddmtvSave2.asp?mtvlistid=<%=mtvlistid%>&AskClassid=<%=request("AskClassid")%>&AskSClassid=<%=request("AskSClassid")%>&AskNClassid=<%=request("AskNClassid")%>&page=<%=request("page")%>" id="form2" name="form2">
            <tr>
              <td width="15%" align="right" height="25">类型：</td>
              <td width="85%" height="25">&nbsp;一级栏目： 
              <select name="Classid" size="1" onchange="window.open('mtvModify.asp?mtvlistid=<%=mtvlistid%>&amp;AskClassid=<%=Askclassid%>&amp;AskSClassid=<%=AskSclassid%>&amp;AskNClassid=<%=AskNclassid%>&amp;page=<%=request("page")%>&amp;Classid='+this.options[this.selectedIndex].value,'_self')">
              <%
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>&nbsp; 二级栏目： <%if request("classid")<>"" or request("Sclassid")<>"" then
	if request("classid")<>"" then%>
              <select name="Sclassid" size="1" onchange="window.open('mtvModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskSClassid=<%=request("AskSclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=request("Classid")%>&amp;SClassid='+this.options[this.selectedIndex].value,'_self')">
              <%	else%>
              <select name="Sclassid" size="1" onchange="window.open('mtvModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskSClassid=<%=request("AskSclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=Classid%>&amp;SClassid='+this.options[this.selectedIndex].value,'_self')">
              <%	end if%>
              <option value <%if request("Sclassid")="" then%> selected<%end if%>>
              选择栏目</option>
              <%
	if request("classid")<>"" then
		sql="select * from Sclass where classid="&request("classid")
	else
		sql="select * from Sclass where classid="&classid
	end if
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
              <option<%if (cstr(request("sclassid"))=cstr(rs("sclassid")) and request("sclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("Sclassid"))%>" name="Sclassid">
              <%=rs("Sclass")%></option> <%
	rs.MoveNext
	Loop
	rs.close

else
%> <select name="Sclassid" size="1" onchange="window.open('FileModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskSClassid=<%=request("AskSclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=request("Classid")%>&amp;SClassid='+this.options[this.selectedIndex].value,'_self')">
              <option value>选择栏目</option>
              <%
	sql="select * from Sclass where classid="&Classid
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
              <option<%if cstr(sclassid)=cstr(rs("sclassid")) then%> selected<%end if%> value="<%=CStr(rs("Sclassid"))%>" name="Sclassid">
              <%=rs("Sclass")%></option> <%
	rs.MoveNext
	Loop
	rs.close

end if
%></select>&nbsp; 三级栏目： <%if request("SClassid")<>"" or request("Nclassid")<>"" then
	if request("Sclassid")<>"" then%>
              <select name="Nclassid" size="1" onchange="window.open('FileModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskSClassid=<%=request("AskSclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=request("Classid")%>&amp;SClassid=<%=request("SClassid")%>&amp;NClassid='+this.options[this.selectedIndex].value,'_self')">
              <%	else%>
              <select name="Nclassid" size="1" onchange="window.open('FileModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskSClassid=<%=request("AskSclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=Classid%>&amp;SClassid=<%=request("SClassid")%>&amp;NClassid='+this.options[this.selectedIndex].value,'_self')">
              <%	end if%>
              <option value <%if request("Nclassid")="" then%> selected<%end if%>>
              选择栏目</option>
              <%
	if request("Sclassid")<>"" then
		sql="select * from Nclass where Sclassid="&request("Sclassid")
	else
		sql="select * from Nclass where Sclassid="&Sclassid
	end if
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
              <option<%if (cstr(request("nclassid"))=cstr(rs("nclassid")) and request("nclassid")<>"") then%> selected<%end if%> value="<%=CStr(rs("Nclassid"))%>" name="Nclassid">
              <%=rs("Nclass")%>ff</option> <%
	rs.MoveNext
	Loop
	rs.close

else
%> <select name="Nclassid" size="1" onchange="window.open('FileModify.asp?mtvlistid=<%=request("mtvlistid")%>&amp;AskClassid=<%=request("Askclassid")%>&amp;AskNClassid=<%=request("AskNclassid")%>&amp;page=<%=request("page")%>&amp;Classid=<%=request("Classid")%>&amp;SClassid=<%=request("SClassid")%>&amp;NClassid='+this.options[this.selectedIndex].value,'_self')">
              <option value>选择栏目</option>
              <%
	sql="select * from Nclass where Sclassid="&SClassid
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
              <option<%if cstr(nclassid)=cstr(rs("nclassid")) then%> selected<%end if%> value="<%=CStr(rs("Nclassid"))%>" name="Nclassid">
              <%=rs("Nclass")%></option> <%
	rs.MoveNext
	Loop
	rs.close
end if
%></select></td>
            </tr>
        </table>
      </div>
      </td>
    </tr>
    <tr>
      <td width="100%" height="25" align="left">
      <div align="center">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
              <tr> 
                <td width="15%" align="right" height="25">MTV名称：</td>
                <td width="85%" height="25"> <input type="text" name="name" value="<%=name%>" size="20"></td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="25">所属语言：</td>
                <td width="85%" height="25"> <input type="text" name="Yuyan" value="<%=Yuyan%>" size="20"></td>
              </tr>
              <tr> 
                <td align="right" height="25">服务器号：</td>
                <td height="25"><input type="text" name="fuwuqi" value="<%=fuwuqi%>" size="20"></td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="25">发行日期：</td>
                <td width="85%" height="25"> <input type="text" name="Times" value="<%=Times%>" size="20"></td>
              </tr>
              <tr>
                <td align="right" height="25">人气：</td>
                <td height="25" valign="top"><input type="text" name="Times2" value="<%=hits%>" size="20"></td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="25">专辑图片：</td>
                <td width="85%" height="25" valign="top"> <input type="text" name="pic" value="<%=pic%>" size="20"> 
                  <iframe src="upload.htm" scrolling="no" topmargin="0" width="243" height="20" marginwidth="0" marginheight="0" frameborder="0" align="default"></iframe> 
                </td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="25">主唱歌手：</td>
                <td width="85%" height="25"> <input type="text" name="singer" size="20" value="<%=singer%>"></td>
              </tr>
              <tr> 
                <td width="15%" align="right" height="25">MTV<span lang="zh-cn">地址</span>：</td>
                <td width="85%" height="25"> <input type="text" name="mtvurl" size="65" value="<%=mtvurl%>"></td>
              </tr>
              <tr> 
                <td width="15%" align="right"></td>
                <td width="85%"></td>
              </tr>
              <tr> 
                <td width="15%" align="right"></td>
                <td width="85%"></td>
              </tr>
            </table>
      </div>
      </td>
    </tr>
    <tr>
      <td width="100%" height="30" bgcolor="#64CB1F" align="center">
      <input type="hidden" value="edit" name="act">
      <input type="submit" value=" 修 改 " name="cmdok2">&nbsp;
      <input type="reset" value=" 清 除 " name="cmdcance2l"></td>
    </tr>
  </table>
  </center>
</div>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>