ad_jg.asp

自己做的毕业设计

<!--#include file=pass.asp-->
<!--#include file="conn.asp"-->

<meta http-equiv="Content-Language" content="zh-cn">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<SCRIPT language=JavaScript>
function showoperatealert(id)
{
		if (id==1)
        {

		{
		  	thisForm.target='_self';
			thisForm.action="jg_ly.asp";
			thisForm.submit();
		}
		}
		
		
}

function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
//-->
    </SCRIPT>
<style type="text/css">
<!--
body {
	background-color: #E7EEF5;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<div align="center">
 <table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#B6EBC4">
<td height="20" bgcolor="#E8EEF4" style="margin-top: 0; margin-bottom: 0">
    <FORM name=sou1 action="" method=POST style="line-height: 100%; margin-top: 0; margin-bottom: 0">
    <p align="center">关键字：
      <input name="key" type="text" id="key" size="20">
    &nbsp;  
    <input type="submit" value="查找" name="B1">
    </form>    
    </td>
    </tr>
</table>
</div>
<div align="center">
  <center>
 <table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">

<FORM name=thisForm action="" method=POST style="line-height: 100%; margin-top: 0; margin-bottom: 0">
<%
dim rs,sql,k,cnmai,rs1
dim ThisPage,Pagesize,Allrecord,Allpage
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
cnmai=request("cnmai")
set rs = Server.CreateObject("ADODB.RecordSet")
set rs1 = Server.CreateObject("ADODB.RecordSet")

key=trim(request.Form("key"))
		if key<>"" then
		sql="select * from jiangou where name like '%"&key&"%' order by id desc"
		else
		sql="select * from jiangou order by id desc"
		end if
		
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>还没有相关信息！"
response.end
end if
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
k=0
%>
<tr bgcolor="#B6EBC4">
    <td width="10%" height="30" bgcolor="#C5D5E4" >
    <p align="center">编号</td>
    <td width="36%" height="30" bgcolor="#C5D5E4" >
    <p align="center">书名</td>
    <td width="20%" height="30" bgcolor="#C5D5E4" >
    <p align="center"> 作者</td>
    <td width="17%" align="center" valign="middle" bgcolor="#C5D5E4" > 出版社</td>
    <td width="9%" align="center" valign="middle" bgcolor="#C5D5E4" > 查看</td>
    <td height="30" align="center" bgcolor="#C5D5E4" >
    操作</td>
  </tr>
  <%
  dim id
  do while not rs.eof
  id=rs("id")
  %>
<tr onMouseOver="this.style.backgroundColor='#EFE8D6';return true;" onMouseOut="this.style.backgroundColor='#FFFFFF';">
    <td width="10%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=k+1%></td>
    <td width="36%" height="25" bgcolor="#E3EBF2" >
    <p align="center"><%=trim(rs("book_name"))%></td>
    <td width="20%" height="25" align="center" bgcolor="#E3EBF2" >
      <%=trim(rs("zz"))%></td>
    <td width="17%" align="center" valign="middle" bgcolor="#E3EBF2" ><%=rs("pub")%></td>
    <td width="9%" align="center" valign="middle" bgcolor="#E3EBF2" ><a href="show_jg.asp?id=<%=rs("id")%>">查看</a></td>
    <td width="8%" align="center" bgcolor="#E3EBF2" ><input type="checkbox" name="selectedid" value="<%=trim(rs("content"))%>" /></td>
</tr>
  
    <%
    k=k+1
    rs.movenext
    if k>=Pagesize then exit do
	loop
	rs.close
    set rs=nothing
    set rs1=nothing
    closedb
	%>
  <tr>
    <td height="30" colspan="6" bgcolor="#E3EBF2">
         <table width="98%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolorlight="#335078" bordercolordark="#FFFFFF" bgcolor="#C5D5E4" style="font-size:12px; letter-spacing:1px;">
<tr bgcolor="#B6EBC4">
<td height="31" colspan="4" align="center" bgcolor="#DBE4EE">
<p align="center">
  <INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>
  选中所有记录  &nbsp;&nbsp; 
  <input onclick=javascript:showoperatealert(1) type="submit" value=" 删 除 " name="B1"></td>
</tr>
<tr> 
<td height="17" width="151" align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="17" width="181" align="center">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="17" width="237" align="center">
现在是第 
                <font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="17" width="200" align="center">
<%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&t1="&trim(request("t1"))&">首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&t1="&trim(request("t1"))&">上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&t1="&trim(request("t1"))&">下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&t1="&trim(request("t1"))&">尾页</a>&nbsp;"     
end if
%></td>
</tr>
          </table>    </td>
  </tr>
  </form>
</table>
  </center>
</div>