index.asp

来自「1．理解Winsock编程模型； 2．掌握Winsock编程的基本方法」· ASP 代码 · 共 1,347 行 · 第 1/4 页

                  <td><div align="right"><a href="newsshow.asp?action=学院动态&id=2" target="_blank"><img height=30 src="images/b3.gif" width=87  border=0></a></div></td>
                  <td valign=center background=images/b9.jpg>&nbsp;</td>
                  <td valign=top> <div align="left"><a href="newsshow.asp?action=%D1%A7%D4%BA%B6%AF%CC%AC&id=1&type1=3" target="_blank"><img src="images/0101.gif" width="175" height="30" border="0"></a> 
                    </div></td>
                </tr>
              </tbody>
            </table></td>
          <td width="14" background="images/b10.jpg">&nbsp;</td>
          <td width="14">&nbsp;</td>
        </tr>
        <tr> 
          <td colspan="5"><img src="images/b2.gif" width="607" height="33"></td>
        </tr>
      </table>
      <table width="607" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="303" height="29" background="images/a6.gif"> 
            <div align="left"> 
			<%' set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(2)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
              <table width="212" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="146"><div align="center"><%=aa(2)%></div></td>
                  <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(2)%>&nihao=a&id=<%=bb(2)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
                </tr>
              </table>
            </div></td>
          <td background="images/a6.gif"> 
            <div align="left"> 
              <table width="212" border="0" cellspacing="0" cellpadding="0">
                <tr> 
				<% 'set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(3)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
                  <td width="146"><div align="center"><%=aa(3)%></div></td>
                  <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(3)%>&nihao=a&id=<%=bb(3)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
                </tr>
              </table>
            </div></td>
        </tr>
        <tr> 
          <td width="303" height="108" valign="top" background="images/a7.gif"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(2)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="303" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
						%>
          </td>
          <td valign="top" background="images/a7.gif"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(3)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
						%>
          </td>
        </tr>
        <tr> 
          <td height="29" background="images/a6.gif">
<table width="212" border="0" cellspacing="0" cellpadding="0">
              <tr> 
			  <% 'set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(4)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
                <td width="146"><div align="center"><%=aa(4)%></div></td>
                <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(4)%>&nihao=a&id=<%=bb(4)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
              </tr>
            </table></td>
          <td background="images/a6.gif">
<table width="212" border="0" cellspacing="0" cellpadding="0">
 <% 'set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(5)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
              <tr> 
                <td width="146"><div align="center"><%=aa(5)%></div></td>
                <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(5)%>&nihao=a&id=<%=bb(5)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td width="303" height="108" valign="top" background="images/a7.gif"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(4)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="303" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
						%>
          </td>
          <td valign="top" background="images/a7.gif"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(5)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
						%>
          </td>
        </tr>
        <tr> 
          <td height="29" background="images/a6.gif"> 
            <div align="left"> 
              <table width="212" border="0" cellspacing="0" cellpadding="0">
			  <% 'set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(6)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
                <tr> 
                  <td width="146"><div align="center"><%=aa(6)%></div></td>
                  <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(6)%>&nihao=a&id=<%=bb(6)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
                </tr>
              </table>
            </div></td>
          <td background="images/a6.gif"> 
            <div align="left"> 
              <table width="212" border="0" cellspacing="0" cellpadding="0">
			   <% 'set rs = server.createobject("adodb.recordset")
	'sql = "select * from News where lm='"&bb(7)&"' order by pubdate desc"
	'rs.open sql,conn,3,2
	%>
                <tr> 
                  <td width="146"><div align="center"><%=aa(7)%></div></td>
                  <td width="66"><div align="center"><a href="show.asp?action1=<%=aa(7)%>&nihao=a&id=<%=bb(7)%>" target="_blank"><img src="images/11.gif" width="41" height="16" border="0"></a></div></td>
                </tr>
              </table>
            </div></td>
        </tr>
        <tr> 
          <td height="108" valign="top" background="images/a7.gif"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(6)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="303" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="303" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
						%>
          </td>
          <td background="images/a7.gif" valign="top"> 
            <% set rs = server.createobject("adodb.recordset")
	sql = "select top 4 * from News where lm='"&bb(7)&"' order by pubdate desc"
	rs.open sql,conn,3,2
	if rs.eof then
	response.Write"&nbsp;暂时没有信息"
	else
	do while not rs.eof 
	if rs("tupian")=true then %>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="tshownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%else%>
            <table width="100%" border="0">
              <tr> 
                <td>&nbsp;<a href="shownews.asp?id=<%=rs("newsid")%>" title=<%=rs("title")%> target="_blank"><img src="images/003.gif" width="12" height="12" border="0">&nbsp;<% weiguang(rs("title")) %></a><br> 
                  <img src="images/006.gif" width="264" height="1"></td>
              </tr>
            </table>
            <%
						end if
						rs.movenext
						loop
						rs.close
						set rs=nothing
						end if
					
						%>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="777" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="170" height="45" bordercolor="#eeeeee" bgcolor="#eeeeee">&nbsp;</td>
    <td height="34" background="images/12.gif"><table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#000000">
        <tr> 
          <td><table width="100%" height="43" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF">
              <FORM onsubmit="return verify_input(this);"  name=f action=http://www.baidu.com/s target="_blank">
                <tr> 
                  <td width="29%"><table width="36" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td>&nbsp;</td>
                      </tr>
                    </table></td>
                  <td width="65%" valign="bottom"> <INPUT type=hidden value=3 name=cl> 
                    <INPUT class=ff maxLength=100 
      size=20 name=wd value="请输入关键字"> &nbsp; <input name=imageField type=image 
            src="images/13.gif" width="28" height=14 border=0> </td>
                  <td width="6%" valign="center">&nbsp;</td>
                </tr>
              </FORM>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><img src="images/6.gif" width="777" height="84" border="0" usemap="#Map"></td>
  </tr>
</table>
</table>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td bgcolor="#f2f2f2"><div align="center"><FONT 
            color=#666666 size="2">石家庄经济学院信息工程学院<br>
        Copyright@2007<br>
        建议使用IE4.0以上，1024*768分辨率进行浏览。</font> </div></td>
  </tr>
</table>
<map name="Map">
  <area shape="rect" coords="2,59,50,83" href="admin.asp" target="_blank">
</map>
</body>
</html>