作业帮 > 综合 > 作业

38.数据表中有30个记录,如果当前记录为第30条记录,把记录指针移到第一个记录,测试当前记录号函数recno()的值是

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/01 19:33:56
38.数据表中有30个记录,如果当前记录为第30条记录,把记录指针移到第一个记录,测试当前记录号函数recno()的值是( )(3分)
A、 B、 C、 D、
A、29
B、30
C、1
D、0
39.对数据表的结构进行操作,通常是在( )环境下完成的.(3分)
A、 B、 C、 D、
A、表设计器
B、表向导
C、表浏览器
D、表编辑器
40.修改数据表中的数据是在( )环境下完成的(3分)
A、 B、 C、 D、
A、表设计器
B、表向导
C、表浏览器
D、表单设计器
38.数据表中有30个记录,如果当前记录为第30条记录,把记录指针移到第一个记录,测试当前记录号函数recno()的值是
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>