aspsql輸出
A. asp輸出sql查詢的結果應該怎麼寫
通常，有兩種方法可以顯示。
第一，直接：response.write rs(0)
第二，sql語句改一下：sql="select count(*) as ct from urldo where urlna='"&session("name")&"'"
然後，response.write rs(「ct")
B. asp 怎麼導出從sql中查詢的結果有分頁
1.ASP導出SQL中的查詢結果：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc/DBConn.asp"-->
<%
'自行設置的，用於DB Connection連接的函數
Call openConnection()
Dim sql,rs,conn
'SQL語句
sql = " SELECT tbId,tbName from Table"
'執行SQL語句，並將結果賦給RS變數
set rs = Conn.execute(sql)
'對從DB中取得的結果進行操作，當有值時執行以下內容
if Not rs.Eof then
』對結果集進行循環操作，將值輸出到畫面中
Do while NOT Rs.Eof
response.write(rs("tbId") & "----" & rs("tbName") & "<br>")
rs.MoveNext
Loop
End If
%>
---
call openconnection()是自己做一個加接DB的函數，
dim strConnect
strConnect = "Provider=SQLOLEDB;Data Source=local;Initial Catalog=" testDb;user ID=sa;password=sa;"
Function openConnection()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
End Function
C. asp中輸出sql查詢結果
response.write(rs(sql))
輸出sql應該這樣輸出啊
response.write(sql)
D. 請教在ASP.NET怎麼輸出SQL查詢語句的值
SqlConnection conn=....
SqlCommand com=new SqlCommand( "select sum(空位數量) as total from House1 ",conn);
Lable1.Text=com.ExecuteScalar().ToString();
E. asp如何將資料庫中的數據輸出到表格中並修改 asp輸出方法
下面是asp中的代碼
Set rs2=Server.CreateObject(ADODB.recordset)
sql=select * from eq where eqbumen='&dep;&' order by eqbumen desc
rs2.open sql,conn,1,1
set objExcel=CreateObject(Excel.Application)
objExcel.Workbooks.Open(server.mappath(\test)&\book1.xlt) '打開Excel模板
objExcel.Sheets(1).select '選中工作頁
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '從Excel的第2行開始
Do while not rs2.eof '循環直至數據集中的數據寫完
strRange=b#&:k# '設定要填寫內容的單元區域
sheetActive.range(strRange).font.size=10 '設定字體大小
sheetActive.range(strRange).WrapText=false '設定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '設定是否自動適應表格單元大小
sheetActive.range(strRange).value=array(rs2(zcid),rs2(eqname),rs2(eqchangjia),rs2(eqxinghao),rs2(eqnengli),rs2(eqwei),rs2(eqxianzhuang),rs2(eqno),rs2(eqbumen),rs2(eqchejian)) '把數據集中的數據填寫到相應的單元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,.)
getTemporaryFile=mid(tempFile,1,dotPos)&xls; end function
set myFs=createObject(scripting.FileSystemObject)
filePos=server.mappath(\test)&\temp '要存放列印臨時文件的臨時目錄
fileName=getTemporaryFile(myFs) '取得一個臨時文件名
'myFs.DeleteFile filePos&*.xls '刪除該目錄下所有原先產生的臨時列印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename;
objExcel.quit
set objExcel=Nothing。