osmo 怎样调光圈:数据库导出xml、htm、csv、sql

来源：百度文库编辑：偶看新闻时间：2024/05/04 04:20:36

数据库导出xml、htm、csv、sql

来自：51windows.Net　　作者：海娃

数据库导出xml、htm、csv、sql代码

用法：ExportDB.asp?sql=select语句&table=表名(可选)&filetype=导出格式(xml,htm,csv,sql)&pid=自动编号字段名(仅当导出sql类型时有用)

2004-8-11 更新

<%‘数据库导出记录代码‘作者海娃,haiwa#blueidea.com，http://www.51windows.Net‘用法：‘ExportDB.asp?sql=select语句&tablename=表名(可选)&filetype=导出格式(xml,htm,csv,sql)&pid=自动编号字段名(仅当导出sql类型时有用)dim tablename,filetype,fieldPidsql= request("sql")tablename= request("tablename")filetype= lcase(request("filetype"))fieldPid= request("pid")if fieldPid = "" thenfieldPid = "id"end iffieldPid = lcase(fieldPid)if lcase(left(sql,6))<>"select" thenResponse.write "sql语句必须为select * from [table] where ......."Response.endend ifif tablename = "" thentablename = "数据导出结果"end iffunction HTMLEncode(fString)if not isnull(fString) thenfString = Server.HTMLEncode(fString)fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")fString = Replace(fString, CHR(10), "<BR> ")fString = Replace(fString, CHR(9), "  ")HTMLEncode = fStringend ifend functionfunction Myreplace(str)if not isnull(str) thenfString = Replace(fString,"""", """""")Myreplace = strelseMyreplace = ""end ifend functionfunction Myreplace2(str)if not isnull(str) thenfString = Replace(fString,"‘", "‘‘")Myreplace2 = strelseMyreplace2 = ""end ifend functiondim def_export_sep,def_export_valdef_export_sep = ","def_export_val = """"Set rs = Conn.Execute(sql)‘导出XML文件if filetype="xml" thenResponse.contenttype="text/xml"Response.Charset = "gb2312"Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".xml"Response.write "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewlineResponse.write "<root>"strLine=""dim thefield(50)i = 0For  each  x  in  rs.fieldsthefield(i)=x.namei=i+1NextWhile rs.EOF =falsestrLine= vbnewline&chr(9)&"<row>"k=0For  each  x  in  rs.fieldsstrLine=  strLine & vbnewline&chr(9)&chr(9)&"<"&thefield(k)&">"if instr(x.value,"<")>0 or instr(x.value,">")>0 or instr(x.value,"&")>0 or len(x.value)>255 thenstrLine=  strLine &"<![CDATA["& x.value &"]]>"elsestrLine=  strLine & x.valueend ifstrLine=  strLine &"</"&thefield(k)&">"k=k+1Nextrs.MoveNextResponse.write strLine &vbnewline& chr(9)&"</row>"WendResponse.write vbnewline&"</root>"‘导出sql文件elseif filetype="sql" thenResponse.contenttype="text/sql"Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".sql"strLine=""dim sql_insertFor  each  x  in  rs.fieldsif lcase(x.name)<>fieldPid then‘如果是自动编号strLine=  strLine  & def_export_val &  x.name & def_export_val & def_export_sepend ifNextstrLine = replace(left(strLine,len(strLine)-1),"""","")strLine = "insert into ["&tablename&"] (" & strLine & ") values "sql_insert = strLine‘Response.write strLine & vbnewline‘response.endWhile rs.EOF =falsestrLine= ""def_export_val = "‘"For  each  x  in  rs.fieldsif lcase(x.name)<>fieldPid then‘2004-8-11更新 Null值时无法导出的bug。x_value = x.valueif isnull(x_value) or len(x_value) = 0 thenx_value = ""elsex_value = replace(x_value,"‘","‘‘")end ifstrLine=  strLine & def_export_val & x_value & def_export_val & def_export_sepend ifNextrs.MoveNextstrLine = left(strLine,len(strLine)-1)Response.write sql_insert & "("& strLine &")*" & vbnewlineWendelseif filetype="csv" thenResponse.contenttype="text/csv"Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".csv"strLine=""For  each  x  in  rs.fieldsstrLine=  strLine  & def_export_val &  x.name & def_export_val & def_export_sepNextResponse.write strLine & vbnewlineWhile rs.EOF =falsestrLine= ""For  each  x  in  rs.fieldsstrLine=  strLine & def_export_val & Myreplace(x.value) & def_export_val & def_export_sepNextrs.MoveNextResponse.write strLine & vbnewlineWendelseif filetype="htm" then‘弹出下载html的对话框Response.contenttype="application/ms-download"Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".htm"end if%><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><META NAME="Author" CONTENT="51windows,海娃,haiwa"><META NAME="Description" CONTENT="Power by 51windows.Net"><title>导出数据 － www.51windows.Net</title><style></style></head><BODY style="overflow:auto;" topmargin=2 bgcolor=buttonface><form method="post" name=myform>SQL:<input type="text" name="sql" value="<% = sql%>">表名:<input type="text" name="tablename" value="<% = tablename %>" size="8">导出格式:<select size="1" name="filetype"><option value="">请选择</option><option <%if filetype = "htm" then Response.write "selected "%>value="htm">htm</option><option <%if filetype = "xml" then Response.write "selected "%>value="xml">xml</option><option <%if filetype = "csv" then Response.write "selected "%>value="csv">csv</option><option <%if filetype = "sql" then Response.write "selected "%>value="sql">sql</option></select>自动编号字段名:<input type="text" name="pid" value="<% = fieldPid%>" size="8"><input type="submit" value="确定"></form><div align="center"><table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000"><tr><%i=0For  each  x  in  rs.fieldsstrLine=  strLine  &chr(9)&chr(9)&"<th align=""center"">"&  x.name  &"</th>"& vbnewlineNextResponse.write strLine&chr(9)&"</tr>"& vbnewline & vbnewlineWhile rs.EOF =falsei=i+1Response.write chr(9)&"<tr>"& vbnewlinestrLine= ""For  each  x  in  rs.fieldsstrLine=  strLine  &chr(9)&chr(9)&"<td>"&  HTMLEncode(x.value) &"</td>"& vbnewlineNextrs.MoveNextResponse.write strLineResponse.write chr(9)&"</tr>"& vbnewline & vbnewlineWendResponse.write "</table>"& vbnewlineif filetype<>"htm" and filetype<>"xls" and filetype<>"sql" thenResponse.write "<p style=‘line-height:160%;‘>"&i&"条记录 <a href=‘?tablename="& tablename &"&pid="& fieldPid &"&filetype=htm&sql="&server.urlencode(sql)&"‘>导出HTML</a>"Response.write "|<a href=‘?tablename="& tablename &"&pid="& fieldPid &"&filetype=csv&sql="&server.urlencode(sql)&"‘>导出EXCEL</a>"Response.write "|<a href=‘?tablename="& tablename &"&pid="& fieldPid &"&filetype=xml&sql="&server.urlencode(sql)&"‘>导出XML</a>"Response.write "|<a href=‘?tablename="& tablename &"&pid="& fieldPid &"&filetype=sql&sql="&server.urlencode(sql)&"‘>导出SQL</a>"& vbnewlineend ifResponse.write "<p>Power by <A HREF=""http://www.51windows.Net"" target=""_blank"">51windows.Net</A>"& vbnewlineResponse.write "</div>"& vbnewlineResponse.write "</BODY>"& vbnewlineResponse.write "</HTML>"& vbnewlineend ifrs.closeconn.closeSet rs=nothingSet conn=nothing%>

如何在sql数据库中的表结构导出到一个XML文件中用aspx 导出SQL数据库在SQL Server数据库导入导出问题如何可将SQL 数据库导出来查看？？问下SQL Server 2000 中的数据能导出为XML吗？如何操作？怎样编写数据库导出程序!??用ASP编写导出MS SQL表中的某一段名导出xml里面的数据有*.CSV地址，然后怎么导出图片呢？ sql server 中数据导入导出与数据库复制的区别？怎么样不用语言把SQL sever里的数据库导出成mdb文件? asp中如何将sql数据库中数据导出为*.txt文件（急） SQL数据库 SQL数据库数据库SQL sql数据库 SQL数据库 trs数据导出SQL ORCAL数据库导出问题 VB 和SQL 相连的时候 SQL的数据库是要导出吗（放到VB应用文件家里）？还是留在SQL中？求一个中国省市XML数据库 htm连接数据库的方法 SQL Server里面如何导出SQL脚本？？？ SQL SERVER 2000 数据导出 SQL怎样导出完整文章