?? agency.asp
字號:
<%Server.ScriptTimeout=500%>
<%
id=request.querystring("id")
if id="" or isNumeric(id)=0 then
response.write "錯誤!請重新登陸"
response.end
end if
%>
<!-- #include file=../database.asp -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ourusers where username='supervisor'"
rs.open sql,conn,1,1
if not rs.eof then
if trim(rs("pass"))<>trim(session("pass")) then
response.write "<br>錯誤的密碼!"
'rs.close
'set rs=nothing%>
<script>top.location='../login.asp';</script>
<%
'response.write "rspass:"&rs("pass")
'response.write "sesseionpass:"&session("pass")
conn.close
set conn=nothing
response.end
else
rs.close
set rs=nothing
end if
else
response.write "錯誤:用戶不存在!"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
%>
<!-- Design and Edit By QianFengyun 2000-5-20 -->
<!-- #include file=../change.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=titlename%></title>
<link rel="stylesheet" type="text/css" href="../html/style.css">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<style TYPE="text/css">
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 10pt}
</style>
<script language="javascript">
function agencyDelete(id)
{
if (confirm('真的要刪除嗎?'))
parent.frmrigh.bottom.location="delegency.asp?zid=<%=id%>&id="+id;
}
</script>
<script LANGUAGE="JavaScript">
function checkParent(src, dest){
// Search for a specific parent of the current element
while (src!=null) {
if (src.tagName == dest) return src;
src = src.parentElement;
}
return null;
}
function outline() {
// Expand or collapse if a list item is clicked.
var open = event.srcElement;
// Make sure clicked inside an LI. This test allows rich HTML inside lists.
var el = checkParent(open, "LI");
if (null!=el) {
var pos = 0;
// Search for a nested list
for (var pos=0; pos<el.children.length; pos++) {
if ("UL"==el.children[pos].tagName) break;
}
if (pos==el.children.length) return;
} else return;
el = el.children[pos];
if ("UL"==el.tagName) {
// Expand or Collapse nested list
if (""==el.style.display) {
el.style.display = "block";
//el.style.listStyleImage = "url(../images/folder.gif)";
// el.parentElement.style.listStyleImage = "url(../images/ofolder.gif)";
}
else
{
el.style.display = "";
// el.parentElement.style.listStyleImage = "url(../images/folder.gif)";
}
}
event.cancelBubble = true;
}
document.onclick = outline;
</script>
</head>
<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10" bgcolor=ccbbaa>
<%
function listAgency (did)
Set r2 = Server.CreateObject("ADODB.Recordset")
sql="select * from fenlei where father="&did&" and id>1"
r2.open sql,conn,1,1
response.write "<ul>"
do while not r2.eof
response.write "<LI> <a href=../fenlei/addfenlei.asp?id=1&fid="&r2("id")&" onclick="&chr(34)&"javascript:top.left.frmright.main.form1.fenleiid.value='"&r2("id")&"';"&chr(34)&" target=bottom>"
'&trim(r2("username"))
expediency=r2("expediency")
response.write trim(r2(expediency))
response.write "</a>"
listAgency (r2("id"))
r2.movenext
loop
r2.close
response.write "</ul>"
set r2=nothing
End function
listAgency (0)
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -