利用ASP开发网络聊天室
; >
</center >
<input type="hidden" name="content" value="" >
</form>
通 过 提 交 按 钮 来 激 发receivedata.asp。 该ASP
文 件 主 要 来 保 证 在 聊 天 室 里 没 有 两 个 用 户 是 同 帐号
的。 用 户 提 交 信 息 后， 该 文 件 打 开chat.mdb 检 查 是 否 已 经
有 该帐号， 如 果 有 但 密 码 不 对 就 提 醒 用 户 重 新 输 入 密
码， 如 果 没 有 那 么 用 户 就 顺 利 进 入 了 聊 天 室。 进 入 聊
天 室 界 面 的 功 能 由 下 列 语 句 完 成：
<FRAMESET
ROWS="70%,30%" >
<FRAME SRC="forum.asp" NAME="main"
MARGINWIDTH="1"
MARGINHEIGHT="1" Noresize >
<FRAME SRC="frft.asp?kname= <% =name%>"
NAME="footnotes"
MARGINWIDTH="1" Noresize >
</FRAMESET >
注 意 这 里 有 一 个 技 巧， 通 过 参 数kname 将 用 户 的
帐号 隐 藏 在 客 户 的 浏 览 器 里 面 了， 这 样 一 来， 用 户 每
次 提 交 谈 话 内 容 的 同 时 也 把 他 的帐号提 交 了。
3、 文 本 输 入 区 的 设 计： 文 本 输 入 区 是 由frft.asp 产
生 的。 如 上 所 述， 用 户 每 次 提 交 谈 话 内 容 的 同 时 也 把
他 的 帐号 提 交 了， 用 户 提 交 谈 话 内 容 的 动 作 是 激 活forum.asp。
forum.asp 的 作 用 是 刷 新 聊 天 室 的 内 容。Frft.asp 内 容 如 下：
<!DOCTYPE HTML PUBLIC " -//IETF//DTD
HTML//EN" >
<html >
<head >
<meta http-equiv="Content- Type" content="text/html;
charset=gb_2312-80" >
<meta name="GENERATOR" content="Microsoft FrontPage 2.0" >
<title >
</head >
<body >
<% kname=request.QueryString("kname")% >
<base target="main" >
<form name="fm1" method="POST" action="forum.asp">
<p align="center" ><input type="text" size="90"
name="content" > <p align="center" ><input
type="button" name="B1" value=" 提 交/ 刷 新" >
<input type="reset" name="B2" value=" 重 写"
>< /p >
<input type="hidden" name="kname" value=< % =kname% >>
</form >
<SCRIPT LANGUAGE="VBScript" >
<!--
Sub IeTimer1_Timer()
if fm1.content.value="" then
fm1.content.value=""
fm1.submit
end if
end sub
sub b1_onclick()
fm1.submit
fm1.content.value=""
end sub
-->
</SCRIPT >
<OBJECT ID="IeTimer1" WIDTH=39 HEIGHT=39 CLASSID="CLSID:59CCB4A0-727D-
11CF-AC36-00AA00A47DD2" CODEBASE="http://208.208.208.201/asp/ietimer.ocx"
>
<PARAM NAME="_ExtentX" VALUE="1005" >
<PARAM NAME="_ExtentY" VALUE="1005" >
<PARAM NA
</center >
<input type="hidden" name="content" value="" >
</form>
通 过 提 交 按 钮 来 激 发receivedata.asp。 该ASP
文 件 主 要 来 保 证 在 聊 天 室 里 没 有 两 个 用 户 是 同 帐号
的。 用 户 提 交 信 息 后， 该 文 件 打 开chat.mdb 检 查 是 否 已 经
有 该帐号， 如 果 有 但 密 码 不 对 就 提 醒 用 户 重 新 输 入 密
码， 如 果 没 有 那 么 用 户 就 顺 利 进 入 了 聊 天 室。 进 入 聊
天 室 界 面 的 功 能 由 下 列 语 句 完 成：
<FRAMESET
ROWS="70%,30%" >
<FRAME SRC="forum.asp" NAME="main"
MARGINWIDTH="1"
MARGINHEIGHT="1" Noresize >
<FRAME SRC="frft.asp?kname= <% =name%>"
NAME="footnotes"
MARGINWIDTH="1" Noresize >
</FRAMESET >
注 意 这 里 有 一 个 技 巧， 通 过 参 数kname 将 用 户 的
帐号 隐 藏 在 客 户 的 浏 览 器 里 面 了， 这 样 一 来， 用 户 每
次 提 交 谈 话 内 容 的 同 时 也 把 他 的帐号提 交 了。
3、 文 本 输 入 区 的 设 计： 文 本 输 入 区 是 由frft.asp 产
生 的。 如 上 所 述， 用 户 每 次 提 交 谈 话 内 容 的 同 时 也 把
他 的 帐号 提 交 了， 用 户 提 交 谈 话 内 容 的 动 作 是 激 活forum.asp。
forum.asp 的 作 用 是 刷 新 聊 天 室 的 内 容。Frft.asp 内 容 如 下：
<!DOCTYPE HTML PUBLIC " -//IETF//DTD
HTML//EN" >
<html >
<head >
<meta http-equiv="Content- Type" content="text/html;
charset=gb_2312-80" >
<meta name="GENERATOR" content="Microsoft FrontPage 2.0" >
<title >
</head >
<body >
<% kname=request.QueryString("kname")% >
<base target="main" >
<form name="fm1" method="POST" action="forum.asp">
<p align="center" ><input type="text" size="90"
name="content" > <p align="center" ><input
type="button" name="B1" value=" 提 交/ 刷 新" >
<input type="reset" name="B2" value=" 重 写"
>< /p >
<input type="hidden" name="kname" value=< % =kname% >>
</form >
<SCRIPT LANGUAGE="VBScript" >
<!--
Sub IeTimer1_Timer()
if fm1.content.value="" then
fm1.content.value=""
fm1.submit
end if
end sub
sub b1_onclick()
fm1.submit
fm1.content.value=""
end sub
-->
</SCRIPT >
<OBJECT ID="IeTimer1" WIDTH=39 HEIGHT=39 CLASSID="CLSID:59CCB4A0-727D-
11CF-AC36-00AA00A47DD2" CODEBASE="http://208.208.208.201/asp/ietimer.ocx"
>
<PARAM NAME="_ExtentX" VALUE="1005" >
<PARAM NAME="_ExtentY" VALUE="1005" >
<PARAM NA