IP电话/视频会议

开发平台：
ASP/ASPX

xw_bh.asp：源码内容
							
<%
if request("id")="" then
%>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<table width="500" height="249"  border="0" align="center" cellpadding="0" cellspacing="0">
  <%
	Dim sql
	sql=" select * from info where wz='a'  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="446" 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" class="blue">·</div></td>
            <td width="425" height="15"><div align="left"><a href="?id=<%=rs("id")%>" target="_blank"  class="main3"><%=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="font8">共 <%=rs.recordcount%> 条  <%=page%>/<%=rs.pagecount%> 页 <a href="?PAGE=1"  class="main2">首 页</a>
                  <%if rs.pagecount>1 then 
     if page=1 then%>
              | 上一页 | <a href="?PAGE=<%=(page+1)%>"  class="main3">下一页</a>
              <%else
      if page=rs.pagecount then%>
              <a href="?PAGE=<%=(page-1)%>"  class="main1">上一页</a> | 下一页
              <%else%>
              | <a href="?PAGE=<%=(page-1)%>"  class="main3">上一页</a> | <a href="?PAGE=<%=(page+1)%>"  class="main3"> 下一页</a>
              <%end if%>
              <%end if%>
              <%end if%>
              | <a href="?PAGE=<%=rs.pagecount%>"  class="main2"> 尾 页</a> 第</span>
                <select name="sel_page" 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>              页</td>
          </tr>
      </table></td>
  </tr>
</table>
<%
else
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" class="style1">
  <%
	sqlcp="select * from info where id="&request("ID")
	Set rscp=Server.CreateObject("ADODB.RecordSet")
	rscp.open sqlcp,conn,1,1
%>
  <tr>
    <td><div align="center">
      <p><strong><%=rscp("title")%></strong><br />
          <%=rscp("postdate")%>
      <div align="left"><%=rscp("content")%></div>
    </div></td>
  </tr>
  <%
rscp.close
set rscp=nothing
%>
</table>
<%end if%>

						