动态网页制作作业(含答案)

动态网页制作作业

姓名：常小梅

动态网页制作作业

一、选择题（每小题2分，共40分）

1．请判断下列语句执行完毕后，a、b、c的值（B）

a="1" + 1

b="1" + "1"

c="1" & "1"

(A) "11","11","11" (B) 2,"11","11" (C) "11",2,"11" (D) "11","11",2

2．执行完语句a="2"，a的类型为（B）

(A) 数值型(B) 字符串型(C) 布尔型(D) 日期型

3．执行完如下语句后，a的值为：（D）

Dim a

a=3

a=a+1

(A) 0 (B) 1 (C) 3 (D) 4

4．执行完如下语句后，Sum的值为：（C）

Dim a(5),Sum

Sum=0

For I=0 To 5

a(I)=I

Sum=Sum+a(I)

(A) 0 (B) 5 (C) 15 (D) 20

5．执行完a=5 Mod 3 语句后，a的值为：（B）

(A) 0 (B) 2 (C) 3 (D) 5

6．执行完a=5>3 And "a"<"c" 语句后，a的值为：（A）

(A) True (B) False (C) 1 (D) 0

7．下面a=Trim(" vbscript") & Rtrim(" good") 语句后，a的值：（B）

(A) " vbscript good"

(B) "vbscript good"

(D) "vbscriptgood"

8．下面哪个函数可以返回当前的日期和时间：（A）

(A) Now (B) Date (C) Time (D) DateTime

9．对于利用Dim a(4,5) 语句定义的二维数组，Ubound(a,1)将返回（B）

(A) 0 (B) 4 (C) 5 (D) 6

10．对于Request对象，如果省略获取方法，如Request(“user_name”)，将按什么顺序依次检查是否有信息传入：（B）

（A）Form、QueryString、Cookies、Server V ariables、ClientCertificate

（B）QueryString、Form、Cookies、Server V ariables、ClientCertificate

（C）Cookies、QueryString、Form、Server V ariables、ClientCertificate

（D）Form、QueryString、Cookies、Server V ariables、ClientCertificate

11．下面哪条语句可以返回访问者的IP地址（A）

(A) Request.ServerV ariables("REMOTE_ADDR")

(B) Request.ServerV ariables("REMOTE_IP")

(D) Request.ClientCertificate ("REMOTE_IP ")

12．执行完如下语句后，页面上显示的内容为：（A）

Response.Write "A"

Response.End

Response.Write "B"

(A) A(B) AB (C) AC (D) ABC

13．请问下面程序段执行完毕，页面上显示内容是什么：（C）

Response.Write “新浪”

(A) 新浪(B) 新浪

14．Session对象的默认有效期为多少分钟？（C）

(A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束

15．请问下面程序段执行完毕，页面上显示内容是什么：（B）

Response.Write Server.HTMLEncode(“新浪”)

(A) 新浪(B) 新浪

16．当使用事务处理时，假如要提交事务处理，应该利用如下方法：（C）

(A) BeginTrans (B) EndTrans

17．如果刚打开了一个含有1条记录的记录集，那么Bof的值为（C）

(A) 1 (B) True (C) False (D) NULL

18．使用W3 Jmail组件发送E-mail时，附件必须位于（B）

(A) 客户端(B) 服务器端

19．对于文件上传组件，如果希望获取上传文件的大小，应该怎样用？（A）

(A) Upload.Files("upfile").Size

(B) Upload.Form("upfile").Size

(D) Request.Form("upfile").Size

20．对于如下的文件超链接组件中使用的超链接数据文件，文件路径和说明之间应该用（ B ）隔开。

webcourse/www_1.htm 第一讲利用工具软件制作网页

webcourse/www_2.htm 第二讲网页制作高级功能

webcourse/www_3.htm 第三讲利用源代码开发网页

(A) 空格(B) Tab (C) (D) Space

二、填空题（每空1分，共40分）

1.ASP文件就是在普通的HTML文件中插入VBScript 或JavaScript脚本语言。

2.如果操作系统是Windows 2000，一般需要安装IIS 组件才能运行ASP程序。

3.执行完a= Left("vbscript",2) & Mid("vbscript",3,4) & Right("vbscript",2) 后，a的值为

vbscript 。

4.语句a=DateAdd(" d ",10,Date()) 将返回10天后是几号。

5.语句b=Int(10 * Rnd或Rndc ) +1) 将返回1到10之间的随机整数。

6.在文件开头添加<% Option Explicit% 语句后，则所有的变量都必须先

声明才能使用。

7.在数据库的表中，纵的一行叫做一个字段，横的一行叫做一个记录。

8.原来用一个数组users保存学生名单，现在新转来一位同学“张峰”，需要将其名字添

加到该数组中，请填写下面程序段中的空格。

Dim users()

Redim users(40)

users(0)="王军"

users(1)="李俊"

……

Redim Preserve users(41)

users(41)="张峰"

9.下面是一个函数，用来返回从a到b的立方和，请填写其中的空格。

Function Cube(a,b)

Dim I,Sum

Sum=0

For I= a To b

Sum= Sum+I^3

Cube =Sum

End Function

10.下面这段语句，将根据今天是星期几，分别在页面上显示一幅图片，星期一、二显示

p1.jpg，其它时间显示p2.jpg。请填写完整下面的程序。

Dim theda

theday= Weekday (Date())

Select Case theday

Case 2,3

Response.Write ""

Case Else

Response.Write ""

End Select

11.很多网站要求客户必须登录后才能访问，如果客户没有登录，就直接访问网站的某个页

面，应该将其引导到首页。请据此填写下面的空格。

If Session("UserName")= Response.RedirectThen" index.asp"

End If

12.下面的程序段用来计算客户是第几次访问本站。请填写其中的空格。

Dim varNumber

varNumber=Request.Cookies("number")

If V arNumber=””Then

varNumber=1

Else

varNumber=varNumber+1

End If

. Response.Cookies(“number”) =varNumber

Response.Cookies(“number”).Expires =#2030-1-1#

Response.Write "您是第" & varNumber & "次访问本站"

13.假如Application("UserOnLine")中保存了一个数组，该数组中保存了在线用户的名称，

下面的程序段从其中读取所有用户名，并显示在页面上，请填写其中的空格。

Dim UserOnLine,Number

UserOnLine=Application("UserOnLine")

Number= Ubound (UserOnLine) '返回该数组的最大下标

For I=0 To Number

Response.Write UserOnLine(I)

14.对于如下图的数据表link，请填写下面的SQL语句中的空格：

图1

查询2003年1月1日到2004年1月1日之间的提交的网站，并按提交日期将序排列strSql="Select * From link Where submit_date Between #2003-1-1# And #2004-1-1# Order By submit_date Desc "

查询2004年1月1日以后提交的网站总数目

strSql="Select Count(*)As Total From link Where submit_date > #2004-1-1#"

15.针对上面图1所示，下面要在页面上按提交日期降序排列所有的网站，请填写下面程序

段中的空格。假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，数据表名为link。

'以下连接数据库

Dim db

Set db=Server.CreateObject("ADODB.Connection")

1．db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

(*.mdb)}"

'以下建立记录集

Dim strSql,rs

strSql= "Select * From link Order By Submit_date Desc"

set rs=db.execute(strsql)

'以下显示数据库记录

Do While Not rs.Eof

rs.MoveNext

Loop

网站名称	网站地址	提交日期
<%=rs("name")%>	" target="_blank"><%=rs("URL")%>	<%=rs("submit_date")%>

16.针对上面图1所示，下面是分页显示所有网站的名称的语句，每页显示10条记录，请

填写其中的空格。

Dim db,rs,strSql

'建立Connection对象

Set db=Server.CreateObject("ADODB.Connection")

db.Open "Dsn=addr" '这里利用数据源连接

'建立Recordset对象

Set rs=Server.CreateObject("ADODB.Recordset")

strSql ="Select * From users order by name Asc"

rs.Open strSql,db,1

'如果记录集不是空的，就执行分页显示

If Not rs.Bof And Not rs.Eof Then

'下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定

Dim page_no

If Request.QueryString("page_no")="" Then

page_no=1

Else

page_no= CInt (Request.QueryString ("page_no"))

End If

'下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。

rs. PageSize =10

rs. AbsolutePage =page_no

Dim I

I=10

Do While And

I=I-1

Response.Write rs("name") & "
"

rs.MoveNext

Loop

'下面一段在下方显示页数信息，从1到总页数循环

......

Else

Response.Write "该记录集为空"

End If

17.下面这段程序，打开本文件夹下的文本文件test.txt，并读取其中所有的内容显示在页面

上，请填写其中的空格。

Dim fso

Set fso=Server.CreateObject("Scripting.FileSystemObject")

Dim TextFile

Set TextFile= fso. (Server.MapPath("test.txt")

Do While Not TextFile.

Response.Write TextFile.ReadLine

Response.Write "
"

Loop

三、编程题（每空10分，共30分）

1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可

**********

*********

********

*******

******

*****

****

***

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“https://www.360docs.net/doc/2715316176.html,”，网站简介为“门户网站”，提交日期为当天。

注意：只给出主要代码即可，程序的开头部分已经给出。

Dim db, strConn

strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver

(*.mdb)}"

Set db=Server.CreateObject("ADODB.Connection")

3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。

Add_form.asp

add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）

<% Option Explicit %>

If Request.Form("name")<>"" And Request.Form("URL")<>"" Then

'以下连上数据库，建立一个Connection对象实例db

Dim db

Set db=Server.CreateObject("ADODB.Connection")

db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

End If

一、选择题（每小题2分，共30分）

1．小王正在家里通过拨号上网访问搜狐网站，此时谁是服务器端，谁是客户端？(B)

(A)小王的机器是服务器端，搜狐网站是客户端(B) 搜狐网站是服务器端，小王的机

器是客户端(C)小王的机器既是服务器端，又是客户端（D）以上说法全不对

2．某同学开发了一个显示来访时间的ASP文件，存放在C:\inetpub\wwwroot下，请问此时如果在资源管理器中双击该文件，该文件可以正常显示吗？(B)

(A) 可以(B) 不可以

3．下列哪个变量名称是正确的？(C)

(A) 111 (B) _sum (C) ab_1 (D)a?b

4．执行完如下语句后，a的值为：(C)

Dim a

a=FormatNumber(10.223344,3)

(A) 10.223344 (B) 10.2 (C) 10.223 (D) 10.000

5．下列哪个函数可以将数值转换为字符串？(C)

(A) Cdate (B)Cint (C) CStr (D) CDbl

6．请问Int(3.45)和Int(-3.45)的值分别是什么？(D)

(A) 4、-4 (B)3、-4 (C) 3、3 (D) 3、-3

7．执行完如下语句后，sum的值为?(C)

Dim sum,I

Sum=0

I=1

Do While I<=10

Sum=sum+I

I=I+1

If (I Mod 5=0) then

Exit do

End if

Loop

(A) 55 (B) 15 (C) 10 (D) 45

8．下列几个是Response对象的方法，哪个是用来输出二进制信息的。(B)

(A) BinaryRead (B) BinaryWrite (C) Flush (D) Write

9．Aplication对象的默认有效期为多少分钟？(D)

(A) 10 (B) 15 (C) 20 (D) 应用程序从启动到结束

10．问下面程序段执行完毕，页面上显示的内容是什么？(A)

Dim strTemp

StrTemp=”user_name”

Session(“strTemp”)=”王刚”

Session(strTemp)=”张红”

Response.Write Session(“user_name”)

(A) 张红(B)王刚(C) 王刚张红(D) 语法有错，无法正常输出

11．如有一个数据库，其中有表table，包括3个字段name（文本型）、grade（数字型）、birthday （日期/时间型），请问下面哪句能正确执行？(A)

（其中varName=”林亚” varGrade=98 varBirthday=#1983-1-1#）

(A). strSql="Insert Into table(name,grade,intro) V alues('"& varName & "', " & varGrade & ",#" & varBirthday & "#)"

(B). strSql="Insert Into table(name,grade,intro) V alues('" & varName & "', '" & varGrade & "',# " & varBirthday & "#)"

(C). strSql="Insert Into table(name,grade,intro) V alues('" & varName & "', " & varGrade & "," & varBirthday & ")"

(D).strSql="Insert Into table(name,grade,intro) V alues('varName', varGrade,# var Birthday#)"

12．问下面程序段执行完毕，页面上显示内容是什么：(B)

Response.Write Server.HTMLEncode(“新浪”)

(A) 新浪(B) 新浪

13．使用事务处理时，假如要回滚事务处理，应该利用如下方法：(D)

(A) BeginTrans (B) EndTrans

14．设定义了记录集rs, 如果希望打开的记录集可以前后移动指针，并且可读可写，则应该为下面哪一句？(B)

(A)rs.Open strSql,db (B)rs.Open strSql,db,1,3

(C)rs.Open strSql,db,,3 (D)rs.Open strSql,db,1

15．在使用下载组件时，若下载组件是dll文件形式（test.dll），并且我们将该文件存放到C:\temp\test.dll下，则注册时还要在运行窗口输入（ C ）

(A) Run C:\temp\test.dll (B) Run test.dll (C) Regsvr32 C:\temp\test.dll (D) Regsvr32 test.dll

二、填空题（每空3分，共42分）

18.VBScript 中用关键字Const 来声明常量。

19.在VBScript中，我们用检验函数IsNumeric 来判断变量是数字类型。

20.在VBScript 中，过程有两种，一种是Sub子程序，一种是Function 函数，两者的区别

在于Sub子程序只执行程序而不返回值，而Function 函数可以将执行代码后的结果返回给请求程序。

21.执行完a= InStr(“jjshang@https://www.360docs.net/doc/2715316176.html,”,”@”)后，a的值为8 。

22.语句a=DateDiff( “d”,Date(),#1/1/2006#) 将返回离2006年元旦还有多少天。

23.在执行程序时，有时我们不希望因为程序发生错误而导致程序终止，也不希望将错误暴

露在访问者的面前，这时我们就要用到容错语句On Error Resume Next ,这条语句表示，如果碰到错误，就跳过去继续执行下一句。

24.ASP的五大内部对象包括Response 、Request、Session、Applicatio、Server

25.下面的程序段用Cookies来完成设置关键字user_name的值和有效期，请填写其中的空

格。

Response.Cookies(“user_name”)=“高航”

Response.Cookies(“user_name”).Expires=#2005-10-1# …设置关键字user_name 的有效期

26.Session对象有它的有效期，默认为20 分钟，另外，我们可以利用Session的一

个属性Timeout 可以修改Session对象的有效期时长。

27.Server对象有一个属性ScriptTimeout ，可以用来设定脚本文件的最长执行时

间，其默认值为90秒。

28.对于W3 Jmail邮件发送组件，如果信箱是jjshang99@https://www.360docs.net/doc/2715316176.html,，密码是123456，发信

服务器是smtp.163.dom。请写出执行发送邮件的语句Jmail.send("jjshang99:123456@https://www.360docs.net/doc/2715316176.html,")

29.对于如下图的数据表link，请填写下面的SQL语句中的空格：

图1

查询提交日期大于2003-1-1的前三条数据记录，并按提交日期的降序排列

strSql="Select top 3 * From link Where submit_date #2003-1-1# Order By submit_date > "

查询网站名字中有“网”字的记录

strSql="Select * From link Where desc “

30.针对上面图1所示，下列程序将完成对link表中内容的更新，所需要更新的字段假设

已经从另外一个表单文件中取得，另假设数据库文件wwwlink.mdb和本文件存放在同一个文件夹下，请填写下面程序段中的空格。，数据表名为link。

…以下获得所要修改记录的link_id

Dim varLink_id

varLink _id =Request.QueryString(“link_id”)

'以下连接数据库

Dim db

Set db=Server.CreateObject("ADODB.Connection")

1．db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

…以下为获取修改字段

Dim varName,varUrl,varIntro,varSubmit_date

varName=Request.Form(“name”)

varUrl =Request.Form(“url”)

varIntro =Request.Form(“intro”)

varSubmit_date =Request.Form(“submit_date”)

…以下strSql为更新语句

Dim strSql,

strSql=”Update link Set name=?”&varName& “?, url=?”&varUrl& “? , intro=?”&varIntro& “?,submit_date=#”&varName& “# W here link_id=” & varLink_id '以下是执行更新语句

Db.Execute(strSql)

…更新完数据后返回首页

Response.Redirect “index.asp”

网站名称

网站地址

提交日期

14．下面是利用文件存取组件完成新建一个文本文件test.txt的过程，请填写其中的空格。

Dim FileObject '声明一个FileSystemObject对象实例2．SetFileObject=Server.CreateObject("Scripting.FileSystemObject")

Dim TextFile '声明一个TextStream对象实例

SeTextFile= FileObject.CreateTextFile("C:\inetpub\wwwroot\asptemp\chapter10\test.txt") TextFile.WriteLine("欢迎您") '向文件中写一行内容，内容为“欢迎您”

TextFile.Close '关闭TextStream对象

Response.Write "已经成功建立文件，请自己打开查看。"

三、编程题（（第一题8分，第二题8分，第三题12分）

1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？

大小和尚吃馒头问题

Dim I,J,ren,mantou

For I=1 To 100 '大和尚从1到100循环

For J=1 To 100 '小和尚从1到100循环

ren=I+J '计算总人数

mantou=I*4+J*0.25 '计算总馒头数

If ren=100 And mantou=100 Then

Response.write"
大人=" & I & " 小孩=" & J

End If

2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可）

Dim count '声明一个组件实例变量

Set count=Server.CreateObject("MSWC.pagecounter")

count.PageHit() '将当前网页访问次数加1

Dim visit_number

visit_number=count.Hits() '获取当前网页访问次数

Response.Write "您是第" & cStr(visit_number) & "位访客"

3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。

<% Option Explicit %>

Dim db, strCon

strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver

(*.mdb)}"

Set db=Server.CreateObject("ADODB.Connection")

db.Open strCon

查询全部成员

成员列表

'先输出表格的标题栏

'建立Recordset对象

Dim rs,strSql

Set rs=Server.CreateObject("ADODB.Recordset")

strSql ="Select * From link Order By name " '以姓名为序排列

rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针

'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息

If rs.Bof Or rs.Eof Then

Response.Write "现在还没有数据"

Else

'以下主要为了分页显示

Dim page_size '定义每页多少条记录变量

Dim page_no '定义当前是第几页变量

Dim page_total '定义总页数变量

page_size=8 '每页显示10条记录

'如果第一次打开，则page_no为1，否则由传回的参数决定

If Request.QueryString("page_no")="" Then

page_no=1

Else

page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数End If

rs.PageSize=page_size '设置每页多少条记录

page_total=rs.PageCount '返回总页数

rs.AbsolutePage=page_no '设置当前显示第几页

'下面一段利用表格显示当前页的所有记录

Dim I

I=page_size '该变量用来控制显示当前页记录

Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾I=I-1

'下面将利用表格输出名单

Response.Write "

rs.MoveNext

Loop

Response.Write "

姓名	电话	email
" & rs("name") & "	" & rs("tel") & "	" & rs("email") & "

" '表格结束

Response.Write "

请选择数据页: "

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接

For I=1 To page_total

If I=page_no Then

Response.Write I & " "

Else

Response.Write "" & I & " "

End If

'关闭对象

rs.Close

Set rs=nothing

db.Close

Set db=nothing

一．选择题（每题2分，共40分）√

BBDCB ABABB AACCB CCBAB

二．填空题（每题1分，共40分）

3．VBScript

4．IIS

5．“vbscript”

6．d

7．Rnd或Rnd()

8．<% Option Explicit %>

9．字段

记录

10．Preserve (说明：这样就可以保留原有数据，否则就不能保留)

11．0

Sum+I^3

Cube

12．Weekday

2,3

Response.Write

13．“”

Response.Redirect

14．V arNumber=””

Response.Cookies(“number”)

Response.Cookies(“number”).Expires

15．Ubound

UserOnLine(I)

16．Between

Desc

Count(*)

17．"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

"Select * From link Order By Submit_date Desc"

Not rs.Eof

<%=rs("URL")%>

rs.MoveNext

18．strSql,db,1

Not rs.Bof And Not rs.Eof

CInt

PageSize

AbsolutePage

一．选择题（每题2分，共40分）

BBCCC DCBDA ABDBC

二．填空题（每题1分，共40分）

19．Const

20．isNumeric

21．Sub子程序、Function 函数

22．8

23．“d”

24．On Error Resume Next

25．Response 、Request、Session、Applicatio、Server

26．Response.Cookies(“user_name”).Expires

27．20 、Timeout

28．ScriptTimeout

29．Jmail.send("jjshang99:123456@https://www.360docs.net/doc/2715316176.html,")

30．top 3 、> 、desc

31．"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Update link Set name=?”&varName& “?, url=?”&varUrl& “? , intro=?”&varIntro& “?,submit_date=#”&varName& “#

Db.Execute(strSql)

name like …%网%?

32．Set

Set

TextFile.WriteLine("欢迎您")

三．编程题（第一题10分，第二题20分）

1．

大小和尚吃馒头问题

Dim I,J,ren,mantou

For I=1 To 100 '大和尚从1到100循环

For J=1 To 100 '小和尚从1到100循环

ren=I+J '计算总人数

mantou=I*4+J*0.25 '计算总馒头数

If ren=100 And mantou=100 Then

Response.write"
大人=" & I & " 小孩=" & J

End If

2．<%

Dim count '声明一个组件实例变量

Set count=Server.CreateObject("MSWC.pagecounter")

count.PageHit() '将当前网页访问次数加1

Dim visit_number

visit_number=count.Hits() '获取当前网页访问次数

Response.Write "您是第" & cStr(visit_number) & "位访客"

3．

<% Option Explicit %>

Dim db, strCon

strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"

Set db=Server.CreateObject("ADODB.Connection")

db.Open strCon

查询全部成员

成员列表

'先输出表格的标题栏

'建立Recordset对象

Dim rs,strSql

Set rs=Server.CreateObject("ADODB.Recordset")

strSql ="Select * From link Order By name " '以姓名为序排列

rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针

'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息

If rs.Bof Or rs.Eof Then

Response.Write "现在还没有数据"

Else

'以下主要为了分页显示

Dim page_size '定义每页多少条记录变量

Dim page_no '定义当前是第几页变量

Dim page_total '定义总页数变量

page_size=8 '每页显示10条记录

'如果第一次打开，则page_no为1，否则由传回的参数决定

If Request.QueryString("page_no")="" Then

page_no=1

Else

page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数End If

rs.PageSize=page_size '设置每页多少条记录

page_total=rs.PageCount '返回总页数

rs.AbsolutePage=page_no '设置当前显示第几页

'下面一段利用表格显示当前页的所有记录

Dim I

I=page_size '该变量用来控制显示当前页记录

Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾I=I-1

'下面将利用表格输出名单

Response.Write "

rs.MoveNext

Loop

Response.Write "

姓名	电话	email
" & rs("name") & "	" & rs("tel") & "	" & rs("email") & "

" '表格结束

Response.Write "

请选择数据页: "

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接

For I=1 To page_total

If I=page_no Then

现代企业管理-在线作业

现代企业管理_在线作业_1 交卷时间：2016-03-05 20:48:46 一、单选题 1. (5分) A. 激励 B. 组织 C. 管理 D. 战略计划得分： 5 知识点：管理的概念展开解析答案 C 解析 2. (5分) A. 事业部制组织 B. 直线职能制组织 C. 虚拟组织 D. 矩阵制组织得分： 5 知识点：现代企业组织结构对企业资源进行计划、组织、人员配备、领导、控制以有效地实现组织目标的过程称为（）。属于企业组织结构的创新形式是（）。

展开解析答案 C 解析 3. (5分) A. 剩余政策 B. 正常鼓励加额外鼓励政策 C. 固定股利政策 D. 固定股利比例政策得分： 5 知识点：利润分配管理展开解析答案 B 解析 4. (5分) A. 员工绩效评估 B. 员工培训 C. 人员的选拔与使用 D. 人力资源规划的制定得分： 5 知识点：人力资源管理概论展开解析答案 C 解析当企业的净利润与现金流量不够稳定时，多采用的利润分配政策是（）。 “才尽其用”主要表现了人力资源管理（）方面的内容。

5. (5分) A. 产品形式定价 B. 地点差别定价 C. 时间差别定价 D. 顾客细分定价得分： 5 知识点：市场营销组合策略展开解析答案 D 解析 6. (5分) A. 购买量较大 B. 对买主非常重要 C. 具有很强特色的产品 D. 卖方规模较大得分： 5 知识点：战略分析方法展开解析答案 A 解析 7. (5分) 对不同的顾客采用不同的价格属于（）。在波特竞争五力模型中，能够增强购买者议价能力的因素是（）。

网页设计大作业word模板

伊犁师范学院《网页设计》期末课程设计设计题目：我的个人网页学号：018 姓名：马建武院系：电子与信息工程学院专业班级：计科08-2 指导老师：王雪峰日期：2011-6-20

一、设计思想随着网络技术的飞速发展，网络已经遍及每个人的身边，通过个人网页把自己展示在网络上，不仅可以获得更多的朋友，有用的信息，也是跟随时代发展，做走在时代前沿的一个有效方式，本网站旨在设计一个个性化的个人网站，展现自己的生活，学习，爱好等等信息，通过本网站把自己展示出来。二、开发环境及软件 Windows XP，Macromedia Dreamweaver 8，photoshop等三、系统结构功能图、页面结构草图及部分页面截图四、部分代码（主要添加CSS代码） 1.添加首页背景音乐 2.运用框架