调用DVBBS里回复数的问题(百思不得其解，希望高手指点一二)

2006-08-17 12:55:25 92 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Linux下PyCharm稳定安装与深度调优指南 PyCharm作为Java虚拟机驱动的重型IDE，在Linux平台面临桌面环境碎片化、图形渲染依赖复杂、系统级权限模型不兼容等典型挑战。其启动失败往往源于OpenGL版本不足、字体配置缺失、X11访问控制异常或共享内存限制等底层机制问题，而非单纯Python环境配置错误。理解JBR运行时与系统JDK的职责边界、掌握`ldd`/`strace`/`journalctl`等诊断工具链、区分Snap沙箱与`.tar.gz`自包含部署的本质差异，是构建稳定开发环境的技术基础。本文聚焦Ubuntu、KDE、统信UOS 阅读详情

我想在网站的投票系统里加入这个项目在论坛里相关贴子的回复数

这是投票网站的CONN文件
<%
dbName="manage/#s8vc5h_#FOoO_/u#n38g_##k_r33.asp"
dbType="ACCESS"
Class MyConn
Dim objCon,ot_conn
Private Sub Class_Initialize()
Dim strDBPath
'On Error Resume Next
If dbType = "ACCESS" Then
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbName)

ElseIf dbType="MsSqlServer" Then
strConn="DRIVER={SQL Server};SERVER=" & SqlName & ";UID=" & SqlUID &";PWD=" & SqlPWD &";DATABASE=" & dbName

End If

Set objCon=CreateObject("Adodb.Connection")
objCon.Open strConn
'Call ErrMsg()

End Sub

Public Property Get ActiveConn()
Set ActiveConn=objCon
End Property

'返回一个静态数据集
Public Function ExecuteSql(strSql)
'On Error Resume Next
Set ExecuteSql=objCon.Execute(strSql)
'Call ErrMsg()
End Function

'返回一个指定类型的数据集
Public Function DoSql(strSql,intCursorLocation,intLockType)
'On Error Resume Next
Dim objRs
Set objRs=CreateObject("Adodb.Recordset")
objRs.Open strSql,objCon,intCursorLocation,intLockType
Set DoSql=objRs
Set objRs=Nothing
'Call ErrMsg()
End Function

Private Sub Class_Terminate()
objCon.Close
Set objCon=Nothing
End Sub
Private Sub ErrMsg()
If Err.number<>0 Then
err.Clear
Set objCon = Nothing
Response.Write "<html><body oncontextmenu='return false'>"
Response.Write "<br>"
Response.Write "<p align=left style='font-size:9pt'>"
Response.Write " 对不起！系统参数错误,请与管理员联系。"
Response.Write "</p>"
Response.Write "</body></html>"
Response.End
End If
End Sub
End Class
Set objconn=new myconn
%>

在投票页面连接动网数据库，并且现有数据库里的TITLEBBS这个字段和动网的TITLE字段比较

<%
bbsname=rs("titlebbs")
dim sql,rs3
response.write("数据："&bbsname)
ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/#ExBBS05_06.asp") 'access外部数据库连接字符串
'ot_connstr = "Provider = Sqloledb; User ID = ***; Password = ***; Initial Catalog = ***; Data Source = ***;" 'sql外部数据库连接字符串
Set ot_conn = Server.CreateObject("ADODB.Connection")
ot_conn.open ot_connStr '外部数据库连接

set rs7=server.createobject("adodb.recordset")
sql="select * from dv_topic where title="&rs("titlebbs")
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^出错就在这行, 提示
ADODB.Recordset 错误 '800a0bb9'

变量或者类型不正确，或者不在可以接受的范围之内，要不就是与其他数据冲突。

rs7.open sql,conn,1,3
%>

希望高手指点，谢谢了。。。。

...全文