 |
|
| <%
sql="Select aa.id as id,aa.nnumber as nnumber,aa.ninprice as ninprice,aa.nprice as nprice,aa.nintime,aa.nbeizhu From hydatabase.dbo.hy_numbers aa inner join OPENDATASOURCE('SQLOLEDB', '"&hs_connstr&"')."&hs_dbo_user&".dbo.user_sjnumber b on aa.nnumber=b.nnumber Where aa.nEstate=2 and aa.nbeizhu='C网'"
if ReplaceString(checkstring,trim(request("key")))<>"" then sql=sql&" and aa.nnumber like '%"&trim(request("key"))&"%'"
sql=sql&" order by aa.nnumber desc"
Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql=sql
mypage.pagesize=15
set rs=mypage.getrs()
if rs.eof then
response.Write(" 抱歉！暂时没有符合条件的号码，请选择其他号码 ")
else
response.Write("")
for n=1 to mypage.pagesize
if n mod 3 then m=m+1
response.Write("- ")
response.Write(""&rs("nNumber")&"")
response.Write("
话费:"&rs("nInPrice")&"
")
response.Write("价格:"&rs("nPrice")&"")
response.Write(" ")
response.Write(" "&vbcrlf)
rs.movenext
if rs.eof then exit for
next
response.Write(" |
| <%mypage.showpage() %> |
|
 |
