music_ordersong.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
dim const_txl_HomeUrl,errstr,i,page
dim con_maxorderreceive		'接收的最多人数
dim con_keepday				'保存的最大天数
dim con_maxcontentlength	'祝福的最多字符
con_maxorderreceive=const_ordersong_renum
con_keepday=const_ordersong_saveday
con_maxcontentlength=const_ordersong_contentnum
errstr=""
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-点歌台"
call online
call main
CloseDatabase
web_end

sub main
	If session("username")="" Then
		errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
		errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
		Call printerror("点歌出错！",errstr,779)
		Exit Sub
	End If
	If Request.QueryString("action")="saveorder" then
		Call saveorder
	Else
		Call showordersongform
	End IF
End Sub
%>
<%sub showordersongform
	
	

%>

<table width="779" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td><b>网站导航：<a href="<%=const_homepageurl%>">首页</a> 
              &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> 
              &gt;&gt; <a href="?">添加文件</a></b></td>
    <td align="right">娱乐导航:
      <%Call shownav()%>
    </td>
  </tr>
</table>

	  <script>
	  submitflag=false
	  function check_Csk3000_form(Csk3000_frm)
	  {
	  //Csk3000编写
	  if (Csk3000_frm.intro.value==""){
	  	alert("请输入名称！");
		Csk3000_frm.intro.focus();
		return false
	  }
	  if (Csk3000_frm.orderto.value==""){
	  	alert("请输入说明！");
		Csk3000_frm.orderto.focus();
		return false
	  }
	  if (Csk3000_frm.content.value==""){
	  	alert("请输入内容说明！");
		Csk3000_frm.content.focus();
		return false
	  }
	  if (Csk3000_frm.file.value==""){
	  	alert("请选择图片！");
		Csk3000_frm.file.focus();
		return false
	  }
	  if(!submitflag){
		Csk3000_frm.submit();
		Csk3000_frm.Submit.disabled=true
		submitflag=true
		 return true
		}
		else
		{
		alert("请不要重复提交");
		return false;
		}
	  }
	  </script>
	  
	  <table width="779" border="0" align="center" cellpadding="0" cellspacing="8">
  <tr>
    <td>　
    
     <form action="music_upload.asp" method="post" enctype="multipart/form-data" name="form1" onsubmit="return check_Csk3000_form(this)">
        <table width="777"  border="1" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse;font-family:Verdana, Arial, Helvetica, sans-serif;">
          <tr> 
            <td colspan="3" bgcolor="#F1F1F1" class="title">上载照片</td>
          </tr>
          <tr> 
            <td height="25" bgcolor="#F1F1F1" style="font-weight:bold;text-align:center;">注意事项：<img src="images/null.gif"  id="preimg" name="preimg" onload="javascript:if(this.width>=200)this.width=200"><a name="pub"></a></td>
            <td bgcolor="#FFFFFF" class="tar">提　供 :</td>
            <td bgcolor="#FFFFFF" class="content"><%=Session("username")%> 
            </td>
          </tr>
          <tr>
            <td rowspan="8" bgcolor="#Ffffff" style="padding-top:15px;line-height:1.5;padding-right:15px;"><ol>
              <li>                请不要在此发布违法的照片。</li>
              <li>仅接受<font color="#FF0000"><%=const_PhotoFormat%></font>格式的文件，大小不超过<font color="#FF0000"><%=const_PhotoMaxSize%>K</font>。</li>
            </ol></td>
			<td bgcolor="#F1F1F1" class="tar" >大　小 :</td>
            <td bgcolor="#F1F1F1" class="content"><font color="#FF0000">&lt;<%=const_PhotoMaxSize%>K</font></td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" class="tar" >格　式 :</td>
            <td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><font color="#FF0000"><%=const_PhotoFormat%></font></td>
          </tr>
          <tr> 
            <td bgcolor="#F1F1F1" class="tar">说　明 : </td>
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;"><input name="intro" type="text" id="intro" size="30" maxlength="50"></td>
          </tr>
  

  
          <tr> 
            <td bgcolor="#F1F1F1" class="tar"><b>文件简介：</b></td>
            
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;">
		<textarea name="content" cols="30" rows="5" id="content"></textarea><br>
      　请不要超过<font color=red><%=con_maxcontentlength%></font>字！</td>
          </tr>
  

  
                 <tr> 
            <td bgcolor="#F1F1F1" class="tar">类　别 : </td>
            <td bgcolor="#F1F1F1" style="padding-left:7px; padding-right:3px;line-height:1.5;">   
             <select name="orderto" id="orderto">
   <%dim sql,rs,nid,cid
  sql="select * from videotype order by typeid"
  set rs=conn.execute(sql)
  do while not rs.eof
nid=int(rs(0))
    response.write vbcrlf&"<option value='"&rs("typeid")&"'>"&rs("type")&"</option>"
	rs.movenext
  loop
  rs.close:set rs=nothing

%>
</select></td>
          </tr>

  
          <tr> 
            <td bgcolor="#FFFFFF" class="tar">浏　览 : </td>
            <td bgcolor="#FFFFFF" style="padding-left:7px; padding-right:3px;line-height:1.5;"><input type="file" name="filexx"></td>
          </tr>
          <tr align="center"> 
		  <td height="30" colspan=2>如果你的图片文件较大或网络速度太慢，上载过程可能要一段时间，请耐心等待！</td>
          </tr>
          <tr> 
            <td height="40" colspan="2" bgcolor="#F1F1F1" align=center><input type="submit" name="Submit" value="开始上传"></td>
          </tr>
        </table>
      </form>
    
    </td>
  </tr>
</table>
     

<%End Sub%>
<%
function showalluser
	dim rs
	set rs=conn.execute ("select sname from ec ")
	while not rs.eof
		Response.Write "<option value='"&rs(0)&"'>"&rs(0)&"</option>"
		rs.movenext
	wend
	rs.close
	set rs=nothing
end function
sub saveorder
	dim str_succ
	if outsitesubmit then
		printerror "发布信息出错","<li>请不要外部提交数据！</li>",779
		Exit sub
	End if
	dim rs,sql,id
	sql="select top 1 * from ordersong order by id desc"
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open sql,conn,1,3
	If rs.eof then
		Id=1
	Else
		Id=rs("id")+1
	End If
	dim musicname,musicurl,content
	musicname=Trim(Request.Form("musicname"))
	musicurl=Trim(Request.Form("musicurl"))
	content=Trim(Request.Form("content"))
	If musicname="" or musicurl="" or musicurl="http://" or content="" Then
		printerror "发布信息出错","<li>该填写的信息还是要填写！</li>",779
		Exit sub
	End If
	If not CheckSongFrm(lcase(right(musicurl,len(musicurl)-Instrrev(musicurl,".")))) Then
		printerror "发布信息出错","<li>当前Wap影音设置不接受该类型格式的音乐文件！</li>",779
		Exit sub
	End If
	content=Replace(content,"<","&lt;")
	content=Replace(content,">","&gt;")
	content=Replace(content,vbcrlf,"<br>")
	Rs.addnew()
		rs("id")=id
		rs("username")=Session("username")
		rs("orderto")=Trim(Request.Form("orderto"))
		rs("username")=Session("username")
		rs("musicname")=musicname
		rs("musicurl")=musicurl
		rs("content")=content
		rs("adddate")=now()
	Rs.Update
	Set rs=nothing
	str_succ="<li>恭喜你，成功！"&Vbcrlf
	str_succ=str_succ&"<li><a href='music_showordersong.asp' title='浏览你刚才发布的信息'>点这里浏览你刚才发布的信息</a>，系统5秒转到新点歌信息！</li>"&Vbcrlf
	Call printsuc("信息成功",str_succ,779)
	Response.write "<meta http-equiv=""refresh"" content='5;URL=music_showordersong.asp'>" 
end sub
Function CheckSongFrm(songformat)
	Dim format,i
	CheckSongFrm=False
	If Instr(lcase(const_ordersong_songfmt),"|")>0 Then
		format=Split(const_ordersong_songfmt,"|")
	Else
		format=lcase(const_ordersong_songfmt)
	End If
	If Isarray(format)	Then
		for i=0 to ubound(format)
			if songformat=format(i) Then
				CheckSongFrm=True	
				Exit For
			End If
		next
	Else
		If format=songformat Then
			CheckSongFrm=True	
			Exit Function
		End If
	End If
end Function
%>