⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 欢迎使用酷航设计系统
💻 ASP
字号:
🔍 
<!--#include file="ku_top.asp" -->
<%
    sub navigation()
    response.write " &gt;&gt; "
    response.write "首 页"
    end sub
%>

<div align="center">
	<table border="0" width="800" height="231" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
		<tr>
			<td height="231" width="370" valign="top">
			<div align="center">
				<table border="0" width="100%" id="table1" cellpadding="0" cellspacing="0" height="229">
					<tr>
						<td height="30" background="xbqq_img/ku_news.gif">
						<table border="0" width="370" id="table2">
							<tr>
								<td width="115">
								<p align="center"><b>新 闻 动 态</b></td>
								<td width="208">
								<marquee scrollAmount=1 scrollDelay=4  onmouseover="this.stop()" onmouseout="this.start()" ><%=Gaobei_Logo%></marquee></td>
								<td width="33"><a href="ku_news.asp">
								<img border="0" src="xbqq_img/touming.gif" width="40" height="15"></a></td>
							</tr>
						</table>
						</td>
					</tr>
					<tr>
						<td valign="top">
						<!-- 新闻列表开始-->						
<table width="100%" border="0" cellspacing="2" cellpadding="1">
<%
    set rs=server.createobject("adodb.recordset")
    sql="select top 8 * from news ORDER BY id DESC"
    rs.open sql,conn,1,1
    if Rs.eof or Rs.bof then
    response.write"<div align='center'>还没有添加新闻<div>"
    end if 
    do while not rs.eof
    title = rs("title")
%>
<tr> 
<td width="4%" height = 22>
<img border="0" src="xbqq_img/info.gif" width="25" height="16"></td>
<td width="73%" height = 22><a href="NewsInfo.asp?id=<%response.write rs(0)%>" title="<%=title%>"> 
<% 
    if Getlen(title)>34 then
    response.write LeftStr(title,32)
    response.write "..."
    else
    response.write ""&title&""
    end if
%></a>&nbsp;&nbsp;</td><td><font color='#808080'><%=rs("time")%></font></td>
</tr>
<% 
    rs.movenext  
    loop
    Rs.Close
    Set Rs=Nothing
%>
</table>						
<!-- 新闻列表结束-->

						</td>
					</tr>
				</table>
			</div>
			</td>
			<td height="231" width="222" align="center"><%=FlashNews(4,20,205,200,"#F0F0F0",20)%></td>
			<td height="231" width="208" valign="top" bgcolor="#EBEBEB">
			<div align="center">
				<table border="0" width="100%" id="table3" cellpadding="0" cellspacing="0" height="228">
					<tr>
						<td height="30" background="xbqq_img/gonggao.gif">
						<p align="center"><b>学 校 公 告</b></td>
					</tr>
					<tr>
						<td valign="top">
						<% xbqq_Marquee %>
						</td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="800" height="82" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
		<tr>
			<td height="82" width="800">
			<p align="center">
			<img border="0" src="xbqq_img/zonghe.jpg" width="715" height="82"></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="800" height="265" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
		<tr>
			<td height="265" width="592" valign="top">
			<%
   dim sqlsort,RsSort,hangpicnum
   sqlsort="select * from Sort where B_id=0 and setting < 4 and Indexshow=True order by S_order"
   Set RsSort=conn.execute (sqlsort)
   RsSort.Open sql,Conn,1,1 
   Response.Write"<table border='0' cellspacing='0'>"
   if RsSort.eof and RsSort.bof then
   response.write "<div align=center>还没有任何栏目</div>"
   else
   response.write"<tr>"
   do while not rs.eof
   for hangpicnum=1 to 2
   if RsSort.eof then exit for
   Response.Write"<td>"
%>

			<table border="0" cellpadding="0" cellspacing="0" width="291" height="98">
		    <tr>
            <TD height=20>
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="291" height="28" background="xbqq_img/kind.gif">
					<tr>
						<td width="191" style='FILTER: PADDING-TOP: 2px'>&nbsp;<img border="0" src="xbqq_img/ico1.gif" width="11" height="9">&nbsp;<b><a href="Sort.asp?SortID=<%=RsSort(0)%>"><font color="#303030"><span style="letter-spacing: 3px"><%=RsSort(1)%></span></b></font></a></td>
						<td width="58" valign="bottom">
						　</td>
						<td width="22">　</td>
					</tr>
				</table>
			</div>
			</TD>
		</tr>
		<tr>
			<td height="3"></td>
		</tr>
		<tr>
			 <td style="border: 1px solid #E0E0E0" height=135 valign="top" bgcolor="#FFFFFF"><% Call xbqq_ShowInfo(5,7,27,RsSort("id"),1) %></td>
		</tr>
	</table>
<%
   Response.Write"</td>"   
   RsSort.movenext
   next
   Response.Write"</tr>"
   if RsSort.eof then exit do
   loop
   end if
   RsSort.Close
   set RsSort=nothing
   Response.Write"</table>"
%>
			</td>
			<td height="265" width="208" bgcolor="#EBEBEB" valign="top">
			<div align="center">
				<table border="0" width="100%" id="table4" height="263">
					<tr>
						<td background="xbqq_img/gonggao.gif" height="30">
						<p align="center"><b>信 息 搜 索</b></td>
					</tr>
					<tr>
						<td height="59" valign="top"><% xbqq_Search %></td>
					</tr>
					<tr>
						<td height="2" bgcolor=#FFFFFF></td>
					</tr>
					<tr>
						<td background="xbqq_img/gonggao.gif" height="30">
						<p align="center"><b>常 用 下 载</b></td>
					</tr>
					<tr>
						<td valign="top"><% index_down %></td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="800" height="20" cellpadding="0" cellspacing="0"  bgcolor=#FFFFFF background="xbqq_img/link_foot.jpg">
		<tr>
			<td height="20" width="800"></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" width="800" height="40" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
		<tr>
			<td height="40" width="800">
			<div align="center">
				<table border="0" width="100%" id="table5">
					<tr>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo1.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo2.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo3.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo1.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo2.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo3.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo1.gif" width="88" height="31"></a></td>
						<td>
						<a href="http://www.kuhang.cn">
						<img border="0" src="xbqq_img/logo/logo2.gif" width="88" height="31"></a></td>
					</tr>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="xbqq_foot.asp" -->

<% if switch_onlingQQ ="1" then %>
<!--#include file="xbqq_qqOline.asp" -->
<% end if %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -