<% '歡迎與我交流和學習 '作者：幸福的子彈 'blog:http://mysheji.com/blog 'e-mail:zhaojiangang@gmail.com 'qq:37294812 '----------------------------------------------------------------------------- '開啟容錯機制 on error resume next '功能，檢測服務器是否支持指定組件 function object_install(strclassstring) on error resume next object_install=false dim xtestobj set xtestobj=server.createobject(strclassstring) if -2147221005 <> err then object_install=true set xtestobj=nothing end function if object_install("scripting.filesystemobject")=false then response.write "<div style='color:#333;height:20px;line-height:20px;border:1px solid #ddcf8f;padding:6px;background:#ffffed;font-family:verdana'>對不起，您的空間不支持fso組件，請與管理員聯系!</div>" response.end end if if object_install("adodb.stream")=false then response.write "<div style='color:#333;height:20px;line-height:20px;border:1px solid #ddcf8f;padding:6px;background:#ffffed;font-family:verdana'>對不起，您的空間不支持adodb.stream功能，請與管理員聯系!</div>" response.end end if '----------------------------------------------------------------------------- '函數名稱:readtextfile '作用:利用adodb.stream對象來讀取文本文件 '參數：fileurl文件相對路徑，filecharset:文件編碼 function readfromtextfile (fileurl,filecharset)'函數 dim str set stm=server.createobject("adodb.stream") stm.type=2 '指定或返回的數據類型, stm.mode=3 '指定打開模式，現在為可以讀寫模式，類似于word的只讀或鎖定功能 stm.charset=filecharset stm.open stm.loadfromfile server.mappath(fileurl) str=stm.readtext readfromtextfile=str end function '----------------------------------------------------------------------------- '函數名稱:writetotextfile '作用:利用adodb.stream對象來寫入文本文件 sub writetotextfile(fileurl,str,filecharset) '方法 set stm=server.createobject("adodb.stream") stm.type=2 stm.mode=3 stm.charset=filecharset stm.open stm.writetext str stm.savetofile server.mappath(fileurl),2 stm.flush end sub '----------------------------------------------------------------------------- '功能：自動創建文件夾 '創建一級或多級目錄，可以創建不存在的根目錄 '參數：要創建的目錄名稱，可以是多級 '返回邏輯值，true成功，false失敗 '創建目錄的根目錄從當前目錄開始 function createmultifolder(byval cfolder) dim objfso,phcreatefolder,createfolderarray,createfolder dim i,ii,createfoldersub,phcreatefoldersub,blinfo blinfo = false createfolder = cfolder on error resume next set objfso = server.createobject("scripting.filesystemobject") if err then err.clear() exit function end if createfolder = replace(createfolder,"","/") if left(createfolder,1)="/" then createfolder = right(createfolder,len(createfolder)-1) end if if right(createfolder,1)="/" then createfolder = left(createfolder,len(createfolder)-1) end if createfolderarray = split(createfolder,"/") for i = 0 to ubound(createfolderarray) createfoldersub = "" for ii = 0 to i createfoldersub = createfoldersub & createfolderarray(ii) & "/" next phcreatefoldersub = server.mappath(createfoldersub) if not objfso.folderexists(phcreatefoldersub) then objfso.createfolder(phcreatefoldersub) end if next if err then err.clear() else blinfo = true end if createmultifolder = blinfo end function '點擊下載提示 function downloadfile(strfile) strfilename = server.mappath(strfile) response.buffer = true response.clear set s = server.createobject("adodb.stream") s.open s.type = 1 on error resume next set fso = server.createobject("scripting.filesystemobject") if not fso.fileexists(strfilename) then response.write("<h1>error:</h1>" & strfilename & " does not exist<p>") response.end end if set f = fso.getfile(strfilename) intfilelength = f.size s.loadfromfile(strfilename) if err then response.write("<h1>error: </h1>" & err.description & "<p>") response.end end if response.addheader "content-disposition", "attachment; filename=" & f.name response.addheader "content-length", intfilelength response.charset = "utf-8" response.contenttype = "application/octet-stream" response.binarywrite s.read response.flush s.close set s = nothing end function '----------------------------------------------------------------------------- if err then err.clear set conn = nothing response.write "<div style='color:#333;height:20px;line-height:20px;border:1px solid #ddcf8f;padding:6px;background:#ffffed;font-family:verdana'>網站異常出錯，請與管理員聯系，謝謝！</div>" response.end end if %>
<% on error resume next dim db_path,conn,connstr db_path = "data/data.mdb" set conn= server.createobject("adodb.connection") connstr = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db_path) on error resume next conn.open connstr if err then err.clear set conn = nothing response.write "<script language=javascript> location.href='error.asp?msg=系統出錯,請聯系管理員!' </script>" response.end end if set rs=server.createobject("adodb.recordset") rs.open "select * from m_ss",conn,1,1 s=rs("s_main") all=split(s,"|||") for i=0 to 20 next if not (rs.eof and rs.bof) then dim ttxt,file,filepath,writefile ttxt="jb.csv" '為要寫入的文件取個文件名，后綴可以是txt,xls,這里我用csv,這種文件打開也是excel表 set file = createobject("scripting.filesystemobject") application.lock '寫入文件的存放路徑，一定要開放這個路徑下的讀寫權限 filepath=server.mappath(ttxt) set writefile = file.createtextfile(filepath,true) '在表格中寫入第一行，字段描述，這個根據你實際的數據表字段來寫 writefile.writeline "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak" do while not rs.eof writefile.writeline rs("s_id")&","&rs("s_no")&","&rs("s_top")&","&rs("s_title")&","&rs("s_name")&","&rs("s_add")&","&rs("s_ajlx")&","&rs("s_fy1")&","&rs("s_fy2")&","&rs("s_fy3")&","&rs("s_fg1")&","&rs("s_fg2")&","&rs("s_fg3")&","&rs("s_yg")&","&rs("s_bg")&","&all(0)&","&all(1)&","&all(2)&","&all(3)&","&all(4)&","&all(5)&","&all(6)&","&all(7)&","&all(8)&","&all(9)&","&all(10)&","&all(11)&","&all(12)&","&all(13)&","&all(14)&","&all(15)&","&all(16)&","&all(17)&","&all(18)&","&all(19)&","&rs("s_ly")&","&rs("s_bz")&","&rs("s_sfz")&","&rs("s_time") rs.movenext loop '以上三行作用是逐行將數據寫入表中 writefile.close application.unlock rs.close set rs=nothing end if rs.close set rs=nothing response.write "數據導出成功!" response.end %>
400 186 1886
有沒有生成xml（例如rss輸出）的實例啊。
，