mtvadd.asp

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

<%PageName="Songadd"%>
<!--#include file="function.asp"-->
<%CheckAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<%
Classid=cstr(trim(request.QueryString("classid")))
SClassid=cstr(trim(request.QueryString("sclassid")))
NClassid=cstr(trim(request.QueryString("Nclassid")))
%>
<script>
function submitonce(theform){
	//if IE 4+ or NS 6+
	if (document.all||document.getElementById){
	//screen thru every element in the form, and hunt down "submit" and "reset"
	for (i=0;i<theform.length;i++){
		var tempobj=theform.elements[i]
		if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
		//disable em
		tempobj.disabled=true
		}
	}
}
</script>
<!--#include file="style.asp"-->
     <div align="center">
      <center>
      <table border="1" width="95%" cellspacing="1" class="TableLine" style="border-collapse: collapse" bordercolor="#64CB1F">
        <tr>
          <td width="100%" height="25" bgcolor="#64CB1F" align=center><font color="white"><b>
          添 加 </b></font><font color="#FFFFFF"><b>M T V</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="mtvsave.asp" id=form2 name=form2 onsubmit="submitonce(this);">
                    <tr>
                      <td width="15%" align="right">　</td>
                      <td width="85%">&nbsp;一级栏目：
              <select name="classid" size="1">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from class"
rs.open sql,conn,1,1
Do while not rs.eof
%>
                <option<%if classid=cstr(rs("classid")) and classid<>"" then%> selected<%end if%> value="<%=Cstr(rs("classid"))%>"><%=rs("class")%></option>
<%
rs.MoveNext
Loop
rs.close
%>            </select>
              &nbsp;二级栏目：
<%if classid<>"" then%>
              <select name="Sclassid" size="1">
                <option value="" <%if request("Sclassid")="" then%> selected<%end if%>>选择栏目</option>
<%
	sql="select * from Sclass where classid="&classid
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if Sclassid=cstr(rs("Sclassid")) and 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">
                <option value="" selected>选择栏目</option>
<%end if%>
              </select>
              &nbsp;三级栏目：
<%if sclassid<>"" then%>
              <select name="Nclassid" size="1">
                <option value="" <%if Nclassid="" then%> selected<%end if%>>选择栏目</option>
<%
	sql="select * from Nclass where Sclassid="&Sclassid
	rs.open sql,conn,1,1
	Do while not rs.eof
%>
                <option<%if cstr(request("Nclassid"))=cstr(rs("Nclassid")) and Nclassid<>"" then%> selected<%end if%> value="<%=CStr(rs("Nclassid"))%>" name=Nclassid><%=rs("Nclass")%></option>
<%
	rs.MoveNext
	Loop
	rs.close
%>
<%else%>
              <select name="Nclassid" size="1">
                <option value="" selected>选择栏目</option>
<%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%" height="25" align="right">MTV名称：</td>
                <td width="97%"><input type="text" name="name" size="20"></td>
              </tr>
              <tr> 
                <td width="15%" height="25" align="right">所属语言：</td>
                <td width="97%"><select name="Yuyan" size="1">
                    <option value="国语" selected>国语</option>
                    <option value="粤语">粤语</option>
                    <option value="闽南语">闽南语</option>
                    <option value="英文">英文</option>
                    <option value="日韩">日韩</option>
                    <option value="韩文">韩文</option>
                    <option value="日语">日语</option>
                    <option value="国/粤语">国/粤语</option>
                    <option value="中/闽南语">中/闽南语</option>
                    <option value="中/英文">中/英文</option>
                    <option value="中/日文">中/日文</option>
                    <option value="中/韩文">中/韩文</option>
                  </select></td>
              </tr>
              <tr>
                <td height="25" align="right">服务器号：</td>
                <td><select name="fuwuqi" size="1">
                    <option value="wwwy98cn" selected>1号服务器wwwy98cn</option>
                  </select>
                  非正式版无多服务器选择</td>
              </tr>
              <tr> 
                <td width="15%" height="25" align="right">发行日期：</td>
                <td width="97%"><input name="Times" type="text" size="20">
                  非正式版为手工添加时间</td>
              </tr>
              <tr> 
                <td width="15%" height="25" align="right">MTV图片：</td>
                <td width="97%"><input type="text" name="pic" size="20" value="nophoto"> 
                  <iframe src="upload.htm" scrolling="no" topmargin="0" width="253" height="20" marginwidth="0" marginheight="0" frameborder="0" align="center"></iframe></td>
              </tr>
              <%
	sql="select * from Nclass where Nclassid="&Nclassid
		rs.open sql,conn,1,1
	Do while not rs.eof
%>
              <tr> 
                <td width="15%" height="25" align="right">主唱歌手：</td>
                <td width="97%"> <input type="text" name="singer" size="20" value="<%=rs("Nclass")%>"></td>
              </tr>
              <%
	rs.MoveNext
	Loop
	rs.close
%>
              <tr> 
                <td width="15%" height="25" align="right">MTV<span lang="zh-cn">地址</span>：</td>
                <td width="97%"> <input type="text" name="mtvurl" size="65">
                  非正式版请添加绝对地址</td>
              </tr>
              <tr> 
                <td width="15%" align="right"></td>
                <td width="97%"></td>
              </tr>
              <tr> 
                <td width="15%" align="right"></td>
                <td width="97%"></td>
              </tr>
            </table>
                </div>
		  </td>
        </tr>
        <tr>
          <td width="100%" height="30" bgcolor="#64CB1F" align=center>
              <input type="hidden" value="add" name="act"> 
<%if Classid="" then%>
              <input type="button" value=" 确 定 " name="cmdok" onclick="window.alert('请先选择栏目！')">&nbsp; 
<%elseif NClassid="" then%>
              <input type="button" value=" 确 定 " name="cmdok" onclick="window.alert('请先选择子栏目！')">&nbsp; 
<%else%>
              <input type="submit" value=" 确 定 " name="cmdok">&nbsp; 
<%end if%>
              <input type="reset" value=" 取 消 " name="cmdcancel"></td>
        </tr>
      </table>
     </center>
    </div>
<%
set rs=nothing
conn.close
set conn=nothing
%></body></html>