ASP上机练习运行实例.doc

1. p=1*2+3*4+5*6+7*8+9*10+11*12=ASP作业题运行结果：p=1*2+3*4+5*6+7*8+9*10+11*12=3222. 随机显示不同的图像随机显示不同的图像 显示表单1 显示表单2 表单1: 表单2: 3. 求两个数的最大公约数和最小公倍数求两个数的最大公约数和最小公倍数 0 & n 0) m_cup = m; n_cup = n; res = m_cup % n_cup; while (res != 0) m_cup = n_cup; n_cup = res; res = m_cup % n_cup; printf(Greatest common divisor: %dn, n_cup); printf(Lease common multiple : %dn, m * n / n_cup); else printf(Error!n); return 0; %4.编写一个含有多道选择题的ASP页面.%if session(username)= then response.Write 请先登录 response.End()end if%1.属于服务器端的动态网站技术有（ ）。HTMLASPJSPPHP 2.以下函数（ ）只能在客户端脚本使用。msgbox()abs()isnumeric()date()3.属于request对象用法正确的是（ ）。request.formrequest.form.countrequest.form(element)request.count 5. 编写一个聊天室 欢迎光临小型聊天室 聊天室用户登陆 用户名 密 码 6.简易网上考试系统ASP作业题试卷基本信息选择科目-选择科目-optionvalue=试卷信息卷面总分(分)单选题多选题判断题题型分布(个) 7. 通过系统是时钟判断当前时间是否大于或等于凌晨5点且小于或等于19点来决定重定向ASP作业题=#5:00:00# and mytime8. 求m和n的平方求m和n的平方和示例% dimm,n,sumcallpingfanghe(m,n)response.write在过程外部输出m和n的平方和是：&cstr(sum)&subpingfanghe(m,n)dimsumsum=m2+n2response.writem和n的平方和=&cstr(sum)& endsub%9创建闹钟程序时钟vartimer;functionclock()vartimestr=;varnow=newDate();varhours=now.getHours();varminutes=now.getMinutes();varseconds=now.getSeconds();timestr+=hours;timestr+=(minutes10)?:0:)+minutes;timestr+=(seconds10)?:0:)+seconds;window.document.frmclock.txttime.value=timestr;timer=setTimeout(clock(),1000);/设置定时器functionstopit()clearTimeout(timer);当前时间：10.用函数求解8的平方根8的平方根 % dim x x = Val(InputBox(请输入一个值) respose.write sqrt(x)End SubFunction sqrt(ByVal a) dim xn xn = 8 do xn1 = (xn + 8/ xn) / 2 If Abs(xn1 2 - 8) 浏览器心情感应时间%a=time()if a=#00:00# thenbgc=silverelseif a#12:00# then bgc=navyelse bgc=redend if%body bgcolor=% if a=#00:00# then %早上好，今天天气怎么样呀？% elseif a#12:00# then %帅哥，下午还有课吗？嘿，今晚去图书馆看书吗？去的话别忘了带我哟! 欢迎画面用分支语句判断%dim nn=25if n=6 thenresponse.Write 赶快从幼儿园毕业吧elseif n=12 thenresponse.Write 你已经是小学生了，好好打基础吧elseif n=18 thenresponse.Write 你已经是中学生了，大学在向你招手了。elseif n求两个数之和输入第一个数字：input type=text name=num1 value=输入第二个数字：input type=text name=num2 value=两个数字之和是：input type=text name=sum value= readonly=readonly用for循环求和%dim m,nresponse.Writem和n的最大公约数是：& hcf(12,4)&response.Writem和n的最小公倍数是：& 12*4/hcf(12,4)function hcf(m,n)if mn thent=mm=nn=tend ifr=m mod ndo while r0m=n:n=r:r=m mod nloophcf=nend function%无标题文档1.属于服务器端的动态网站技术有（ ）。HTMLASPJSPPHP 2.以下函数（ ）只能在客户端脚本使用。msgbox()abs()isnumeric()date()3.属于request对象用法正确的是（ ）。request.formrequest.form.countrequest.form(element)request.count %以下是标准答案部分dim bzd(10)bzd(1)=BCD:bzd(2)=A:bzd(3)=ABC-以下是检索考生提交答案部分dim textid,scoretextid=1:score=0 初始化题号为1,初始化成绩为0-外部遍历循环每道题目，question为表单元素名for each question in request.form-内部循环检索考生提交的答案信息 ksd= 初始化考生答案空 for n=1 to request.form(question).count-1 n是索引变量 ksd=ksd&request.form(question)(n) next response.write第&textid&题,你的回答为：&ksd 输出考生答案- 判断考生答题的正确性 if strcomp(ksd,bzd(textid)=0 then response.write；回答正确，加10分！ score=score+10 else response.write；回答错误，答案为：&bzd(textid)& end if- textid=textid+1题号递增1 nextresponse.write 你的总成绩得分为：&score%3、编写一个可以显示当前目录属性的程序。解答：代码：名称： 路径： 驱动器： 大小： 类型： 属性： 创建日期：运行结果：4、编写一个可以处理指定磁盘的驱动程序。%Set sfo=Server.CreateObject(Scripting.FileSystemObject) Set df=sfo.GetDrive(C) Response.Write(磁盘上可用空间为： & df.AvailableSpace & 字节 & ) Response.Write(磁盘的符号为： & df.DriveLetter & ) Response.Write(磁盘的类型（1-移动 2-固定）： & df.DriveType & ) Response.Write(磁盘上的文件系统结构： & df.FileSystem & ) Response.Write(磁盘的剩余空间 & df.FreeSpace & & 字节) Response.Write(驱动器的路径： & df.Path & ) Resp