site_list.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<%
response.buffer=true
response.expires=0%>
<script language="javascript">
function check_search()  
{  
	if (form1.keyword.value=="")
	{   alert("请输入要查找的网站名称或简介！");
		form1.keyword.focus();
		return false;
	}
    return true;
}
</script>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center"><br>
      <img src="images/sitelist.gif" width="605" height="35"></td>
  </tr>
  <tr> 
    <td height="350" valign="top"> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td height="40" align="center"><table border="0" align="center" cellpadding="0" cellspacing="0">
            <form name="form1" method="post" action="?action=search" onsubmit="return check_search()">
              <tr>
                <td width="66">搜索网站： </td>
                <td width="126">
                  <input name="keyword" type="text" class="input" id="keyword" size="22">
                </td>
                <td width="119" align="center"><select name="select" class="input" id="select">
                    <option value="sitename" selected>网站名称</option>
                    <option value="intro">网站简介</option>
                  </select>
                </td>
                <td width="65" align="center"><input name="image" type="image" style="height:21px" src="images/search.jpg"></td>
              </tr>
            </form>
        </table></td>
      </tr>
      <tr>
        <td><%
sql="select * from user where state=1"
if request("action")<>"" then
  select case request("select")
    case  "sitename"
	  sql="select * from [user] where sitename like '%"&request("keyword")&"%' and  state=1 order by logindate"
	case  "intro"
	  sql="select * from [user] where intro like '%"&request("keyword")&"%' and  state=1 order by logindate"
  end select
else
  sql="select * from [user] where state=1 order by logindate"
end if
sitetypeid=request("sitetypeid")
if sitetypeid<>"" then
	sql = "select * from [user] where sitetype='"&sitetypeid&"' and state=1 order by logindate"
end if
 	rs.open sql,conn,1,1
	 rs.pagesize=30 '系统默认每页显示30条记录,可自定义修改
     page=request("page")
     if page="" or page<"1" then
     page=1
     end if
	      rs.absoluteposition=rs.recordcount-(page-1)*rs.pagesize
          for ipag=1 to rs.pagesize
set rs5=server.createobject("ADODB.Recordset")
sql5="select * from siteclass where id="&rs("sitetype")
rs5.open sql5,conn,1,1
	 if rs.eof and rs.bof then   
     response.write"<br>" 
	 response.write "<center><font color=red>对不起，没有找到相关站点！</font></center>"
else
%>
            <table width="80%" border=0 align="center" cellpadding=2 cellspacing=2>
              <tr bgcolor=f8f8f8>
                <td><b>◆</b><a href="view.asp?username=<%=rs("username")%>" title="<%=rs("sitename")%>" target="_blank"><%=rs("sitename")%></a>
                    <%
				set rsuser=server.createobject("adodb.recordset")
sqluser="select * from [user] where username='"&rs("username")&"'"
rsuser.open sqluser,conn,1,1
set rshost=server.createobject("adodb.recordset")
sqlhost="select * from host where id="&cint(rsuser("groups"))
rshost.open sqlhost,conn,1,1
if rshost("type")="vip" then
Response.Write("<img src=images/vip.gif border=0 alt=高级用户>")
end if%></td>
                <td nowrap>注册日期：<%=formatdatetime(rs("regdate"),1)%></td>
              </tr>
              <tr bgcolor=f8f8f8>
                <td width=400>网站类型：<a href="site_list.asp?sitetypeid=<%=rs("sitetype")%>"><%=rs5("sitetype")%></a></td>
                <td nowrap>最后更新: <%=formatdatetime(rs("logindate"),1)%></td>
              </tr>
              <tr>
                <td height="30" colspan=2> 简介：<%=left(rs("intro"),25)%>...</td>
              </tr>
            </table>
            <%end if%>
            <%
          rs.moveprevious
          if rs.bof then exit for
          next  
%>
            <br>
            <table width="80%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr align="center" valign="bottom" bgcolor="#ffffff">
                <td> 符合查询条件的网站共<font color="#ff0000"><%=rs.recordcount%></font>个 每页<font color="#ff0000"><%=rs.pagesize%></font>条 共有<font color="#ff0000"><%=rs.pagecount%></font>页 第<font color="#ff0000"><%=page%></font>页</td>
              </tr>
              <tr align="center" valign="bottom" bgcolor="#ffffff">
                <td height="60"><form action="site_list.asp"><a href="site_list.asp?page=1&sitetypeid=<%=request("sitetypeid")%>">首页</a> <%if page<>1 then%>
                  <a href="site_list.asp?page=<%=page-1%>&sitetypeid=<%=request("sitetypeid")%>">上一页</a>
                  <%else%>
                  <font color="#999999">上一页</font>
                <%end if%> <%
						rs.absolutepage=page+1
						if not rs.eof then   
					  %>                <a href="site_list.asp?page=<%=page+1%>&sitetypeid=<%=request("sitetypeid")%>">下一页</a>
                  <%else%>
                  <font color="#999999">下一页</font>
                <%end if%>
                    <a href="site_list.asp?page=<%=rs.pagecount%>&sitetypeid=<%=request("sitetypeid")%>">尾页</a> 
                    转到： 
                    <input name='page' type='text' class="input"  value="<%=page%>" size=4 maxlength=10>
                    <input type='submit' class="button"  value='确定'>
                  </form></td>
              </tr>
          </table></td>
      </tr>
    </table></td>
  </tr>
</table>

                  
<!--#include file="copyright.asp"-->