% 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 %>
|
|
Peptide Nucleic Acid Profile Peptide nucleic acids (PNA) are DNA mimics with a pseudopeptide backbone. PNA is an extremely good structural mimic of DNA (or RNA), and PNA oligomers are able to form very stable duplex structures with Watson-Crick complementary DNA, RNA oligomers, they can also bind to targets in duplex DNA by helix invasion. Therefore, these molecules are of interest in many areas of chemistry, biology, and medicine including drug discovery, genetic diagnostics, molecular recognition. What we can do for your custom PNA
Special service We can make the special monomers for your special PNA, so you can design your novel kind of PNA, we can help you to make the monomers and this novel kind of PNA. Contact Us for more information Email: sales@biopna.com Tel: 86-28-85335278 Fax:86-28-85335312 |
Copyright (C) 2005-2007 Chengdu CP Biochem Co.,Ltd All Rights Reserved |
|---|