default.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 661 行 · 第 1/3 页
ASP
661 行
<%rs.movenext
loop
rs.close
set rs=nothing%>
<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor="f4f4f4">
<tr>
<td><div align="center">
<input name=ids2 type=hidden id=ids2 value=<%=request("id")%>>
<input name=Submit22 type=image src=images/button1.gif width="52" height="18">
<a href="vote_show.asp"><img src=images/button2.gif width=52 height=18 border=0></a></div></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table>
<% end if%>
</td>
</tr>
<tr>
<td align="right"> </td>
</tr>
</table></td>
</table></td>
</tr>
</table>
</td>
<td width="608" align="center" valign="top" bgcolor="#F4f4f4"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="f4f4f4">
<tr>
<td width="448" height="198" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="100%" height="122" 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="middle"><font color=000000> <img src="images/gonggao.gif" width="300" height="25"></font></td>
</tr>
</table></td>
</tr>
<tr>
<td width=100% height="74" valign="top" > <table width="100%" height="74" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="54"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
rs3.Source="select top 8 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<25 then
Response.Write "<tr><td height=16>"
%>
<img src="images/arrow.gif" width="25" height="8" border="0"> <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,25)
Response.Write "<tr><td height=16>"
%>
<img src="images/arrow.gif" width="25" height="8" border="0"> <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
%>
</tr>
</table></td>
</tr>
<tr >
<td width=100% height=20 align=right> <div align="center">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<a href="..//SmallClass.asp?BigClassName=%A1%BC%D0%C2%CE%C5%C6%B5%B5%C0%A1%BD&SmallClassName=%D0%A3%D4%B0%B9%AB%B8%E6"><img src="images/Bt_more.gif" width="35" height="7" border="0"></a></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="160"><table width="160" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td height="1"></td>
</tr>
<tr>
<td width="160" align="center" valign="top" bgcolor="f4f4f4">
<table width="100%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" bgcolor="#ffffff" > <table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="160" height="40" align="left" background="images/redian.gif">
<div align="left"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="157" valign="top" bgcolor="#ffffff">
<table width="100%" height="157" border="0" cellpadding="0" cellspacing="0" bgcolor="#FAFAFA">
<%
rs3.Source ="select top 1 NewsID,Title,Content,UpdateTime,Image,BigClassName,SmallClassName,SpecialID from News where (image>0 and hot=1) order by NewsID DESC"
rs3.Open rs3.Source,conn,1,1
while not rs3.EOF
Content=trim(rs3("Content"))
if image>0 then
for i=1 to image
Content=replace(Content,"[[image" & i & "]]","")
next
end if
content=replace(content,"[[","<")
content=replace(content,"]]",">")
DisplayContent=mid(Content,1,80)
%>
<tr>
<td width="170" height="115" align=center valign="middle" bgcolor="#F4F4F4"><a href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>&BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialID")%>" target=_blank>
<img src="<%=DelectImageFile(rs3("NewsID"),1)%>" width="150" height="112" border=0></a></td>
</tr>
<tr>
<td height="23" align=center valign="middle" bgcolor="#F4F4F4">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> <a class=bai1 href="ReadNews.asp?NewsID=<%=rs3("NewsID")%>&BigClassName=<%=rs3("BigClassName")%>&SmallClassName=<%=rs3("SmallClassName")%>&SpecialID=<%=rs3("SpecialID")%>" target=_blank><%=rs3("title") %></td>
</tr>
</table></td>
</tr>
<%
rs3.MoveNext
wend
%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="40" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="448" bgcolor="#FFFFFF"><img src="images/logo.gif" width="448" height="50"></td>
<td width="160" rowspan="2" valign="top" bgcolor="f4f4f4">
<table width="100%" border="0" align=center cellpadding="0" cellspacing="0">
<tr>
<td width="100%" bgcolor="#ffffff" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" height="11" align="left" background="images/bt_bg.gif">
</td>
</tr>
<tr>
<td height="40" align="left" background="images/sousuo.gif"></td>
</tr>
</table></td>
<% set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.Source,conn,1,1
dim ArrayBigClassID(20),ArrayBigClassName(20)
BigClassCount=rs.RecordCount
for i=1 to BigClassCount
ArrayBigClassID(i)=rs("BigClassID")
ArrayBigClassName(i)=trim(rs("BigClassName"))
rs.MoveNext
next
rs.Close
%>
</tr>
<form action=search.asp method=post target=_blank id=form1 name=form1>
<tr>
<td width="100%" align=center height="25" valign="middle">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" valign="middle" bgcolor="F4F4F4">
<div align="center">
<select size=1 name=WhichClass style=font-size:9pt;position:relative;width:110;height:23>
<option value=>请选择搜索类别</option>
<option value=0 selected>所有类别</option>
<%for i=1 to BigClassCount%>
<option value=<%=ArrayBigClassID(i)%>><%=ArrayBigClassName(i)%></option>
<%next%>
</select>
</div></td>
</tr>
<tr>
<td height="25" valign="middle" bgcolor="#F4F4F4">
<div align="center">
<input type=text name=keyword value="<%=keyword%>" class=bottomclass size=14>
<br>
</div></td>
</tr>
<tr>
<td height="25" bgcolor="#F4F4F4"> <div align="center">
<input name=submit1 type=image src=images/serch.gif width="52" height="18">
</div></td>
</tr>
</table></td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?