default.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 661 行 · 第 1/3 页
ASP
661 行
<td><table width="100%" height="150" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="11" background="images/bt_bg.gif"></td>
</tr>
<tr>
<td height="40" background="images/lianjie.gif"></td>
</tr>
<tr>
<td height="5" bgcolor="#F4F4F4"></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#F4F4F4">
<form name="form2">
<div align="left">
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<option selected>教育机构链接 </option>
<option value="#">省教育厅</option>
</select>
</div>
</form></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#F4F4F4">
<form name="form3">
<div align="left">
<select name="menu2" onChange="MM_jumpMenu('parent',this,0)">
<option selected>中国大学链接 </option>
<option value="http://www.nwnu.edu.cn/">西北师范大学</option>
</select>
</div>
</form></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#F4F4F4">
<form name="form4">
<div align="left">
<select name="menu3" onChange="MM_jumpMenu('parent',this,0)">
<option selected>学科资源站点链接</option>
<option value="http://www.edu.cn">教育科研网</option>
</select>
</div>
</form></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#F4F4F4">
<form name="form5">
<div align="left">
<select name="select" onChange="MM_jumpMenu('parent',this,0)">
<option selected>省内网站链接</option>
<option value="http://www.lzu.edu.cn/">兰州大学</option>
</select>
</div>
</form></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#F4F4F4">
<form name="form5">
<div align="left">
<select name="menu4" onChange="MM_jumpMenu('parent',this,0)">
<option selected>学校网站板块 </option>
<option value="#"> 网上办公</option>
</select>
</div>
</form></td>
</tr>
<tr>
<td height="11" bgcolor="#F4F4F4"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="448" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="424" height="119" align="center"> <table border="0" cellpadding="0" height="2" cellspacing="0">
<tr> </tr>
</table>
<%
set rs3=server.CreateObject("ADODB.RecordSet")
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" valign="top" > <table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="25" valign="bottom"><font color=000000> <img src="images/wenzhang.gif" width="300" height="25"></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width=100% height="74" valign="top" > <table width="100%" height="54" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="54" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <%
rs3.Source="select top 10 NewsID,Title,UpdateTime,BigClassName,SmallClassName,SpecialID,click from News where smallclassname<>'校园公告' order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
'定义标题显示限制
Title=trim(rs3("Title"))
TitleLen=len(Title)
If TitleLen<18 then
Response.Write "<tr><td height=16>"
%> <img src="images/arrow.gif" width="25" height="8" border="0"> <font color=666666><%=rs3("bigclassname")%></font><a class=bai1 href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>&BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=Title %></a><font color=#666666>(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<font color=#5284AD><%=rs3("click") %></font>]</font> <br> <%
Response.Write "</td></tr>"
else
DisplayTitle=mid(Title,1,18)
Response.Write "<tr><td height=16>"
%> <img src="images/arrow.gif" width="25" height="8" border="0"> <font color=666666><%=rs3("bigclassname")%></font><a class=bai1 href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>&BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialId")%>" target="_blank"><%=displaytitle%>...</a><font color="#666666">(<%=Month(rs3("UpdateTime")) %>月<%=Day(rs3("UpdateTime")) %>日)[<font color=#5284AD><%=rs3("click") %></font>]</font><br> <%
Response.Write "</td></tr>"
end if
rs3.MoveNext
wend
rs3.close
%> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5"></td>
<td><img src="images/yijing.gif" width="300" height="25"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> <%
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='10'>"
Dim irecordsshown
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT minipic,ck,name,id FROM photo_show ORDER BY id DESC"
rs.open sql,conn,1,1
irecordsshown = 0
do while irecordsshown<3 and NOT rs.EOF
Response.Write"<tr align='center'>"
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write" <table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a class=bai1 href='photo_display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=80 height=60 class='bk'></a></td></tbody></table>"&rs("name")&"</td>"
irecordsshown = irecordsshown +1
rs.movenext
end if
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a class=bai1 href='photo_display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=80 height=60 class='bk'></a></td></tbody></table>"&rs("name")&" </td>"
irecordsshown = irecordsshown +1
rs.movenext
end if
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a class=bai1 href='photo_display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=80 height=60 class='bk'></a></td></tbody></table>"&rs("name")&"</td>"
irecordsshown = irecordsshown +1
rs.movenext
end if
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#ffffff' border=0 cellpadding=5 cellspacing=0 class='bk1'><tbody><td><a class=bai1 href='photo_display.asp?id="&rs("id")&"' target='_blank'><img src='"&rs("minipic")&"' border='0' width=80 height=60 class='bk'></a></td></tbody></table>"&rs("name")&"</td>"
irecordsshown = irecordsshown +1
rs.movenext
end if
Response.Write"</tr>"
loop
rs.Close
set rs=nothing
Response.Write"</table>"
%> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table></td>
<td width="5" rowspan="2" background="images/bgimg_right.gif"> </td>
</tr>
<tr>
<td><table width="768" height="21" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" bgcolor="#F4f4f4">
<div align="center"><font color="#000000">您是第</font><font color="#333333"><font size="2"><font color="#333333"><font size="2"><font size="2"><span class="text9"><font size="2"><span class="text1">
<script src="count.asp"></script>
</span></font></span></font></font></font></font></font><font color="#000000">位访问本站的用户</font></div></td>
</tr>
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
</table></td>
</tr>
</table>
<table width="780" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="5" height="1" background="images/bgimg_left.gif"></td>
<td height="1" bgcolor="cccccc"></td>
<td width="5" height="1" background="images/bgimg_right.gif"></td>
</tr>
</table>
</div>
<!--#include file=include/bottom.asp -->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?