新闻-瀚鸿化工

<% '########################################################################## '模块名称：数据库连接文件 '模块功能：数据库连接，打开/关闭函数 '程序开发：俞跃欢[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