CPB Q&C|Peptide

<% Dim i i=0 h=1 Dim rs Dim conn Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../control/wx_b_db.mdb") Set rs=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") rs.Open"Select * From product where type='"&request.QueryString("type")&"' Order By type2" ,Conn,3 Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字 y = y + 2 else y = y + 1 end if next CheckStringLength = y End Function function InterceptString(txt,length) txt=trim(txt) x = len(txt) y = 0 if x >= 1 then for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字 y = y + 2 else y = y + 1 end if if y >= length then txt = left(trim(txt),ii) '字符串限长 exit for end if next InterceptString = txt else InterceptString = "" end if End Function %> CPB Q&C|Peptide

\|　Home \|　About Us　\|　Technical Resources　\|　Plant　\|　Q&C　\|　Contact Us　\|中文\|

　Cross Linkers　　

　Peptide and Modification

　PNA(Peptide Nucleic Acid)

　Organic Synthesis

　Phytochemistry

Address

　D-11, Flat A, Building 1#,

　Hi-Tech Incubation Park,

　Nanyanxian, Tianfudadao

　Chengdu, 610041, China

　Tel: 86-28-85336232

　Fax: 86-28-85335312

　Email: sales@biopna.com

　Technical support:

　　　　pna@biopna.com

　　CP Biochem's target on quality assurance is to exceed the quality expectation of the customers.We use ISO9001 international quality control system to achieve higher quality standards.

　　Our products of all include a Certificate of Analysis with detailed information on product information, lot number, date of manufacturing, and date of expiry, et al.

Copyright (C) 2005-2007 Chengdu CP Biochem Co.,Ltd All Rights Reserved