|
#2
yms1232010-06-12 14:01
|
程序代码：<%
set rs=server.createobject("adodb.recordset")
sql="select * from SK_Client where SK_Del=0"
rs.open sql,conn,1,3
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename="log.xls"
temp=filename
filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
filename=server.MapPath("excel/"&filename)
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
'strLine=""
'For each x in rs.fields
strLine=CL0029&chr(9)&CL0003&chr(9)&CL0010&chr(9)&CL0006&chr(9)&CL0005&chr(9)&CL0009&chr(9)&CL0008&chr(9)&CL0012&chr(9)&CL0013&chr(9)
'Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
while not rs.eof
strLine=""
Fettle=""
if RS("SK_Fettle")=0 then
Fettle=CL0126
elseif RS("SK_Fettle")=1 then
Fettle=CL0127
elseif RS("SK_Fettle")=2 then
Fettle=CL0128
end if
'for each x in rs.Fields
strLine=RS("SK_No")&chr(9)&left(RS("SK_Jname"),8)&chr(9)&RS("SK_Scale")&chr(9)&Fettle&chr(9)&RS("SK_Exchang")&chr(9)&RS("SK_Product")&chr(9)&Rs("SK_Property")&chr(9)&RS("SK_Area2")&chr(9)&RS("SK_Area3")& chr(9)
'next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.Write(导出完成)
%>
最后想运行这个asp的时候直接跳出保存的按钮，保存到自己指定的位置。忘了加个什么代码了。
忘版主帮个忙
set rs=server.createobject("adodb.recordset")
sql="select * from SK_Client where SK_Del=0"
rs.open sql,conn,1,3
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename="log.xls"
temp=filename
filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
filename=server.MapPath("excel/"&filename)
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)
dim strLine,responsestr
'strLine=""
'For each x in rs.fields
strLine=CL0029&chr(9)&CL0003&chr(9)&CL0010&chr(9)&CL0006&chr(9)&CL0005&chr(9)&CL0009&chr(9)&CL0008&chr(9)&CL0012&chr(9)&CL0013&chr(9)
'Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
while not rs.eof
strLine=""
Fettle=""
if RS("SK_Fettle")=0 then
Fettle=CL0126
elseif RS("SK_Fettle")=1 then
Fettle=CL0127
elseif RS("SK_Fettle")=2 then
Fettle=CL0128
end if
'for each x in rs.Fields
strLine=RS("SK_No")&chr(9)&left(RS("SK_Jname"),8)&chr(9)&RS("SK_Scale")&chr(9)&Fettle&chr(9)&RS("SK_Exchang")&chr(9)&RS("SK_Product")&chr(9)&Rs("SK_Property")&chr(9)&RS("SK_Area2")&chr(9)&RS("SK_Area3")& chr(9)
'next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.Write(导出完成)
%>
最后想运行这个asp的时候直接跳出保存的按钮，保存到自己指定的位置。忘了加个什么代码了。
忘版主帮个忙