| 发表于：2007-06-14 17:22:36 楼主 |
//vb代码
private wenscriptingcontext as scriptingcontext
private wenresponse as response
private wenrequest as request
private wenserver as server
private wensession as session
private wenapplication as application
public sub onstartpage（passedcontext as scriptingcontext)
set wenscriptingcontext = passedcontext
set wenresponse = wenscriptingcontext.response
set wenrequest = wenscriptingcontext.request
set wenapplication = wenscriptingcontext.application
set wenserver = wenscriptingcontext.session
set wensession = wenscriptingcontext.session
end sub
public sub onendpage（)
set wenscriptingcontext = nothing
set wenserver = nothing
set wensession = nothing
set wenapplication = nothing
set wenrequest = nothing
set wenresponse = nothing
end sub
public function rs（strsql as string) as recordset
dim oconn as connection
dim ors as recordset
dim strconnectionstring as string
strconnectionstring = "driver={sql server};server=（local);database=agent;uid=sa;pwd= "
ors.activeconnection = oconn
strsql = "select * from register_fl "
ors.open strsql, oconn, 1, 3
set rs = ors
end function
public function connectiondb（) as variant
datasourceconnection = "driver={sql server};server=（local);database=agent;uid=sa;pwd= "
end function
//asp
<%
set conn=server.createobject（ "kaka.kk ")
objconn=conn.connectiondb（)
application（ "strconn ")=objconn
set rs=server.createobject（ "adodb.recordset ")
sql= "select * from register_fl "
rs.open sql ,application（ "strconn "),1,3
%>
<table width= "507 " height= "21 " border= "1 ">
<%
if（rs.bof and rs.eof) then
response.write "没有数据 "
else
do while not rs.eof
%>
<tr>
<td> <%=rs（ "id_fl ")%> </td>
<td> <%=rs（ "username_fl ")%> </td>
<td> <%=rs（ "password_fl ")%> </td>
<td> <%=rs（ "role_fl ")%> </td>
<td> <%=rs（ "date_fl ")%> </td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>
//老是说set conn=server.createobject（ "kaka.kk ")
错误类型：
server 对象, asp 0177 （0x800401f3)
无效的类别字符串
/kaka1/defualt.asp, 第 9 行
老是这里错误,高手来指导一下 |
|
|
|
|
