left3.asp

俄罗斯方块源码 俄罗斯方块源码 俄罗斯方块源码

 <style type="text/css">
<!--
.bg {
	background-repeat: repeat-y;
	background-position: left;
}
-->
</style>
<table width="23%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><table border="0" cellpadding="0" cellspacing="0" width="199">
        <tr> 
          <td><img src="index3/login/spacer.gif" width="9" height="1" border="0" alt=""></td>
          <td><img src="index3/login/spacer.gif" width="180" height="1" border="0" alt=""></td>
          <td><img src="index3/login/spacer.gif" width="10" height="1" border="0" alt=""></td>
          <td><img src="index3/login/spacer.gif" width="1" height="1" border="0" alt=""></td>
        </tr>
        <tr> 
          <td colspan="3"><img name="login2_r1_c1" src="index3/login/login2_r1_c1.jpg" width="199" height="12" border="0" alt=""></td>
          <td><img src="index3/login/spacer.gif" width="1" height="12" border="0" alt=""></td>
        </tr>
        <tr> 
          <td background="index3/login/login2_r2_c1.jpg">&nbsp;</td>
          <td valign="top"> <%
	   if session("username")<>"" then
	     response.write "&nbsp;&nbsp;欢迎您：<font color=red>"&session("username")&"</font><br><br>"
		 response.write "<div align=center>[<a href='logout.asp' title='退出登陆'>退出登陆</a>]</div>"
	   else
	   %> <form action="login.asp?action=chk" method="post" name="login" id="login">
              <table width="98%" border="0" cellspacing="0" cellpadding="2">
                <tr> 
                  <td width="32%" height="20" align="center">帐　号：</td>
                  <td width="68%" height="20"><input name="username" type="text" class="input" id="username2" size="12"></td>
                </tr>
                <tr> 
                  <td height="20" align="center">密　码：</td>
                  <td height="20"><input name="password" type="password" class="input" id="password" size="12"></td>
                </tr>
                <tr align="center"> 
                  <td height="25" colspan="2"> <INPUT src="index3/login/login.gif" width="68" name="submit" height="25" type=image> 
                    &nbsp;&nbsp; <a href="reg.asp"><img src="index3/login/reg.gif" width="68" height="25" border="0"></a> 
                  </td>
                </tr>
                <tr align="center"> 
                  <td height="10" colspan="2"><a href="authorhelp.asp" target="_blank">注册说明</a>　<a style="cursor:hand;" href="getpassword.asp" target="_blank">忘记密码？</a></td>
                </tr>
                <tr align="center">
                  <td height="10" colspan="2"><font color="#FF0000">注册会员，发布原创作品</font></td>
                </tr>
              </table>
            </form>
            <%end if%> </td>
          <td background="index3/login/login2_r2_c3.jpg">&nbsp;</td>
          <td><img src="index3/login/spacer.gif" width="1" height="79" border="0" alt=""></td>
        </tr>
        <tr> 
          <td colspan="3"><img name="login2_r3_c1" src="index3/login/login2_r3_c1.jpg" width="199" height="10" border="0" alt=""></td>
          <td><img src="index3/login/spacer.gif" width="1" height="10" border="0" alt=""></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><img src="index3/login/searchbg.jpg" width="199" height="38"></td>
  </tr>
  <tr> 
    <td background="index3/flash_bg4.gif" class="bg"> <%
	dim classid
	classid=request("classid")
	if classid<>"" then
	%> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <%
			 dim lockrs,locksql
			 set lockrs=server.CreateObject("adodb.recordset")
			 locksql="select * from smallclass where bigclassid="&classid&" order by s_order"
			 lockrs.open locksql,conn,1,1
			 if lockrs.eof then 
			 response.write ""
			 else
			 do while not lockrs.eof
			 %>
        <tr> 
          <td height="21"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td><a href="showflash.asp?smallclassid=<%=lockrs("smallclassid")%>&classid=<%=classid%>"><%=lockrs("smallclassname")%></a></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="1" background="index3/flash_line.gif"></td>
        </tr>
        <%
			  lockrs.movenext
			  loop
			  end if
			  
			  %>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
	  else
	  %> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <%
			 dim lockrs2,locksql2,nn
			 set lockrs2=server.CreateObject("adodb.recordset")
			 locksql2="select top 10 * from flash order by hits desc"
			 lockrs2.open locksql2,conn,1,1
			 if lockrs2.eof then 
			 response.write ""
			 else
			 nn=0
			 do while not lockrs2.eof and nn<10
			 %>
        <tr> 
          <td height="21"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td><a href="flash_play.asp?id=<%=lockrs2("id")%>" title="观看动画"><%=lockrs2("flashname")%></a></td>
              </tr>
            </table></td>
        </tr>
        <tr> 
          <td height="1" background="index3/flash_line.gif"></td>
        </tr>
        <%
			  nn=nn+1
			  lockrs2.movenext
			  loop
			  end if
			  
			  %>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>
      <%
	  end if
	  %> </td>
  </tr>
  <tr>
    <td background="index3/flash_bg4.gif" class="bg"><table width="100%" border="0" cellspacing="0" cellpadding="2">
        <tr> 
          <td align="center"> <iframe src="http://c03.caishow.com/300_160code/code.asp?f=1000" height="300" width="160" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe></td>
        </tr>
        <tr> 
          <td align="center"><iframe src="http://coo.caishow.com/cooperation/picAd.asp?f=1000&Num=3&typeset=list&size=b" height="420" width="128" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe></td>
        </tr>
      </table></td>
  </tr>
</table>