top.asp

来自「一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊」· ASP 代码 · 共 39 行

 <script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<link rel="stylesheet" href="1.css" type="text/css">
<link rel="stylesheet" href="css.css" type="text/css">
<link rel="stylesheet" href="link.css" type="text/css">

<div id="Layer1" style="position:absolute; left:30px; top:8px; z-index:1; visibility: hidden"> 
  <table width="61%" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#787878" bordercolordark="#FFFFFF" align="center">
    <tbody> 
    <%q=false
	Set rso=conn.Execute("select * from foption")
	Set rssort=conn.Execute("select * from sort")%>
    <%Do while not rssort.eof%>
    <tr align= "center"> 
      <%for i=0 to rso("sortcol")  
        if not rssort.eof then%>
      <%if q=false then%>
      <%q=true%>
      <%else%>
      <td height="100%"><a href="index.asp?linktype=<%=rssort("sort")%>"><%=rssort("sort")%> 
        <%rssort.movenext%>
        </a></td>
      <%end  if%>
      <%end  if%>
      <%next%>
    </tr>
    <%loop%>
    </tbody> 
  </table>
</div>
<span class="9point"></span><font color="#FFFFFF"></font>