38.数据表中有30个记录,如果当前记录为第30条记录,把记录指针移到第一个记录,测试当前记录号函数recno（）的值是（）(3分)A、B、C、D、A、29B、30C、1D、039.对数据表的结构进行操作,通

Question

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、表单设计器

Answer 1

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")
%>







<%
'要显示的内容
UserIP = Split(Rs(1),".")
GuestBook = GuestBook & "

" & Vbcrlf
GuestBook = GuestBook & "

"& Rs(0) & "(" & UserIP(0) & "." & UserIP(1) & "." & UserIP(2) & ".*) " & Poster & "" & Rs(2) & "

" & VbCrlf
GuestBook = GuestBook & "

" & Replace(Replace(Rs(3),Vbcrlf,""),"""","\""") & "
" & VbCrlf
If Len(Rs(4))>0 Then
GuestBook = GuestBook & Repost & "" & Replace(Replace(Rs(4),Vbcrlf,""),"""","\""") & "" & VbCrlf
End If
GuestBook = GuestBook & "

" & VbCrlf
GuestBook = GuestBook & "

" & VbCrlf
Rs.close
%>