网页笔试试题目中职.doc

二O10学年度第一学期职业学校高三级
《A S P网页》期末考试试题
班别___________学号__________姓名__________成绩_______________
一、判断题：（每题1分，共10分）
1、在windows XP环境下不安装IIS也可运行ASP程序。

（）
2、<%=cstr(50)+cstr(60) %>的结果是110。

（）
3、记事本不可用于开发ASP程序。

（）
4、注释语句用’号开头。

（）
5、在ASP程序中常用的脚本语言有VBScript和JavaScript等语言，系统的默认语言为VBScript语言。

（）
6、ASP可以通俗的说就是把脚本语言放在<%和%>之间，一般在服务器端运行。

（）
7、sql=”delete from userinf”作用是删除userinf表中的所有记录。

（）
8、<img>标记中一定存在的属性有alt。

（）
9、<%=mid(“abcdef”,2,2) %>的结果是cd。

（）
10、<%=8>7 or 5>6%>的返回值是false。

( )
二、不定项选择题：（每题2分，共20分）
1、以下属于response对象的方法有。

（）
A、end
B、mappath
C、redirect
D、write
2、sql=”select * from wzxx where 性别=’男’order by 编号desc”，以下正确的是（）
A、该语句是选择所有性别为男的所有记录
B、按照编号降序排列
C、wzxx代表的是要操作的数据库
D、按照编号升序排列
3、sql=”insert into userinf(用户名,密码) values(‘小明’,’123456’)”，以下正确的是（）
A、userinf表中只有用户名和密码两字段
B、该语句语法错误
C、该语句的作用是向userinf表插入数据
D、该语句的作用是更新userinf表数据
4、以下sql语句中没有语法错误的是（）
A、sql=”select * from talk order by 性别=女”
B、sql=”insert in message(留言者,留言内容) values (‘小明’,’你好’)”
C、sql=”delete from userinf where 编号=1”
D、sql=”update userinf 性别=”男” where 编号=1”
5、以下语句中没有错误的是（）
A、<% set rs=server.createobject(“adodb.recordest”) %>
B、<% set conn=server.createobject(“adodb.conection”) %>
C、<% set fs=server.createobject(“scripting.filesystemobject”) %>
D、<% path=server.mapath(“data/book.mdb”) %>
6、以下语句中存在错误的是（）
A、<%=date()%>
B、<%=hour(now())%>
C、<%=day()%>
D、<% response.write month() %>
7、以下不属于<font></font>标记对属性的是：（）
A、face
B、bgcolor
C、size
D、color
8、以属于表单标记<form></form>的属性有：（）
A、method
B、action
C、name
D、size
9、<%=len(“全选ABCD”) %>的结果是（）
A、14
B、10
C、7
D、20
10、<%=left(“节约用电倡议书”,2) %>的结果是（）
A、约用
B、用电
C、节约
D、议书
三、填空题：（每空2分，共20分）
1、假设本机是服务器，Jsj063是该服务器的一个虚拟目录，该目录下有一个叫01zyj 的文件夹，该文件夹里面有一个reg.asp文件，如何运行该程序：
http://_________________________________________________________
2、用红色、webdings、加粗、斜体来修饰“9”的相应HTML代码是______________________________________________________________
3、以新建窗口方式建立和“搜狐”网页链接的相应HTML代码是：____________________________________________________________
4、假设系统的当前时间是2008-12-26 15:29:50，那么<%=year(now)& month(now)& day(now) & hour(now)& minute(now)& second(now) %>的输出结果是__________________________________________________________________
5、补充代码，完成连接页面“conn.asp”代码的编写。

<%
dim db,conn,connstr
db="data/book.mdb"
______________________________________________________________
______________________________________________________________
______________________________________________________________
%>
6、补充代码完成站点计数器的制作（wzxx表中只有一个“访问量”字段）
<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from wzxx"
rs.open sql,conn,3,3
_______________________________________________________________
_______________________________________________________________
%>
您是第_________________________________位访问本站的访客，欢迎您的来访。

四、解答题：（每空2分，共50分）
1、补充代码完成注册功能的制作，将用户资料保存到yhxx表中。

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<p>用户注册</p>
<form name="form1" method="post" action="reg.asp?action=regsave">
<p>用户名：<input name="yhm" type="text" ></p>
<p>密码：<input name="mm" type="password" ></p>
<p>姓名：<input name="xm" type="text" ></p>
<p><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></p>
</form>
</div>
<%
If request(“action”)=”regsave” then
dim getyhm,getmm,getxm
getyhm=request(“yhm”)
_______________________________________ ‘用md5加密密码
getxm=request(“xm”)
set rs=server.createobject("adodb.recordset")
sql="select * from yhxx where 用户名='"&getyhm&"' or 姓名='"&getxm&"'" rs.open sql,conn,1,1
__________________________________________________________
if getyhm<>"" and getmm<>"" and getxm<>"" then
sql=__________________________________________________________________ ______________________________
response.write "<script>alert（’注册成功！’）</script>"
response.write "<a href=’login.asp’>登陆</a>"
else
response.write "<script>alert（’用户名、密码、姓名不能为空，请重新注册！’）</script>" end if
else
response.write "<script>alert（’该用户名或姓名已存在，请选用其它的用户名或姓名’）</script>"
end if
end if
%>
2、补充代码完成登陆功能的制作：（用户资料保存在yhxx表中）
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<p>用户登陆</p>
<form name="form1" method="post" action="login.asp?action=checklogin">
<p>用户名：<input name="yhm" type="text" ></p>
<p>密码：<input name="mm" type="password" ></p>
<p><input type="submit" name="Submit" value="登陆"></p>
</form>
<%
If request(“action”)=”checklogin”then
dim getyhm,getmm
getyhm=request("yhm")
getmm=______________________________________
set rs=server.createobject(“adodb.recordset”)
sql=_____________________________________________________________ rs.open sql,conn,1,1
if not rs.eof then
session("用户编号")=rs("用户编号")
session("权限")=rs("权限")
response.write "<a href='xgzl.asp'>修改资料</a>"
response.write "<p><a href='cjgl.asp'>超级管理</a>"
response.write "<p><a href='lyb.asp'>留言板</a>"
else
response.write "用户名或密码错误！"
end if
End if
%>
3、补充代码完成修改用户资料功能的制作（用户资料保存在yhxx表中）<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
If session(“用户编号”)=”” then
Response.write “你还没有登陆，不能进入该页面！”
_____________________________________________________________ End if
dim getyhbh
getyhbh=session("用户编号")
set rs=server.CreateObject("adodb.recordset")
sql=”select * from yhxx where _________________________________”
rs.open sql,conn,1,1
<p>修改资料</p>
<form name="form1" method="post" action="xgzl.asp?action=xgzlsave">
<p>用户名：<%=rs("用户名")%></p>
<p>密码：<input name="mm" type="text" value=<%=rs("密码")%>></p>
<p>姓名：<%=rs("姓名")%></p>
<p><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></p>
</form>
<%
if request("action")="xgzlsave" then
dim getmm
getmm=__________________________________________ ‘用md5加密
if ________________________________________________ then ‘用md5加密空字符串为”8ef6u5u3fe998”
sql=_______________________________________________________________ conn.execute sql
response.redirect “userinf.asp”
else
response.write "<script>alert（’密码不能为空！’）</script>"
end if
end if
%>
4、补充代码完成删除用户功能和升级用户权限功能的制作。

（用户资料保存在yhxx 表中）
<!--#include file="conn.asp"-->
if session("权限")<>"管理员" then
response.write "你不是管理员，不能进入该页面"
response.end
end if
%>
<div align="center">
<p>超级管理</p>
<table width="500" border="1" cellspacing="0" bordercolor="#0000FF">
<tr>
<td width="140" height="30"><div align="center">用户名</div></td>
<td width="117" height="30"><div align="center">姓名</div></td>
<td width="120"><div align="center">修改权限</div></td>
<td width="105" height="30"><div align="center">删除</div></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from yhxx where 权限='普通用户'"
rs.open sql,conn,1,1
_________________________________________________________
%>
<tr>
<td height="30"><div align="center"><%=rs("用户名")%></div></td>
<td height="30"><div align="center"><%=rs("姓名")%></div></td>
<td><div align="center"><a href="cjgl.asp?sjbh=<%=rs("用户编号")%>">升级为管理员</a></div></td>
<td height="30"><div align="center"><a href="cjgl.asp?scbh=<%=rs("用户编号")%>">删除</a></div></td>
</tr>
<%
_________________________________________________________
_________________________________________________________
%>
</table>
<%
if request("scbh")<>"" then
dim getscbh
getscbh=request(“scbh”)
sql=_____________________________________________________
conn.execute sql
response.redirect "cjgl.asp"
end if
%>
<%
if request("sjbh")<>"" then
dim getsjbh
getsjbh=request(“sjbh”)
sql="update yhxx set 权限='管理员' where 用户编号=____________________" conn.execute sql
response.redirect "cjgl.asp"
end if
%>
5、补充代码完成聊天室的制作（对应数据库的表是talk，talk表里包含了聊天编号、聊天者、聊天内容、发言时间字段）
<!--#include file="conn.asp"-->
<html>
<head><title>聊天室</title></head>
<body>
<p>聊天室</p>
<form name="form1" method="post" action="talk.asp?action=savetalk">
<p>聊天者：<input name="ltz" type="text"></p>
<p>聊天内容：<textarea name="ltnr" cols="66" rows="4"></textarea></p>
<p><input type="submit" name="Submit" value="发言"></p>
</form>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from talk order by 聊天编号desc"
rs.open sql,conn,1,1
if request(“page”)=”” then
page=1
else
page=cint(request(“page”))
end if
________________________________________ ‘页容量为30
mypagesize=rs.pagesize
rs.absolutpage=page
do while not rs.eof and mypagesize>0
%>
<p>____________________________________________说：<%=rs("发言内容")%> （<%=rs("发言时间")%>）</p>
<%
Rs.movenext
Mypagesize=mypagesize-1
loop
%>
<%
if request("action")="savetalk" then
dim getltz,getltnr
getltz=request(“ltz”)
getltnr=request(“ltnr”)
if getltz<>”” and getltnr<>”” then
sql=______________________________________________________________
conn.execute sql
response.redirect "talk.asp"
else
response.write “<script>alert(‘聊天者和聊天内容不能为空！’)</script>”
end if
end if
%>
<p>聊天记录总数：_______________________条，每页显示：____________________条第___________________________页，共___________________________页
<% If page>1 then %>
<a href=”talk.asp?page=1”>第一页</a>
<a href=”talk.asp?page=<%=page-1%>”>上一页</a>
<% end if %>
<% If page<rs.pagecount then %>
<a href=”talk.asp?page=___________________________”>下一页</a> <a href=”talk.asp?page=___________________________”>最后一页</a> <% end if %>
</p>
</body>
</html>。