index.asp

web 斗地主 用asp+access+ajax+css+js

<!--#include file="conn.asp"-->
<!--#include file="a_online.asp"--><%
select case request("lei")
  case "youxi"
    '显示xml文件头！
    Response.Write "<?xml version="&session("zifu2")&"1.0"&session("zifu2")
	Response.Write " encoding="&session("zifu2")&"gb2312"&session("zifu2")&"?>"&session("zifu3")
	Response.Write "<all>"&session("zifu3")
	   '显示用户信息！
	   dim uid,face,user
	    if application("uid_shu")="" then 
		  application("uid_shu")=0
		end if
	    Application.Lock 
	      application("uid_shu")=application("uid_shu")*1+1
	    Application.Unlock 
		uid="0"&application("uid_shu")
		
		face="pic/face/"&timer()*100 mod 3 &"-"&(timer()*85 mod 3)+1&".gif"
		application("face_"&uid)=face
		user="游客"&uid
		application("user_"&uid)=user
		
	   Response.Write "<yonghu>"&session("zifu3")
	   Response.Write "<uid>"&uid&"</uid>"&session("zifu3")
	   Response.Write "<face>"&face&"</face>"&session("zifu3")
       Response.Write "<user>"&user&"</user>"&session("zifu3")
	   Response.Write "</yonghu>"&session("zifu3")
	 '显示游戏信息！  
    set rs=server.createobject("adodb.recordset")
    sql="select * from youxi order by yid"
    rs.open sql,conn,1,1
	session("youxi")=""
     do while not rs.eof
	     if application("online_shu_"&rs("yid"))="" then
	      Application.Lock 
	        application("online_shu_"&rs("yid"))=0
	      Application.Unlock 
	    end if
	   session("youxi_ren_shu_"&rs("yid"))=rs("ren_shu")
	   session("youxi_"&rs("yid"))=rs("youxi")
	   session("youxi")=session("youxi")&rs("yid")&"|"
	   Response.Write "<you_xi>"&session("zifu3")
	   Response.Write "<yid>"&rs("yid")&"</yid>"&session("zifu3")
       Response.Write "<youxi>"&rs("youxi")&"</youxi>"&session("zifu3")
	   Response.Write "<y_online>"&application("online_shu_"&rs("yid"))&"</y_online>"&session("zifu3")
	   Response.Write "</you_xi>"&session("zifu3")
      rs.movenext                                     
     loop                                                                    
   rs.close
   Response.Write "</all>"
 case "fenqu"
    Response.Write "<?xml version="&session("zifu2")&"1.0"&session("zifu2")
	Response.Write " encoding="&session("zifu2")&"gb2312"&session("zifu2")&"?>"&session("zifu3")
	Response.Write "<all>"&session("zifu3")
 
    set rs=server.createobject("adodb.recordset")
    sql="select * from fenqu where y_id="&request("id")&" order by fid"
    rs.open sql,conn,1,1
	session("youxi"&request("id"))=""
     do while not rs.eof
	  session("youxi"&request("id"))=session("youxi"&request("id"))&rs("fid")&"|"
	  session("youxi_fshu"&request("id")&"_"&rs("fid"))=rs("fang_shu")
	  if application("online_shu_"&rs("y_id")&"_"&rs("fid"))="" then
	      Application.Lock 
	        application("online_shu_"&rs("y_id")&"_"&rs("fid"))=0
	      Application.Unlock 
	    end if
	   Response.Write "<fen_qu>"&session("zifu3")
	   Response.Write "<fid>"&rs("fid")&"</fid>"&session("zifu3")
       Response.Write "<fenqu>"&rs("fenqu")&"</fenqu>"&session("zifu3")
	   Response.Write "<fang_shu>"&rs("fang_shu")&"</fang_shu>"&session("zifu3")
	   Response.Write "<f_online>"&application("online_shu_"&rs("y_id")&"_"&rs("fid"))&"</f_online>"&session("zifu3")
	   Response.Write "</fen_qu>"&session("zifu3")
      rs.movenext                                     
     loop                                                                    
   rs.close
   Response.Write "</all>"
 case "online"
   for i=0 to ubound(split(session("youxi"),"|"))-1
     Response.Write split(session("youxi"),"|")(i)&"|"&online_shu(split(session("youxi"),"|")(i),"")&"<*>"
   next
   for a=0 to ubound(split(request("id"),"|"))-1
    if ubound(split(split(request("id"),"|")(a),"_"))=0 then
      for i=0 to ubound(split(session("youxi"&split(request("id"),"|")(a)),"|"))-1
	    dd=split(request("id"),"|")(a)&"_"&split(session("youxi"&split(request("id"),"|")(a)),"|")(i)
        Response.Write dd&"|"&online_shu(dd,"")&"<*>"
	  next
	else
	   for i=1 to session("youxi_fshu"&split(request("id"),"|")(a))
	    Response.Write split(request("id"),"|")(a)&"_"&i&"|"&online_shu(split(request("id"),"|")(a)&"_"&i,"")&"<*>"
	   next
	end if 
  next
 case else
   
end select
conn.close
set conn=nothing
%>