asp如何将数据库中的数据输出到表格中并修改 asp输出方法

下面是asp中的代码

Set rs2=ServerCreateObject(ADODBrecordset)

sql=select from eq where eqbumen='&dep;&' order by eqbumen desc

rs2open sql,conn,1,1

set objExcel=CreateObject(ExcelApplication)

objExcelWorkbooksOpen(servermappath(\test)&\book1xlt) '打开Excel模板

objExcelSheets(1)select '选中工作页

set sheetActive=objExcelActiveWorkbookActiveSheet

num=2 '从Excel的第2行开始

Do while not rs2eof '循环直至数据集中的数据写完

strRange=b#&:k# '设定要填写内容的单元区域

sheetActiverange(strRange)fontsize=10 '设定字体大小

sheetActiverange(strRange)WrapText=false '设定文字回卷

sheetActiverange(strRange)ShrinkToFit=true '设定是否自动适应表格单元大小

sheetActiverange(strRange)value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqweizhi),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把数据集中的数据填写到相应的单元中

num=num+1

rs2MoveNext

loop

function getTemporaryFile(myFileSystem)

dim tempFile,dotPos

tempFile=myFileSystemgetTempName

dotPos=instr(1,tempFile,)

getTemporaryFile=mid(tempFile,1,dotPos)&xls; end function

set myFs=createObject(scriptingFileSystemObject)

filePos=servermappath(\test)&\temp '要存放打印临时文件的临时目录

fileName=getTemporaryFile(myFs) '取得一个临时文件名

'myFsDeleteFile filePos&xls '删除该目录下所有原先产生的临时打印文件

set myFs=nothing

objExcelActiveWorkbooksaveas filePos&filename;

objExcelquit

set objExcel=Nothing。

<!--#include file="inc/connasp"-->

<%

dim rs,sql,filename,fso,myfile,x

Set fso = serverCreateObject("scriptingfilesystemobject")

filename = ServerMapPath("downloadtxt")

if fsoFileExists(filename) then

fsoDeleteFile(filename)

end if

'--创建txt文件

set myfile = fsoCreateTextFile(filename,true)

Set rs = ServerCreateObject("ADODBRecordset")

sql = "select from userfile"

rsOpen sql,conn,1,1

if rsEOF and rsBOF then

responsewrite "无数据"

else

dim strLine,responsestr

strLine=""

'--将表的列名先写入txt

For each x in rsfields

strLine = strLine & xname & chr(9)

Next

myfilewriteline strLine

Do while Not rsEOF

strLine=""

for each x in rsFields

strLine = strLine & xvalue & chr(9)

next

'--将表的数据写入txt

myfilewriteline strLine

rsMoveNext

loop

end if

rsClose

set rs = nothing

ResponseContentType="application/x-msdownload"

ResponseRedirect "downloadtxt"

%>

关于导入：

打开ACCESS－文件－获取外部数据。后面的你应该会了啊。

asp文件不可以直接用网页查看，在你自己的计算机上可以安装一个iis，具体的安装方法你可以在百度上搜索，但是必须要有windows安装盘才可以。

安装完了后，管理工具－internet信息服务－本地计算机－网站－默认网站－新建你的asp所在目录。浏览就可以了。

我也是新手，以后相互帮助哈。

这个只能用ajax了，我们判断文本框失去焦点的时候传递数据，在去检索数据库，返回数据显示到页面上

$(document)ready(function(){

$("search_textarea")blur(function(){

var seakey = $("search_textarea")val();

$ajax({

type: "POST",

url : "getdataasp",

data: {"seakey":seakey},

success: function(data){

alert(data) //获取返回的数据。。

}

});

});

});

getdataasp

seakey = request("seakey")

sql = "select from table where title like '%"& seakey &"%'"

responsewrite(data)

responseend()

大致步骤就是这样了，我熟悉的是asp语言，所以url我是用asp举例，主要是ajax的用法

以上就是关于asp如何将数据库中的数据输出到表格中并修改 asp输出方法全部的内容，包括:asp如何将数据库中的数据输出到表格中并修改 asp输出方法、asp中如何将sql数据库中数据导出为*.txt文件（急）、asp如何实现数据从excel表导入access数据库和access数据库导出到excel表中等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！