希望各位高手帮助，需要聊天论坛网页代码，和会员密码登陆网页代码，谢谢各位帮忙

有一个要源码的，强烈鄙视

网上有大把多源码呢。。。

<%@ LANGUAGE=VBSCRIPT %>
<%
RESPONSE.BUFFER=TRUE ' 设 置 输 出 缓 存，用 于 显 示 不 同 页 面。
ON ERROR RESUME NEXT ' 忽 略 程 序 出 错 部 分
IF REQUEST.SERVERVARIABLES("REQUEST_METHOD")="GET" THEN
' 判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面
'------------------------
' 客 户 登 陆 界 面
'------------------------
%>

<FORM METHOD="POST" ACTION="HTTP://WWW.
<INPUT TYPE="TEXT" NAME="NICK" SIZE="20" VALUE="NICK" STYLE="BACKGROUND-COLOR: RGB(192,192,192)"><BR>
<INPUT TYPE="SUBMIT" VALUE=" 进 入 聊 天 室 " NAME="B1" STYLE="COLOR: RGB(255,255,0); FONT-SIZE: 9PT; BACKGROUND-COLOR: RGB(0,128,128)">
<P><INPUT TYPE="HIDDEN" NAME="LOG" SIZE="20" VALUE="1"><BR></P>
</FORM>

<%
RESPONSE.END ' 结 束 程 序 的 处 理
ELSE
RESPONSE.CLEAR ' 清 空 缓 存 中 的 内 容
DIM TALK
IF REQUEST.FORM("NICK")<>"" THEN
' 判 断 客 户 是 是 否 在 聊 天 界 面 中
SESSION("NICK")=REQUEST.FORM("NICK")
END IF
'------------------------
'客 户 聊 天 界 面
'------------------------
%>

<FORM METHOD="POST" ACTION="HTTP://WWW. NAME=FORM1> <P><%=SESSION("NICK")%> 说 话：<INPUT TYPE="TEXT" NAME="TALK" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE=" 提 交 " NAME="B1">
<INPUT TYPE="RESET" VALUE=" 取 消 " NAME="B2"></P>
</FORM>
<A HREF="HTTP://WWW. 离 开 </A><BR><BR>

<%
IF REQUEST.FORM("LOG")<>1 THEN
IF TRIM(REQUEST.FORM("TALK"))="" THEN
' 判 断 用 户 是 否 没 有 输 入 任 何 内 容
TALK=SESSION("NICK")&" 沉 默 是 金。"
ELSE
TALK=TRIM(REQUEST.FORM("TALK"))
' 去 掉 字 符 后 的 空 格
END IF

APPLICATION.LOCK
APPLICATION("SHOW")="<TABLE BORDER='0' CELLPADDING='0' CELLSPACING='0' WIDTH='85%'><TR><TD WIDTH='100%' BGCOLOR='#C0C0C0'></TD></TR><TR><TD WIDTH='100%'><FONT COLOR='#0000FF'> 来 自 "&REQUEST.SERVERVARIABLES("REMOTE_ADDR")&" 的 "&SESSION("NICK")&TIME&" 说：</FONT>"&TALK&"</TD></TR><TR><TD WIDTH='100%' BGCOLOR='#C0C0C0'></TD></TR></TABLE><BR>"&APPLICATION("SHOW")
APPLICATION.UNLOCK

RESPONSE.WRITE APPLICATION("SHOW")
END IF
END IF
%>
源码太好着了,页面源代码多的是,用这些辅助!