新微赢技术网

标题: [求助]类型不匹配: 'cint' [打印本页]

作者: 祗↘爲.輝仔 时间: 2010-1-16 04:12
标题: [求助]类型不匹配: 'cint'
我在编写下面的程序时，出现了这样的一个错误:错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'cint'
这是什么意思啊，　我搞不懂，我的代码如下:

<html>
<head><title></title></head>
<style>

</style>
</head><body style="font:10pt;margin-left:4pt">
<font color="#ff0000">您的位置:会员社区</font><hr color="#999933" size="1" />
<br />
<a style="color:blue;cursor:hand;font:10pt;text-decoration:underline" onClick="window.open('noteadd.htm','_blank','toolbars=no,scrollbars=yes,width=470,height=440')">添加新留言</a>    <font style="font:10pt;color:#cc66ff">如果您看不到自己的留言，单击刷新按钮，稍候即可</font>
<table width=570 border=0 cellpadding="0" cellspacing="1" bordercolor="#baccff">
<%
dim ipagesize
ipagesize=15
page=request.QueryString("page")
if page="" then
page=1
end if
set conn=server.CreateObject("adodb.connection")
conn.open connstring
set objnoters=server.CreateObject("adodb.recordset")
ssql="select * from notebook order by notetime desc"
objnoters.open ssql,conn,1,3
if objnoters.eof then
response.write"目前还没有任何文章信息！"
response.end
end if
response.write"<tr bgcolor=#baccff class=class1 align=center><td width=50>序号</td><td width=140>主题</td><td width=70>作者</td><td width=140>E-mail</td><td width=130>留言时间</td><td width=40>阅读数</td></tr>"
objnoters.pagesize=ipagesize
pagetotal=objnoters.pagecount
objnoters.absolutepage=page
response.Write"<tr><td colspan=""6""><table width=""100%"" border=0 cellspacing=0 cellpadding=2 bgcolor=#eeeeee>"
for position=1 to ipagesize
response.write"<tr align='center'><td width='50'>"
if objnoters("status")=0 then
response.Write cint(right(objnoters("noteid"),5))
else
response.Write"<font color=#ff00ff>回文</font>"
end if
response.write"</td>"
response.write"<td width=150>"
%>
<a style="cursor:hand;color:blue;text-decoration:underline" onClick="window.open('noteview.asp?noteid=<%=objnoters("noteid")%>','_blank','toolbars=no,scrollbars=yes,width=320,height=300')"><%=objnoters("subject")%></a>
<%
response.write"</td>"
response.write"<td width=80>"& objnoters("userid")&"</td>"
response.write"<td width=140>"
%><a href="mailto:<%=objnoters("email")%>"><%=objnoters("email")%></a>
<%
response.write"</td>"
response.write"<td width=130>"&objnoters("notetime")&"</td>"
objnoters.movenext
if objnoters.eof then
exit for
end if
next
%></table></td></tr>
</table>
<%
response.write"   页码:"
for pagetemp=1 to pagetotal
if pagetemp=cint(page) then
response.write"<font color=#cc00ff>"&pagetemp&"></font>"
else
%>
<font color=#009900>
<a href="mainnote.asp?page=<%=pagetemp%>"><%=pagetemp%></a></font>
<%
end if
next
%>
</body>
</html>
我现在该怎么办了呢，要改的话，在我这个程序里如何改了呢

作者: 遗失ぜ的ァ美 时间: 2010-1-16 04:12
是指你对非数据的东东进行了数据转换
比如cint("123.11")得到的是123
但cint("abc")得到的就是你这样的错误.

作者: 左手的云 时间: 2010-1-16 04:12
那你说我这个要怎么改啊，我不知道怎么改啊，我这个程序是在书上弄下来的，运行了一下，就有这样的一个错误，里面还有的程序我都有点看不懂，所以啊，就不知道我该怎么改了，你帮我改改了，告诉我要在那里改了，怎么改。

作者: aiq無奈tx 时间: 2010-1-16 04:12
你输出一下这个看看显示的是什么?
Response.Write(right(objnoters("noteid"),5))

作者: 波少 时间: 2010-1-23 14:05
情缘采集器站长必备的维护软件，全自动采集，发帖，顶贴，宣传

作者: bmw 时间: 2010-3-20 06:05
如此佳作，不顶说不过去，楼下的继续顶，直到把宇宙顶穿

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)