2010-10-12

<!--include file="articleconn.asp"-->   引用数据库链接文件
index.asp中的<head></head>标签中间出现的标签有如下共_4_个:<meta>、<title></title>、 <script></script>、 <link> 。
<meta>对编码和文本内容进行定义，解释；
<title></title>标记文件表头；
<script></script>JavaScript或VBScript的标签；
<link> css和其他文本格式的引用标签；
以上的四个标签中，一和四不是成对出现的，二和三是成对出现的。
********
<body>的关闭标签</body>出现在第317行，也就是整个文件的倒数第二行，这期间也是主要的标签出现之处。
<body></body>标签中间出现的标签有如下共__个：<body></body> <tr></tr> <td></td> <div></div> <p></p> <font></font>
<strong></strong> <form> <tbody></tbody>

注：<tbody></tbody>开及闭合标签呼应的位置不是显而易见的。

代码
  1 <!--#include file="articleconn.asp"-->
  2 
  3 <html>
  4 <%
  5    const MaxPerPage=20
  6    dim totalPut   
  7    dim CurrentPage
  8    dim TotalPages
  9    dim i,j
 10 
 11    dim typename
 12    dim keyword 
 13    keyword=trim(request("keyword"))
 14    typename=request.Querystring("typename")
 15    if not isempty(request("page")) then
 16       currentPage=cint(request("page"))
 17    else
 18       currentPage=1
 19    end if
 20    
 21 %>
 22 <head>
 23 
 24 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 25 <title>信息查询系统</title>
 26 <meta name="GENERATOR" content="Microsoft FrontPage 3.0">
 27 <script>
 28 <!--
 29 function openwin(id){        window.open("viewarticle.asp?id="+id,"","height=450,width=550,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
 30     }
 31 //-->
 32 </script>
 33 <link rel="stylesheet" href="./css/style.css">
 34 </head>
 35 <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
 36 <table width="609" border="0" cellspacing="0" cellpadding="0" align="center">
 37   <tr> 
 38     <td> 
 39       <div align="center"><img src="images/TITLE.jpg" width="587" height="174"></div>
 40     </td>
 41   </tr>
 42 </table>
 43 <div align="center"></div>
 44 <table width="607" cellpadding="0" cellspacing="0" align="center">
 45   <tr> 
 46     <td colspan="3" height="117"> 
 47       <table border="1" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" cellspacing="0" align="center">
 48         <tr> 
 49           <td height="16" bgcolor="#B5D85E" width="81%"> 
 50             <div align="center"> 
 51               <p><font color="#000000"><strong><%=typename%> 信 息 列 表</strong></font> 
 52               </p>
 53             </div>
 54           </td>
 55         </tr>
 56         <tr> 
 57           <td width="81%" align="center" valign="top" height="139"> 
 58             <div align="center"> 
 59               <div id=floater 
 60 style="Z-INDEX: 1; LEFT: 801px; VISIBILITY: visible; WIDTH: 140px; POSITION: absolute; TOP: 175px"> 
 61                 <table class=f9 bordercolor=#ffffff cellspacing=0 bordercolordark=#ffffff 
 62 cellpadding=0 width=127 bordercolorlight=#000000 border=1 valign="center">
 63                   <tbody> 
 64                   <tr bgcolor="#B5D85E"> 
 65                     <td colspan="2"> 
 66                       <div align="center"><font class="f9" color="#000000">信 息 
 67                         分 类</font><font class=f9 
 68       color=#ffffff> </font></div>
 69                     </td>
 70                   </tr>
 71                   <tr bgcolor="#FFB74A"> 
 72                     <td bgcolor="#FFFFFF"> 
 73                       <div align="center"><font color="#003399">◇</font></div>
 74                     <td bgcolor="#FFFFFF"><a href="index.asp?typename=国内信息">国内 
 75                       信息 </a> 
 76                   <tr bgcolor="#FFB74A"> 
 77                     <td bgcolor="#FFFFFF"> 
 78                       <div align="center"><font color="#003399">◇</font></div>
 79                     <td bgcolor="#FFFFFF"><a href="index.asp?typename=国外信息">国外 
 80                       信息</a> 
 81                   <tr bgcolor="#FFB74A"> 
 82                     <td bgcolor="#FFFFFF"> 
 83                       <div align="center"><font color="#003399">◇</font></div>
 84                     <td bgcolor="#FFFFFF"><a href="index.asp?typename=热点信息">热点 
 85                       信息</a> 
 86                   <tr bgcolor="#B5D85E"> 
 87                     <td colspan="2"> 
 88                       <div align="center"><font color="#000000">其 他 类 别 信 息</font></div>
 89                     </td>
 90                   </tr>
 91                   <tr bordercolordark="#FFFFFF"> 
 92                     <td height="15"> 
 93                       <div align="center"><font color="003399">◇</font></div>
 94                     </td>
 95                     <td height="15"><a href="index.asp?typename=工具信息">工具信息</a></td>
 96                   </tr>
 97                   <tr bordercolordark="#FFFFFF"> 
 98                     <td> 
 99                       <div align="center"><font color="003399">◇</font></div>
100                     </td>
101                     <td><a href="index.asp?typename=其他类别信息">其他类别信息</a></td>
102                   </tr>
103                   <tr bgcolor="#B5D85E" bordercolordark="#FFFFFF"> 
104                     <td colspan="2"> 
105                       <div align="center"><font color="#000000">本 站 信 息</font></div>
106                     </td>
107                   </tr>
108                   <tr bgcolor="#FFFFFF" bordercolordark="#FFFFFF"> 
109                     <td> 
110                       <div align="center"><font color="003399">◇</font></div>
111                     </td>
112                     <td><a href="index.asp?typename=站内信息">站内信息</a></td>
113                   </tr>
114                   <tr bgcolor="#FFFFFF" bordercolordark="#FFFFFF"> 
115                     <td height="12"> 
116                       <div align="center"><font color="003399">◇</font></div>
117                     </td>
118                     <td height="12"><a href="index.asp?typename=站外信息">站外信息</a></td>
119                   </tr>
120                   <tr bgcolor="#B5D85E" bordercolordark="#FFFFFF"> 
121                     <td colspan="2"> 
122                       <div align="center"><a href="login.asp">管 理 页 面</a> </div>
123                     </td>
124                   </tr>
125                   <tr bgcolor="#FFFFFF"> 
126                     <td colspan="2"> 
127                       <div align="center"> 
128                         <form method="post" action="index.asp?typename=<%=typename%>">
129                           <font color="#FF0000"> </font> 
130                           <table border=0 cellpadding=0 cellspacing=0 width="70%">
131                             <tr> 
132                               <td valign=center colspan="3" align="right"> 
133                                 <div align="center">查询关键字<br>
134                                   <font color="#FF0000"><%=keyword%></font> <br>
135                                 </div>
136                               </td>
137                             </tr>
138                             <tbody> 
139                             <tr> 
140                               <td width="32%" align="right" rowspan="2"> </td>
141                               <td valign=center width="49%" align="center" height="24"> 
142                                 <input class=TextBorder maxlength=25 
143             name=keyword size=15>
144                               </td>
145                               <td valign=buttom width="19%" align="left" rowspan="2"> 
146                                 <br>
147                               </td>
148                             </tr>
149                             <tr> 
150                               <td valign=center width="49%" align="center"> 
151                                 <div align="center"> 
152                                   <input alt=站内搜索 border=0 
153             name=submit src="ssearch.gif" type=image>
154                                   <input alt=reset border=0 
155             name=reset src="a.gif" type=image>
156                                 </div>
157                               </td>
158                             </tr>
159                             </tbody> 
160                           </table>
161                         </form>
162                       </div>
163                     </td>
164                   </tr>
165                   </tbody> 
166                 </table>
167               </div>
168 
169               <br>
170               <div align="center"> 
171                 <div align="center"><br>
172                   <br>
173                   <div align="center"> 
174                     <p align="left">
175                       <%
176 if typename="" then
177 sql="select * from learning where title like '%"&keyword&"%' order by articleid desc"
178 else
179 sql="select * from learning where type='"&typename&"' and title like '%"&keyword&"%' order by articleid desc"
180 end if
181 dim sql,rs
182 Set rs= Server.CreateObject("ADODB.Recordset")
183 rs.open sql,conn,1,1
184     if rs.eof and rs.bof then
185        response.write "<p align='center'> 还 没 有 任 何 信 息</p>"
186    else
187        totalPut=rs.recordcount
188       if currentpage<1 then
189           currentpage=1
190       end if
191       if (currentpage-1)*MaxPerPage>totalput then
192        if (totalPut mod MaxPerPage)=0 then
193          currentpage= totalPut \ MaxPerPage
194        else
195           currentpage= totalPut \ MaxPerPage + 1
196        end if
197 
198       end if
199        if currentPage=1 then
200            showpage totalput,MaxPerPage,"index.asp"
201             showContent
202             showpage totalput,MaxPerPage,"index.asp"
203        else
204           if (currentPage-1)*MaxPerPage<totalPut then
205             rs.move  (currentPage-1)*MaxPerPage
206             dim bookmark
207             bookmark=rs.bookmark
208            showpage totalput,MaxPerPage,"index.asp"
209             showContent
210              showpage totalput,MaxPerPage,"index.asp"
211         else
212             currentPage=1
213            showpage totalput,MaxPerPage,"index.asp"
214            showContent
215            showpage totalput,MaxPerPage,"index.asp"
216           end if
217        end if
218    rs.close
219    end if
220             
221    set rs=nothing  
222    conn.close
223    set conn=nothing
224   
225 
226    sub showContent
227        dim i
228        i=0
229   
230 %>
231                     </p>
232                   </div>
233                   <div align="center"> 
234                     <center>
235                       <table border="1" cellspacing="0" width="64%"
236     bgcolor="#F0F8FF" bordercolorlight="#000000" bordercolordark="#FFFFFF" background="../images/top-linebg.gif">
237                         <tr> 
238                           <td width="13%" align="center" height="20" bgcolor="#B5D85E"><font color="#000000">ID 
239                             号 </font></td>
240                           <td width="55%" align="center" bgcolor="#B5D85E"><font color="#000000">信 
241                             息 名 称</font></td>
242                           <td width="18%" align="center" bgcolor="#B5D85E"><font color="#000000">上 
243                             载 时 间</font></td>
244                           <td width="14%" align="center" bgcolor="#B5D85E"><font color="#000000">点 
245                             击</font></td>
246                         </tr>
247                         <%do while not rs.eof%>
248                         <tr> 
249                           <td width="13%" height="23" bgcolor="#FFFFFF"> 
250                             <p align="center"><%=rs("articleid")%> 
251                           </td>
252                           <td width="55%" bgcolor="#FFFFFF"> 
253                             <% if len(rs("title"))>45 then %>
254                             <a href="javascript:openwin(<%=rs("articleid")%>)" title="<%=rs("title")%>"><%=left(rs("title"),45)%>...</a> 
255                             <% else %>
256                             <a href="javascript:openwin(<%=rs("articleid")%>)" title="<%=rs("title")%>"><%=rs("title")%></a> 
257                             <% end if %>
258                           </td>
259                           <td width="18%" bgcolor="#FFFFFF"> 
260                             <div align="center"><%=rs("dateandtime")%></div>
261                           </td>
262                           <td width="14%" bgcolor="#FFFFFF"> 
263                             <p align="center"><%=rs("hits")%> 
264                           </td>
265                         </tr>
266                         <% i=i+1
267           if i>=MaxPerPage then exit do
268           rs.movenext
269        loop
270           %>
271                       </table>
272                     </center>
273                   </div>
274                   <%
275    end sub 
276 
277 function showpage(totalnumber,maxperpage,filename)
278   dim n
279   if totalnumber mod maxperpage=0 then
280      n= totalnumber \ maxperpage
281   else
282      n= totalnumber \ maxperpage+1
283   end if
284   response.write "<form method=Post action='index.asp?typename="&typename&"&keyword="&keyword&"'>"
285   response.write "<p align='center' vAlign='bottom'>&gt;&gt;分页&nbsp;"
286   if CurrentPage<2 then
287     response.write "<font color='999966'>首页 上一页</font>&nbsp;"
288   else
289     response.write "<a href="&filename&"?page=1&typename="&typename&"&keyword="&keyword&">首页</a>&nbsp;"
290     response.write "<a href="&filename&"?page="&CurrentPage-1&"&typename="&typename&"&keyword="&keyword&">上一页</a>&nbsp;"
291   end if
292   if n-currentpage<1 then
293     response.write "<font color='999966'>下一页 尾页</font>"
294   else
295     response.write "<a href="&filename&"?page="&CurrentPage+1&"&typename="&typename&"&keyword="&keyword&">下一页</a>&nbsp;"
296     response.write "<a href="&filename&"?page="&n&"&typename="&typename&"&keyword="&keyword&">尾页</a>"
297   end if
298    response.write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
299     response.write "&nbsp;共<b>"&totalnumber&"</b>个信息 <b>"&maxperpage&"</b>个信息/页 "
300    response.write " &nbsp;转到：<input class=TextBorder style='TEXT-ALIGN: center' type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"
301    response.write " &nbsp;&nbsp;<input alt=页面跳转 name='submit' src='images/goto.gif' type='image'></span></p></form>"
302        
303 end function
304 
305  
306 %>
307                 </div>
308               </div>
309             </div>
310           </td>
311         </tr>
312       </table>
313     </td>
314   </tr>
315 </table>
316 <p align="center">Copyright &copy;亮中计算机技术服务有限公司 2004</p>
317 </body>
318 </html>
319 


 

posted on 2010-10-13 00:01  培凇  阅读(254)  评论(0)  编辑  收藏  举报

导航