主 選 單
 登入
使用者名稱:

密碼:


忘了密碼?

現在就註冊!
 版面風格

(10 個版面風格)
站長部落格 - 最新的日誌
 訂閱日誌


DNS(9)


最新的日誌
2011/11/14

作者: lutuni (12:53 pm)
<?php
/*
original: $Id: product_listing.php,v 1.44 2003/06/09 22:49:43 hpdl Exp $

corrected for proper HTML 2005/07/10 JanZ
merged and updated by djmonkey1 with indispensable assistance by JanZ 2005/10/05
v2.1 developed by djmonkey1 with indispensable assistance by the Mighty JanZ 2005/10/09
reverted to a non-SPPC state by djmonkey1

osCommerce, Open Source E-Commerce Solutions
http://www.oscommerce.com

Copyright (c) 2003 osCommerce

Released under the GNU General Public License

*/
//bof product listing with attributes
$list_box_contents = array();
$list_box_contents[] = array('params' => 'class="productListing-heading"');
$cur_row = sizeof($list_box_contents) - 1;

for ($col=0, $n=sizeof($column_list); $col<$n; $col++) {
switch ($column_list[$col]) {
case 'PRODUCT_LIST_MULTIPLE':
$add_multiple = "1";
echo '<form name="buy_now_" method="post" action="' . tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action')) . 'action=add_multiple', 'NONSSL') . '">';
break;

}}
//eof product listing with attributes
?>
<?php
$listing_split = new splitPageResults($listing_sql, MAX_DISPLAY_SEARCH_RESULTS, 'p.products_id');

if ( ($listing_split->number_of_rows > 0) && ( (PREV_NEXT_BAR_LOCATION == '1') || (PREV_NEXT_BAR_LOCATION == '3') ) ) {
?>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td class="smallText" align="right"><?php echo TEXT_RESULT_PAGE . ' ' . $listing_split->display_links(MAX_DISPLAY_PAGE_LINKS, tep_get_all_get_params(array('page', 'info', 'x', 'y'))); ?></td>
</tr>
</table>
<?php
}

$list_box_contents = array();

if ($listing_split->number_of_rows > 0) {
$row = 0;
//$rows = 0;
$column = 0;
$listing_query = tep_db_query($listing_split->sql_query);
while ($listing = tep_db_fetch_array($listing_query)) {

// WARNING the code assumes there are three products per row. To use a different number change the number
// at line 195: if ($column >= 3) and the code to fill up the table row below that accordingly
// $counter = $row;
// $class_for_buy_now = 'class="productListing-odd"';
// $list_box_contents[$row] = array('params' => 'class="productListing-odd"');

$rows++;

if (($rows/2) == floor($rows/2) && ($row > $counter)) {
$list_box_contents[$row] = array('params' => 'class="productListing-even"');
$class_for_buy_now = 'class="productListing-even"';
$counter = $row;
} else {
if ($row > $counter) {
$list_box_contents[$row] = array('params' => 'class="productListing-odd"');
$class_for_buy_now = 'class="productListing-odd"';
$counter = $row;
}
}

$product_contents = array();

for ($col=0, $n=sizeof($column_list); $col<$n; $col++) {
$lc_align = '';

switch ($column_list[$col]) {
case 'PRODUCT_LIST_MODEL':
$lc_align = '';
$lc_text = '&nbsp;' . $listing['products_model'] . '&nbsp;';
break;
case 'PRODUCT_LIST_NAME':
$lc_align = '';
if (isset($HTTP_GET_VARS['manufacturers_id'])) {
$lc_text = '<a href="' . tep_href_link(FILENAME_PRODUCT_INFO, 'manufacturers_id=' . $HTTP_GET_VARS['manufacturers_id'] . '&products_id=' . $listing['products_id']) . '">' . $listing['products_name'] . '</a>';
} else {
$lc_text = '&nbsp;<a href="' . tep_href_link(FILENAME_PRODUCT_INFO, ($cPath ? 'cPath=' . $cPath . '&' : '') . 'products_id=' . $listing['products_id']) . '">' . $listing['products_name'] . '</a>&nbsp;';
}
break;
case 'PRODUCT_LIST_MANUFACTURER':
$lc_align = '';
$lc_text = '&nbsp;<a href="' . tep_href_link(FILENAME_DEFAULT, 'manufacturers_id=' . $listing['manufacturers_id']) . '">' . $listing['manufacturers_name'] . '</a>&nbsp;';
break;
case 'PRODUCT_LIST_PRICE':
$lc_align = 'right';
if (tep_not_null($listing['specials_new_products_price'])) {
$lc_text = '&nbsp;<s>' . $currencies->display_price($listing['products_price'], tep_get_tax_rate($listing['products_tax_class_id'])) . '</s>&nbsp;&nbsp;<span class="productSpecialPrice">' . $currencies->display_price($listing['specials_new_products_price'], tep_get_tax_rate($listing['products_tax_class_id'])) . '</span>&nbsp;';
} else {
$lc_text = '&nbsp;' . $currencies->display_price($listing['products_price'], tep_get_tax_rate($listing['products_tax_class_id'])) . '&nbsp;';
}

//zeph if price is 0.00 then dont display price
$pprice = $currencies->display_price($listing['products_price'], tep_get_tax_rate($listing['products_tax_class_id']));
if ($pprice == "$0.00") {
$lc_text = 'See listing for price.';
}
break;
case 'PRODUCT_LIST_QUANTITY':
$lc_align = 'right';
//$lc_text = 'Stock:&nbsp;' . $listing['products_quantity'] . '&nbsp;';
$lc_text = '';
break;
case 'PRODUCT_LIST_WEIGHT':
$lc_align = 'right';
$lc_text = '&nbsp;' . $listing['products_weight'] . '&nbsp;';
break;
case 'PRODUCT_LIST_IMAGE':
$lc_align = 'center';
if (isset($HTTP_GET_VARS['manufacturers_id'])) {
//zeph use custom image sizes. original code is commented out.
$lc_text = '<a href="' . tep_href_link(FILENAME_PRODUCT_INFO, 'manufacturers_id=' . $HTTP_GET_VARS['manufacturers_id'] . '&products_id=' . $listing['products_id']) . '">' . tep_image(DIR_WS_IMAGES . 'thum/thum_' . $listing['products_image'], $listing['products_name'], $listing['products_image_width']/*SMALL_IMAGE_WIDTH*/, $listing['products_image_height']/*SMALL_IMAGE_HEIGHT*/) . '</a>';
} else {
$lc_text = '&nbsp;<a href="' . tep_href_link(FILENAME_PRODUCT_INFO, ($cPath ? 'cPath=' . $cPath . '&' : '') . 'products_id=' . $listing['products_id']) . '">' . tep_image(DIR_WS_IMAGES . 'thum/thum_' . $listing['products_image'], $listing['products_name'], $listing['products_image_width']/*SMALL_IMAGE_WIDTH*/, $listing['products_image_height']/*SMALL_IMAGE_HEIGHT*/) . '</a>&nbsp;';
}
break;
//bof product listing with attributes
case 'PRODUCT_LIST_BUY_NOW':
$lc_align = 'center';
if ($listing['products_quantity']>=2000) {
$lc_text = tep_image_button('button_buy_now_na.gif', IMAGE_BUTTON_BUY_NOW_NA) . '&nbsp;';
} else {
$lc_text = '<a href="' . tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action')) . 'action=buy_now&products_id=' . $listing['products_id']) . '">' . tep_image_button('button_buy_now.gif', IMAGE_BUTTON_BUY_NOW) . '</a>&nbsp;';
}
break;
// Begin Buy Now button with attributes and quantity mod
// Begin Add Multiple with attributes Contrib
case 'PRODUCT_LIST_MULTIPLE':
$lc_align = 'right';
$lc_valign = 'top';
$lc_text = (TABLE_HEADING_MULTIPLE . tep_draw_input_field('Qty_ProdId_' . $listing['products_id'], '0', 'size="4"'));
//zeph adds p.products_image_height and p.products_image_width to query
$product_info_query = tep_db_query("select p.products_id, pd.products_name, pd.products_description, p.products_model, p.products_quantity, p.products_image, p.products_image_height, p.products_image_width, pd.products_url, p.products_price, p.products_tax_class_id, p.products_date_added, p.products_date_available, p.manufacturers_id from " . TABLE_PRODUCTS . " p, " . TABLE_PRODUCTS_DESCRIPTION . " pd where p.products_status = '1' and p.products_id = '" . $listing['products_id'] . "' and pd.products_id = p.products_id and pd.language_id = '" . $languages_id . "'");
$product_info = tep_db_fetch_array($product_info_query);
$products_attributes_query = tep_db_query("select count(*) as total from " . TABLE_PRODUCTS_OPTIONS . " popt, " . TABLE_PRODUCTS_ATTRIBUTES . " patrib where patrib.products_id='" . $listing['products_id'] . "' and patrib.options_id = popt.products_options_id and popt.language_id = '" . $languages_id . "'");
$products_attributes = tep_db_fetch_array($products_attributes_query);
if ($products_attributes['total'] > 0) {
$lc_text .= '<table border="0" cellpadding="0" cellspacing"0">';
$products_options_name_query = tep_db_query("select distinct popt.products_options_id, popt.products_options_name from " . TABLE_PRODUCTS_OPTIONS . " popt, " . TABLE_PRODUCTS_ATTRIBUTES . " patrib where patrib.products_id='" . $listing['products_id'] . "' and patrib.options_id = popt.products_options_id and popt.language_id = '" . $languages_id . "'");
while ($products_options_name = tep_db_fetch_array($products_options_name_query)) {
$selected = 0;
$products_options_array = array();
$lc_text .= '<tr><td class="main">' . $products_options_name['products_options_name'] . ':</td><td>' . "\n";
$products_options_query = tep_db_query("select pov.products_options_values_id, pov.products_options_values_name, pa.options_values_price, pa.price_prefix from " . TABLE_PRODUCTS_ATTRIBUTES . " pa, " . TABLE_PRODUCTS_OPTIONS_VALUES . " pov where pa.products_id = '" . $listing['products_id'] . "' and pa.options_id = '" . $products_options_name['products_options_id'] . "' and pa.options_values_id = pov.products_options_values_id and pov.language_id = '" . $languages_id . "'");
while ($products_options = tep_db_fetch_array($products_options_query)) {
$products_options_array[] = array('id' => $products_options['products_options_values_id'], 'text' => $products_options['products_options_values_name']);
if ($products_options['options_values_price'] != '0') {
$products_options_array[sizeof($products_options_array)-1]['text'] .= ' (' . $products_options['price_prefix'] . $currencies->display_price($products_options['options_values_price'], tep_get_tax_rate($product_info['products_tax_class_id'])) .') ';
}
}
//$lc_text .= tep_draw_pull_down_menu('id[' . $products_options_name['products_options_id'] . ']', $products_options_array, $cart->contents[$HTTP_GET_VARS['products_id']]['attributes'][$products_options_name['products_options_id']]);
//$lc_text .= tep_draw_pull_down_menu('id_'.$listing[$x]['products_id'].'[' . $products_options_name_values['products_options_id'] . ']', $products_options_array);
$lc_text .= tep_draw_pull_down_menu('id_'.$listing['products_id'].'[' . $products_options_name['products_options_id'] . ']', $products_options_array, $cart->contents[$HTTP_GET_VARS['products_id']]['attributes'][$products_options_name['products_options_id']]);
//$lc_text .= tep_draw_pull_down_menu('id[' . $products_options_name['products_options_id'] . ']', $products_options_array, $cart->contents[$HTTP_GET_VARS['products_id']]['attributes'][$products_options_name['products_options_id']]);
$lc_text .= '</td></tr>';
}
$lc_text .= '</table>';
}
break;
case 'PRODUCT_LIST_BUY_NOW_MULTIPLE':
$lc_align = 'right';
$lc_valign = 'top';
$lc_text = '<form name="buy_now_' . $listing['products_id'] . '" method="post" action="' . tep_href_link(basename($PHP_SELF), tep_get_all_get_params(array('action')) . 'action=buy_now_form', 'NONSSL') . '">';
//zeph adds p.products_image_height and p.products_image_width
$lc_text .= (TABLE_HEADING_MULTIPLE) . '<input type="text" name="cart_quantity" value="1" maxlength="6" size="4">';
$product_info_query = tep_db_query("select p.products_id, pd.products_name, pd.products_description, p.products_model, p.products_quantity, p.products_image, p.products_image_height, p.products_image_width, pd.products_url, p.products_price, p.products_tax_class_id, p.products_date_added, p.products_date_available, p.manufacturers_id from " . TABLE_PRODUCTS . " p, " . TABLE_PRODUCTS_DESCRIPTION . " pd where p.products_status = '1' and p.products_id = '" . $listing['products_id'] . "' and pd.products_id = p.products_id and pd.language_id = '" . $languages_id . "'");
$product_info = tep_db_fetch_array($product_info_query);
$products_attributes_query = tep_db_query("select count(*) as total from " . TABLE_PRODUCTS_OPTIONS . " popt, " . TABLE_PRODUCTS_ATTRIBUTES . " patrib where patrib.products_id='" . $listing['products_id'] . "' and patrib.options_id = popt.products_options_id and popt.language_id = '" . $languages_id . "'");
$products_attributes = tep_db_fetch_array($products_attributes_query);
if ($products_attributes['total'] > 0) {
$lc_text .= '<table border="0" cellpadding="0" cellspacing"0">';
$products_options_name_query = tep_db_query("select distinct popt.products_options_id, popt.products_options_name from " . TABLE_PRODUCTS_OPTIONS . " popt, " . TABLE_PRODUCTS_ATTRIBUTES . " patrib where patrib.products_id='" . $listing['products_id'] . "' and patrib.options_id = popt.products_options_id and popt.language_id = '" . $languages_id . "'");
while ($products_options_name = tep_db_fetch_array($products_options_name_query)) {
$selected = 0;
$products_options_array = array();
$lc_text .= '<tr><td class="main">' . $products_options_name['products_options_name'] . ':</td><td>' . "\n";
$products_options_query = tep_db_query("select pov.products_options_values_id, pov.products_options_values_name, pa.options_values_price, pa.price_prefix from " . TABLE_PRODUCTS_ATTRIBUTES . " pa, " . TABLE_PRODUCTS_OPTIONS_VALUES . " pov where pa.products_id = '" . $listing['products_id'] . "' and pa.options_id = '" . $products_options_name['products_options_id'] . "' and pa.options_values_id = pov.products_options_values_id and pov.language_id = '" . $languages_id . "'");
while ($products_options = tep_db_fetch_array($products_options_query)) {
$products_options_array[] = array('id' => $products_options['products_options_values_id'], 'text' => $products_options['products_options_values_name']);
if ($products_options['options_values_price'] != '0') {
$products_options_array[sizeof($products_options_array)-1]['text'] .= ' (' . $products_options['price_prefix'] . $currencies->display_price($products_options['options_values_price'], tep_get_tax_rate($product_info['products_tax_class_id'])) .') ';
}
}
$lc_text .= tep_draw_pull_down_menu('id[' . $products_options_name['products_options_id'] . ']', $products_options_array, $cart->contents[$HTTP_GET_VARS['products_id']]['attributes'][$products_options_name['products_options_id']]);
//$lc_text .= tep_draw_pull_down_menu('id_'.$listing['products_id'].'[' . $products_options_name['products_options_id'] . ']', $products_options_array, $cart->contents[$HTTP_GET_VARS['products_id']]['attributes'][$products_options_name['products_options_id']]);
$lc_text .= '</td></tr>';
}
$lc_text .= '</table>';
$lc_text .= tep_draw_hidden_field('products_id', $product_info['products_id']) . tep_image_submit('button_buy_now.gif', TEXT_BUY . $listing['products_name'] . TEXT_NOW);

}
if ($products_attributes['total'] == 0) {
$lc_text .= '<br>&nbsp;';
$lc_text .= tep_draw_hidden_field('products_id', $product_info['products_id']) . tep_image_submit('button_buy_now.gif', TEXT_BUY . $listing['products_name'] . TEXT_NOW);
$lc_text .= '<br>&nbsp;';
$lc_text .= '<table border="0" cellpadding="0" cellspacing"0"><tr><td class="main"></td><td></td></tr></table>';
}
$lc_text .= '</form>';
break;
// End Add Multiple mod
}
$product_contents[] = $lc_text;

}
$lc_text = implode('<br>', $product_contents);
$list_box_contents[$row][$column] = array('align' => 'center',
//bof product listing with attributes
'valign' => $lc_valign,
//eof product listing with attributes
'params' => 'class="productListing-data"',
//zeph
'text' => '<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" valign="bottom" bordercolor="0"><img src="images/infobox_module/upper_left.gif" width="14" height="33" /></td>
<td background="images/infobox_module/top.gif" class=mws_boxTop_module&nbsp;></td>
<td align="left" valign="bottom"><img src="images/infobox_module/upper_right.gif" width="14" height="33" /></td>
</tr>
<tr>
<td background="images/infobox_module/left.gif" width="14">&nbsp;</td>
<td align="center" class=mws_boxCenter_module>' . $lc_text . '</td>
<td background="images/infobox_module/right.gif" class="smallText" width="14"><img src="images/infobox_module/right.gif" width="14" height="149" /></td>
</tr>
<tr>
<td align="right" valign="top"><img src="images/infobox_module/lower_left.gif" width="14" height="12" /></td>
<td background="images/infobox_module/bot.gif"><img src="images/infobox_module/bot.gif" width="2" height="12" /></td>
<td align="left" valign="top" class="smallText"><img src="images/infobox_module/lower_right.gif" width="14" height="12" /></td>
</tr>
</table>');
//'text' => $lc_text);
$column ++;
if ($x == ($no_of_listings -1)) {
// fill up the remainder of the table row with empty cells, assumes three products per row!
if ($column == '1') {
$list_box_contents[$row][$column + 1] = array('align' => 'center',
//bof product listing with attributes
'valign' => $lc_valign,
//eof product listing with attributes
'params' => 'class="productListing-data"',
'text' => " ");
$column ++;
}
if ($column == '2') {
$list_box_contents[$row][$column + 1] = array('align' => 'center',
//bof product listing with attributes
'valign' => $lc_valign,
//eof product listing with attributes
'params' => 'class="productListing-data"',
'text' => " ");
}
}
if ($column >= 3 || $x == ($no_of_listings -1) ) {
$row ++; // we start a new tr here with $list_box_contents
$list_box_contents[$row] = array('params' => $class_for_buy_now);
$column = 0;
}
} // end for ($x = 0; $x < $no_of_listings; $x++)

new productListingBox($list_box_contents);
} else {
$list_box_contents = array();

$list_box_contents[0] = array('params' => 'class="productListing-odd"');
$list_box_contents[0][] = array('params' => 'class="productListing-data"',
'text' => TEXT_NO_PRODUCTS);

new productListingBox($list_box_contents);
}

if ( ($listing_split->number_of_rows > 0) && ((PREV_NEXT_BAR_LOCATION == '2') || (PREV_NEXT_BAR_LOCATION == '3')) ) {
?>

<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td class="smallText"><?php //echo $listing_split->display_count(TEXT_DISPLAY_NUMBER_OF_PRODUCTS); ?></td>
<td class="smallText" align="right"><?php echo TEXT_RESULT_PAGE . ' ' . $listing_split->display_links(MAX_DISPLAY_PAGE_LINKS, tep_get_all_get_params(array('page', 'info', 'x', 'y'))); ?></td>
</tr>
<?php if ($add_multiple == "1"){
?>
<tr>
<td align="left" class="main"><!--a href="<//?php echo tep_href_link(FILENAME_CHECKOUT_PAYMENT, 'file:///Y|/Documents/Websites/Best%20Test%20Site/catalog/includes/modules/%20', 'SSL'); ?>"><//?php echo tep_image_button('button_checkout.gif', IMAGE_BUTTON_CHECKOUT); ?></a--></td>
<td align="right" class="main"><?php echo tep_image_submit('button_in_cart.gif', IMAGE_BUTTON_IN_CART); ?></td>
</tr>
<?php } ?>
</table>
<?php
}
?>
2009/04/09

作者: lutuni (6:06 pm)
*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ASSIGN(INVOSUB.Filter,"")
ASSIGN(INVO.Filter,"")
ENDIF
CASE MultiPage0.PageIndex=1

CASE MultiPage0.PageIndex=2
*讀入文字檔
ASSIGN(Label14.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF FILE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CLEAR.TXT'),Memo1.Lines) &&如果不存在就讀入空白
ENDIF
CASE MultiPage0.PageIndex=3
ASSIGN(Label3.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
INVO.Active=1
select INVO
ASSIGN(Field11.DoTotal,0)
ASSIGN(Field11.ShowTotal,0)
Set While FROM CUSTOMER->CUST_CODE+TRIM(COMBO2.TEXT)+TRIM(COMBO3.TEXT) TO CUSTOMER->CUST_CODE+TRIM(COMBO4.TEXT)
ASSIGN(Field11.DoTotal,1)
ASSIGN(Field11.ShowTotal,1)
GO Bottom

CASE MultiPage0.PageIndex=4
ASSIGN(Label4.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
ASSIGN(Combo12.Text,"全部")
ASSIGN(EDIT25.TEXT,"")
INVOSUB.Active=1
select INVOSUB
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=5
ENDCASE

*備註資料存入
External REMARK1
ASSIGN(REMARK1,ATOM(Memo1.Lines))
TRY
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ERROR
MAKEDIR(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\'+'CUSTOMER')
MESSAGE('CUSTOMER目錄建立,請按確定即可存入..','訊息視窗',200,200)
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ENDTRY

*還原上次存檔內容
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines)
2009/03/10

作者: lutuni (11:17 am)
<strong>一次付清</strong><span style="font-family: Arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 18px; line-height: normal; font-size-adjust: none; font-stretch: normal; -x-system-font: none; color: rgb(255, 0, 0);">3800</span><span class="t13"> 元 </span> <a href="(script removed)return;" onClick="(script removed)jswinopen('crdsafe','/adm/crd_safe_rule.htm','PChome代收 消費最安心','','','290','224');" style="text-decoration: underline; cursor: pointer;"></a>
</td>
</tr>

<tr>
<td height="55">
<table style="margin-top: 6px;" border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td class="t13" valign="top" width="85"><strong>線上分期價</strong></td>
<td class="t13">
<table width="211" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffd96d">
<tbody><tr bgcolor="#efefef">
<td width="92" align="right" bgcolor="#ffffff" class="t13">&nbsp;<strong><font color="#ff3366" size="4" face="Arial">3</font></strong>&nbsp;期<strong><font color="#ff3366" size="4" face="Arial">0</font></strong>&nbsp;利率&nbsp;</td>

<td width="88" bgcolor="#ffffff">&nbsp;<span class="t13">每期</span><span class="t16"><font color="#ff3366" face="Arial"> $<strong>12666</strong></font></span>&nbsp;</td>
</tr>
<tr bgcolor="#efefef">
<td class="t13" align="right" bgcolor="#ffffff">&nbsp;<strong><font color="#ff3366" size="4" face="Arial">6</font></strong>&nbsp;期<strong><font color="#ff3366" size="4" face="Arial">0</font></strong>&nbsp;利率&nbsp;</td>

<td bgcolor="#ffffff">&nbsp;<span class="t13">每期</span><span class="t16"><font color="#ff3366" face="Arial"> $<strong>6333</strong></font></span></td>
</tr>
</tbody></table>
</td>
</tr>
</tbody></table>

</td>
</tr>

<tr>
<td class="t13" height="23"><strong>分期價 :</strong><font color="#0000FF"> 除不盡餘數於第一期收取</font> </td>

</tr>


<!--
<tr>
<td height="28">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70" height="25"><span class="t13"><strong>贈品名稱</strong></span></td>
<td class="t12">
<div id="gift_win" style="position:absolute;height=150;width=120;border:0px solid #C9C9C9;background-color:#f2f2f2;filter:alpha(opacity=94);opacity:0.9;visibility='hidden';" align="center"></div>
-->
<!--
<a onclick="open_gift('','')" style="cursor:pointer;text-decoration:underline"><font color="#0000ff"></font></a>
-->
<!--
</td>
</tr>
</table>
</td>
</tr>
-->
<tr>
<td class="t13" height="28"><p><strong>接受 5 家銀行:</strong><font color="#0000FF">中國信託、玉山銀行、慶豐銀行、新光銀行、台北富邦銀行 </font></p>
<p><img src="http://www.twfuwang.com/uploads/thumbs/11.gif" align="absmiddle" height="15" width="36"><span style="font-size: 11px;">(不限3萬)</span>&nbsp;&nbsp;<img src="http://www.twfuwang.com/uploads/thumbs/10.gif" style="border-color: rgb(203, 204, 207);" align="absmiddle" border="0" height="20" width="102"> </p></td>
</tr>
<tr>