数据表中有30个记录，如果当前记录为第1条记录，把记录指针移到最后一个，测试当前记录号函数RDCNO()的值是()。
A.32
B.31
C.30
D.33
B.31
C.30
D.33
所属分类：
信息技术/IT
(免费栏目)
浏览量： 288 次
c323/Const.Asp"-->
<%
'由于此代码采用了类的编写，暂时不了解此类的工作原理和代码调用
'大致的思路我已经给你了
'
Dim Plus
Set Plus = New Cls_Plus
Plus.Open("guestbook") ' 打开配置文件
id=request.QueryString("id")
'DB 操作语句的写法要根据你的代码规范“[id]=id ”不一定能实现 主要看你的代码怎么调用参数的
Dim Rs
Set Rs = DB("select [User],[IP],[Time],[Content],[ReComment] From [guestbook] Where [id]=id",2)
Dim GuestBook,GuestBookPageList
Dim Poster,Repost,UserIP
Poster = Plus.Lang("js-poster")
Repost = Plus.Lang("js-repost")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">
<html xmlns="">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>要显示的标题标签</title>
</head>
<body>
<%
'要显示的内容
UserIP = Split(Rs(1),".")
GuestBook = GuestBook & "<dl>" & Vbcrlf
GuestBook = GuestBook & "<dt><strong>"& Rs(0) & "(" & UserIP(0) & "." & UserIP(1) & "." & UserIP(2) & ".*) </strong>" & Poster & "<span>" & Rs(2) & "</span></dt>" & VbCrlf
GuestBook = GuestBook & "<dd>" & Replace(Replace(Rs(3),Vbcrlf,""),"""","\""") & "<br />" & VbCrlf
If Len(Rs(4))>0 Then
GuestBook = GuestBook & Repost & "<font color='red'>" & Replace(Replace(Rs(4),Vbcrlf,""),"""","\""") & "</font>" & VbCrlf
End If
GuestBook = GuestBook & "</dd>" & VbCrlf
GuestBook = GuestBook & "</dl>" & VbCrlf
Rs.close
%>
</body>
</html>
以上为百科题库网整理的关于"数据表中有30个记录，如果当前记录为第1条记录，把记录指针移到最后一个，测试当前记录号函数RDCNO()的值是()。"试题答案及解析，如想学习更多信息技术/IT类竞赛题，欢迎访问www.baiketk.com查看搜索更多相关信息。
转载请注明：百科题库网https://www.baiketk.com/q_d5eaa6dbf80c38.html