index.asp

一个人用ASP+SQL制作的个人博客

                  <TBODY>
                    <TR> 
                      <TD width="50%" rowSpan=4 vAlign=top><A 
                  href="soft.asp?id=<%=besttop("id")%>&typeid=<%=besttop("typeid")%>" 
                  target=_blank><IMG src="<%=besttop("images")%>" alt="<%=besttop("title")%>" width="120" height="114" border=0></A></TD>
                      <TD height="23"><%=besttop("title")%></TD>
                    </TR>
                    <TR> 
                      <TD height="33">人气:<%=besttop("hits")%></TD>
                    </TR>
                    <TR> 
                      <TD height="33">格式:<%=besttop("runsystem")%></TD>
                    </TR>
                    <TR> 
                      <TD>带宽：<%=besttop("daikuan")  %></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <%end if%> </TD>
          </TBODY>
<%besttop.movenext
end if
topbest=topbest+2
if besttop.eof or topbest>10 then
exit do
end if
loop
besttop.close
set besttop=nothing
end if%>
        </TABLE>
		
      <TABLE cellSpacing=3 cellPadding=1 width="100%" border=0>
        <TBODY>
        <TR>
              <TD class=nav align=middle bgColor=#336699>共<b><%=besttop.pagecount%></b>页这是第<%=pagesize%>部/页[<a href="index.asp?page=<%=page-1%>&typeid=<%=typeid%>">上一页</a>] 
                <A 
            href="index.asp?page=<%=page+1%>&typeid=<%=typeid%>">[下一页]</A> <input type="text" name="page2" size="2" 
                    maxlength="10" 
                    style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" 
                    value="<%=page%>" align="center"> <input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" 
                    type="submit" value=" Goto " size="2" name="submit22"> <input type="hidden" value="<%=typeid%>" name="hidden22"> 
              </TD>
            </TR></TBODY></TABLE></TD>
    <TD vAlign=top align=right width=170>
      <TABLE cellSpacing=0 cellPadding=0 width=167 border=0>
          <TBODY>
            <TR> 
              <TD><IMG height=1 src="images/right_01.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_02.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_03.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=21 src="images/right_04.gif" width=1></TD>
              <TD><IMG height=21 src="images/right_05.gif" width=165></TD>
              <TD><IMG height=21 src="images/right_06.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_07.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_08.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_09.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=78 src="images/right_10.gif" width=1></TD>
              <FORM action=index.asp method=post>
                <TD align=middle> 
                  <input type="text" name="keyword" size="14" maxlength="30" 
              style="font-size:9pt;background-color:#f1e3f2;border-left: 1px solid #ca94cd; border-right: 1px solid #ca94cd; border-top: 1px solid #ca94cd; border-bottom: 1px solid #ca94cd"> 
                  <input type="image" src="images/ssearch.gif" tppabs 
              align="absmiddle" width="20" height="20" title="查询" id="Image1" 
              name="I1">
                </TD>
              </FORM>
              <TD><IMG height=78 src="images/right_12.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_13.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_14.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_15.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=4 src="images/right_16.gif" width=1></TD>
              <TD><IMG height=4 src="images/right_17.gif" width=165></TD>
              <TD><IMG height=4 src="images/right_18.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=21 src="images/right_19.gif" width=1></TD>
              <TD><IMG height=21 src="images/right_20.gif" width=165></TD>
              <TD><IMG height=21 src="images/right_21.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=2 src="images/right_22.gif" width=1></TD>
              <TD><IMG height=2 src="images/right_23.gif" width=165></TD>
              <TD><IMG height=2 src="images/right_24.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_25.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_26.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_27.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><div align="left"><IMG height=410 src="images/right_28.gif" width=1></div></TD>
              <TD style="PADDING-LEFT: 10px; FONT-SIZE: 13px; LINE-HEIGHT: 18px" 
          vAlign=top background=images/bgline1.gif height=410><div align="left">
                  <table width="100%" border="0">
                    <tr> 
                      <td colspan="2"> 
                        <%
dim bentop,strSQLq,top

strSQLq ="SELECT *  FROM film  ORDER BY hits DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")

bentop.open strSQLq,Conn,0,1
top=1
if bentop.eof then
response.write "<font color='#ffffff'>没有电影提供观看</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
                      </td>
                    </tr>
                    <tr> 
                      <td width="100%"> <div align="left"><a href="soft.asp?id=<%=bentop("id")%>&typeid=<%=bentop("typeid")%>&zhuid=<%=bentop("zhuid")%>" 
            target="_blink"><%=bentop("title")%></a></div></td>
                      <td width="27%"><font color="#FF6600"><%=bentop("hits")%></font></td>
                    </tr>
                    <tr> 
                      <td colspan="2"> 
                        <%bentop.movenext
end if
top=top+1
if bentop.eof or top>rs1("reshu") then
exit do
end if
loop
bentop.close
set bentop=nothing
end if %>
                      </td>
                    </tr>
                  </table>
                </div></TD>
              <TD><div align="left"><IMG height=410 src="images/right_30.gif" width=1></div></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_31.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_32.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_33.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_43.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_44.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_45.gif" width=1></TD>
            </TR>
            <TR> 
              <TD><IMG height=1 src="images/right_49.gif" width=1></TD>
              <TD><IMG height=1 src="images/right_50.gif" width=165></TD>
              <TD><IMG height=1 src="images/right_51.gif" 
        width=1></TD>
            </TR>
          </TBODY>
        </TABLE></TD></TR></TBODY></TABLE>
<HR style="COLOR: #3399cc" width=778 noShade SIZE=4>

<TABLE cellSpacing=1 cellPadding=20 width=778 align=center bgColor=#03467f 
border=0>
  <TBODY>
  <TR>
    <TD align=middle><div align="center">Copyright 版权所有Xu Huachao<BR>
          有问题或建议,请发邮件至<A 
      href="mailto:[e-mail]">[e-mail]</A></div></TD></TR></TBODY></TABLE></BODY></HTML>