这是原代码：
<html>
<head>
<title>聊天室登陆</title>
<link href="styles.css" rel="stylesheet" type="text/css"
</head>
<body>
<p align="center"><br>
<br>
<!--#include file="config.asp" -->
<!-- houseclean.asp 清空用户列表，以及清空聊天室，如果聊天室没有用户，则删除 -->
<font size="3">欢迎光临聊天室</font></p>
<p align="center">聊天开心，开心聊天
<%
varstatus = request("status")
varerror = request("error")
if varstatus = "registered" then
response.write "<p><b>你注册成功，请登陆</b></p>"
elseif varerror = "badcomb" then
response.Write "<p><b>登陆失败，请重新登陆</b></p>"
end if
response.Write "<p><b> 请首先登陆</b></p><p>如果没有用户名，请单击<a href='register.asp'>这里</a>进行注册.</p>"
dim arrroons()
i = o
call opendb
varsql = "select * from rooms;"
rs.open varsql, conn
if rs.eof then
varrooms = "<option value='0'>没有聊天室</option>"
else
rs.movefirst
do
'读入每个聊天室的ID保存在数组中
varroomid = rs("roomid")
arrayr = "yes"
redim preserve arrrooms(i)
arrrooms(i) = varroomid
i = i + 1
rs.movenext
loop until rs.eof
end if
call closedb
'获得每个聊天室的人数
if arrayr = "yes" then
for f = lbound(arrrooms) to ubound(arrrooms)
call opendb
'统计每个房间的人数
varsql = "select count (userid) as nousers from users where roomid = " & arrrooms(f) & ";"
rs.open varsql, conn
varnousers = rs("nousers")
call closedb
call opendb
'获得聊天室名称
varsql = "select * from rooms where roomid = " & arrrooms(f) & ";"
rs.open varsql, conn
varname = rs("name")
call closedb
'在下拉框中显示所有聊天室信息
varrooms = varrooms & "<option value='" & arrrooms(f) & "'>" & varname & " (" & varnousers & ")</option>"
next
end if
%>
</p>
<form id="name" name="name" method="post" action="login.asp">
<table border="0" align"center" cellpadding="0">
<tr>
<td>用户名:</td><td><input type="text" name="txtusername" class="input"/></td>
</tr><tr>
<td>密码:</td><td><input type"password" name="txtpassword" class="input"/></td>
</tr><tr>
<td> 聊 天 室 :</td><td><select name="sltroom" class="input"><% =varromms %></select></td>
</tr><tr>
<td></td><td><input type="submit" name="submit" value="登陆" class="inputbtn"></td>
</tr></table>
<div align="center"></div>
</form>
<p align="center"> </p>
<div align ="center">
<script type="text/javascript" language="javascript">
var file='../stats/count.asp';
var d=new date();
var s=d.getseconds();
var m=d.getminutes();
var x=s*m;
f='' + escape(document.referrer);
if (navigator.appname=='netscape'){b='ns';}
if (navigator.appname=='microsoft internet explorer'){b='meie';}
if (navigator.appversion.indexof('msie 3')>0) b=screen.height;
u='' + escape(document.fontsmoothingenabled;
if (v!= 'netscape') {c=screen.colordepth;}
else {c=screen.pixeldepth;}
j=navigator.javaenabled();
info='w' + w + '&hh=' + h + '&c=" + c + "&r=' + r + "&u" + u + "&fs" + fs + "&b" + b + "&x=" + x;
document.write('<img src="' + file + '?'+info+ '" width=0 height=0 border=0>');
</script>
</div>
</body>
</html>
这是出现在问题:
行，55
字符： 45
错误，缺少")"
代码，0
