<% '########################################################################## '模块名称:数据库连接文件 '模块功能:数据库连接,打开/关闭函数 '程序开发:俞跃欢[BlueFlu] '程序名称:文章发布系统 '程序创建日期:2005-9-8 '########################################################################## Dim Conn '建立数据链接 set conn=server.CreateObject ("adodb.connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("..\cgi-bin\HanHong_Database.mdb") session.Timeout=60 on error resume next %> <% '-----------------------------文章发布系统--------------------------------- '模块名称:自定义函数集 '模块功能:简化程序开发工作 '程序开发:俞跃欢[BlueFlu] '程序创建日期:2005-9-8 '-------------------------------------------------------------------------- function opendb(rs,sql,num) select case num case 0 set rs=conn.execute(sql) case 1 set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 case 2 set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,2 case 3 set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,2,3 end select end function sub DBClose(rs) rs.close set rs=nothing end sub sub ConnClose() conn.close set conn=nothing end sub '-----------------------------跳转到指定的页----------------------------- sub Go_URL(URL,Msg) if Msg<>"" then response.write "" response.end end sub '----------------------------返回上一页----------------------------------- %> <% sql="select * from Article order by A_ID DESC" opendb rs,sql,1 rs.pagesize=15 %> <% '-----------------------------文章发布系统--------------------------------- '模块名称:记录分页显示程序 '模块功能:分页显示 '程序开发:俞跃欢[BlueFlu] '程序创建日期:2005-9-8 '-------------------------------------------------------------------------- Page = 1 if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化... Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量 if Page > rs.PageCount then '如果接收的页数大于总页数 rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页 page=rs.pagecount elseif Page <= 0 then '如果page小于等于0 Page = 1 '设置PAGE等于第一页 else rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end if else End if function page_Flag_CH(page,par,font_color,light_color) response.Write ""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&"
"&chr(13)&"" response.Write "产品总数:"&rs.recordcount&" , " response.Write "当前显示第:"&page&" / "&rs.PageCount&"页" response.Write ""&chr(13)&"" if page>1 then result=("首页 上一页 ") end if if page下一页 尾页 ") end if response.Write result response.Write " 转到: " response.Write chr(13)&"
" end function function page_Flag_EN(page,par,font_color,light_color) response.Write ""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&""&chr(13)&"
"&chr(13)&"" response.Write "RECORD TOTAL:"&rs.recordcount&" , " response.Write "PAGE:"&page&" / "&rs.PageCount&"" response.Write ""&chr(13)&"" if page>1 then result=("FIRST PRE ") end if if pageNEXT END ") end if response.Write result response.Write " PAGE: " response.Write chr(13)&"
" end function %> 新闻-瀚鸿化工

首页
点击可展开或关闭子菜单关于我们
概况
装置
滨海瀚鸿生化有限公司
点击可展开或关闭子菜单产品目录
定制合成
新闻
新产品
质量与服务
研究与开发
公司论坛
联系我们




首页 >新闻
 新闻:

<%do while not rs.eof%> <%rs.movenext() loop %>
<%=rs("A_Title")%> [<%=rs("A_postdate")%>]
----<%=rs("A_Content")%>
 

 

Add:Room 207,Zenghe Building ,Jiachuan Road 245, Xuhui District, Shanghai, China
TEL:
0086-21-64531573 ,64762736 15921687200,13816730580,;  FAX:0086-21-54291107,E-mail:info@hanhongchiral.com