ASP求救(添加点击率)
从首页(index.asp)经过连接<a href=before.asp?RecordNo="&RecordNo&">转到一个可以添加点击率的网页before,asp
before,asp的代码为
<%dim oConn,ssql
oConn.open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/aspbookmdb/aspbook.mdb")
Set oRs = Server.CreateObject( "ADODB.Recordset" )
'新闻阅读记数
sSql="Select vips From aspbook Where RecordNo="&request("RecordNo")
oRs.Open sSql,oConn,1,1
If Not oRs.Eof Then
oConn.execute "update aspbook set vips=vips+1 where RecordNo="&request("RecordNo")
End If %>
<%
Response.Redirect "show.asp?RecordNo=" & request("RecordNo")
%>
vips为票数~
再从before.asp转到show.asp
但是在我浏览的时候,在before.asp里面总是显示有错误:
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/before.asp,行 2
oConn.open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/aspbookmdb/aspbook.mdb")
---------------------------------------^
大虾们啊,怎样解决啊?
参考答案:oConn.open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/aspbookmdb/aspbook.mdb")
改为:
oConn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("admin/aspbookmdb/aspbook.mdb")