请教大虾们啦:这段代码到底是什么问题????????

来源：百度知道 编辑：UC知道 时间：2024/06/04 03:55:22
电脑的错误类型：
Microsoft VBScript 运行时错误 (0x800A000B)
被零除

这是个分页函数,有关参数:sfilename ----链接地址
' totalnumber ----总数量
' maxperpage ----每页数量
' ShowTotal ----是否显示总数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。
' strUnit ----计数单位

代码如下: <注:下面第四行有误>
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp &

if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
改为：
f totalnumber mod maxperpage=0 then
n= totalnumber / maxperpage
else
n= totalnumber / maxperpage+1
end if

粗略的看了下，顺便问一句，这是用什么写的？，斗胆猜测，试试把“\”改成 “/”。