📄 sou.asp

📁 很美观的供求信息平台！超级无错版
💻 ASP
字号:
<!--#include file="7dipath.asp"-->
<%
if request.cookies("okadmin")="" then
  response.redirect "../7dilogin.asp"
end if
%>
<%
   dim MaxPerPage
   dim sql 
   dim rs
   dim gstBookID
   dim totalPut   
   dim CurrentPage
   dim TotalPages
    if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
%>
<body leftmargin="0" topmargin="0">
<P align="center">
<table border="0" width="98%" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="100%"><% 
name=trim(request("keyword")) 
name=replace(name,"'","''") 
if name="" then 
   response.write"<a href=""javascript:history.go(-1)"">查找项目不能为空，请重输入查找的信息然后点击“查询”</a>" 
   response.end 
else 
    sql="select * from gq where subject Like '%"& name &"%' or memo like '%"& name &"%' or phone like '%"& name &"%' or address like '%"& name &"%' or code like '%"& name &"%' or name like '%"& name &"%' or email Like '%"& name &"%'or gs Like '%"& name &"%'order by id desc" 
    Set rs= Server.CreateObject("ADODB.Recordset") 
    rs.open sql,conn,1,1 
end if 
 if rs.eof then 
   response.write"<a href=""javascript:history.go(-1)"">没有你要查找的信息，请返回重查。</a>" 
   response.end 
else    
   if not isempty(request("page")) then 
      currentPage=cint(request("page")) 
   else 
      currentPage=1 
   end if 
 
   rs.pagesize=10 '每页显示的记录数量
   totalPut=rs.recordcount '记录总数  
   totalPage=rs.pagecount  
   MaxPerPage=rs.pagesize  
      if currentpage<1 then  
          currentpage=1  
      end if  
      if currentpage>totalPage then  
          currentpage=totalPage  
      end if  
   if currentPage=1 then  
      showpages  
      showContent  
      showpages1  
    else  
         if (currentPage-1)*MaxPerPage<totalPut then  
         rs.move  (currentPage-1)*MaxPerPage  
         dim bookmark  
         bookmark=rs.bookmark '移动到开始显示的记录位置  
         showpages  
         showContent  
         showpages1  
      else   
             
      end if  
   end if  
      rs.close  
end if  
set rs=nothing    
conn.close  
set conn=nothing    
  
sub showContent  
     dim i,j 
%>  
<br></TD></TR></TABLE>
<table width="98%" border="0" style="border-collapse: collapse" cellpadding="0" cellspacing="0" class="t5">
<% i=1 
  do while not (rs.eof or err)  
if i mod 2 <> 0 then     %>  
<tr>
<%else%> 
<tr>
<%end if%> 
<td width="100%">
<ul>
<li><% if rs("gq")="需求" then%> <font color="#fc9603" size="2pt">【<%=rs("gq")%>】</font>           
                <%else%>          <font color="#079807">【<%=rs("gq")%>】</font> <%end if%>            
 <font color="#aa0000"><%=rs("subject")%></font>(<%=rs("date")%>?<%=rs("time")%>)（<%=rs("lbid")%>地区<%=rs("name")%>）<br>

               <%=rs("gs")%>            (<%=rs("date")%>?<%=rs("time")%>)【<a href="../open.asp?id=<%=rs("id")%>" target="_blank">详细信息...</a>】&nbsp;              
<%Response.Write "【<A HREF=xggq.asp?userid=" & cstr(rs("id")) & "&page=" & cstr(currentpage) & "&lbid=" & cstr(request("lbid"))& ">修改</A>】" %>&nbsp;              
<%Response.Write "【<A HREF=delelist.asp?userid=" & cstr(rs("id")) & "&page=" & cstr(currentpage) & "&lbid=" & cstr(request("lbid"))& ">删除</A>】"%>
</ul>
</td>
</tr>
</TR>
<%   
    if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出   
   i=i+1   
    rs.movenext   
    loop   
%> 
</table>
<%end sub
sub showpages()   
%>  
<table width="98%">
<tr>
<td align="right" class="t2" width="100%">共查询到<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><b><%=totalPut%></b></font>条信息</td>
</tr>
</table>
<%   
end sub   
sub showpages1()   
dim n   
n=totalPage   
%>  
<form action="search.asp" method="GET" align="right">
<center>
<table border="0" cellspacing="0" cellpadding="0" class="t2" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="30" align="right"><%    
   If currentPage <> 1 Then   
      Response.Write "<A HREF=search.asp?keyword="&request("keyword") & ">&nbsp;第一页&nbsp;</A> "   
      Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & (currentPage-1) & ">&nbsp;上一页&nbsp;</A> "   
   End If   
   If currentPage <> rs.PageCount Then   
      Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & (currentPage+1) & ">&nbsp;下一页&nbsp;</A> "   
      Response.Write "<A HREF=search.asp?keyword="&request("keyword") & "&Page=" & totalPage & ">&nbsp;最后一页&nbsp;</A> "   
   End If   
%>第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页<%   response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"   
for i=1 to n   
   response.write "<option value="& i    
   if currentpage=i then    
     response.write " selected"   
   end if   
   response.write ">"& i &"</option>"   
next   
  response.write "</select>"   
  response.write "<input type='hidden' name='keyword' value="&request("keyword")&">"  
   response.write "&nbsp;<input class=buttonface type='submit'  value='确定'  style='font-family: 宋体; font-size: 9pt;'>"   
%>
</td>
</tr>
</table>
</center>
</form>
<%end sub%>  
</P>
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -