rs_star是哪一招〉“《 - ASP技术论坛

问题点数：0 回复次数：26

rs_star是哪一招〉“《

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/blog/index.asp, line 771, column 40
Response.Write(Left(rs_star("nickname"),))
---------------------------------------^

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; POTU(1.1))

网页：
GET /blog/index.asp

rs_star的定义是什么

<td width="167">呢??称：<font color="#F17494"><b><a href="love/show_find_friend.asp?username=<%=rs_star("username")%>" target="_blank"><%=Left(rs_star("nickname"),)%></a></b></font><br>
身高体重：<%=rs_star("height")%>cm/<%=rs_star("weight")%>kg<br>
性别年龄：<%=rs_star("sex")%>生/<%=year(date)-clng(rs_star("byear"))%>岁<br>
星座血型：<%=rs_star("constellation")%>/<%=rs_star("blood")%><br>
居住地区：<%=rs_star("work_city")%><br> </td>

搜索更多相关主题的帖子: star　

第 2 楼

得分:0

回复：（不惑）我看肯定是个表对象．然后是每个字段的...

我该这方式联结Access数据库

<%

Const AccessPath="51pcbook" ？？
Const AccessFile="sjzmssql.mdb" 这是我的数据库名
Const IPAccessFile="ipdata.asa" ？？
dim db,pass_word,user_id,data_source,connstr ？？

Dim Conn
On Error Resume Next
Set Conn= Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&AccessFile&"")
conn.Open connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write("<head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><title>ݿӳ�ִ</title></head><body><div align=""center"" style=""width:400px;height:100px;padding: 8px;font-size:9pt;border: 1px solid ThreeDShadow;POSITION:absolute;top:expression((document.body.offsetHeight-100)/2);left:expression((document.body.offsetWidth-400)/2);""><table width=""100%"" height=""100%"" style=""font-size:12px;font-family:Tahoma;""><tr><td align=""center""><strong>ݿӳ�ִ</strong></td></tr></table></div></body>")
Response.End
End If

%>

出现数据库连接出错，请检查连接字串.....

第 3 楼

得分:0

(rs_star("nickname"),３))

技术信息（用于支持人员）

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/blog/index.asp, 第 370 行

<%set rs=server.CreateObject ("ADODB.recordset")
sql="select * from public_note where object=2 order by time desc"
370 行 --> rs.Open sql,conn,3
if rs.RecordCount<>0 then

public_note=rs("public_note")

end if
rs.close
set rs=nothing
%>

第 4 楼

得分:0

回复：（不惑）Const AccessPath=

Const AccessPath="51pcbook"
Const AccessFile="sjzmssql.mdb"
Const IPAccessFile="ipdata.asa"
dim db,pass_word,user_id,data_source,connstr

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AccessFile)

数据库连接出错，请检查连接字串...