ucaselist.asp

一个互联网络公司网站源码

<!--#include file="../inc/conn.asp" -->
<%
	Response.Charset="gb2312"
	Response.ContentType="text/html"
	sql="select * from webcase where PicUrl<>'' order by index asc, id desc"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,1
	rs.pagesize=3
	currentPage=Request.QueryString("page")
	if not isnumeric(currentPage) then
		currentPage=1
	end if
	currentPage=cint(currentPage)
	if currentPage<1 then
		currentPage=1
	end if
	if currentPage>rs.pagecount then
		currentPage=rs.pagecount
	end if
	PageCounts=rs.pagecount
	recordCounts=Rs.RecordCount
	if not rs.eof then
		rs.absolutepage=currentPage
		for i=1 to rs.pagesize
		if rs.eof then exit for
		url=trim(rs("url"))
		if left(url,7)<>"http://" then
		url="http://"&url
		end if
%>
<table width=100% border=0 cellspacing=5 cellpadding=0>
	<tr> 
	  <td width=31% height="150" align=center valign=top><img src=<%=rs("picurl")%> width=180 height=124 class=pic2></td>
	  <td width=69% valign=top > 
		  <table width=100% height="150" border=0 cellpadding=0 cellspacing=0 class=gao>
			  <tr> 
				<td width=429 height=110 valign=top style="word-wrap : break-word ;word-break : normal ;"><strong><font color=#FF6600><%=rs("title")%></font></strong><br><%=InterceptString(rs("content"),276)%></td>
			  </tr>
			  <tr> 
				<td valign=bottom><a href="<%=rs("PicUrl")%>" target="_blank"><img src=../images/index_show_01.gif width=75 height=16 border="0"></a>　<a href="<%=url%>" target="_blank"><img src=../images/index_show_02.gif width=75 height=16 border="0"></a></td>
			  </tr>
		</table>
	  </td>
	</tr>
</table>    

<%
	rs.movenext
	next
	rs.close
%>
<%		  page_url=request.ServerVariables("URL")
		  pagename=right(page_url,len(page_url)-InstrRev(page_url,"/"))
		  pagename="al01.htm"
		  querystr=trim(request.ServerVariables("QUERY_STRING"))
		  if instr(querystr,"page=") then
		  querystr=left(querystr,instr(querystr,"page=")-1)
		  elseif len(querystr)>0 then
		  querystr=querystr&"&" 
		  end if
		  for each item in request.Form
		  if request.Form(item)<>"" and request.Form(item)<>"搜索" then
		  formstr=formstr+item+"="+request.Form(item)+"&"
		  end if
		  next
		 %>
          <td align="left">当前<% if PageCounts > 0 then %> <%=currentPage%>/<%=PageCounts%>
          <%else%> 0/0
          <%end if%>页 
		  共<%=recordCounts%>条记录
		  </td>
          <td width="70%" align="right"><%if currentPage<2 then %>
            首页 | 上页 |
            <%else%>
        <a href="<%=pagename%>?<%=querystr%><%=formstr%>page=1">首页</a> | <a href="<%=pagename%>?<%=querystr%><%=formstr%>page=<%=currentPage-1%>">上页</a> |
            <%end if%>
        <%if PageCounts-currentPage<1 then%>
            下页 | 尾页 |
            <%else%>
            <a href="<%=pagename%>?<%=querystr%><%=formstr%>page=<%=currentPage+1%>">下页</a> | <a href="<%=pagename%>?<%=querystr%><%=formstr%>page=<%=PageCounts%>">尾页</a> |
            <%end if%>
            转到第
            <select class="txt" name="sel_page" onChange="javascript:location=this.options[this.selectedIndex].value;" id="Select1">
              <%
       for i = 1 to PageCounts
       if i =currentPage then%>
              <option value="<%=pagename%>?<%=querystr%><%=formstr%>page=<%=i%>" selected><%=i%></option>
              <%else%>
              <option value="<%=pagename%>?<%=querystr%><%=formstr%>page=<%=i%>"><%=i%></option>
              <%end if
		next%>
            </select>
          页 </td>
        </tr>
</table>
<%end if%>