UC知道高分求ASP的一个问题
来源：百度知道 编辑：UC知道 时间：2024/05/15 10:30:31
数据库：id<自动编号> room<房间号> date(时间) cla(大楼名称)
代码如下
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("cla") <> "") Then
rs__MMColParam = Request.QueryString("cla")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT room, date FROM main WHERE cla = '" + Replace(rs__MMColParam, "'", "''") + "' ORDER BY id DESC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<table width=&quo
代码如下
<%
Dim rs__MMColParam
rs__MMColParam = "1"
If (Request.QueryString("cla") <> "") Then
rs__MMColParam = Request.QueryString("cla")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
rs.Source = "SELECT room, date FROM main WHERE cla = '" + Replace(rs__MMColParam, "'", "''") + "' ORDER BY id DESC"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<table width=&quo
你的百度知道的等级比较高，问问题果然不一样，问题说得比较清楚。
我现在手头没有做网页的工具，IIS也没装，而且好多年都没有用过ASP了，不做网页也有快一年了，所以只能凭感觉写点。
<body>
<table width="500" border="0">
<tr>
<%
If rs.RecordCount = 0 Then '判断记录数是否为0，未证实是否正确
%>
<td>暂无数据。</td>
<%
Else
%>
<td><%=(rs.Fields.Item("room").Value)%></td>
<td><%=(rs.Fields.Item("date").Value)%></td>
<% End If %>
</tr>
</table>
///////////////////////====================/////////////////////
补充
///////////////////////====================/////////////////////
假设你用的浏览器是IE，在菜单里选择 工具 / Internet选项 / 显示友好的HTTP错误信息，把勾去掉，然后就可以显示具体的“内部服务器错误”的详细信息了。你把它帖出来让大家看看。只有有了这个信息，才好分析你的代码到底错在哪里。
判断一下
rs.LockType = 1
rs.Open()
if rs.eof then response.write "err!"