ADODB.Field (0x800A0BCD)
我是新手,大哥们帮帮忙!!ADODB.Field(0x800A0BCD)BOF或EOF中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。代码如下:<...
我是新手,大哥们帮帮忙!!
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/senconn.asp" -->
<%
Dim rs2
Dim rs2_numRows
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_senconn_STRING
rs2.Source = "SELECT * FROM sentinfo"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
rs2_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p><a href="login.asp">管理员登陆</a></p>
<table width="680" border="1" align="center">
<tr>
<td colspan="4"><div align="center">新闻发布</div></td>
</tr>
<tr>
<td>新闻编号</td>
<td>新闻标题</td>
<td>作者</td>
<td>发布时间</td>
</tr>
<tr>
<td><%=(rs2.Fields.Item("sentid").Value)%></td>
<td><%
While ((Repeat1__numRows <> 0) AND (NOT rs2.EOF))
%>
<A HREF="showsent.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "sentid=" & rs2.Fields.Item("sentid").Value %>"><%=(rs2.Fields.Item("senttitle").Value)%></A>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs2.MoveNext()
Wend
%></td>
<td><%=(rs2.Fields.Item("sentauthor").Value)%></td>
<td><%=(rs2.Fields.Item("sentdate").Value)%></td>
</tr>
</table>
<p align="right"><A HREF="<%=MM_moveFirst%>">第一页</A> <A HREF="<%=MM_movePrev%>">前一页</A> <A HREF="<%=MM_moveNext%>">下一页</A> <A HREF="<%=MM_moveLast%>">最后一页</A></p>
</form>
</body>
</html>
<%
rs2.Close()
Set rs2 = Nothing
%> 展开
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/senconn.asp" -->
<%
Dim rs2
Dim rs2_numRows
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_senconn_STRING
rs2.Source = "SELECT * FROM sentinfo"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
rs2_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<p><a href="login.asp">管理员登陆</a></p>
<table width="680" border="1" align="center">
<tr>
<td colspan="4"><div align="center">新闻发布</div></td>
</tr>
<tr>
<td>新闻编号</td>
<td>新闻标题</td>
<td>作者</td>
<td>发布时间</td>
</tr>
<tr>
<td><%=(rs2.Fields.Item("sentid").Value)%></td>
<td><%
While ((Repeat1__numRows <> 0) AND (NOT rs2.EOF))
%>
<A HREF="showsent.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "sentid=" & rs2.Fields.Item("sentid").Value %>"><%=(rs2.Fields.Item("senttitle").Value)%></A>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs2.MoveNext()
Wend
%></td>
<td><%=(rs2.Fields.Item("sentauthor").Value)%></td>
<td><%=(rs2.Fields.Item("sentdate").Value)%></td>
</tr>
</table>
<p align="right"><A HREF="<%=MM_moveFirst%>">第一页</A> <A HREF="<%=MM_movePrev%>">前一页</A> <A HREF="<%=MM_moveNext%>">下一页</A> <A HREF="<%=MM_moveLast%>">最后一页</A></p>
</form>
</body>
</html>
<%
rs2.Close()
Set rs2 = Nothing
%> 展开
1个回答
展开全部
【前躯】两肩强壮,肌肉发达,肩月甲骨的顶点中等合拢。脊柱与肩肝骨约呈55度角,并且与上臂骨约呈11度角。上臂骨的长度不能长于肩胛骨。肘关节向后倾位于胸壁一侧,肘既不外展也不内收。前腿从肘到脚相当直,骨骼粗壮,但必须与犬身体的其他部位成比例。从前面看,两前腿平行,间距宽,与宽阔的胸相配衬。炻部短而直,腕关节不能过度屈曲。悬爪可以切除。脚圆形,紧凑,似猫样,脚垫厚。
【后躯】后躯同样宽阔,强健,肌肉发达。后腿与前腿一样有粗壮的骨髓。从后面看,两后腿直而平行,间距宽,与宽阔的骨盆相称。膝关节处有一定角度,连接紧密,非常稳定,指向前侧,关节的骨髓平整而锋利。耐关节适度低位,几乎成直线形,附关节应强壮,连接紧密而结实,不能弯曲或突向前方或两侧。附关节和阳骨在髓关节的下方并且位于同一直线上。
【后躯】后躯同样宽阔,强健,肌肉发达。后腿与前腿一样有粗壮的骨髓。从后面看,两后腿直而平行,间距宽,与宽阔的骨盆相称。膝关节处有一定角度,连接紧密,非常稳定,指向前侧,关节的骨髓平整而锋利。耐关节适度低位,几乎成直线形,附关节应强壮,连接紧密而结实,不能弯曲或突向前方或两侧。附关节和阳骨在髓关节的下方并且位于同一直线上。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
