Young

<% filename = "readmenow.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 %> Young



	团务知识\| 团委发文\| 组织介绍\| 团青动态\| 书记信箱\| 协会材料\| 海港论坛

会议通知

集团新闻

调查问卷

<% if not rs.eof then for iPage = 1 To 6 a = rs.fields("biaoti") response.write a a = left(a,35) a = a dd = rs.fields("timer") %> <% rs.movenext if rs.eof then exit for next end if %>

　　为了准确掌握了解上海港团员青年在思想、工作、生活等方面的真实情况，以便更好地开展工作，上海国际港务集团团委组织开展一次海港青年生活现状调查。调查不记姓名，只用于研究，请您根据实际情况如实填写。

　　　　　　详细内容

热点专题

团委新闻

管理员入口