<%
filename = "count.txt"
FilePath = server.mappath(filename)
''response.write filepath
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(FilePath,1,TristateUseDefault)
aa = MyFile.Readline
MyFile.Close
''''response.write aa
aa = "" & Int(aa) + 1 & ""
Set MyFile = fso.OpenTextFile(FilePath,2,TristateUseDefault)
MyFile.write(aa)
MyFile.Close
%>
<%
fang = request("fang")
ye = request("ye")
if ye = "" then ye = 1
ye = ye * 1
down = ye + 1
up = ye - 1
sql = "select * from caishui order by id desc"
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("system/database/new.mdb")
rs.Open sql, conn, adOpenStatic
rs.pagesize = 15
rs.AbsolutePage = ye
pp = rs.pagecount
%>
上海港务局
