下面是我程序中代码的一部分。有时间你可以试试看。
明确选择
公共strerror作为字符串
公共Conn ADODB连接新。
公共的RS作为新ADODB.记录集
公共财产得到errorstring（）为字符串
errorstring = strerror
最后的财产
公共功能conn_open（strsqlservername，strsqldbusername，strsqldbpassword，strsqldbname）
昏暗的strcon作为字符串
设置conn =新的连接数据。
错误errhandler：
strcon =供应商= SQLOLEDB；服务器=strsqlservername ；用户ID =strsqldbusername ；密码= ；strsqldbpassword数据库=strsqldbname ；
strcon康涅狄格州开
ErrHandler：
strerror =误差源：呃。源vbcrlf描述：呃。描述
退出功能
端功能
功能getrootid（ByVal ClassID）
模糊查询
查询=选择class_id，RootID从tblcategory哪里class_id =classid
集=康涅狄格州执行（查询）
如果不是（rs.eof和rs.bof）然后
getrootid = RS（rootid ）
其他的
getrootid = classid
最后如果
关闭
设置=无
端功能
编译后，在ASP使用。
功能getrootid（ByVal ID）得到的根类ID号
集s_db = server.createobject（sqlconn。DB ）
s_db.conn_open strsqlservername，strsqldbusername，strsqldbpassword，strsqldbname
getrootid = s_db.getrootid（ID）
集s_db =没有
端功能
