2017年4月

ECSHOP確認頁顯示省份、城市區域的方法

0 發布于2017-04-30 閱讀: 441 次

把商品加入購物車結算的時候,填寫好訂單信息到訂單確認頁以后,你會發現省份、城市、所在區域是不顯示的,只顯示用戶填寫的那部分詳細地址,可以通過下面的方法修改程序來顯示省市,代碼如下:

1、找到includes\lib_main.php,添加一個函數:我添加到大概135行的地方。
 
function get_region_name($rid){
 
return $GLOBALS['db']->GetOne("SELECT region_name FROM ".$GLOBALS['ecs']->table('region')." WHERE region_id='$rid'");
 
}
 
2、找到flow.php,找到$smarty->assign('consignee',$consignee);行,默認應該在483行左右,我的在491行,然后在此行上添加代碼:
 
$consignee['province_name'] = get_region_name($consignee['province']);
 
$consignee['city_name'] = get_region_name($consignee['city']);
 
$consignee['district_name'] = get_region_name($consignee['district']);
 

后面更精彩 »

判斷ecshop未付款添加去付款按鈕,打開ecshop模板目錄下user_transaction.dwt找到{$item.handler}
 
這個變量 給它下面添加以下代碼
 
{if $item.pay_status eq 0}<a href="user.php?act=order_detail&order_id={$item.order_id}">去付款</a>{/if}
 
在打開lib_transaction.php找到以下代碼
 
'order_status'   => $row['order_status'],
 
給這段代碼下面添加以下代碼
 
 
'pay_status'   => $row['pay_status'],

ECSHOP新訂單通知郵件顯示省市區的解決辦法

0 發布于2017-04-28 閱讀: 506 次
這里說的“新訂單通知郵件”,指的是系統發給網站客服的訂單通知郵件,不是發給客戶的,請不要弄錯了。
有朋友說了,我怎么從來沒收到過“新訂單通知郵件”呢?那是因為你沒做相關設置。
如果你想“當客戶下單時管理員能收到新訂單通知郵件”,需要做如下設置:
 
1)、首先保證你的郵件服務器已經設置正確,已經能夠正常發信。
2)、到 后臺 》網店設置 》網店信息 》客服郵件地址,填寫管理員郵箱, 
 
到  后臺 》網店設置 》網店信息 》下訂單時是否給客服發郵件, 設置為“是”,
  
以上是一些基本的相關設置,下面進入本文的正題:
 
ECSHOP新訂單通知郵件里沒有顯示省市區,該如何解決?
 
下面是具體方法:
 
1)、首先我們到后臺修改一下“ECSHOP郵件模板”
 
進入 后臺 》 模板管理 》郵件模板,選擇“新訂單提醒模板”進行編輯,
 
在 “{$order.address}” 前面 加一個 “{$order.region}”,點“確定”保存。
 
 
2)、然后修改 程序文件 /flow.php
 
 
找到
 
$tpl = get_mail_template('remind_of_new_order');
 
在它下面增加代碼
 
//代碼增加 新訂單郵件模板增加省市代碼
$province_name=$db->getOne(" sel ect region_name from " .$ecs->table('region'). " where region_id='" . $order['province'] . "'");
$city_name=$db->getOne(" sel ect region_name from " .$ecs->table('region'). " where region_id='" . $order['city'] . "'");
$district_name=$db->getOne(" sel ect region_name from " .$ecs->table('region'). " where region_id='" . $order['district'] . "'");
$order['region']=$province_name . $city_name. $district_name;

Excel2013如何合并多個工作表內容

0 發布于2017-04-27 閱讀: 595 次
剛剛朋友打電話過來找我幫忙合并一個Excel文件中很多工作表的內容,文件中大概有幾十個工作表,每個工作表中又有成百上千條的數據,如果手工合并的話估計很累,在網上查詢了一下,可以通過代碼來完成合并,記錄在此,分享出來,希望能幫助有需要的朋友。步驟如下:
新建一個“數據合并.xlsx“文檔,把需要合并的excel表格文檔放到同一個文件夾里。
打開“數據合并.xlsx“文檔,在”Sheet1“工作表的地方右鍵→查看代碼(快捷鍵:“Alt+F11”,盡量選用快捷方式)進入到Microsoft Visual Basic for Applications窗口
雙擊工程資源管理器里面的sheet1,在右側的代碼區粘貼如下代碼:
	Sub 合并當前目錄下所有工作簿的全部工作表() 
Dim MyPath, MyName, AWbName 
Dim Wb As Workbook, WbN As String 
Dim G As Long 
Dim Num As Long 
Dim BOX As String 
Application.ScreenUpdating = False 
MyPath = ActiveWorkbook.Path 
MyName = Dir(MyPath & "\" & "*.xls") 
AWbName = ActiveWorkbook.Name 
Num = 0 
Do While MyName <> "" 
If MyName <> AWbName Then 
Set Wb = Workbooks.Open(MyPath & "\" & MyName) 
Num = Num + 1 
With Workbooks(1).ActiveSheet 
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) 
For G = 1 To Sheets.Count 
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 
Next 
WbN = WbN & Chr(13) & Wb.Name 
Wb.Close False 
End With 
End If 
MyName = Dir 
Loop 
Range("A1").Select 
Application.ScreenUpdating = True 
MsgBox "共合并了" & Num & "個工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" 
End Sub
運行→運行子過程/用戶窗體(或者直接點擊運行按鈕,快捷鍵:F5),即可合并所有Excel表格到”數據合并.xlsx“文檔的Sheet1工作表里面
這樣就完成了Excel表格的合并,如果你正好需要并且看到了這篇文章,解決了你的問題,希望能在下面留個言,謝謝。
更多辦公軟件的使用歡迎加入WPS交流QQ群:168486055
ECSHOP有3種顯示方式,一個是列表顯示,一個是表格顯示,一個是文本顯示,但是當您啟用偽靜態后,只能在你原本設置的那個方式才正確顯示,只要切換成其他的顯示方式,就無法打開頁面,經過研究發現經過如下修改可以解決此問題。
theme/default/library/goods_list.lbi 在你的FTP里找到這個庫文件,這里以default默認模板為例子,其他的請到各自模板文件夾下找,然后找到下面這段代碼 
 
<form method="GET" class="sort" name="listform"> 
 
修改為 
 
<form method="GET" class="sort" name="listform" action="{$smarty.server.PHP_SELF}"> 
 
然后就可以3種方式都正確顯示了。
生财有道官网