📄 login.asp
字号:
<%@ LANGUAGE=VBScript%>
<%Server.ScriptTimeout=600
Response.Expires=0
useralreadylogin=Session("a_c_user_alreadylogin")
if useralreadylogin=1 then
Response.Redirect "welcome.asp"
end if
Session("a_c_user_outchat")=1%><html>
<head>
<title>聊吧</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p12 { font-size: 12pt; line-height: 135%}
a:link { font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:hover { font-family: "宋体"; color: #FF0000; text-decoration: underline; line-height: 135%}
a:visited { font-family: "宋体"; color: #0000FF; text-decoration: none; line-height: 135%}
a:active { font-family: "宋体"; text-decoration: none; line-height: 135%}
.p9 { font-size: 9pt; line-height: 135%}
-->
</style>
<script LANGUAGE="JavaScript">
<!--
if (window != window.top)
top.location.href = location.href;
// -->
</script>
</head>
<body bgcolor="#000066" topmargin="0">
<form method="post" action="check.asp" name="">
<table width="616" border="0" align="center" cellspacing="0" cellpadding="10" bgcolor="#FFCC99">
<tr align="center">
<td width="596"> <font color="#FFFFFF" style="font-size:40pt" face="幼圆"><b><font color="#00CC00"><img src="read/chat_1.gif" width="454" height="94"></font></b></font></td>
</tr>
<tr align="center">
<td width="596" class="p12"> <a href="speak.asp?page=1" target="_blank">《<%=Application("a_c_chatroom_name")%>留言簿》</a>
<hr noshade size="1" color=#00AA00>
2000-03-08 起第 <%dim visitors
countfile=server.mappath("countchat.txt")
Set fs = CreateObject ("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
visitors=visitors + 1
response.write "<font face='Arial' color=#FF0000 size=5><b>"
for i=1 to 5-len(visitors)
response.write "0"
next
response.write visitors & "</b></font>"
Set thisfile = fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing%> 位访客<br>
<%n=Year(date())
y=Month(date())
r=Day(date())
s=Hour(time())
f=Minute(time())
m=Second(time())
if len(y)=1 then y="0" & y
if len(r)=1 then r="0" & r
if len(s)=1 then s="0" & s
if len(f)=1 then f="0" & f
if len(m)=1 then m="0" & m
sj="<font color='#009900' class='p12'>来访时间：" & n & "年" & y & "月" & r & "日 " & weekdayname(weekday(date())) & " " & s & ":" & f & ":" & m & "</font>"
Response.Write sj%>
<hr noshade size="1" color="#0000FF">
<table width="98%" border="0">
<tr align="center">
<td>
<table border="0" width="360">
<tr>
<td align="center" width="228">
<table border="0">
<tr>
<td><font color="#0000FF">用户名：</font></td>
<td>
<input name="username" maxlength="10" style="font-size: 12px" tabindex=1 size="10">
</td>
<td><font class="p9" color="#FF00FF">(必须)</font></td>
</tr>
<tr>
<td><font color="#0000FF">密 码：</font></td>
<td>
<input type="password" name="userpassword" maxlength="10" style="font-size: 12px" tabindex=2 size="10">
</td>
<td><font class="p9" color="#FF00FF">(必须)</font></td>
</tr>
<tr>
<td>
<p>
<p><font color="#FFFFFF">性 别：</font>
</td>
<td>
<select style="font-size: 12px" name="gender" tabindex=3>
<option value="0" selected>None</option>
<option value="1">Boy</option>
<option value="2">Girl</option>
</select>
<font color="#FFFFFF" class=p9> </font></td>
<td><font class="p9" color="#FF00FF">(可选)</font> </td>
<td> </td>
</tr>
</table>
</td>
<td align="center" width="130"> <span class="p9"><font color="#3300CC">如果是首次登录<br>
系统将自动注册</font></span><br>
<input type="submit" name="enter" value="进 入" style="font-size: 12px" tabindex=4>
<input type="reset" value="重 写" style="font-size: 12px" name="reset">
</td>
</tr>
</table>
<hr noshade size="1" width="360" color=#00CC00>
<table border="0" width="360">
<tr>
<td align="center" width="228">
<p><span class="p9">欲删除帐号，请在此框输入相同的密码<br>
</span><font color="#0000FF">确认密码：</font>
<input type="password" name="killpassword" maxlength="10" style="font-size: 12px" tabindex=5 size="10">
</p>
</td>
<td align="center" width="130"> <span class="p9"><font color="#3300CC">删除帐号</font></span><br>
<input type="submit" name="kill" value="自 杀" style="font-size: 12px" tabindex=6>
</td>
</tr>
</table>
<div align="right"></div>
<hr noshade size="1" width="360" color=#00CC00>
<table border="0" width="360">
<tr>
<td align="center" width="228">
<p><span class="p9">如果要修改密码，请在此框输入新密码<br>
</span><font color="#0000FF">新 密 码：
<input type="password" name="newpassword" maxlength="10" style="font-size: 12px" tabindex=7 size="10">
</font></p>
</td>
<td align="center" width="130"> <span class="p9"><font color="#3300CC">修改密码</font></span><br>
<input type="submit" name="change" value="修 改" style="font-size: 12px" tabindex=8>
</td>
</tr>
</table>
</td>
</tr>
</table>
<hr noshade size="1" color="#0000FF">
<table width="100%">
<tr align="center">
<td colspan="3">
<div align="left">
<table width="100%" border="0">
<tr>
<td width="15%"> </td>
<td width="70%"><font color="#FF0000" class="p9"><img src="/IMAGE/NEW02.GIF" width="33" height="16"><font size="3">1、带入你的最高级别：</font><font color="#0000FF">请把你在其他聊天室的最高级别以如下格式在留言或发给网管的邮件中说明，12小时内即可获得同样的等级-最高为8</font><font color="#FF0000" class="p9"><font color="#0000FF">级</font></font><font color="#0000FF">。（网管会做必要的核查，可要实话实说呀！）</font>
<br>
<font color="#000000"> 网上昵称
所在聊天室 级别 email或个人主页地址
</font><br>
<font size="3">2、申请版主：</font><font color="#0000FF">本聊天室拟招募热心聊务的聊友出任版主，维护聊天室的正常秩序，级别6至8级，人数不限。每月评出10佳版主（由聊友在投票系统中投票的得票数为标准）公布在聊天室的入口处（可带个人主页连接或邮件连接）。首期10佳将在3月低公布。什么？奖品？别急，到时就知。</font><br>
<font size="3">3、个人主页聊天室：</font><font color="#0000FF">把以下代码加入你的个人主页（或企业主页）中的适当位置，即可在你的主页中开个聊天室入口，把本聊天室当作你的聊天室。同时，你将成为本站的联盟网站，双方分别在各自首页加入对方的连接（别忘了在留言簿中向站长说说啊！）</font><br>
<font color="#000000">代码：<br>
<scriptsrc="http://202.102.231.140/chat/chatdoor.asp"></script></font></font></td>
<td width="15%"> </td>
</tr>
</table>
<div align="center"><font color="#FF0000" class="p9"> </font><font color="#FF0000" class="p9">请使用
IE 4.0 或 NetScape 4.0 以上版本<br>
最佳分辨率 800 * 600、小字体，不能关闭 Cookie 功能</font> </div>
<table width="100%" border="0">
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<p align="center"><span class="p9">
<script src="use.asp"></script>
<script src="sn.asp"></script>
<br>
<script src="copyright.asp"></script>
</span> </p>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -