<% set rs=server.createobject("adodb.recordset") set rss=server.createobject("adodb.recordset") counts=conn2.execute("select count(id) from memshop where 1=1")(0) pagecount=20 pages=int(counts/pagecount) if pagespages then page=1 sql="select top "&pagecount&" id,shopname,market,scity,mjclass,mclass,mtel,mtelq from memshop where 1=1 and id not in(select top "&(page-1)*pagecount&" id from memshop order by enterdate desc) order by enterdate desc" rss.open sql,conn2,1,1 %> <%=webname%>
  • 　
<% for i=1 to pagecount if not rss.eof then rss.movenext if i=pagecount or rss.eof then rss.moveprevious %> <% rss.movenext else rss.moveprevious %> <% rss.movenext end if end if next %>
共 <%=counts%> 个商户 分 <%=pages%> 页 <%pagefun page,pages %>
备案号：闽B2-20040065　
<% if not(session("username")="" and session("id")="" and session("Email")="") then %>
商户基本信息
修改服务设施
修改交通指南
修改招商指南
修改物业客理
品牌管理
添加品牌
商品管理
添加商品
<% end if %> <% sub pagefun(page,pages) if pages>1 then response.write "" if page>1 and pages>1 then response.write "上一页 " else response.write "上一页 " if pages>7 then if page>4 and page+3<=pages then for i=page-3 to page+3 if page=i then response.write ""&i&" " else response.write ""&i&" " end if next else if (page>4 and page+3>pages) then for i=pages-6 to pages if page=i then response.write ""&i&" " else response.write ""&i&" " end if next end if end if if page<=4 then for i=1 to 7 if page=i then response.write ""&i&" " else response.write ""&i&" " end if next end if end if if pages<=7 then for i=1 to pages if page=i then response.write ""&i&" " else response.write ""&i&" " end if next end if if pages>1 then if page下一页" else response.write "下一页" response.write "" end if end sub function changstr(str) str=replace(str,"<","<") n1=0 n2=0 if instr(str,"<")<>0 then n1=instr(str,"<") n2=instr(str,">") n=n2-n1+1 str1=mid(str,n1,n) str=replace(str,str1,"") str=changstr(str) end if changstr=str end function Function cutStr(str) '去掉所有HTML标记 Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern="<(.[^>]*)>" str=re.Replace(str,"") set re=Nothing cutStr=str cutStr=Replace(cutStr,chr(10),"") cutStr=Replace(cutStr,chr(13),"") End Function '************** '控制输出字符串的长度，可以区别中英文 function strlen(str) dim p_len p_len=0 strlen=0 if trim(str)<>"" then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))<0 then strlen=int(strlen) + 2 else strlen=int(strlen) + 1 end if next end if end function function strvalue(str,lennum) dim p_num dim i if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 x=x+1 if asc(mid(str,x,1))<0 then p_num=int(p_num) + 2 else p_num=int(p_num) + 1 end if strvalue=left(trim(str),x)&"" loop end if end function %>