showindextable.asp

个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站个人网站

<%
function showIndexTable(sql,rowNum,page,charLen,gapStr,styleStr,target)
		'classID	文章分类的ID序号
 		'rowNum 	需要显示多少行
	 	'charLen 	每行显示字数
		'gapStr 	显示间隔符号及其样式，可为空
		'styleStr 	链接的样式表达式，可为空
		'target 	打开链接网址的方式，为_blank,_self,_parent,_top之一
		
'-------------数据库变量----------------		
dim conn,rs		',sql

'-------------中间变量------------------
dim i,j,k					'循环变量

'-------------环境初始化----------------
if(rowNum="" or IsNumeric(rowNum)=false) then
	rowNum=5		'set default rowNum=5
end if

if(charLen="" or IsNumeric(charLen)=false) then
	charLen=15		'set default charLen=15
end if

if(gapStr="") then
	gapStr="<span style='font-size:14px'>·</span>"		'set default gapStr and style
end if

'--------------变量初始化---------------
i=0
page=CInt(page)
'on error resume next
set conn=getconn()		'必须配合conn.asp文件使用
set rs=getrs()

rs.open sql,conn,1,1
'---------------输出表格---------------
%>
<!--out table start-->
<table width="100%" border="0" cellpadding="0" cellspacing="2">
<%
if(not rs.bof and not rs.eof) then
	recordNum=rs.recordcount
	if(rowNum>rs.recordcount) then rowNum=rs.recordcount 
	rs.pagesize=rowNum     		'设置每页显示数目
	pagenum=rs.pagecount        '获取页面数目
	'response.Write("pagenum:"&pagenum)
	
    if(page < 1 or page="") then page = 1 
    if(page>pagenum) then page = pagenum  
	rs.absolutepage=page 	 '设置当前页面

	do while not rs.eof
		if(i=rowNum) then exit do	'if have showed rowNum rows then exit do
%>
  <tr>
    <td class="moreTable_title"><a href="<%=dbstr&"articles.asp?linkid="&rs("id")%>" target="_blank"><%=rs("title")%></a></td><!--Title-->
  </tr>
  <tr height="40px" valign="top">
    <td class="moreTable_topic"><%=rs("topic")%></td><!--Topic-->
  </tr>
  <tr height="22px" valign="top">
    <td class="moreTable_info"><table width="100%"  border="0" cellspacing="0" cellpadding="0" class="moreTable_info">
      <tr>
        <td width="15%">作者:<%=rs("author")%></td>
        <td width="25%">来源:<%=rs("fromUrl")%></td>
        <td width="45%">发表时间:<%=rs("pubTime")%></td>
        <td width="15%">人气:<%=rs("readCounter")%></td>
      </tr>
    </table></td>
  </tr>
<!--out table end-->
<%
		i=i+1
		rs.movenext
	loop
%>
	<tr><td align="center" class="moreTable_link">
<%
		response.Write("共"&recordNum&"条记录 ")
    	If page <> 1 Then 
      		response.write("<a href="&thepage&"?page=1>首页</a> " )
      		response.write("<a href="&thepage&"?page="&(page-1)&">上页</a> " )
    	End If 
    	If page <> pagenum Then 
      		response.write("<a href="&thepage&"?page="&(page+1)&">下页</a> ")
      		response.write("<a href="&thepage&"?page="&pagenum&">尾页</a>") 
    	End If 	

    	response.Write("  当前"&page&"/"&pagenum&"页 &nbsp;&nbsp;到")
%>	
      <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%for i=1 to pagenum%>
        <option value='<%=thepage&"?page="&i%>'><%=i%></option>
<%next%>
      </select>页
	</td></tr>
<%
else
%>
<tr><td class="usualText"><br/><br/> Sorry to alert you , zero back for your search!</td></tr>
<%
end if
%>
</table>
<%

rs.close
conn.close
'---------------------------------------

end function
%>