📄 main.asp
字号:
<!--#include file="in.inc" -->
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base\dumm.mdb")
Cnn.Open StrCnn
rs1.maxrecords = 1
%>
<html>
<head>
<title>中央广场</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="format.css" type="text/css">
<script language="JavaScript">
<!--
function openChromeslessWindow(openUrl, winName, wWidth, wHeight, wPosx, wPosy, wTIT,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor){
openchromeless(openUrl,winName, wWidth, wHeight, wPosx, wPosy, wTIT, wTIT ,
windowBORDERCOLOR, windowBORDERCOLORsel, windowTITBGCOLOR, windowTITBGCOLORsel,
bCenter, sFontFamily, sFontSize, sFontColor);
}
//-->
</script>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
//-->
</script>
<script id="chromeless" src="pz_chromeless_2.1.js"></script>
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../images/beijing.gif">
<div id="Layer1" style="position:absolute; left:267px; top:176px; width:60px; height:35px; z-index:1; visibility: hidden">
<script>
var tc_user="cenozoic1";
var tc_class="15";
var tc_union="";
var tc_type="1";
</script>
<script src="http://stat.t2t2.com/stat.js"></script>
</div>
<img src="images/tou.gif" width="550" height="100"> <br>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr align="center">
<td width="12%" height="12">| 中央广场 |</td>
<td width="12%" height="12">| <a href="#" onClick="openChromeslessWindow('music/index.htm','diange',550,300,null,null,'点歌', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">点歌祝福</a>
|</td>
<td width="12%" height="12">| <a href="#" onClick="openChromeslessWindow('qq/index.htm','qq',350,200,null,null,'发送消息', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">发送消息</a>
|</td>
<td width="12%" height="12">| <a href="frends/main.asp">社区交友</a> |</td>
<td width="12%" height="12">| <a href="#" onClick="openChromeslessWindow('poan/index.asp','poan',500,500,null,null,'请你破案', '#CCCCCC', '#CCCCCC', '#666666', '#666666' ,true,'宋体', '2','#000000')">请你破案</a>
|</td>
<td width="12%" height="12">| <a href="#" onClick="openChromeslessWindow('game/index.htm','game',400,500,null,null,'在线游戏', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">在线游戏</a>
|</td>
<td width="14%" height="12">| 知识问答 |</td>
<td width="14%" height="12">| <a href="#" onClick="openChromeslessWindow('shop/index.asp','sh',350,260,null,null,'社区商店', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">社区商店</a>
|</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><b>当前位置：梦想世界->中央广场 </b><font color="#FF0000">离开社区，请点击<a href="exit.asp">退出社区</a>！！！</font>
<a href="#" onClick="openChromeslessWindow('guize.htm','guize',350,500,null,null,'社区规则', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">社区规则</a>
<% rs1.open "select * from midi where 接收人 = '" & session ("name1") & "' and 查看 = 0 order by 时间 desc",cnn
if not rs1.eof then
%>
<bgsound src="music\ri.mid" loop="-1"><a href="javascript:location.reload()" onClick="openChromeslessWindow('music/lision.asp','zhufu',350,200,null,null,'祝福', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')"><marquee width="200">有人给你点歌了！</marquee></a>
<%
end if
rs1.close %>
<% rs1.open "select * from qq where 接收人 = '" & session ("name1") & "' and 查看 = 0 order by 时间 desc",cnn
if not rs1.eof then
%>
<bgsound src="music\ri.mid" loop="-1"><a href="javascript:location.reload()"><marquee width="200" onClick="openChromeslessWindow('qq/look.asp','look',350,200,null,null,'查看消息', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'Arial, Helvetica, sans-serif', '2','#000000')">你有新消息！</marquee></a>
<%
end if
rs1.close %>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="31%" valign="top">
<table width="100%" border="1" cellspacing="0" cellpadding="5" bordercolorlight="#FFFFFF" bordercolordark="#990000">
<tr>
<td bgcolor="#00CCFF" align="center"><b>个人当前资料</b></td>
</tr>
<tr> <% rs.open "select * from 资料 where 昵称 = '" & session ("name1") & "'",cnn %>
<td>昵称：<%=rs ("昵称")%> <img src="images/face/<%=rs ("头像") %>.gif" width="32" height="32"><br>
本次登录时间：<%=rs ("登录时间") %><br>
登录次数：<%=rs ("登录次数") %><br>
注册时间：<%=rs ("注册时间")%><br>
金钱：<%=rs ("金钱") %><br>
IP地址：<%=request.servervariables("REMOTE_ADDR") %><br>
经验值：<%=rs ("经验值") %><br>
当前级别：<%=rs ("级别") %><br>
qq号：
<% if rs("qq") = "" then
response.write ("未填写")
else
response.write (rs("qq"))
end if
rs.close
%>
<br>
<a href="#" onClick="openChromeslessWindow('daoru.htm','ming',350,200,null,null,'经验值导入', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '1','#000000')">点击这里，可实现技术论坛经验值导入</a></td>
</tr>
</table>
<br>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td align="center" bgcolor="#00CCFF"><b>“梦想世界”虚拟社区状态</b></td>
</tr>
<tr>
<td>
<p>开设时间：2001年8月<br>
已注册用户：
<% rs.open "select count(*) AS Total from 资料",cnn
response.write (rs("total")+30) %>
<br>
<% rs.close %>
当前在线用户：<%=Application("Online") %><br>
asp新生代站长：林飞<br>
站长助理：馨靖<br>
社区管理员：林飞、华英雄<br>
qq号码：40109945、25029067</p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="2%"> </td>
<td colspan="2" valign="top">
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr align="center" bgcolor="#00CCFF">
<td colspan="4"><b>各栏目介绍</b></td>
</tr>
<tr valign="top">
<td width="16%" height="36" align="center"><img src="images/64.gif" width="60" height="80"></td>
<td width="33%" height="36">集中介绍“梦想世界”综合情况及个人信息；</td>
<td height="36" width="15%" align="center"><img src="images/0003.gif" width="60" height="80"></td>
<td height="36" width="36%">充分发挥你侦探才能的地方，不定期推出一个案件，申请破案须交纳200C的手续费，成功破案将奖励10000C；</td>
</tr>
<tr valign="top">
<td width="16%" height="49" align="center"><img src="images/0098.jpg" width="62" height="82"></td>
<td width="33%" height="49">可以通过这里为你的好友点播歌曲，每首歌收取30C；</td>
<td width="15%" height="49" align="center"><img src="images/game.gif" width="60" height="80"></td>
<td width="36%" height="49">有多个游戏，分为两大类，一类是赌博性质的，另一类仅仅只是娱乐；</td>
</tr>
<tr valign="top">
<td width="16%" align="center"><img src="images/work001.jpg" width="60" height="86"></td>
<td width="33%">可以向其他网友发送消息，发送一条信息收取10C，接收信息不要钱；</td>
<td width="15%" align="center"><img src="images/gods040.gif" width="60" height="80"></td>
<td width="36%">题库丰富，并可以为你带来财富，金钱视你答对题的多少而定，并且欢迎你的投稿，凡被采纳，奖励500C；</td>
</tr>
<tr valign="top">
<td width="16%" align="center"><img src="images/gods114.jpg" width="62" height="90"></td>
<td width="33%">可以指定方式交友及刊登文章交友，前者费用为20C/次，后者为30C/次；另外，这里还设有聊天室，但需达到一定级别才能进入聊天；</td>
<td width="15%" align="center"><img src="images/tech095.jpg" width="60" height="83"></td>
<td width="36%">在这里你可以用你的经验值换取金钱，实行等价交换。</td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center"><br>
<img src="images/flower.gif" width="448" height="23"> </div>
</td>
</tr>
<tr>
<td width="31%"> </td>
<td width="2%"> </td>
<td width="42%"> </td>
<td width="25%"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#FFFFFF" bordercolordark="#990000">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td align="center" bgcolor="#00CCFF"><b>在线名单：</b></td>
</tr>
<tr>
<% rs.open "select * from 资料 where 当前状态 = 1",cnn %>
<td>
<% while not rs.eof %>
<a href = "#" onClick="openChromeslessWindow('vew.asp?Num=<%Response.Write (rs("id")) %>','ziliao',350,250,null,null,'资料', '#000000', '#000000', '#CCCCCC', '#CCCCCC' ,true,'宋体', '2','#000000')">
<%response.write (rs("昵称")) %>
</a>
<%response.write ("|")
rs.movenext
wend
rs.close %>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center"><b>版权信息</b></td>
</tr>
<tr>
<td align="center">“梦想世界”虚拟社区版权归“新生代”网站所有，站长林飞制作！<br>
社区源码及使用权公开，前提是不能用于商业用途，可前往 <a href="http://www.editasp.com" target="_blank">新生代</a> 下载本虚拟社区源代码 </td>
</tr>
<tr>
<td align="center">
<table width="300" border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td width="50%"><img src="../logo.jpg" width="88" height="31"></td>
<td width="50%">２００１-２００２</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -