版主的链接代码
<%
Dim db,strConn,dbname,dbsrc,srcname
dbsrc="database\" '数据库的路径
dbname="sjzmssql.mdb" ' 数据库名
srcname=database&sjzmssql.mdb
strConn="Dbq="&Server.Mappath(srcname)&";Driver={Microsoft Access Driver (*.mdb)};"
strConn="Dbq="&Server.Mappath(srcname)&";Driver={Microsoft Access Driver (*.mdb)};" <--或是
Set db=Server.CreateObject("ADODB.Connection")
db.Open strConn
%>
<%
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from selfdata"
rs.Open strSql,db,1
%>
技术信息(用于支持人员)
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'sjzmssql'
/blog/love/const.asp, 第 6 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; POTU(1.1))
网页:
GET /blog/index.asp