gsgg_bh.asp
资源名称:NetPhone.rar [点击查看]
上传用户:xxtaishan
上传日期:2022-01-02
资源大小:4063k
文件大小:4k
源码类别:
IP电话/视频会议
开发平台:
ASP/ASPX
- <style type="text/css">
- <!--
- .STYLE2 {color: #000000}
- .STYLE4 {color: #000000; font-weight: bold; }
- -->
- </style>
- <%
- if request("id")="" then
- %>
- <link href="index.css" rel="stylesheet" type="text/css" />
- <link href="css/css.css" rel="stylesheet" type="text/css" />
- <table width="400" height="249" border="0" align="center" cellpadding="0" cellspacing="0">
- <%
- Dim sql
- sql=" select * from info2 where wz like '%"&trim(request("wz"))&"%' order by id desc "
- Dim rs
- Set rs=Server.CreateObject("ADODB.RecordSet")
- rs.open sql,conn,1,1
- Dim page,i
- if request("page")="" then
- page=1
- else
- page=clng(request("page"))
- end if
- i=0
- rs.pagesize=10
- if page<1 then page=1
- if page>rs.pagecount then page=rs.pagecount
- if rs.pagecount>0 then rs.absolutepage=page
- %>
- <tr>
- <td width="546" valign="top"></p>
- <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
- <%
- if rs.eof then
- response.write "<tr><td colspan='2'><font color='red'>系统中还没有录入任何信息!</font></td></tr>"
- else
- Do while not rs.eof and i<rs.pagesize
- %>
- <tr class="font8">
- <td width="56" height="30"><div align="center"><span class="blue">·</span></div></td>
- <td width="425" height="15"><div align="left"><a href="?id=<%=rs("id")%>" target="_blank" class="main2"><%=left(rs("title"),25)%></a></div></td>
- <td width="108" class="style1eng"><%=rs("postdate")%></td>
- </tr>
- <tr>
- <td height="1" colspan="3" background="images/x1.gif"></td>
- </tr>
- <%
- rs.MoveNext
- i=i+1
- Loop
- end if
- %>
- </table>
- <br />
- <table width="86%" height="33" border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
- <tr>
- <td><span class="STYLE2">共 <%=rs.recordcount%> 条 页 次 <%=page%>/<%=rs.pagecount%> 页 <a href="?PAGE=1&wz=<%=request("wz")%>" class="main2">首 页</a>
- <%if rs.pagecount>1 then
- if page=1 then%>
- | 上一页 | <a href="?PAGE=<%=(page+1)%>&wz=<%=request("wz")%>" class="main2">下一页</a>
- <%else
- if page=rs.pagecount then%>
- <a href="?PAGE=<%=(page-1)%>&wz=<%=request("wz")%>" class="main2">上一页</a> | 下一页
- <%else%>
- | <a href="?PAGE=<%=(page-1)%>&wz=<%=request("wz")%>" class="main2">上一页</a> | <a href="?PAGE=<%=(page+1)%>&wz=<%=request("wz")%>" class="main2"> 下一页</a>
- <%end if%>
- <%end if%>
- <%end if%>
- | <a href="?PAGE=<%=rs.pagecount%>&wz=<%=request("wz")%>" class="main2"> 尾 页</a> 第</span>
- <select name="sel_page" class="mailarea" onchange="javascript:location=this.options[this.selectedIndex].value;">
- <%
- for i = 1 to rs.PageCount
- if i = page then%>
- <option value="?PAGE=<%=i%>" selected="selected"><%=i%></option>
- <%else%>
- <option value="?PAGE=<%=i%>"><%=i%></option>
- <%
- end if
- next
- %>
- </select>
- <span class="STYLE2"> 页</span></td>
- </tr>
- </table></td>
- </tr>
- </table>
- <%
- else
- %>
- <table width="550" border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
- <%
- sqlcp="select * from info2 where id="&request("ID")
- Set rscp=Server.CreateObject("ADODB.RecordSet")
- rscp.open sqlcp,conn,1,1
- %>
- <tr>
- <td><div align="center">
- <p><span class="font8"><strong><span class="STYLE4"><%=rscp("title")%></span></strong><br />
- <%=rscp("postdate")%></span>
- <div align="left" class="font8"><%=rscp("content")%></div><br />
- <table width="164" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="44"><img src="image/sub/dl_icon.gif" width="38" height="36" /></td>
- <td width="120"><a href="<%=rscp("pic")%>" class="main2">:::本地下载:::</a></td>
- </tr>
- </table>
- <a href="<%=rscp("pic")%>"></a> </div></td>
- </tr>
- <%
- rscp.close
- set rscp=nothing
- %>
- </table>
- <%end if%>