head.asp

自动生成html文件的电影站点程序

<table width="100%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">                                                                                                                                                                                                                                                                                                    
    <tr>                                                                                                                                                           
      <td height="197" align="center" valign="bottom" background="../images/top1.gif"><IMG SRC="../images/top4.gif" WIDTH=760 HEIGHT=106 ALT="">        </td>                                                                                                                                                           
    </tr>                                                                                                                                                           
  </table>
  <table width="760" height="30" border="0" align="center" cellpadding="0" cellspacing="0">                                                                                                                                                                                                                                                                                                    
    <tr>                                                                                                                                                           
      <td background="../images/bak.gif" height="30" width="758" colspan="2">  
<%
sql="select * from item"                  
set rs_item=server.createobject("adodb.recordset")                  
rs_item.open sql,connstr,1,1                 
if rs_item.eof then                  
response.write "<p align=center><font color=#FF0000>暂时没有分类！</font></p>"                                 
else  
response.write "<p align=center><a href=../0_1.htm><font color=#800000><b>全部电影</b></font></a>&nbsp;&nbsp;"
do while not rs_item.eof
response.write "<a href=../"&rs_item("id")&"_1.htm><font color=#800000><b>"&rs_item("name")&"</b></font></a>&nbsp;&nbsp;"
rs_item.movenext
loop
end if 
rs_item.close
%>                                                                                                                                                         
</td>                                                                                                                                                            
    </tr>                                                                                                                                                            
<tr>
<td height="30" width="447">&nbsp;<a href="hits_1.htm"><img border="0" src="../images/top.gif"></a>&nbsp;<a href="add.asp"><img border="0" src="../images/add.gif"></a>&nbsp;</td>                                                                                                                                                             
<form action="search.asp" method="post" name="search" onsubmit="return checkadd()">                                                                                                                                                             
<td height="30" width="313" align="center">   
<img border="0" src="../images/dian.gif"> <b>输入电影名：</b><input  maxLength="20" name="keyword" onfocus="this.value=''" size="18"  value="输入关键字" style="border: 1 solid #000000">  
<input  type="submit" width="20" height="20" value="查找" style="font-size: 12px" name="search">                                                                                                                                                           
</td>
</form>                                                                                                                                                            
    </tr> 
</table>