查询结果导出形成网页。。。怎么弄。

[北京不不]

如何根据查询结果设计表格。从而形成网页。
如：select * from user
我如何把结果放到网页中。

[tigerwen01]

使用FSO对象自动生成

[jingxiaoping]

第一步，通用代码
请另存为ExportDB.asp，里面的../../inc/conn.asp为数据连接，你自己写就OK。

<!-- #include file="../../inc/conn.asp" -->
<%
'导出xml,csv,htm文件DEMO
'用法：ExportDB.asp?t=文件类型&sql=sql语句
'文件类型可以是htm,csv,xml，默认是htm
'http://www.51windows.Net
'tablename = "htm"
Dim shijian,dingdan
shijian = now()
dingdan = year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)

dim tablename
sql2 = replace(request("sql"),"bfh",chr(37))
tablename = request("tablename")
if tablename = "" then
tablename = "数据导出结果"&dingdan
else
tablename = tablename&dingdan
end if
sql = replace(sql2,";","")

filetype = lcase(request("t"))
dim dbid,IndexPageName
function HTMLEncode(fString)
if not isnull(fString) then

fString = Server.HTMLEncode(fString)
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString = Replace(fString, CHR(9), "  ")

HTMLEncode = fString
end if
end function

function Myreplace(str)
if not isnull(str) then
fString = Replace(fString,"""", """""")
Myreplace = str
else
Myreplace = ""
end if
end function

dim def_export_val
def_export_sep = ","
def_export_val = """"
if lcase(left(sql,6))<>"select" then
Response.write "出错了。。。"
Response.end
end if
Set rs = Conn.Execute(sql)
if filetype="htm" then'弹出下载html的对话框
Response.contenttype="application/ms-download"
Response.AddHeader "Content-Disposition", "attachment;filename="&tablename&".htm"
end if
i=0
While rs.EOF =false
i=i+1
strLine=""
For each x in rs.fields
strLine=strLine&HTMLEncode(x.value)&"<br>"&vbnewline
Next
Response.write strLine
response.write "<br>"
rs.MoveNext
Wend
rs.close
conn.close
Set rs=nothing
Set conn=nothing
%>

[北京不不]

希望明天有结果！~`我照样给分。哥们。。。。来吧。。帮帮我这鸟。
页面上我就一个文本框，框里输入查询语句。点按狃查询后结果就会在网页上。来吧。。。明天见。。。。答对给呀百分

[北京不不]

都这么热心。我都给分。明天我去研究下。保证不食言。我这鸟今天下班了。笨鸟我先飞。。先下班了。上面俩哥们谢谢！`没时间看了。分照给。

[jingxiaoping]

第二步，进入导出阶段

sql的赋值可以通过变量的增加来实现

比如：
select case view
case "正式会员"
sql=sql&" and a.xfday<>0 and a.fymodel='已付费' and a.jibei=1"
case "黄金会员"
sql=sql&" and a.xfday<>0 and a.fymodel='已付费' and a.jibei=2"
case "过期会员"
sql=sql&" and a.xfday=0"
case "临时会员"
sql=sql&" and a.xfday<>0 and a.fymodel='未付费'"
case "新注册会员"
sql=sql&" and a.zrr is null or a.zrr=''"
end select
select case sortindex
case "按序号"
sql=sql&" order by a.id desc"
case "按时间"
sql=sql&" order by a.date_p desc"
case "按单位"
sql=sql&" order by a.name desc"
case else
sql=sql&" order by a.id desc"
end select

exportsql=replace(sql,"a.noreg,a.pass,a.xfday,a.fymodel,a.jibei,a.id,a.loginname,a.name,a.zrr,a.linkman,a.phone,a.date_p","a.postcode,a.addr,a.name,a.mailto")
'里面的内容可以自己定义，就是需要把你现有的改为需要导出的
exportsql=replace(exportsql,"order by a.id desc","")
exportsql=replace(exportsql,"order by a.date_p desc","")
exportsql=replace(exportsql,"order by a.name desc","")
exportsql=replace(exportsql,"%","bfh")


第三步，链接导出
<a href="exportdb.asp?t=htm&sql=<%=exportsql%>" class="blue">导出结果数据</a>

[jingxiaoping]

跑的真快，如果你看不明白的话，明天我替你写，QQ：7631746