game.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../..//INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--#include file=../nav.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
dim const_txl_HomeUrl,errstr
errstr=""
const_txl_HomeUrl="../../"
OpenDatabase
txl_SiteHead const_txlname&"-娱乐前沿-五子棋"
call online
call main
CloseDatabase
SiteBottom
Sub main
	If Session("username")="" Then
		errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='"&const_txl_HomeUrl&"user/login.asp'>这里登录</a>!</li>"
		errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
		Call printerror("登录出错！",errstr,779)
		Exit SUb
	End If

dim na,id,ad,sh,lt,ii,ee,stats,nav
ee="parent.writecv()"
lt="<IFRAME src='about:blank' width='140' height=13 marginwidth='0' marginheight='0' hspace='0' vspace='0' frameborder='0' scrolling='NO' allowtransparency='true' id=v></iframe><br><br>"
sh=htmlencode(Session("username"))
if request("id") = "1" then
na="中国象棋Ⅰ"
ii="1218"
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/xq WIDTH=760 HEIGHT=440 HSPACE=0 VSPACE=0><param name=host value='202.96.140.39'><param name=soundurl value='http://202.96.140.39:800/game/xq/sounds/'><param name=port value='1218'><param name='username' value='"&sh&"'></APPLET></CENTER>"
  elseif request("id") = "2" then
na="中国象棋Ⅱ"
ii="1219"
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/xq WIDTH=760 HEIGHT=440 HSPACE=0 VSPACE=0><param name=host value='202.96.140.39'><param name=soundurl value='http://202.96.140.39:800/game/xq/sounds/'><param name=port value='1219'><param name='username' value='"&sh&"'></APPLET></CENTER>"
  elseif request("id") = "3" then
na="中国象棋Ⅲ"
ii="1220" 
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/xq WIDTH=760 HEIGHT=440 HSPACE=0 VSPACE=0><param name=host value='202.96.140.39'><param name=soundurl value='http://202.96.140.39:800/game/xq/sounds/'><param name=port value='1220'><param name='username' value='"&sh&"'></APPLET></CENTER>"
 elseif request("id") = "4" then
na="五子棋Ⅰ"
ii="1201"
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/five height=460 name=five width=640><param name='UserName' value='"&sh&"'><param name='port' value='1201'></applet></CENTER>"
elseif request("id") = "5" then
na="五子棋Ⅱ"
ii="1202"
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/five height=460 name=five width=640><param name='UserName' value='"&sh&"'><param name='port' value='1202'></applet></CENTER>"
elseif request("id") = "6" then
na="五子棋Ⅲ"
ii="1203"
ad=lt&"<CENTER><APPLET code=b.class archive=1.jar codebase=http://202.96.140.39:800/game/five height=460 name=five width=640><param name='UserName' value='"&sh&"'><param name='port' value='1203'></applet></CENTER>"
elseif request("id") = "7" then
na="反 棋"
ii="1208"
ad=lt&"<CENTER><applet width=500 height=420 code=Reversi.class codebase='http://202.96.140.70/reversi/'><param name='UserName' value='"&sh&"'></applet></CENTER>"
elseif request("id") = "8" then
na="五子棋单机"
ii="1208"
ad=lt&"<CENTER><APPLET code=wzq.class height=352 width=325 BORDER='2'><PARAM NAME='code' VALUE='wzq.class'><PARAM NAME='height' VALUE='352'><PARAM NAME='width' VALUE='325'><PARAM NAME='BORDER' VALUE='2'><PARAM NAME='codeBase' VALUE='http://www.zhanjiang.gd.cn/java/five/'></APPLET></CENTER>"
else
na="棋管大厅"
ad="<CENTER>欢迎<font color=green>"&sh&"</font>来到<font color=red>"&const_txlname&"</font>棋管大厅！请选择棋室。</CENTER>"
end if

stats=const_txlname&"&nbsp;社区棋管&nbsp; "&na 
%>
<table width="779" border="0" align="center" cellpadding="0" cellspacing="10">
  <tr>
    <td><b>当前位置：<a href="<%=const_homepageurl%>">首页</a> &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> &gt;&gt;娱乐前沿&gt;&gt; </b></td>
    <td align="right"><font color="#FF0000">娱乐导航: </font>
        <%Call shownav()%>
    </td>
  </tr>
</table>
<br>
<table width="779" border=0 cellspacing=1 cellpadding=7 align=center>
     <tr>
    <td height=25 colspan=2 align=center valign=middle><b><%=na%></b></td>
	</tr>
	<tr>
    <td  height=100 valign=middle><%=ad%></td>
	</tr>
	<tr><td valign=middle colspan=2 align=center>中国象棋:<a href='?id=1'><font color=red >棋室Ⅰ</font></a>(<script src=http://202.96.140.39:800/game/counter/1218.js></script>人) <a href=?id=2><font color=red >棋室Ⅱ</font></font></a>(<script src=http://202.96.140.39:800/game/counter/1219.js></script>人) <a href=?id=3><font color=red >棋室Ⅲ</font></a>(<script src=http://202.96.140.39:800/game/counter/1220.js></script>人) | 五子棋:<a href=?id=4><font color=red >棋室Ⅰ</font></a>(<script src=http://202.96.140.39:800/game/counter/1201.js></script>人) <a href=?id=5><font color=red >棋室Ⅱ</font></a>(<script src=http://202.96.140.39:800/game/counter/1202.js></script>人) <a href=?id=6><font color=red >棋室Ⅲ</font></a>(<script src=http://202.96.140.39:800/game/counter/1203.js></script>人) <a href=?id=8><font color=red >单机</font></a> | <a href=?id=7><font color=red >反棋</font></a></td>
	</tr></table>
<br>
<script Language="JavaScript">
function writev()
{
if(this.v.document==null)return;this.v.document.open();
this.v.document.writeln("<body style='BACKGROUND-COLOR:transparent'><object id='blueskyvoice' classid='clsid:BA0F088C-72C1-475a-92F8-42391DEF6961' width='90' height='12' codebase=http://202.96.140.88/vchat/blueskyvoice.dll#Version=1,0,0,8><param name='_cx' value='5081'><param name='_cy' value='5081'><param name='port' value='<%=ii%>'><param name='host' value='202.96.140.39'><param name='name' value='<%=sh%>'></object><a onclick=parent.writecv() style='color:#ff0000;font-size: 12px'>关闭语聊</a>");
}
function writecv()
{
if(this.v.document==null)return;this.v.document.open();
this.v.document.writeln("<body style='BACKGROUND-COLOR:transparent'><a onclick=parent.writev() style='color:#ff0000;font-size: 12px'>打开语聊</a>");
}<%if request("id") <> "" then
response.write ee
end if%>
</script>
<%
End Sub
%>