% 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 %>
|
|
|
Catalog of Products ¡¡¡¡¡¡Raw Peptides ¡¡¡¡¡¡Generic Peptides ¡¡¡¡¡¡¡¡¡¡Anti-wrinkle Peptides ¡¡¡¡¡¡¡¡¡¡Melanocyte Stimulating Hormones ¡¡¡¡¡¡¡¡¡¡Vasoactive Intestinal Peptides(VIP) ¡¡¡¡¡¡¡¡¡¡¡¡¡¡and more ¡¡¡¡¡¡Preloaded Resins ¡¡¡¡¡¡¡¡¡¡Fmoc Amino Acids attached to Wang Resin ¡¡¡¡¡¡¡¡¡¡Amino Acids attached to 2-Chlorotrityl Resin ¡¡¡¡¡¡¡¡¡¡Fmoc Amino Acid-Rink Amide MBHA Resin ¡¡¡¡¡¡¡¡¡¡Labeled Amino Acids attached to Resin ¡¡¡¡¡¡Synthesis Reagents ¡¡¡¡¡¡¡¡¡¡Labeling Reagents ¡¡¡¡¡¡¡¡¡¡¡¡¡¡Biotin Reagents ¡¡¡¡¡¡¡¡¡¡¡¡¡¡Fluorescent Reagents ¡¡¡¡¡¡¡¡¡¡¡¡¡¡FRET Reagents ¡¡¡¡¡¡¡¡¡¡Coupling Reagents ¡¡¡¡¡¡¡¡¡¡Protecting Reagents ¡¡¡¡¡¡¡¡¡¡Cross Linker Reagents ¡¡Please Note: ¡¡¡¡Parts of products may be restricted in certain countries.
|
|
Copyright (C) 2005-2007 Chengdu CP Biochem Co.,Ltd All Rights Reserved |
|---|