Research RDS confusion

xiaoxiao2021-03-06  65

RDS This thing I was in an article on the report in the ASP, but I have never understood what it is doing, because I have done countless tests, check countless information, or can't complete A simplest test program.

The following procedure (change from others) As long as one executing SET RS = DF.Query (strcn, strsql) said that the server is wrong, I really make me confused, I decided not to study it in the future.

"DIV align = left>" INPUT language = vbscript style = "WIDTH: 90px; HEIGHT: 32px" οnclick = fun_query () type = button value = "Query Data" name = query> "INPUT language = vbscript style =" WIDTH: 90px; HEIGHT: 32px "οnclick = fun_clear () type = button value =" Clear Data "name = Clear>" INPUT language = vbscript style = "WIDTH: 90px; HEIGHT: 32px" οnclick = fun_excel () type = button value = "Excel Report" Name = report> "DIV>" DIV ID = adddata> "/ div>" / form>

Script language = VBScript>

SET CONN = CreateObject ("AdoDb.Connection")

Set rr = creteObject ("AdoDb.Recordset")

Conn.open "DSN = SQLS; UID = SA; PWD = Myseelf"

Rr.Open "Select * from Jobs", CONN, 3, 1

Msgbox r.fields (0)

DIM RDS, RS, DF

DIM STRSQL, STRRS, STRCN, ROWCNT

DIM XLAPP, XLBOOK, XLSHEET1, XLMODULE, XLPAGESETUP

Dim Headrowcnt, Titlerowcnt, Contentrowcnt, FootrowCnt

DIM PageRowcnt, Pageno, TotalPagecnt, Contentrownowcnt

Dim ColumnallWidth, Columnawidth, ColumnBwidth, ColumncWidth, ColumnDwidth Sub Fun_Query ()

SET RDS = CREATEOBJECT ("RDS.Dataspace")?

SET DF = rds.createObject ("rdsserver.datafactory", "http://192.168.22.205") STRCN = "DSN = SQLS; UID = SA; PWD = Myseelf"

strsql = "SELECT * from JOBS"

SET RS = DF.Query (strcn, strsql)

'Set = rr

IF not r.

STRRS = "" Table Border = 1> "TBODY>" TD> JOB_DESC "TD>" TD> MAX_LVL "TD> min_lvl" TD> " RS.Getstring (," "TD>", "Tr>" TD> "," ") " AddData. Innerhtml = STRS

STRS = ""

Else

Msgbox "No Data in the Table!"

END IF

SET DF = Nothing

End Sub

"/ Script>

转载请注明原文地址:https://www.9cbs.com/read-119094.html

New Post(0)