|
|
| 电话:0353-2160587 |
| 传真:0353-2160594 |
| E-mail: qingong@qingong.com.cn |
| 地址:山西省阳泉市义东沟(义井桥向南200米) |
|
|
|
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
const MaxPerPage=25
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
call deleteannounce(id)
next
else
call deleteannounce(clng(idlist))
end if
end if
set rs2=server.CreateObject("adodb.recordset")
sel_str2="select * from salenet order by prov,id desc"
rs2.open sel_str2,conn,1,3
totalPut=rs2.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent totalput,MaxPerPage
showpage totalput,MaxPerPage,"xswl-jxs.asp"
else
if (currentPage-1)*MaxPerPage
| 省份 |
地区 |
联系人 |
电话 |
传真 |
地址 |
<% do while not rs2.eof%>
|
|
|
|
|
|
|
<%i=i+1
if i>=MaxPerPage then Exit Do
rs2.movenext
loop
rs2.close
set rs2=nothing%>
| |
|
|
|
|
|