期待你的回答，vb，com,asp

Question

你的组件返回的类型是什么？
如果是recordset.
在asp中可以直接用

Answer 1

谢谢，是recordset型的，我想在com中调用asp对象response将数据写到网页上可不可以？

Answer 2

在com中调用asp对象，要知道asp对象是有iis来解析的。
你可以用组件返回一个含有html代码的字符串。输出这个字符串不久可以了。

Answer 3

dim objconn as new adodb.connection
dim objrs as new adodb.recordsetprivate function initconn() as integer
  dim strconn as string
  on error goto errhandle
  strconn="provider=sqloledb.1;password=password;persist security       info=true;user id=sa;initial catalog=db;data source=jjt"
  objconn.connectionnstring=strconn
  objconn.cursorlocation=aduseclient
  objconn.mode=admodereadwrite
  objconn.open
  initconn=0
  exit function
  errhandle:
      initconn=-1
public function searchs(byval st_id1) as variant
  dim strsql as string
  dim s as string
  strsql="select sname form student where  st_id="+"'"+st_id1+"'"
  objrs.open strsql,objconn,adopenbynamic,adlockoptimistic,adcmdtext
  s=objrs("sname").value
  set searchs=objrs
end function
  

Answer 4

function searchs 中漏了两句用initconn函数检查连接