| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 454 人关注过本帖
标题:[求助][原创]有个问题,大侠请指教一下
取消只看楼主 加入收藏
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
 问题点数:0 回复次数:2 
[求助][原创]有个问题,大侠请指教一下

这是原代码:
<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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;请首先登陆</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

搜索更多相关主题的帖子: 指教 
2005-11-05 13:41
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 
我看了啊,只不过行55是call opendb
2005-11-05 13:53
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 

i=0

2005-11-07 22:06
快速回复:[求助][原创]有个问题,大侠请指教一下
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017281 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved