Question

以下asp代码是什么意思，功能

<!--#include file="conn.asp"-->
<%
name=session("name")
depid=session("depid")
oskey=session("oskey")
userid=session("userid")
if userid<>"" then
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from department where id="&depid
rs.open sql,conn,1,3
if rs.eof or rs.bof then
depname=rs("depname")
end if
rs.close
set rs=nothing
end if
if session("name")="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end
end if%>
第二段什么意思，功能（login.asp）
<%
if session("ok")="yes" then
response.write("function killErrors() {return true;}")
response.write("window.onerror = killErrors;")
response.write("function show(){pop=window.open('login.asp','','width=270,height=150,top=200,left=300');")
response.write("if(pop){if((pop.document.body.clientWidth>280)||(pop.document.body.clientHeight>160)){")
response.write("pop.close();")
response.write("window.showModalDialog(""about:<""+""script language=javascript>window.open('login.asp','','width=270,height=150,top=200,left=300');window.close();""+""</""+""script>"","""",""dialogWidth:0px;dialogHeight:0px"");")
response.write("}}}show();")
else
response.Redirect("../index.asp")
end if
%>

Answer 1

<!--#include file="conn.asp"-->数据库链接页面
<%
name=session("name")赋值 名字
depid=session("depid")赋值 部门ID
oskey=session("oskey")赋值 某个关键值
userid=session("userid")赋值 用户ID
if userid<>"" then 如果用户ID不是“”的话
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from department where id="&depid 根据部门ID查询出部门表的数据
rs.open sql,conn,1,3
if rs.eof or rs.bof then
depname=rs("depname") 把查询出的部门名字赋值给depname
end if
rs.close
set rs=nothing
end if
if session("name")="" then 如果名字是“”的话
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';") 跳转到default.asp页面
response.write("</script>")
response.end
end if%>

第二段，功能（login.asp）
<%
if session("ok")="yes" then 如果ok的值是yes的话，那么就执行以下语句
以下语句写的有点乱，大体意思是弹出一个login.asp页面
response.write("function killErrors() {return true;}")
response.write("window.onerror = killErrors;")
response.write("function show(){pop=window.open('login.asp','','width=270,height=150,top=200,left=300');")
response.write("if(pop){if((pop.document.body.clientWidth>280)||(pop.document.body.clientHeight>160)){")
response.write("pop.close();")
response.write("window.showModalDialog(""about:<""+""script language=javascript>window.open('login.asp','','width=270,height=150,top=200,left=300');window.close();""+""</""+""script>"","""",""dialogWidth:0px;dialogHeight:0px"");")
response.write("}}}show();")
else 如果ok的值不是yes的话，那么就执行以下语句
response.Redirect("../index.asp") 页面跳转到index.asp页面
end if
%>

Answer 2

<%
name=session("name")
depid=session("depid")
oskey=session("oskey")
userid=session("userid") '从SESSION中取得相应的值
if userid<>"" then '如果userid不为空
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from department where id="&depid '从department表中找到id为 depid变量的记录
rs.open sql,conn,1,3
if rs.eof or rs.bof then
depname=rs("depname") '把找到的depname字段数据赋值给 depname变量
end if
rs.close
set rs=nothing
end if
if session("name")="" then '如果SESSION中name的值为空
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';") '用JAVASCRIPT中跳转到 default.asp
response.write("</script>")
response.end
end if%>

从上看,这个功能就是取得 部门名称 这个功能

Answer 3

<!--#include file="conn.asp"-->需要用到这个页面
<%
name=session("name") 获取session值
depid=session("depid")
oskey=session("oskey")
userid=session("userid")
if userid<>"" then 当userid不为空的时候
set rs=server.CreateObject("ADODB.RecordSet") 创建一个连接
sql="select * from department where id="&depid 查询部门表里所有id等于上面获取的那个值的集合的sql字符串
rs.open sql,conn,1,3 运行sql
if rs.eof or rs.bof then 当指针在第一条前或者在最后一条后的时候，可能有错，应该加个not
depname=rs("depname") 把从数据库中读取出的部门名字赋给变量
end if
rs.close 关闭连接
set rs=nothing
end if
if session("name")="" then 当session["name"]为空的时候
response.write("<script language=""javascript"">") 向页面写一段东西，这里是一段js
response.write("window.top.location.href='default.asp';") 最顶层页面跳到default.asp去
response.write("</script>")
response.end 写完了
end if%>

Answer 4

是一个登录系统！
基本是输入用户名密码对就转到相应的页面
用户名密码错就直接关掉
用户名密码为空就自动转到指定页面
具体就是这样