WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

mf.asp：源码内容

							
<!--#include file="conn.asp"-->
<form name="form1" method="post" action="mf.asp?mf=mf&sname=<%=request.QueryString("sname")%>&cat=<%=request.QueryString("cat")%>">
  <%cat=request.QueryString("cat")%>
  <%=request.QueryString("cat")%>URL
  <input name="mf" type="text"
  <% if strcomp(cat,"点歌")=0 then %>
  value="http://www.ip363.com/book/bq/仙剑奇侠传%20-%20%20一直很安静.mp3">
  <%end if%>
   <% if strcomp(cat,"图片")=0 then %>
  value="g.bmp">
  <%end if%>
 送给
  <select name="rname">
  <option>大家</option>
  <%
  set rsout=Server.CreateObject("ADODB.RecordSet")
sqlout="select  * from  online  where id ORDER BY id DESC"
rsout.open sqlout,conn,1,1
for i=1 to 50 step 1
%>
     <option><%response.Write(rsout("username"))%></option>
	
	<%
 rsout.movenext
    if rsout.EOF Then Exit For
next
%>
  
  </select>
  <%=request.QueryString("cat")%>名
  <input name="mc" type="text" size="10">  
 <input type="submit" name="Submit" value="发送">
</form>
<%
          ac=request.QueryString("mf")
		  cat=request.QueryString("cat")
           if strcomp(ac,"mf")=0 then
          set rs=server.createobject("adodb.recordset")
          sql="select * from ip363net where id is null"
          rs.open sql,conn,1,3  
          rs.addnew
          rs("username")=request.QueryString("sname")
		  rs("rname")=request.form("rname")
          rs("msg")=request.form("msg")
		  rs("mc")=request.form("mc")
		  if strcomp(cat,"图片")=0 then
          rs("gif")=request.Form("mf")
		  end if
		  if strcomp(cat,"点歌")=0 then
          rs("url")=request.Form("mf")
		  end if
          rs("posttime")=time()
          rs.update
          set rs=nothing
          end if
%>

						