<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% dim itemclass itemclass=CINT(request.QueryString("ClassID")) %>

<% dim conn,rs,sql,iCount,iPageSize,page,maxpage iCount=0 iPageSize=0 page=0 maxpage=0 set rs=server.CreateObject("adodb.recordset") sql="SELECT * FROM [LinkInfo] WHERE [ItemClass]="&itemclass&" ORDER BY [ID] " rs.open sql,conn,1,1 if rs.eof then %> <% else rs.PageSize =20'每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if for i=1 to rs.pagesize dim linkID linkID=rs("id") %> <% rs.movenext if rs.eof then exit for next end if %>

	序号	销售部门	联系人	电话	传真	手机
对不起，暂无记录！
	<%=linkID%>	<%=rs("AreaName")%>	<%=rs("LinkMan")%>	<%=rs("FixTel")%>	<%=rs("Fax")%>	<%=rs("MobTel")%>	编辑
<% if iCount>iPageSize then call PageControl(iCount,maxpage,page,"border=0 align=right"," ") end if %>