<% sql2="select name,ch,qymc,phone,fax,email from corporation where id="&session("id")&"" set rs2=conn.execute(sql2) if session("flag")<>1 then if not rs2.eof or isnull(rs2("qymc")) then response.redirect "upgrade.asp" response.end end if end if rs2.close set rs2 = nothing %> <% dim totalPut dim CurrentPage dim TotalPages dim i,j MaxPerPage=9 if Chkrequest(request("page")) then currentPage=request("page") else currentPage=1 end if dim rs dim sql set rs=server.createobject("adodb.recordset") sql="select * from mod" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

对不起，没有任何信息！

" else totalPut=rs.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,"webmod.asp" else if (currentPage-1)*MaxPerPage

商务助手首页

发布商业信息

查看商业往来

我的会员资料

我的自助网站

帮助

<%do while not rs.eof%> <% x=x+3 if x>=MaxPerPage then exit do rs.movenext loop rszs.close set rszs=nothing %> <% END SUB Function showpage(totalnumber,maxperpage,filename) dim n if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if if CurrentPage<2 then response.write "" response.write "

网站模版选择

")">

" style="CURSOR: hand" width=150>

/index.asp?id=<%=session("id")%>">")" style="text-decoration: none"><%=rs("type1")%>

<%rs.movenext %>

")">

" style="CURSOR: hand" width=150>

/index.asp?id=<%=session("id")%>">")" style="text-decoration: none"><%=rs("type1")%>

<%rs.movenext %>

")">

" style="CURSOR: hand" width=150>

/index.asp?id=<%=session("id")%>">")" style="text-decoration: none"><%=rs("type1")%>

" response.write "" response.write "" response.write "

" response.write "共"&n&"页第"&CurrentPage&"页共有"&totalnumber&"个网站模板

" response.write "【最前页】【上一页】" else response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "

" response.write "共"&n&"页第"&CurrentPage&"页共有"&totalnumber&"个网站模板

" response.write "【最前页】" response.write "【上一页】 " end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【" response.write "下一页】【最后页】" end if response.write "

" end function rs.close set rs=nothing %>

<% conn.close set conn=nothing %>