form.asp

本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序

<SCRIPT LANGUAGE="JavaScript">
<!--
 function picpic() 
 {win = window.open("","picpic","width=400,height=150")} 
// -->
</SCRIPT>
<%if session("userlogin")="" then
response.write"<SCRIPT language=JavaScript>alert(' 请登陆后操作，谢谢你的支持 ！');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
%>
<%sub hyzx()'==========会员中心显示表单%>
<table width="535" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#C0C0C0" style="border-collapse: collapse">
          <tr> 
            <td>欢迎你来到会员中心，感谢你使用本系统！</td>
          </tr>
</table>
<%end sub%>
<%sub web()'==========网友上传酷站提交表单%>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<table width="535" align="center" border="0" align="center" cellpadding="0" cellspacing="3" class="table-zuoshang">
        <form name="form2" method="post" action="recheck.asp?hx66=web" target="picpic" onsubmit="return picpic()">
          <tr> 
            <td colspan="2" align="center" class="table-xiayou">
            <font color="red">新增酷站</font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="68" class="table-xiayou">站点名称</td>
            <td width="445" class="table-xiayou"> 
              <input type="text" name="name" class="wenbenkuang" size="40">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="68" class="table-xiayou">所属分类</td>
            <td width="445" class="table-xiayou"> 
              <select name="cscatid" class="wenbenkuang">
<%
sql="select * from cscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%><option value="<%=rs("cscat_id")%>"><%=rs("cscat_name")%></option>
<%rs.movenext
loop
if rs.eof and rs.bof then%><option value="0">当前没有酷站分类</option>
<%end if%>
              </select>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="68" class="table-xiayou">站点地址</td>
            <td width="445" class="table-xiayou"> 
              <input type="text" name="url" class="wenbenkuang" size="50"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="68" class="table-xiayou">图片地址</td>
            <td width="445" class="table-xiayou"> 
              <input type="text" name="pic" class="wenbenkuang" size="50">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="68" class="table-xiayou">站点介绍</td>
            <td width="445" class="table-xiayou"> 
              <textarea name="desc" class="wenbenkuang" cols="50" rows="8"></textarea>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">提交人</td>
            <td width="83%" class="table-xiayou">
             <input type="hidden" name="tjuser" value="<%=session("hx66User")%>"><%=session("hx66User")%>
            </td>
          </tr>          
          <tr bgcolor="#FFFFFF" align="center"> 
            <td colspan="2" height="30" bgcolor="#F5F5F5" width="512" class="table-xiayou"> 
              &nbsp;&nbsp; <input type="submit" name="Submit" value="确定新增" class="button">       
              <input type="reset" name="Reset" value="清空重填" class="button"></td>          
          </tr>
	   <input type="hidden" name="hx66" value="cs">
        </form>
</table>
<%end sub%>
<%sub dj()'==========网友上传歌曲提交表单%>
      <table width="535" align="center" border="0" align="center" cellpadding="0" cellspacing="3" class="table-zuoshang">
        <form name="form2" method="post" action="recheck.asp?hx66=dj" target="picpic" onsubmit="return picpic()">
          <tr> 
            <td colspan="2" align="center" class="table-xiayou">
            <font color="red">新增歌曲</font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">歌曲名称</td>
            <td width="83%" class="table-xiayou"> 
              <input type="text" name="name" size="40" class="wenbenkuang">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">歌手名字</td>
            <td width="83%" class="table-xiayou"> 
              <input type="text" name="user" size="20" value="飞天音乐" class="wenbenkuang">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">歌曲选项</td>
            <td width="83%" class="table-xiayou"> 
            <select name="djcatid">
                <%
sql="select * from djcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("djcat_name")&"'>"
sql="select * from djcat where sid="&rs1("djcat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("djcat_id")%>">├ <%=rs2("djcat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
              <select name="pic">
                <option value="rm">播放类型</option>
		<option value="mtv">MTV影视</option>
                <option value="asf">RM音乐</option>
                <option value="asfmtv">ASF影视</option>
                <option value="rm">RAM音乐</option>
                <option value="rmmtv">RAM影视</option>
                <option value="flash">FLASH动画</option>
              </select>              
              <select name="desc">
<option value="☆☆★★★">推荐等级</option>
<option value="☆☆☆☆★">☆☆☆☆★</option>
<option value="☆☆☆★★">☆☆☆★★</option>
<option value="☆☆★★★">☆☆★★★</option>
<option value="☆★★★★">☆★★★★</option>
<option value="★★★★★">★★★★★</option>
              </select>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">视听地址</td>
            <td width="83%" class="table-xiayou"> 
              <input type="text" name="url" size="50" class="wenbenkuang">
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">添加歌词</td>
            <td width="83%" class="table-xiayou"> 
              <textarea rows="8" name="Word" class="wenbenkuang" cols="50">暂无歌词</textarea>
             </td>
          <tr bgcolor="#FFFFFF"> 
            <td width="17%" class="table-xiayou">提交人</td>
            <td width="83%" class="table-xiayou">
             <input type="hidden" name="tjuser" value="<%=session("hx66User")%>"><%=session("hx66User")%>
            </td>
          </tr>          
          <tr bgcolor="#E8E8E8" align="center"> 
            <td colspan="2" height="30" bgcolor="#F5F5F5" class="table-xiayou">              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重填" class="button">              </td>
          </tr>
		  <input type="hidden" name="action" value="dj">
        </form>
</table>
      <table cellspacing="1" border="0" width="530" cellpadding="4" align=center >
        <tr >
          <td>类型说明</td>
        </tr>
        <tr >
          <td>1."<FONT COLOR="#FF0000">.mp3.mid.wma.asf</FONT>"纯音乐文件请选择<FONT COLOR="#0000FF">RM音乐</FONT>类型<br>
            2."<FONT COLOR="#FF0000">.wmv.asf.mpg.avi</FONT>"影视文件选择<FONT COLOR="#0000FF">ASF影视</FONT>类型.<br>
            3."<FONT COLOR="#FF0000">.ram.rm</FONT>"纯音乐文件请选择<FONT COLOR="#0000FF">RAM音乐</FONT>类型<br>
            4."<FONT COLOR="#FF0000">.ram.rm</FONT>"影视文件请选择<FONT COLOR="#0000FF">RAM影视</FONT>类型<br>
          5."<FONT COLOR="#FF0000">.swf</FONT>"动画文件请选择<FONT COLOR="#0000FF">FLASH动画</FONT>类型 <br>
          6.<span class="style2">MTV影视可以播放大部分影视文件</span></td>
        </tr>
</table>
<%end sub%>
<%sub pic()'===========网友上传图片提交表单%>
<table width="535" align="center" border="0" align="center" cellpadding="0" cellspacing="3" class="table-zuoshang">
  <form name="form2" method="post" action="recheck.asp?hx66=pic" target="picpic" onsubmit="return picpic()">
    <tr> 
       <td colspan="2" align="center" class="table-xiayou">
            <font color="red">新增图片</font></td>
     </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">图片名称</td>
      <td width="83%" class="table-xiayou"> <input type="text" name="name" class="wenbenkuang" size="30"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">所属分类</td>
      <td width="83%" class="table-xiayou"> 
              <select name="piccatid">
                <%
sql="select * from piccat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("piccat_name")&"'>"
sql="select * from piccat where sid="&rs1("piccat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("piccat_id")%>">├ <%=rs2("piccat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
     </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">图片地址</td>
      <td width="83%" class="table-xiayou"> <input type="text" name="pic" class="wenbenkuang" size="50"></td>