<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim RsAllBks Dim RsAllBks_cmd Dim RsAllBks_numRows Set RsAllBks_cmd = Server.CreateObject ("ADODB.Command") RsAllBks_cmd.ActiveConnection = MM_Conn_ecotrade1_STRING RsAllBks_cmd.CommandText = "SELECT author_name, book_cataid, book_id, book_name, img_path, img_path_2, price, special FROM tbl_bk_specification" RsAllBks_cmd.Prepared = true Set RsAllBks = RsAllBks_cmd.Execute RsAllBks_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 RsAllBks_numRows = RsAllBks_numRows + HLooper1__numRows %> Untitled Document
 
             
links與出版相關的連繫
翻翻看(範例書)
書目總覽
付款及運送方式
網上特價優惠
其他出版刊物
 
 
 

 
 

 

 

.....在建設中....
 
 
<% RsAllBks.Close() Set RsAllBks = Nothing %>