<!--#include file="dbconn.asp"-->
<html>
<%
   const MaxPerPage=6
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim keyword 
   keyword=trim(request("keyword"))  
   dim typename
  typename=request.Querystring("showname")
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="pick.css">
<meta name="description"
content="The largest online gallery of top-notch web design examples anywhere. Browse, search, learn, get inspired.">
<meta name="keywords"
content="cool homepages, cool home pages, web design, design, Photoshop, fonts, resource, webpages, graphics, developers, flash, awards, best of the web">
<title>:::::星光软件园软件发布系统::::::</title>
</head>

<body>

<table border="0" width="100%" cellspacing="0" cellpadding="0" height="242">
  <tr>
    <td width="100%" height="242" valign="middle"><div align="center"><center>
      <table border="0"
    width="93%" cellspacing="0" cellpadding="0" height="1">
      <tr>
        <td width="73%"
        style="border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0)"
        bgcolor="#F3F3F3" valign="top" height="1">
        <table border="0" width="100%" height="151" cellspacing="0"
        cellpadding="0">
          <tr>
            <td width="100%" height="21" class="newfont4"><p align="center">星光软件园软件发布系统</td>
          </tr>
          <tr>
            <td width="100%" height="112" valign="top"><div align="center"><center><table border="0"
            width="97%" height="73" cellspacing="0" cellpadding="0">
              <tr>
                <td width="101%" height="16" align="right" colspan="2"><%
dim sql
dim rs
sql="select * from con where title like '%"&keyword&"%' order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
if typename="" then
rs.open sql,conn,1,1
end if
if rs.eof and rs.bof then
      response.write "<p align='center'>..:: 没 有 数 据 未 录 入 ::..</p>"
   else
	  totalPut=rs.recordcount
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut \ MaxPerPage
	   else
	      currentpage= totalPut \ MaxPerPage + 1
	   end if

      end if
       	       if currentPage=1 then
                    showpages
                    showContent
					showpages
	           else
		         if (currentPage-1)*MaxPerPage<totalPut then
		            rs.move  (currentPage-1)*MaxPerPage
		            dim bookmark
		            bookmark=rs.bookmark
                    showpages
                    showContent
					showpages
                  else
			        currentPage=1
                   showpages
                    showContent
                   showpages
			      end if
			   end if
			   rs.close
   end if
	        
 
    set rs=nothing  
   conn.close
   set conn=nothing

   sub showContent
       dim i
	   i=0
  
%>
</td>
</tr>
<%do while not rs.eof%>
              <tr>
                <td width="22%" height="24" class="con"><b><font color="#008000">软件下载：</font></b> <a                  
                href="openfile.asp?id=<%=rs("id")%>&amp;url=<%=rs("url")%>" target="_black"><font
                color="#000000"><%=rs("showname")%></font></a> <font color="#C0C0C0">[<%=rs("dateandtime")%>]</font></td>                  
                <td width="100%" height="24" class="con"><b>类型：</b><%=rs("lx")%></td>       
              </tr>
              <tr>
                <td width="58%" height="4" class="con"><font color="#0000FF"><b>发布人</b></font>：<%=rs("name")%><b></b></td>  
                <td width="100%" height="4" class="con"><b>环境：</b><%=rs("yxhj")%></td>
              </tr>
              <tr>
                <td width="103%" height="3" class="con" colspan="2"><font color="#008080"><b>演示地址：</b></font><a             
                href="<%=rs("ys")%>" target="_black"><%=rs("ys")%></a></td>  
              </tr>
              <tr>
                <td width="101%" class="con" colspan="2"><font color="#FF0000"><b>简介：</b></font> <%=rs("title")%></td>  
              </tr>
              <tr>
                <td width="101%" height="7%" class="con" bgcolor="#00FF00" colspan="2"></td>  
              </tr>
<% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %>
              <tr>
                <td width="101%" height="22" align="right" colspan="2"><%
   end sub 
   sub showpages()
          dim n
	   if (totalPut mod MaxPerPage)=0 then
	      n= totalPut \ MaxPerPage
	   else
	      n= totalPut \ MaxPerPage + 1
	   end if
response.write "</font>"
response.write "&nbsp;共<b> "&totalput&" </b>位贵宾  "
	   dim k
	   response.write "页 "
	   for k=1 to n
	       if k=currentPage then
	          response.write "[<b>"+Cstr(k)+"</b>] "
		   else
		      response.write "[<b>"+"<a href='ckrj.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>]   "
		   end if
	next
	   	
   end sub
%>
</td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td width="73%" height="26"><p align="center"><font color="#FFFFFF"><a href="ckrj.asp">查看网友软件</a>&nbsp; | </font>              
        <font color="#FF0000"><a href="login.asp">管理网友软件</a></font></td>
      </tr>
    </table>
    </center></div></td>
  </tr>
</table>

</body>
</html>
<%	        
    set rs=nothing  
   conn.close
   set conn=nothing %>