<%@ LANGUAGE=VBScript.Encode codepage ="936" %> <%if Application("wsaxhxf_c_chatroomname")="" then Response.Redirect "error.asp?id=000" if Session("hxf_u_counted")<>"1" then Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("wsaxhg_connstr") conn.open connstr sql="SELECT value FROM system WHERE name='visitor'" rs.open sql,conn,1,3 rs("value")=rs("value")+1 Application.Lock Application("wsaxhxf_c_visitor")=rs("value") Application.UnLock rs.update rs.close conn.close Set rs=nothing Set conn=nothing Session("hxf_u_counted")="1" end if visitor=Application("wsaxhxf_c_visitor") chatroomname=Application("wsaxhxf_c_chatroomname") user=Application("wsaxhxf_c_user") sn=Application("wsaxhxf_c_sn") copyright=Application("wsaxhxf_c_copyright") chatroombgimage=Application("wsaxhxf_c_chatroombgimage") homepageurl=Application("wsaxhxf_c_homepageurl") opendate=Application("wsaxhxf_c_opendate") chatroombgcolor=Application("wsaxhxf_c_chatroombgcolor") logo=Application("wsaxhxf_c_logo") ver=Application("wsaxhxf_c_ver") useronlinename=Application("wsaxhxf_c_useronlinename") onliners=Application("wsaxhxf_c_chatrs") online=Split(Trim(useronlinename)," ",-1) x=UBound(online)%> <%=chatroomname&" "&ver%> background=j09.jpg>
1登录窗口 - <%=chatroomname&" "&ver%>
×
登录窗口 改版说明 请您留言 　

最佳效果

IE4.0以上
800 * 600
小 字 体
16bit彩色

不能关闭浏览器
的 Cookie 功能

首次登录
自动注册
记牢密码
<%=opendate%> 起第 <%=visitor%> 位访客
来访时间：<%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 Response.Write n & "年" & y & "月" & r & "日" & " " & weekdayname(weekday(date())) & " " & s & ":" & f & ":" & m%>
登录（称谓可选）
用 户 名:
密　　码:
称　　谓: (可选)

修 改 密 码
新 密 码:

删 除 帐 号
确认密码: