一、填空题
1、ASP全称为(Active Server Pages),是一种由(微软)公司开发的服务器端的脚本语言运行环境。 2、在Windows XP平台上运行ASP文件,需要安装(IIS )。 3、HTML是一种用来制作(超文本)文档的标记语言。 4、在HTML标记语言中,表单的标记对是(from ),表单有以下两种提交方式(post)和(set)。 5、表单标记对中常用的输入域有:(单行文本框)、(单选按钮)、(复选框)、(下拉式选择框)、(滚动文本框)和(按钮)。
6、表格通过( table)标记来定义,表格中的一行通过( tr)标记来定义,行中的单元格通过(td)标记来定义。
7、cookies是用户访问某网站时在(用户)磁盘上写入的小文件。
8、HTML中段落标记以()开始,以()为结束标记。
9、ASP可以使用(VBScript)和(JavaScript)作为脚本语言,其中(VBScript)是ASP默认的脚本语言。
10、ASP脚本语言若在服务器端运行,使用(<%........%>)标记对,若在客户端运行,使用( <%
welcome=“你好”
response.write welcome&”欢迎光临” %> 2、 <%
user_name=”东东” welcome(user_name,2) function(dim name)
str=name&”:你好,欢迎光临本站!” response.write str
end function %> <%
dim user_name user_name=“东东”
call welcome(user_name) sub welcome(name)
4
dim str
str=name&“:你好,欢迎光临本站!” response.write str end sub %> 3、 <%
response.cookies(username)=”jerry” response.cookies(userid)=”6666”
response.write”用户名:”resquest.cookies(username) response.write”用户ID:”request.cookiex(userid) %> <%
response.Cookies(\"username\")=\"jerry\" response.Cookies(\"userid\")=\"6666\"
response.write\"用户名:\"&request.cookies(\"username\")&\"
\" response.write\"用户id:\"&request.cookies(\"userid\")&\"
\" %> 4、 <%
session(“name”)=Tom session(“sex”)=male
for i=1 to session.contents.a(a改count) response.write(“
”&session.contents()) next %>
5、下面程序段是在下午6:00以后显示“Good Evening” <%
if time<6:00:00pm then welc=’Good Evening’ response.end welc end if %> <%
if time>#6:00:00pm then wel=“Good Evening!” else
wel=“Good some other time!” end if %> 6、 <%
Sub function aa ()
temp=inputbox(“请输入数据:”) msgbox “你输入的数据为:”&temp end function
5
call aa %> 7、
<% = i %> | <% = request.serverVariables(i) %> |
session(“name”)=”Jerry” session(“sex”)=”male”
for i=2 to session.contents.count (2改成1) response.write(“
”&session.contents(i)) next %>
9、以下程序输出6个感叹号。 <%
x=1
do until 1<>1 <>改成= x=x*”!”
if x=”!!!!!” then exit for 少一个! loop %>
<%=x%>
10、以下程序段实现的功能是:如果数组中某个元素与表达式“Rose”相匹配,则立即退出for循环。数组共有10个元素。 <%
dim myarray(10)
myarray[4]=”Rose” []改() for i=0 to 9
if myarray(i)<>”Rose” the exit do do改for nex 少个t %>
四、编程题
1、按照下面图所示,编写出相应用户登录的HTML文档。(书284)
6
2、按照上题的登录要求,编写出相应的程序对登录用户身份的合法性进行验证,如果身份合法在网页中显示“欢迎光临本站!”,否则给出“密码或用户名错误!”。
注:数据库为sql数据库,数据库名称为mydb,表的名称为users,两个字段分别为:name和password,均为varchar类型。合法的用户名为:admin,合法的密码为:666666. <%
dim usernick,password,sql
userName=request.form(\"userName\") password=request.form(\"password\")
sql=\"select * from users1 where userName='\"&userName&\"' and userPass='\"&password&\"'\" rs.open sql,conn,0,1 if rs.eof then
response.write \"
set conn=nothing response.end end if
session(\"userName\")=userName session(\"userID\")=rs(\"userID\")
session(\"userType\")=rs(\"userTypeID\") response.redirect \"default.asp\" set conn=nothing %>
3、安装下面图所示,编写出相应用户注册的HTML文档。(书288页)
4、把上题注册的信息提交到信息库里。
注:数据库类型为access数据库,数据库名为mydb,数据库中数据
表名为users,表中的字段分别为:name、password、realname、email、province、city、address、zip、phone,所有字段的类型均为archar,其中必填字段不容许为空。 <%
'连接Access数据库的代码
'set conn=server.createobject(\"adodb.connection\") 'dbpath=server.mappath(\"student.mdb\")
'conn.open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\"&dbpath 'set rs=server.createObject(\"ADODB.Recordset\") %>
5、编写程序,读取Student数据库中info数据表的所有记录,并在浏览器中显示出来。 注:info的所有字段名分别为:编号、学号、姓名、性别和身高,类型均为文本类型。 <%
studentid=request.form(\"txtstudentID\")
7
name1=request.form(\"txtname\") sex=request.form(\"txtsex\") stature=request.form(\"txtstature\") if studentid=\"\" or name1=\"\" or sex=\"\" or stature=\"\" then response.write(\"对不起,请将数据填写完整!\") response.write(\"返回上一页\") response.End() end if set conn=server.CreateObject(\"adodb.connection\") conn.open\"dsn=aa;database=student;uid=sa;pwd=\" set rs=server.CreateObject(\"adodb.recordset\") 'dbpath=server.MapPath(\"db1.mdb\") 'conn.open\"Driver={Microsoft Access Driver (*.mdb)};DBQ=\"&dbpath sqlcmd=\"insert into info(学号,姓名,性别,身values(\"&studentID&\ 'sqlcmd=\"insert into info(姓名) values('\"&name&\"')\" conn.execute sqlcmd 'set rs=conn.execute(\"select * from info\") conn.close %>
6、编写程序,统计Student数据库中info数据表身高超过1.8米记录的个数。 <%
set conn=server.createobject(\"adodb.connection\")
conn.open \"Driver={SQL Server};Database=student;Server=COMPUTER;UID=sa;PWD=\" set rs=server.createObject(\"ADODB.Recordset\") sqlcmd=\"delete from info where 身高>180\" conn.execute sqlcmd %>
8
高)
因篇幅问题不能全部显示,请点此查看更多更全内容