mimi.asp
来自「教育管理系统」· ASP 代码 · 共 211 行
ASP
211 行
<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<link rel="stylesheet" type="text/css" href="css/style.css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#666666">
<div id=floatdiv
style="DISPLAY: none; POSITION: absolute; WIDTH: 250px; left: 276px; top: 167px; visibility: hidden">
<table bgcolor=#999999 border=0 bordercolor=#000000 cellspacing=0
width=100% cellpadding="0">
<tbody>
<tr bordercolor=#f6f6f6>
<td bgcolor=#006cd9 bordercolor="#FFFFFF">
<div align=right></div>
<b> </b>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#333333">
<div align="center"><font color="#FFFFFF">请选择要添加软件的父类</font></div>
</td>
<td width="50" bgcolor="#333333">
<div align="center"><b>
<script language=JavaScript1.1>
function showfloatdiv(){floatdiv.style.display="block";floatdiv.style.visibility="visible";}function hidefloatdiv(){floatdiv.style.display="none";floatdiv.style.visibility="hidden";}</script>
</b><a href="javascript:hidefloatdiv()"><font color="#FFFFFF">关闭</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
<tr background="888.jpg">
<td align=middle bordercolor="#FFFFFF" valign="top"> <%
dim bentop,strSQL1
strSQL1 ="SELECT * FROM zhu ORDER BY zhuid DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQL1,Conn,0,1
if bentop.eof then
response.write "<font color='#0080C0'>还没有任何父级分类</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><a href="addarticle.asp?zhuid=<%=bentop("zhuid")%>&typename=<%=bentop("zhu")%>"><%=bentop("zhu")%></a></td>
</tr>
</table>
<%bentop.movenext
end if
loop
bentop.close
set bentop=nothing
end if
%> </td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
</div>
<center>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC" height="20">
<tr bgcolor=#000000>
<td><font color="#FFFFFF">最新加入程序</font></td>
</tr>
</table>
<%
dim zhuinew,strSQL,news
strSQL ="SELECT * FROM learning ORDER BY dateandtime DESC"
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,0,1
news=1
if zhuinew.eof then
response.write "<font color='#0080C0' class='3dfont'>没有软件提供下载</font>"
else
do while not zhuinew.eof
if not zhuinew.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td><img src="IMAGES/88.gif"><a href=soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%> target="_blank"><%=zhuinew("title")%></a></td>
<td width="60">
<div align="center"><a
href="edit.asp?id=<%=zhuinew("articleid")%>">修改</a></div>
</td>
<td width="60">
<div align="center"><a
href="delete.asp?id=<%=zhuinew("articleid")%>">删除</a></div>
</td>
</tr>
</table>
<%zhuinew.movenext
end if
news=news+1
if zhuinew.eof or news>rs1("sou") then
exit do
end if
loop
zhuinew.close
set zhuinew=nothing
end if%>
</td>
<td width="50%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC" height="20">
<tr bgcolor="#000000">
<td><font color="#CCFF00"><font color="#FFFFFF">功能列表</font></font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td>
<div align="center"><a href="gao.asp">高级管理页面</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="fen.asp">分类管理</a></div>
</td>
</tr>
<tr>
<td>
<div align="center"><a href="javascript:showfloatdiv()">添加软件</a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p>
<%sql1="select * from zhu"
Set zhulie = Server.CreateObject("ADODB.Recordset")
zhulie.open sql1,conn,1.1
do while not zhulie.eof%>
<center>
<table width="760" border="0" cellspacing="0" cellpadding="0" background="888.jpg">
<tr background="888.jpg">
<td height="20"> <font><b><%=zhulie("zhu")%></b></font>
</td>
</tr>
</table>
</center>
<%zhuid=zhulie("zhuid")
sql2="select * from type where zhuid='"&zhuid&"'"
Set typelie = Server.CreateObject("ADODB.Recordset")
typelie.open sql2,conn,1.1
do while not typelie.eof%>
<table width="750" cellpadding="0" cellspacing="0" border="0" align="center">
<tr align="center">
<td width="25%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<%if not typelie.eof then%>
<td><a href=guanli.asp?typeid=<%=typelie("typeid")%>&zhuid=<%=typelie("zhuid")%>><%=typelie("type")%></a></td>
</tr>
</table>
</td>
<%typelie.movenext
end if
%>
<td width="25%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<%if not typelie.eof then %>
<td><a href=guanli.asp?typeid=<%=typelie("typeid")%>&zhuid=<%=typelie("zhuid")%>><%=typelie("type")%></a></td>
</tr>
<%typelie.movenext
end if
%>
</table>
</td>
<td width="25%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<%if not typelie.eof then %>
<td><a href=guanli.asp?typeid=<%=typelie("typeid")%>&zhuid=<%=typelie("zhuid")%>><%=typelie("type")%></a></td>
</tr>
<%typelie.movenext
end if
%>
</table>
</td>
<td width="25%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<%if not typelie.eof then %>
<td height="17"><a href=guanli.asp?typeid=<%=typelie("typeid")%>&zhuid=<%=typelie("zhuid")%>><%=typelie("type")%></a></td>
</tr>
<%typelie.movenext
end if
%>
</table>
</td>
</tr>
<%loop
typelie.Close
set typelie=nothing%>
</table>
<%zhulie.movenext
loop
zhulie.Close
set zhulie=nothing%></center>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?