[求助]类型不匹配: 'cint' - ASP

祗↘爲.輝仔

电梯直达

1^#

发表于 2010-1-16 04:12:31 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我在编写下面的程序时，出现了这样的一个错误:错误类型：
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>
我现在该怎么办了呢，要改的话，在我这个程序里如何改了呢

收藏0