📄 text.asp

📁 很好
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>asp聊天室</TITLE>
<META http-equiv="refresh" CONTENT="10,url='text.asp'">
<META NAME="Author" CONTENT="wangsongxu">
<META NAME="Keywords" CONTENT="chat">
<META NAME="Description" CONTENT="asp聊天室">
<LINK 
href="style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY BGCOLOR="#ffffff">
<table>
<tr>
<body bgcolor="#ffdddd" width="90%">
<font face="宋体">
<% if session("sname")="" then 
response.write "<center><font color=red>您进入此页未输入呢称或是呢称已经失效，请重新登录！</font></center>" 
response.end
elseif session("sname")<>"" then
'检查是否在线
application.lock
set myobjectfile=server.createobject("scripting.filesystemobject")
set nickfile=myobjectfile.opentextfile(server.mappath("allnick.txt"))
dim allnick
allnick=nickfile.readall
if instr(allnick,session("sname"))>0 then
else
set nickfile=myobjectfile.opentextfile(server.mappath("allnick.txt"),8,true)
nickfile.writeline session("boygirl") & "" & session("sname")
end if
nickfile.close
application.unlock
'结束检查
mytalk=trim(request.form("txtbox"))
if request("task")="post" and mytalk="" then %>
<script language="JavaScript">
<!--
{
    alert("请输入谈话内容!")
} //-->
</script>
<% else
end if
secret=trim(request.form("secret"))
end if
if session("mytalk")<>mytalk then
session("mytalk")=mytalk
elseif request("task")="post" and session("mytalk")=mytalk and mytalk<>"" then %>
<script language="JavaScript">
<!--
{
    alert("请不要提交重复的谈话内容!")
} //-->
</script>
<%
mytalk=""
end if

if secret="" then 
if mytalk="" then 
else
go=true
end if
end if
fontcolor=request.form("fontcolor")
faceshow=request.form("faceshow")
tonick=request.form("tonick")
if go=true  then
application.lock
application("show")="<font color=#FF178B><b><font color=#0033FF>" & session("sname") & faceshow & "</font>对" & tonick & "说：" & "</b></font><font color=" & fontcolor & ">" & mytalk & "</font>[" & time & "]" & "<br>" & application("show")
application.unlock
else
'私下交谈未成功部分
application.lock
application("secret")="<font color=ff0000>" & session("sname") & "发送悄悄话:</font>" & "<font color=000fff >" & mytalk & "</font>"
application.unlock
end if
%>
<% dim deltime
deltime=minute(now)
delm=mid(time,5,1)
dels=mid(time,7,1)
if delm="0" and dels="0"  then
set myobjectfile=server.createobject("scripting.filesystemobject")
set nickfile=myobjectfile.createtextfile(server.mappath("allnick.txt"),true)
nickfile.writeline "<b>-在线名单-</b>"
nickfile.close
end if
%>
<% =application(session("sname") )%>
</font>
</tr>
</table>
<font face="宋体">
<% =application("show") %>
</font>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -