我做了一个动态网页,IIS配置,站点编辑,数据库连接都没有出现过问题.可是在IE里浏览,却出现:
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Active Server Pages, ASP 0141 (0x80004005)
@ 命令只能在 Active Server Page 中使用一次。
/index.asp, 第 2 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
网页：
GET /index.asp
时间：
2002年6月15日, 21:51:47
详细信息：
Microsoft 支持
原代码如下:
<%@LANGUAGE="VBSCRIPT"%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim Record1
Dim Record1_numRows
Set Record1 = Server.CreateObject("ADODB.Recordset")
Record1.ActiveConnection = MM_conn_STRING
Record1.Source = "SELECT Name, QQ, Email, ICON, Homepage, Content, Date, Reply, RDate FROM main ORDER BY Date DESC"
Record1.CursorType = 0
Record1.CursorLocation = 2
Record1.LockType = 1
Record1.Open()
Record1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Record1_numRows = Record1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Record1_total
Dim Record1_first
Dim Record1_last
' set the record count
Record1_total = Record1.RecordCount
' set the number of rows displayed on this page
If (Record1_numRows < 0) Then
Record1_numRows = Record1_total
Elseif (Record1_numRows = 0) Then
Record1_numRows = 1
End If
' set the first and last displayed record
Record1_first = 1
Record1_last = Record1_first + Record1_numRows - 1
' if we have the correct record count, check the other stats
If (Record1_total <> -1) Then
If (Record1_first > Record1_total) Then
Record1_first = Record1_total
End If
If (Record1_last > Record1_total) Then
Record1_last = Record1_total
End If
If (Record1_numRows > Record1_total) Then
Record1_numRows = Record1_total
End If
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables
Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined
Dim MM_param
Dim MM_index
Set MM_rs = Record1
MM_rsCount = Record1_total
MM_size = Record1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
Record1_first = MM_offset + 1
Record1_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Record1_first > MM_rsCount) Then
Record1_first = MM_rsCount
End If
If (Record1_last > MM_rsCount) Then
Record1_last = MM_rsCount
End If
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言板首页</title>
<style type="text/css">
<!--
.style1 {
font-size: 18px;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="650" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35"><div align="center" class="style1">我的留言板</div></td>
</tr>
<tr>
<td height="20"><div align="right">[<a href="insert.asp">留言</a>][<a href="index.asp">查看</a>][<a href="login.asp">管理</a>]</div></td>
</tr>
<tr>
<td><table width="650" height="53" border="1" cellpadding="0" cellspacing="0">
<% If Not Record1.EOF Or Not Record1.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Record1.EOF))
%>
<tr>
<td width="131"><table width="102" height="88" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="98" height="66"><img src="icon/<%=(Record1.Fields.Item("ICON").Value)%>.jpg"></td>
</tr>
<tr>
<td><div align="center"><%= Server.HTMLEncode((Record1.Fields.Item("Name").Value)) %></div></td>
</tr>
</table></td>
<td width="509"><table height="88" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="632"><%=(Record1.Fields.Item("Name").Value)%>访客发表于：<%=(Record1.Fields.Item("Date").Value)%></td>
</tr>
<tr>
<td><table width="659" height="52" border="1" cellpadding="0" cellspacing="0">
<tr>
<td width="48"><div align="center">留言</div></td>
<td width="578"><%=(Record1.Fields.Item("Content").Value)%></td>
</tr>
<tr>
<td height="29"><div align="center">回复</div></td>
<td><%=(Record1.Fields.Item("Reply").Value)%><br>
<%=(Record1.Fields.Item("RDate").Value)%></td>
</tr>
</table></td>
</tr>
<tr>
<td><div align="right"><a href="<%=(Record1.Fields.Item("Homepage").Value)%>" target="_blank">主页</a> <a href="mailto:<%=(Record1.Fields.Item("Homepage").Value)%>">信箱</a> <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?in=<%=(Record1.Fields.Item("QQ").Value)%>">QQ</a> </div></td>
</tr>
</table></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Record1.MoveNext()
Wend
%>
<% End If ' end Not Record1.EOF Or NOT Record1.BOF %>
</table></td>
</tr>
<tr>
<td height="20"><div align="right"><A HREF="<%=MM_moveFirst%>">首页</A> <A HREF="<%=MM_movePrev%>">上页</A> <A HREF="<%=MM_moveNext%>">下页</A> <A HREF="<%=MM_moveLast%>">尾页</A></div></td>
</tr>
<tr>
<td height="20"><div align="center">2004.DEMOO DESIGN</div></td>
</tr>
</table>
</body>
</html>
<%
Record1.Close()
Set Record1 = Nothing
%>
请哪位高手帮我看看是怎么会事.
谢谢!!!!!!!!!!!!!!
[此贴子已经被作者于2006-6-16 20:43:30编辑过]
