📄 getdeptname.asp
字号:
<%response.expires=0%>
<!--#include file="asp/opendb.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="VI60_DTCScriptingPlatform" content="">
<title>显示对应部门姓名</title>
<link rel="stylesheet" type="text/css" href="css/css.css">
<script language="javascript">
//清空单位列表框
function clearall(ObjectName)
{
var i;
for (i=0;i<ObjectName.length;i++)
{
ObjectName.remove(i);
i-=1;
}
}
//增加一个列表项到列表框中
function AddListValue(ObjectName,ListValue)
{
var newOpr
newOpt=parent.document.createElement("OPTION");
ObjectName.add(newOpt);
newOpt.text=ListValue;
newOpt.value=ListValue;
}
</script>
</head>
<body bgcolor="#ffffff">
<%
UnitName=request("UnitName")
set conn=opendb("oabusy","conn","accessdsn")
set rs=server.createobject("adodb.recordset")
sql="select name,username,userlevel from userinf where userdept='"&UnitName&"'"
rs.open sql,conn,1
%>
<script language="javascript">
clearall(parent.document.form1.name);
<%
do while not rs.eof
%>
AddListValue(parent.document.form1.name,"<%=server.htmlencode(trim(rs("name")))&":"&server.htmlencode(trim(rs("username")))&":"&server.htmlencode(trim(rs("userlevel")))%>");
<%
rs.movenext
loop
%>
</script>
<%
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -