UC知道请高手解决asp缺少对象的问题
来源：百度知道 编辑：UC知道 时间：2024/07/03 11:52:26
我在做一个日历，利用日历中每天的日期在数据库中调用数据，把我需要的数据显示在日历日期的下方，但是在老是出现缺少对象的问题，望高手帮忙解决！谢谢
<%@ Language=VBScript %>
<%
dim rs,conn,db,sql,rs1,rs2,rs3,sql1,sql2,sql3
set conn=server.createobject("adodb.connection")
db="js/111.mdb"
conn.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set rs= Server.CreateObject("adodb.recordset")
Set rs1= Server.CreateObject("adodb.recordset")
Set rs2= Server.CreateObject("adodb.recordset")
Set rs3= Server.CreateObject("adodb.recordset")
%>
<Html>
<Title>
小日历
</title>
<body>
<%
Function CountDays(iMonth,iYear)
Select Case iMonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/" & iYear) Then
CountDays=29
else
CountDays=28
en
<%@ Language=VBScript %>
<%
dim rs,conn,db,sql,rs1,rs2,rs3,sql1,sql2,sql3
set conn=server.createobject("adodb.connection")
db="js/111.mdb"
conn.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set rs= Server.CreateObject("adodb.recordset")
Set rs1= Server.CreateObject("adodb.recordset")
Set rs2= Server.CreateObject("adodb.recordset")
Set rs3= Server.CreateObject("adodb.recordset")
%>
<Html>
<Title>
小日历
</title>
<body>
<%
Function CountDays(iMonth,iYear)
Select Case iMonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/" & iYear) Then
CountDays=29
else
CountDays=28
en
很乱很难看
conn.Open ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
改为：
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
或者：
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
'应该不需要=号吧