<% dim x,num,y x=0 num=Request("Number") Set Conn=Server.CreateObject("ADODB.Connection") Connstr="DBQ="+server.mappath("../gq/database/data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" Conn.Open connstr session("connstr1")=connstr exec="select * from ly where rt=0 order by id desc" Set RS = Server.CreateObject("ADODB.RecordSet") rs.Open exec, Conn, 1, 1 page=Request("page") if page=0 then page=1 end if RecordCount = 0 do while not rs.Eof RecordCount = RecordCount +1 rs.MoveNext loop if not RecordCount=0 then rs.MoveFirst end if pageCount=RecordCount/15 pageCount=int(pageCount) if (RecordCount mod 15)>0 then PageCount=PageCount +1 end if %> 中国复合材料网
  今天是:    
标准介绍:
       
您的位置:首页>> 人才交流
用户信息

<% If request.cookies("member")="true" Then response.write request.cookies("uid")&",欢迎你!" %>
登陆本站:<%=request.cookies("times")%>次
发布信息:<%=request.cookies("fabu")%>条 <% else response.write "你还没有"&"登录"&"到本站!" end if %>
修改注册信息
修改发布信息
发布供求信息
发表技术论文

   

欢迎朋友们到本站来交流心得,解决疑难,更希望能成为本站和支持本站的朋友们联系的桥梁,谢谢朋友们的支持!

添 加 新 主 题


  人才交流
 

共有记录<%=RecordCount%>条,共<%=pageCount%>页, <% y=1%> <%do while y <%=y%> <% y=y+1 loop%>

发 表 主 题

发表人

阅读/回复

发表时间

<%do while pos<(page-1)*15 pos=pos+1 rs.moveNext loop%> <%y=0%> <%do while y

">

·"><%=rs("title")%>

<%=rs("name")%>

<%=rs("yd")%>/<%=rs("hf")%>

<%=datevalue(rs("t"))%>

<%y=y+1 rs.movenext loop%> <% rs.close set rs=nothing conn.close set conn=nothing %>
| 关于我们 | 广告服务 | 网站建设 | 网站管理 | 域名申请 | 友情链接 |
连云港源创网络信息技术有限公司  技术支持   苏ICP备05000892号
中国复合材料网版权所有2002-2015  联系人:王小姐   E-mail:ourfrp@126.com