关闭顶部展开顶部

ASP导出Excel数据的四种方法_ASP教程

编辑Tag赚U币
教程Tag:暂无Tag,欢迎添加,赚取U币!
缂傚倸鍊搁崐鎼佸磹閹间礁纾瑰瀣捣閻棗霉閿濆牜鍤夋繛宸簼閺呮繈鏌涚仦鐐殤闁告梻鏁哥槐鎾存媴閹绘帊澹曢梻浣侯攰娴滎剟顢楅·鐛礛S闂傚倸鍊峰ù鍥х暦閻㈢ǹ绐楅柟鎵閸嬶繝鏌曟径鍫濆壔婵炴垶菤閺€浠嬫倵閿濆啫濡烽柛瀣崌瀹曟帡鎮欓弻銉ユ暪闂備礁鎼ú銊╁磻閻愮儤鍊垫い鎺嗗亾闁宠鍨块幃娆撳矗婢舵ɑ锛侀梻浣规偠閸斿酣宕伴弽褜鍤曞┑鐘崇閺呮悂鏌ㄩ悤鍌涘婵犵數濮烽弫鎼佸磻閻愬搫鍨傞悹杞拌濞兼牠鎮峰▎蹇擃伀闁绘繂鐖奸弻娑㈠焺閸愵亖妲堥梺缁樻尰閿曘垽寮婚垾鎰佸悑閹肩补鈧磭顔戦梻浣瑰▕閺€杈╂暜閿熺姴钃熼柕濞炬櫆閸嬪棝鏌涚仦鍓р槈妞ゅ骏鎷� 缂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘e亾閽樻繈姊洪鈧粔瀵哥玻濡ゅ懏鐓欓梺顓ㄧ畱婢ч箖鏌ら弶鎸庡仴闁哄本鐩俊鐑筋敊閻撳寒娼荤紓鍌欒閸嬫挸顭块懜闈涘闁绘挸鍟撮弻鏇熷緞閸繂顬夐梺缁樼箥娴滎亪寮婚敐鍛斀闁圭偓娼欓锟� 闂傚倸鍊搁崐鎼佸磹妞嬪孩顐介柨鐔哄Т绾惧鏌涢弴銊ョ€柛銉e妽缂嶅洭鏌嶉崫鍕殶妞わ富鍨辩换婵嬪閿濆棛銆愰梺鍝勭墱閸撶喎鐣峰Δ鈧オ浼村醇閻斿搫骞愰梻浣规偠閸庮垶宕濆澶嬪剭闁硅揪闄勯埛鎺戭熆鐠虹尨鍔熼弫鍫ユ⒑閸濆嫯顫﹂柛濠冪墪宀h儻绠涘☉妯溾晠鏌ㄩ弮鍌滃笡妞ゃ儲绋撶槐鎾诲磼濞嗘垵濡介梺鍝ュ仜椤兘鐛箛娑欐櫢闁跨噦鎷� 闂傚倸鍊搁崐椋庣矆娓氣偓楠炴牠顢曢敃鈧悿顕€鏌eΔ鈧悧濠囧矗韫囨稒鐓欑紓浣靛灩閺嬫稒淇婇悙鎵煓闁哄备鈧剚鍚嬮幖绮光偓鑼晼闂備礁鎲¢〃鍡欏枈瀹ュ洦宕叉繛鎴欏灩楠炪垺淇婇婵愬殭闂傚绉撮埞鎴︻敋閸℃瑧蓱闂佸憡姊归〃濠囧春閳ь剚銇勯幒鎴濇灓婵炲吋鍔欓弻鐔碱敊閼测晛鐓熼悗瑙勬礃濞茬喖寮婚崱妤婂悑闁告侗鍨抽崢顒勬⒒娴h姤纭堕柛锝忕畵楠炲繘鏁撻敓锟�,闂傚倸鍊搁崐宄懊归崶顒佸剭妞ゆ劧绠戠粈瀣亜閹扳晛鐏╃悮姗€姊绘担绛嬪殭婵﹫绠撻敐鐐村緞鐎n剛顔曟繝鐢靛Т閸嬪棝宕甸弴銏$厱妞ゆ劧绲剧粈鈧紓浣插亾闁告劏鏂傛禍婊堟煛閸屾氨浠㈤柟顔藉灦閵囧嫯绠涢弴鐐寸€剧紓浣虹帛閻╊垶鐛€n喗鍊烽柡澶嬪灩濞堛倝姊绘担鍛靛綊顢栭崱娑樼闁搞儜灞剧稁闂佸憡绻傜€氀囧几鎼淬劍鐓欐い鏍ф鐎氼喗绂嶉鍫熲拻濞达絽鎲¢崯鐐烘煟閻旀潙鍔ら柟骞垮灩铻e〒姘煎灠濞堛劍绻濋悽闈浶g痪鏉跨Ч瀵煡骞栨担鍦弳闂佺粯娲栭崐鍦偓姘炬嫹!

推荐:ASP进阶:用asp做的简单搜索引擎代码
下面是库中URLINDEX表:URL和Keywords字段分别添加了索引. URL 文本 (索引:有(无重复)) Title 文本 Description 文本 Summary

一、使用OWC

什么是OWC?

OWC是office Web Compent的缩写,即Microsoft的office Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5和office 2000),那么就有能力利用office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。

以下为引用的内容:

<%Option Explicit
Class ExcelGen
Private obJSPreadsheet
Private iColOffset

Private iRowOffset
Sub Class_Initialize()
Set obJSPreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub

Sub Class_Terminate()
Set obJSPreadsheet = Nothing 'Clean up
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
obJSPreadsheet.Cells(iRow, iCol).Value = objField.Name
obJSPreadsheet.Columns(iCol).AutoFitColumns
'设置Excel表里的字体
obJSPreadsheet.Cells(iRow, iCol).Font.Bold = True
obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False
obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10
obJSPreadsheet.Cells(iRow, iCol).Halignment = 2 '居中
iCol = iCol 1
Next 'objField
'Display all of the data
Do While Not objRS.EOF
iRow = iRow 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
obJSPreadsheet.Cells(iRow, iCol).Value = ""
Else
obJSPreadsheet.Cells(iRow, iCol).Value = objField.Value
obJSPreadsheet.Columns(iCol).AutoFitColumns
obJSPreadsheet.Cells(iRow, iCol).Font.Bold = False
obJSPreadsheet.Cells(iRow, iCol).Font.Italic = False
obJSPreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol 1
Next 'objField
objRS.MoveNext
Loop
End Sub Function SaveWorksheet(strFileName)

'Save the worksheet to a specified filename
On Error Resume Next
Call obJSPreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security

Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;"
Dim SaveName
SaveName = Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath = "Excel\" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
'Response.Write "<HTML><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件.

<a href=../../'" & server.URLEncode(ExcelPath) & "'>下载</a>"
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%>

二、用Excel的Application组件在客户端导出到Excel或word

以下为引用的内容:

注意:两个函数中的“data“是网页中要导出的table的 id

<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">
<input type="hidden" name="out_Excel" onclick="AutomateExcel();" value="导出到Excel" class="notPrint">

  导出到Excel代码

<SCRIPT LANGUAGE="javascript">
<!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;

var lie = table.rows(0).cells.length;

// Add table headers going cell by cell.
for (i=0;i<hang;i )
{
for (j=0;j<lie;j )
{
oSheet.Cells(i 1,j 1).value = table.rows(i).cells(j).innerText;
}

}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
</SCRIPT>

  导出到word代码

<script language="vbscript">
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length

Set objwordDoc = CreateObject("word.Document")

objwordDoc.Application.Documents.Add theTemplate, False
objwordDoc.Application.Visible=True

Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j 1,i 1) = table.rows(i).cells(j).innerTEXT
next
next
objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题

objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objwordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objwordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjwordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)

for i = 1 to column

objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Next
Next

End Sub
</SCRIPT>

三、直接在IE中打开,再存为Excel文件

以下为引用的内容:

把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把Excel表在客客户端显示。

<%response.ContentType ="application/vnd.ms-Excel"%>

注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。

四、导出以半角逗号隔开的csv

用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)

CSV文件介绍 (逗号分隔文件)

选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。

请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。

请作者联系本站,及时附注您的姓名。联系邮箱:mb5u#vip.qq.com(把#改为@)。


分享:ASP 3.0高级编程(三十八)
8.3.3 使用连接状态 将连接字符串存入应用程序变量是一个常用的技巧,同使用一个包含文件一样有效。例如,可以在global.asa文件中加入下面的代码: Sub Application_OnStart() strConn = "

来源:模板无忧//所属分类:ASP教程/更新时间:2008-08-22
相关ASP教程
闂傚倸鍊烽悞锕傛儑瑜版帒鏄ラ柛鏇ㄥ灠閸ㄥ倿姊洪鈧粔鐢稿磻閵堝鐓涢柛銉ㄥ煐缁舵稓绱撳鍡欏⒌闁哄本鐩崺鍕礃椤忎礁顫岄梻浣瑰▕閺€杈╂暜濡ゅ懎桅闁告洦鍨伴崡铏繆閵堝倸浜炬繛瀛樼矋閸庢娊鈥旈崘顔嘉ч煫鍥ㄦ礈鑲栭梻浣烘嚀閸ゆ牠骞忛敓锟�
婵犵數濮烽弫鎼佸磻濞戙埄鏁嬫い鎾跺枑閸欏繑銇勯幘鍗炵仼缁炬儳顭烽弻鐔兼倷椤掍胶浼囧┑鈩冨絻閻楁捇寮婚敓鐘茬<婵犻潧娲ㄩ妴濠冪節閳封偓閸曨厸濮囨繛锝呮搐閿曨亪骞婇悩娲绘晢濠㈣泛妫楁禍鐐節闂堟侗鍎愰柣鎾跺枛閺屾洝绠涙繝鍐╃彅闂佽绻戦悡锟犲蓟閻旂厧绀勯柕鍫濇椤忥拷
婵犵數濮烽弫鍛婃叏閻戝鈧倹绂掔€n亞鍔﹀銈嗗坊閸嬫捇鏌涢悢閿嬪仴闁糕斁鍋撳銈嗗笒鐎氬嘲螞閹寸姷纾奸弶鍫氭櫅娴犳粍銇勯幘鍐叉倯鐎垫澘瀚埀顒婄秵娴滄繈顢樻ィ鍐╃厽閹艰揪绲鹃崵鈧柣搴㈠嚬閸樼晫绮╅悢鐓庡耿婵炲棙鍔曟惔濠冪箾閹寸偞鐓g紒鑸靛哺瀵鏁愭径濠庢綂闂佸疇妗ㄩ懗鑸靛閸儲鈷戦柣鐔告緲濞堚晠鏌熼崙銈嗗
婵犵數濮烽弫鍛婃叏閻戝鈧倹绂掔€n亞鍔﹀銈嗗坊閸嬫捇鏌涢悢閿嬪仴闁糕斁鍋撳銈嗗笒鐎氬嘲螞閹寸姷纾奸弶鍫氭櫅娴犳粍銇勯幘鍐叉倯鐎垫澘瀚换婵嬪礋闂堟稒鍊梻鍌氬€峰ù鍥敋閺嶎厼鍨傞幖娣妼缁€瀣亜閹炬瀚呭鑸碘拻濞达絿鐡旈崵娆撴⒑鐢喚鍒板畝锝堝劵椤︽煡鎽堕悙瀵哥闁瑰瓨鐟ラ悘顏堟煕鐎n亶妯€闁哄被鍔戦幃銈夊磼濞戞﹩浼�
闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶宕濆▎鎾跺祦濠电姴鍟崕鐔兼煏婵炲灝鍔ら柛鏃撶畱椤啴濡堕崱妤冪懆闂佺ǹ锕ら幗婊堝极椤曗偓瀹曞ジ寮撮悙娈垮晣闂佽瀛╃粙鎺戠幓閸ф鍎楅柟鐑樻煛閸嬫挾鎲撮崟顒傤槰缂備浇顕ч悧鎾愁嚕椤愶箑绠荤紓浣股戝▍銏ゆ⒑鐠恒劌娅愰柟鍑ゆ嫹
闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶宕濆▎鎾跺祦濠电姴鍟崕鐔兼煏婵炲灝鍔ら柛鏃撶畱椤啴濡堕崱妤€娼戦梺绋款儐閹瑰洭寮诲☉姗嗘僵妞ゆ帒顦崜宕囩磽娓氬洤鏋涢柨鏇ㄤ邯瀵偊宕掗悙鑼槶閻熸粌绻橀幃锟犲箻缂佹ḿ鍘介柟鍏兼儗閸ㄥ啿鐣濆☉銏$厸闁告侗鍠氱粻鐐烘煙椤栨俺瀚伴柍璇查叄楠炲鎮╃喊澶岄棷婵犵數鍋為幐濠氭嚌妤e啯鏅濋柕澹偓閸嬫挸顫濋悙顒€顏�
闂傚倸鍊搁崐宄懊归崶顒€违闁逞屽墴閺屾稓鈧綆鍋呯亸浼存煏閸パ冾伃鐎殿喕绮欐俊姝岊槷婵℃彃鐗撳鐑樺濞嗗繒妲i梺闈╃秶缂嶄礁顕g拠娴嬫婵☆垶鏀遍弬鈧梻浣哥秺閸嬪﹥绂嶉悙鐑樺殑闁惧繐婀辩壕钘壝归敐澶嬫锭濠德ゅГ娣囧﹪鎮欓懜娈挎濡炪倖娲╃紞浣逛繆閹间礁鐓涘┑鐘插暞濞呮牗绻濋悽闈涗粶婵☆偅鐟╁畷褰掓偨閻㈢數鐣堕梺璺ㄥ枔婵敻鍩涢幋锔界厱婵犻潧妫楅鈺呮煃瑜滈崜娆撯€﹂悜鐣屽祦濠电姴娲ょ粻濠氭煠閸涘⿴鍟忔繛鑲╁枛濮婅櫣鎹勯妸銉︾彚闂佺懓鍤栭幏锟�
闂傚倸鍊搁崐椋庣矆娓氣偓楠炴牠顢曢敃鈧悿顕€鏌eΔ鈧悧濠囧矗韫囨搩娓婚悗锝庝簼閹癸絿绱掗埀顒佺節閸屻倗鍞甸梺鍏兼倐濞佳勬叏閸儲鐓熼柟鍨缁夘噣鏌熼娆炬綈婵炵⒈浜獮蹇撶暆婵犲倸韦濠电姷鏁搁崑娑㈡儑娴兼潙纾归柡鍥ュ灪缁犳帡姊绘担鐟邦嚋缂佽鍊歌灋婵炲棙鍨归惌鍡涙煃瑜滈崜鐔奉潖濞差亜宸濆┑鐐寸閸ㄥ潡骞冭閹晠鎳犻浣诡啎闂備浇顫夋竟鍡樻櫠濡ゅ懎鐤鹃柟闂寸劍閻撱儵鏌i弴鐐测偓鍦偓姘炬嫹
濠电姷鏁告慨鐑姐€傞挊澹╋綁宕ㄩ弶鎴濈€銈呯箰閻楀棛绮堥崼鐔虹瘈闂傚牊绋掗敍宥夋煟閺傛寧顥炲ǎ鍥э躬椤㈡稑顫濋浣糕偓顖炴煟鎼淬垺鐨戠紒顕呭灦婵$敻宕熼姘鳖啋闁诲酣娼ч幗婊堟偩濞差亝鐓熼幖娣灮閸熸煡鏌熼崙銈嗗
婵犵數濮烽弫鍛婃叏閻戝鈧倹绂掔€n亞鍔﹀銈嗗坊閸嬫捇鏌涢悢閿嬪仴闁糕斁鍋撳銈嗗笒鐎氬嘲螞閹寸姷纾奸弶鍫氭櫅娴犳粍銇勯幘鐐藉仮鐎规洖鐖兼俊鎼佸Ψ椤旇崵绌挎繝纰夌磿閸嬫垿宕愰弽顓炵闁煎鍊栧畷鏌ユ煕閹板吀绨撮柛瀣尭椤繈鎼归銈呮锭濠电儑绲藉ú銈夋晝椤忓牄鈧礁鈽夊Ο婊勬閸┾偓妞ゆ帊鐒﹀▍鐘绘煕濞嗗浚妲虹紒鈾€鍋撴俊鐐€ら崑鎺楀窗濡ゅ啠鍋撳鐐
濠电姷鏁告慨鐑姐€傞挊澹╋綁宕ㄩ弶鎴濈€銈呯箰閻楀棛绮堥崼鐔虹瘈闂傚牊绋掗敍宥夋煟閺傛寧顥為柟渚垮妼椤啰鎷犻煫顓烆棜闂佽姘﹂~澶娒洪敃鍌氱闁绘梻顑曢埀顑跨閳诲酣骞樺畷鍥舵Н闂備胶绮幐鍝ヨ姳閸洖纾婚柟鍓х帛閸嬨劑鏌涘☉姗堝姛闁告ɑ鎮傚娲礈閹绘帊绨肩紓浣筋嚙鐎氼剟鎮洪鐐╂斀闁绘ɑ鍓氶崯蹇涙煕閿濆骸鐏︽鐐茬箻閺佹捇鏁撻敓锟�
濠电姷鏁告慨鐑姐€傞挊澹╋綁宕ㄩ弶鎴濈€銈呯箰閻楀棛绮堥崼鐔虹瘈闂傚牊绋掗敍宥夋煟閺傛寧顥為柟渚垮妼椤啰鎷犻煫顓烆棜闂傚倷绀侀幖顐︽嚐椤栫偛绠犳慨妞诲亾鐎规洘妞介崺鈧い鎺嶉檷娴滄粓鏌熼崫鍕棞濞存粓绠栧铏光偓鍦閸ゆ瑩姊虹敮顔剧М闁绘侗鍣i獮瀣晝閳ь剛绮诲☉銏♀拻闁割偆鍠撻埊鏇熴亜閺傛寧顥㈡慨濠勭帛閹峰懘宕ㄦ繝鍐ㄥ壍闂佽瀛╃喊宥夊箖閸岀偟宓侀煫鍥ㄧ⊕閺呮悂鏌ㄩ悤鍌涘
濠电姷鏁告慨鐑姐€傞挊澹╋綁宕ㄩ弶鎴濈€銈呯箰閻楀棛绮堥崼鐔虹瘈闂傚牊绋掗敍宥夋煟閺傛寧顥為柟渚垮妼椤啰鎷犻煫顓烆棜闂佽姘﹂~澶娒洪埡鍐濞撴埃鍋撻柣娑卞枤閳ь剨缍嗘禍鏍绩娴犲鐓曟い鎰靛亜娴滄绱掗幉瀣
婵犵數濮烽弫鍛婃叏閻戝鈧倹绂掔€n亞鍔﹀銈嗗坊閸嬫捇鏌涢悢閿嬪仴闁糕斁鍋撳銈嗗笒鐎氬嘲螞閹寸姷纾奸弶鍫氭櫅娴犳粍銇勯幘鍐叉倯鐎垫澘瀚换婵嬪礋椤撶偛绠戦梻鍌氬€烽懗鍫曞箠閹剧粯鍋ら柕濞у嫬搴婇梺鍛婃处閸ㄥジ寮崒鐐村€垫繛鎴烆仾閼测晜宕查柛鈩兦滄禍婊堟煛瀹ュ海鍘涙繛鍫熸煥椤儻顦茬€殿喖澧庨幑銏犫攽鐎e墎绋忓銈嗘濡嫰顢旈敓锟�
闂傚倸鍊峰ù鍥敋瑜庨〃銉╁箹娴gǹ鍋嶅┑鐘诧工閻楀棛绮堥崼鐔虹瘈闂傚牊渚楅崕鎰版煕鐎n亶鍎旈柡宀€鍠栭獮鍡涙偋閸偅顥夐梻浣规た閸樹粙銆冮崨鏉戠厴闁硅揪闄勯崑鎰版煙缂佹ê绗氭繛鍫弮濮婄儤绺介崨濠冮敪缂傚倸绉撮敃顏勵嚕婵犳艾围濠㈣泛顑呭▓鐔兼⒑闂堟侗妲堕柛搴ㄤ憾閿濈偛顓兼径瀣ф嫼缂傚倷鐒﹀玻鎸庣珶閸曨厾纾界€广儱瀚ˇ锕傛煟閿濆懎妲婚柍璇查叄楠炴ḿ鈧稒蓱椤忕喖姊绘担鑺ョ《闁革綇绠撻獮蹇涙晸閿燂拷
UB闂傚倸鍊搁崐椋庣矆娴i潻鑰块弶鍫氭櫅閸ㄦ繃銇勯弽顐粶缂佲偓婢跺绻嗛柕鍫濇噺閸g晫鈧鎸风欢姘跺蓟濞戙垹唯闁靛繆鍓濋悵鏇㈡煟鎼淬垻顣茬€光偓閹间礁绠栨俊銈傚亾闁宠棄顦埢宥夋惞椤愩垻浼岄梺鎸庣箘閸嬨倝寮幘缁樻櫢闁跨噦鎷�
闂傚倸鍊搁崐宄懊归崶銊х彾闁割偆鍠嗘禒鍫㈢磼鐎n偒鍎ユ繛鍏肩墪閳规垿鎮╁畷鍥舵殹闂佺粯甯$粻鏍箖濡ゅ懏鍋ㄩ柣銏㈠仯閳ь剙锕弻娑氣偓锝庡亝瀹曞矂鏌e☉鍗炴珝鐎规洖缍婇、娆撳矗閵壯勶紡婵犵數濮烽弫鍛婃叏椤撱垹纾婚柟鍓х帛閻撱儵鏌i弴鐐测偓鍦偓姘炬嫹
闂傚倸鍊峰ù鍥敋瑜庨〃銉╁传閵壯傜瑝閻庡箍鍎遍ˇ顖炲垂閸岀偞鐓曟繝闈涙椤忕敻鏌ら弶鎸庡仴闁哄本鐩慨鈧柕蹇曞У椤旓拷
闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鍨鹃幇浣圭稁缂傚倷鐒﹁摫闁告瑥绻愰—鍐偓锝庝簼閹癸絿绱掗埀顒佺節閸屻倗鍞甸柣鐘荤細濞咃綁鎮橀柆宥嗙厱婵°倓鑳堕。鑼磼缂佹ḿ娲寸€规洖宕灃闁逞屽墴椤㈡濮€閵堝棛鍘遍梺缁樺姇濡﹤危閸︻厾纾肩紓浣贯缚閵嗘帞绱掓潏銊ф噰闁诡喒鏅犲畷顐﹀礋椤愩垼鍘梻鍌氬€烽懗鑸电仚婵°倗濮寸换姗€鐛箛娑欐櫢闁跨噦鎷�
缂傚倸鍊搁崐鎼佸磹閹间礁纾归柣鎴eГ閸婂潡鏌ㄩ弴鐐测偓褰掑磻閿熺姵鐓ラ柡鍥╁仜閳ь剚鎮傚畷褰掑磼濞戞氨鐦堟繝鐢靛Т閸婃悂顢旈锝冧簻闁冲搫鎳忛弫閬嶆煏閸パ冾伃妤犵偞甯掗濂稿炊閼告晫婊呯磽閸屾瑧鍔嶇憸鏉垮暙閿曘垽鏌嗗鍛姦濡炪倖甯掗崐鍛婄椤栫偞鐓曞┑鐘插暟缁犳ḿ绱掓潏銊﹀碍妞ゎ偅绻冮敍鎰攽閸ャ劍鐝﹂梻鍌欐祰濞夋洟宕抽敃鍌氱闁跨噦鎷�
©2017 www.mb5u.com濠电姷鏁告慨鐑姐€傞挊澹╋綁宕ㄩ弶鎴濈€銈呯箰閻楀棛绮堥崼鐔虹瘈闂傚牊绋掗敍宥夋煟閺傛寧顥為柟渚垮妼椤啰鎷犻煫顓烆棜闂佽瀛╅鏍闯椤曗偓瀹曟娊鏁愭径濠勭暫闂佸啿鎼幊搴g不閻㈠憡鐓欓柣鎴炆戠亸顓㈡煟閿斿吋瀚�
闂傚倸鍊搁崐宄懊归崶顒€违闁逞屽墴閺屾稓鈧綆鍋呭畷宀勬煛瀹€鈧崰鏍€佸☉妯峰牚闁告劗鍋撳В澶嬩繆閻愵亜鈧垿宕曟繝姘闁跨噦鎷�&闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁嶉崟顒佹闂佸湱鍎ら崵锕€鈽夐姀鐘电潉闂佸壊鍋嗛崳銉ノ涢崨瀛樷拺閻犳亽鍔屽▍鎰版煙閸戙倖瀚�
QQ缂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘e亾鐎殿喚鏁婚、妤呭焵椤掑嫧鈧棃宕橀钘夌檮婵犮垹鍘滈弲婊堟儎椤栫偛鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐椋庣矆娓氣偓楠炴牠顢曢敃鈧壕鍦磽娴h偂鎴濃枍閻樺厖绻嗛柕鍫濆€告禍鎯ь渻閵堝骸浜濈紒璇茬墦閵嗕礁鈻庨幋婵囩€抽梺鍛婎殘閸嬬偤顢欓崒娑楃箚闁绘劦浜滈埀顒佺墪椤繑绻濆顒€鍋嶉悷婊冪箻楠炲骞橀鑺ユ闂佽法鍣﹂幏锟�闂傚倸鍊搁崐鐑芥嚄閸洖鍌ㄧ憸鏃堝箖濡警娼╂い鎺戝€瑰▓鎯р攽椤斿浠滈柛瀣尰閵囧嫰濮€閿涘嫭鍣伴悗瑙勬礀瀹曨剝鐏冩繝鐢靛Т閸婂綊顢欓崒娑楃箚闁绘劦浜滈埀顒佺墪椤繑绻濆顒€鍋嶉悷婊冪箻楠炲骞橀鑺ユ闂佽法鍣﹂幏锟�婵犵數濮烽弫鎼佸磻濞戙垺鍋ら柕濞у啫鐏婇棅顐㈡处閹尖晛霉閺嶎厽鐓忓┑鐐茬仢閸撳墽鎲告惔鈽嗗殫闁告洦鍋嗛弳鍡涙煃瑜滈崜娑欑珶閺囩喆鍋呴柛鎰ㄦ櫇閸欏棝姊虹紒妯荤闁稿﹤婀遍埀顒佺啲閹凤拷闂傚倷娴囬褏鈧稈鏅犻、娆撳冀椤撶偟鐛ラ梺鍦劋椤ㄥ懐澹曟繝姘厵闁硅鍔曢崥褰掓煕濞嗘劖宕岄柡灞剧洴婵$兘骞嬪┑鍡樻濠电偛鐗嗘晶搴f閹捐纾兼慨妯诲閺嬪矂姊洪悷鏉挎闁瑰嚖鎷�闂傚倸鍊搁崐宄懊归崶顒佸剭妞ゆ劧绠戠粈瀣亜閹扳晛鐏╃悮姗€姊绘担绛嬪殭婵﹫绠撻敐鐐村緞鐎n剛顔曟繝鐢靛Т濞层劌鐣垫笟鈧弻鈥崇暤椤旂懓浜鹃梺鍓插亽娴滎亪寮诲☉銏犵労闁告劕銇樼欢闈涒攽閳藉棗浜鹃柟鍑ゆ嫹婵犵數濮烽弫鍛婃叏娴兼潙鍨傞柣鎾崇岸閺嬫牗绻涢幋鐐寸殤闁活厽鎹囬弻鐔虹磼閵忕姵鐏堥梺鍝勫閸庡弶绌辨繝鍥ч柛娑卞幗濞堝墎绱掓ィ鍐暫缂佺姵鐗犲濠氭偄鐞涒€充壕婵炴垶鐟$紓姘辩磼閻樺磭澧辩紒杈ㄥ笧閹风姾顦抽悗姘炬嫹闂傚倸鍊搁崐椋庣矆娓氣偓楠炴牠顢曢埛姘そ閺佸啴鍩€椤掆偓閻滃宕归瑙勭€婚梺瑙勫劤缁夋潙煤椤撱垹鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘...