; sRec("listId") & ")"">
添加</div></td><td width='40' class='menuFont'>
<div align='center' style='cursor:hand'
onclick=""jscript:showForm('edit',"
& sRec("listId") & ")"">编辑</div></td>" & chr(13))
response.write("<td width='40' class='menuFont'>
<div align='center' style='cursor:hand'
onclick=""jscript:window.location='disp.asp?disp=del&parentId=
" & sRec("listId") & "'"">删除 </div></td>"
& chr(13) & "<td> </td>" & chr(13) & "</tr>"
& chr(13) & "</table>" & chr(13) & "</td>"
& chr(13) & "</tr>" & chr(13))
response.write("<tr id='subMenu" & sRec("listId")
&"' style='display:none'>")
if sNum=sRec.recordcount then
response.write("<td width='18' valign='top'")
response.write("<ccid_file values="images/angel" />")
response.write("</td>" & chr(13))
else
response.write("<td width='18' valign='top'
background='images/eline.gif'>")
response.write("</td>" & chr(13))
end if
response.write("<td>" & chr(13))
listChild(sRec("listid"))
response.write("</td>" & chr(13) & "</tr>" & chr(13))
else
response.write("<tr>" & chr(13))
if sNum=sRec.recordcount then
response.write("<td width='18' valign='top'>
<ccid_file values="images/angel" src=images/angel.gif /></td>" & chr(13))
else
response.write("<td width='18' background='
images/eline.gif' valign='top'><ccid_file values="images/t" /></td>" & chr(13))
end if
response.write("<td>" & chr(13) & "<table
width='100%' border='0' cellspacing='0'
cellpadding='0'>" & chr(13))
response.write("<tr>" & chr(13) & "<td width='118'
class='menuPro' id='listName" & sRec("listId") & "'>
<ccid_file id=img" & sRec("listId") & " values="images/file" align=absMiddle alt=" & sRec("listInfo") & " />"
& server.HTMLEncode(sRec("listName"))
& "</td>" & chr(13) & "<td width='40' class='menuFont'>
<div align='center' style='cursor:hand' onclick=""
jscript:showForm('add'," & sRec("listId") & ")"">
添加</div></td><td width='40' class='menuFont'>
<div align='center' style='cursor:hand' onclick=""
jscript:showForm('edit'," & sRec("listId") & ")"">
编辑</div></td>" & chr(13))
response.write("<td width='40' class='menuFont'>
<div align='center' style='cursor:hand'
onclick=""
jscript:window.location='disp.asp?disp=del&parentId="
& sRec("listId") & "'"">删除</div></td>" & chr(13)
& "<td> </td>" & chr(13) & "</tr>" & chr(13) &
"</table>" & chr(13) & "</td>" & chr(13) & "</tr>" & chr(13))
end if
sRec.movenext
sNum=sNum+1
wend
response.write("</table>" & chr(13))
end if
sRec.close '关闭记录集
set sRec=nothing '关闭记录集
end function
sConn.close '关闭数据库链接
set sConn=nothing '关闭数据库链接
%>
下面这是调用页代码，保存成index.asp
<%@LANGUAGE='VBSCRIPT' CODEPAGE='936'%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<title>目录树</title>
<script language='JavaScript' type='text/JavaScript'>
<!--
function MM_reloadPage(init)
{ //reloads the window if Nav4 resized
if (init==true) with (navigator)
{if ((appName=='Netscape')&&(parseInt(appVersion)==4))
{document.MM_pgW=innerWidth; document.MM_pgH=innerHeight;
onresize=MM_reloadPage; }}
else if (innerWid 上一页 [1] [2] [3] [4] [5] [6] 下一页
|
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
您现在的位置： 卓越设计网 >> 网页制作 >> ASP编程技术 >> 网页制作正文
