<%call DBConnBegin() tp="select * from about where id=10" Set rs_about= Server.CreateObject("ADODB.Recordset") rs_about.open tp,conn,1,1 sub mainpage(page_count,record_count,ipage,pagestr) n=10 response.write "Total:"&record_count&" Page:"&ipage&"/"&page_count&" " if page_count>1 then if ipage>1 then response.write "|<" if (ipage-1)=1 then response.write "<" else response.write "<" end if else response.write "|<" response.write "<" end if if (ipage-(n/2))<1 then start=1 else start=(ipage-(n/2)) end if for i=start to (start+n) if i<=page_count then if i=1 then response.write ""&i&" " else response.write " title='Page:"&i&"'>"&i&"" end if end if next if cint(ipage)<=(page_count-1) then response.write ">" response.write ">| " else response.write ">" response.write ">| " end if end if end sub %> <%=rs_about("title")%> "> ">
zhejiang sentai electrical apparatus factory
<% call DBConnEnd() %>