中央2台对话节目:帮忙解决1道ASP题目?急.....谢谢

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 03:29:30
二、请根据程序写出所连接数据库的名称、表名称及表中各项名称与类型。
<%@ language=vbscript %>
<html>
<head><title>考生登录</title></head>
<body bgcolor=lightyellow>
<%
'定义变量
dim name,password
dim objconn,objRS
name=trim(request("name"))
password=trim(request("password"))
if name<>"" and password<>"" then
set objconn=server.createobject("ADODB.connection")
objconn.connectionstring="provider=microsoft.jet.OLEDB.4.0;"&_
"data source="& server.mappath("exercise.mdb")
objconn.open
strSQL="select * from student where 编号='"&_
name & "' and 口令='" & password &"'"
set objrs=server.createobject("adodb.recordset")
objrs.open strSQL,objconn,1,1
if not objrs.eof then
if objrs("已考") then
response.write"<P algin=center><font size=4>"
response.write objrs("编号")&",你好!"
response.write "你已参加过考试。<P>你的考试成绩是"
response.write objrs("成绩") &"分。<p>"
response.write "<A href=login.asp? name="& name &">"
response.write "返回首页</A></body></html>"
response.end
else
session("pass")=1
session("user")=name
response.redirect"test.asp"
end if
else
response.write"<script language=vbscript>" & chr(13)
response.write"msgbox" & chr(34)&"对不起,编号或口令不正确!"& chr(34)&chr(13)
response.write"</script>"
end if
end if
%>
<form action=login.asp method=post name=form1>
请输入考生编号和口令<hr>
<table width=300 align=center>
<tr><td height=40>编号:
<input name=name value='<%=name%>' size=15>
<tr><td height=40>口令:
<input name=password type=password value='<%=password%>' size=15>
<tr><td height=40>
<input type=button value=确定 onclick=check()>
<script language=vbscript>
sub check()
str1=form1.name.value
str2=form1.password.value
if str1=empty then
msgbox"请输入您的编号!"
exit sub
elseif str2=empty then
msgbox"请输入您的口令!"
exit sub
end if
form1.submit
end sub
</script>
</table>
</form>
</body>
</html>

数据库 exercise.mdb
表 student
字段 编号(文本) 成绩(文本) 口令(文本) 已考(逻辑)

太高等了吧