VBScript 里面的语法错误！！高手帮解答一下啊！

swalp 2009-08-31 10:22:25

说我这句function showpage(totalnumber,maxperpage,filename)语法错误
代码如下！



function showpage(totalnumber,maxperpage,filename)

	dim n

	if totalnumber mod maxperpage=0 then

		n= totalnumber \ maxperpage

	else

		n= totalnumber \ maxperpage+1

	end if

	response.write "<table width='90%' border='0' align='center' cellpadding='3' cellspacing='0' class='BoderTab'>"

	response.write "<form method=Post action="""&filename&"""><tr><td align=center>"

	

	if CurrentPage<2 then

		response.write "共<b><font color=red>"&totalnumber&"</font></b>条 首页 上一页 "

	else

		response.write "共<b><font color=red>"&totalnumber&"</font></b>条留言 "

		response.write "<a href="&filename&"?O=1&p=1>首页</a> "

		response.write "<a href="&filename&"?O=1&p="¤tPage-1&">上一页</a> "

	end if

	

	if n-currentpage<1 then

		response.write "下一页 尾页"

	else

		response.write "<a href="&filename&"?O=1&p="&(CurrentPage+1)&">"

		response.write "下一页</a> <a href="&filename&"?O=1&p="&n&">尾页</a>"

	end if

	response.write " 页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页 "

	response.write " <b>"&maxperpage&"</b>条留言/页 "

	%>

	  转到： 

	  <select name='p' size='1' style="font-size: 9pt" onChange='javascript:submit()'>

		<%for i = 1 to n%>

		<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>

		<%next%>

	  </select>

	<input type=hidden name="O" value=1>

	<%   

	response.write "</td></tr></FORM></table>"

end function

...全文

82 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

hookee 2009-08-31

打赏
举报

定义了Sub ShowMes，但没找到End Sub

swalp 2009-08-31

打赏
举报

上面包含的文件没有的！

swalp 2009-08-31

打赏
举报

据我估计应该是函数的位置写错了！但是又不知道该放在哪!!我把全部的代码都贴出来，大家看看吧！！！



<!--#include file="aatest.asp"-->

<%

    dim conn

    dim connstr

    dim db

    dim rsd

    db="../Database/zf11.mdb"'"gundongLink.mdb" '设定数据名称,建议改成.asp

    'On error resume next

    Set conn = Server.CreateObject("ADODB.Connection")

    Set rsd=Server.CreateObject("ADODB.Recordset")

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



if err.number>0 then 

		err.clear

		set conn=nothing

		response.write "数据库连接出错！"

		Response.End

end if

conn.open connstr





%>



<%

dim maxperpage

dim totalPut

dim CurrentPage

'修改此处用于修改每页显示的留言数量

maxperpage=15

if not isempty(request("p")) then

	currentPage=cint(request("p"))

else

	currentPage=1

end if



%>

<%

sqlb="select * from zf11_gb"

rsd.open sqlb,conn,1,3

if not rsd.eof then

	totalPut=rsd.recordcount

	if currentpage<1 then

		currentpage=1

	end if

	if (currentpage-1)*MaxPerPage>totalput then

	if (totalPut mod MaxPerPage)=0 then

		currentpage= totalPut \ MaxPerPage

	else

		currentpage= totalPut \ MaxPerPage + 1

	end if

	end if

	if currentPage=1 then

		ShowMes

		call showpage (totalput,MaxPerPage,"")

	else

		if (currentPage-1)*MaxPerPage<totalPut then

			rs.move  (currentPage-1)*MaxPerPage

			dim bookmark

			bookmark=rsd.bookmark

			ShowMes

			call showpage (totalput,MaxPerPage,"")

		else

			currentPage=1

			ShowMes

			call showpage (totalput,MaxPerPage,"")

		end if

	end if

end if



%>

<%

Sub ShowMes

dim j

j=0



do while not rsd.eof

	if j mod 2 =0 then

	 BG="#F1F1F1"

	else

	 BG="#FFFFFF"

	end if

%>





<%

dim strData

strData=request.form("rcID")

'strData= "'" & replace(strData,",","','") & "'" 

if request("action")="alldel" then 

  dim i

  i = 0

  conn.execute "delete from zf11_gb where id in(" & request.form("rcID") &")" 

  'conn.execute "delete from zf11_gb where id in(" & Int(Trim(strData)) &")" 

  'response.write "<script>history.back();</Script>" 'history.back();

  response.write "<script>alert('删除成功！')</Script>"

  response.redirect "delete.asp"

  Response.end

end if

		 

%>

<html>



<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>滚动链接管理</title>

<link href="../other/admin.css" rel="stylesheet" type="text/css">

<SCRIPT language=javascript>

function unselectall()

{

    if(document.del.chkAll.checked){

	document.del.chkAll.checked = document.del.chkAll.checked&0;

    } 	

}



function CheckAll(form)

  {

  for (var i=0;i<form.elements.length;i++)

    {

    var e = form.elements[i];

    if (e.Name != "chkAll")

       e.checked = form.chkAll.checked;

    }

  }

function ConfirmDel()

{

   if(confirm("确定要删除选中的信息吗？一旦删除将不能恢复！"))

     return true;

   else

     return false;	 

}

</SCRIPT>



</head>



<body>



<form name="del" method="Post" action="?action=alldel" onsubmit="return ConfirmDel();">

<table width="95%" border="0"  align=center cellpadding="2" cellspacing="1" bgcolor="#277EC0" class=list1>

<tr>

	<td colspan=3>

	<p align="center"><b><font color="#FFFFFF">批量删除管理</font></b></td>

</tr>

<%

sql="select id,name,email from zf11_gb"

Set rs= Server.CreateObject("ADODB.Recordset") 

rs.open sql,conn,1,1 

if rs.eof then

%>

<tr>

	<td colspan=3 bgcolor=#FFFFFF height="21">

	<p align="center"><font color="#000000">没有留言</font></td>

</tr>

<%else%>

<tr bgcolor="#FFFFFF">

	<td>

	<p align="center"><font color="#277EC0"><b>选择</b></font></td>

	<td>

	<p align="center"><font color="#277EC0"><b>姓名</b></font></td>

	<td><font color="#277EC0"><b>Email</b></font></td>

</tr>

<%do while not rs.eof%>

<tr bgcolor="#FFFFFF">

	<td><p align="center"><input name='rcID' type='checkbox' onclick="unselectall()" id="rcID" value='<% = rs("id")%>'></td>

	<td><%=rs("name")%></td>

	<td><%=rs("email")%></td>

</tr>

<%

rs.movenext 

loop 

%>



<%

end if

rs.close

conn.close

set rs=nothing

set conn=nothing





%>

<td colspan="7"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">

              选中本页显示的所有记录<input name="submit" type='submit' value='删除选定的信息'></td>

</table>

</form>

<%

function showpage(totalnumber,maxperpage,filename)

   dim n

	if totalnumber mod maxperpage=0 then

		n= totalnumber \ maxperpage

	else

		n= totalnumber \ maxperpage+1

	end if

	response.write "<table width='90%' border='0' align='center' cellpadding='3' cellspacing='0' class='BoderTab'>"

	response.write "<form method=Post action="""&filename&"""><tr><td align=center>"

	

	if CurrentPage<2 then

		response.write "共<b><font color=red>"&totalnumber&"</font></b>条 首页 上一页 "

	else

		response.write "共<b><font color=red>"&totalnumber&"</font></b>条留言 "

		response.write "<a href="&filename&"?O=1&p=1>首页</a> "

		response.write "<a href="&filename&"?O=1&p="¤tPage-1&">上一页</a> "

	end if

	

	if n-currentpage<1 then

		response.write "下一页 尾页"

	else

		response.write "<a href="&filename&"?O=1&p="&(CurrentPage+1)&">"

		response.write "下一页</a> <a href="&filename&"?O=1&p="&n&">尾页</a>"

	end if

	response.write " 页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页 "

	response.write " <b>"&maxperpage&"</b>条留言/页 "

	%>

	  转到： 

	  <select name='p' size='1' style="font-size: 9pt" onChange='javascript:submit()'>

		<%for i = 1 to n%>

		<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>

		<%next%>

	  </select>

	<input type=hidden name="O" value=1>

	<%   

	response.write "</td></tr></FORM></table>"

	return 2



end Function

%>

</body>



</html>

草原可可 2009-08-31

打赏
举报

是不是调用问题你单独调用看看

hookee 2009-08-31

打赏
举报

上面的定义肯定没有语法错，除非重复定义了showpage
具体报什么语法错误?

改个小地方



function showpage(totalnumber,maxperpage,filename)

    dim n

    if totalnumber mod maxperpage=0 then

        n= totalnumber \ maxperpage

    else

        n= totalnumber \ maxperpage+1

    end if

    response.write "<table width='90%' border='0' align='center' cellpadding='3' cellspacing='0' class='BoderTab'>"

    response.write "<form method=Post action="""&filename&"""><tr><td align=center>"

    

    if CurrentPage<2 then

        response.write "共<b><font color=red>"&totalnumber&"</font></b>条 首页 上一页 "

    else

        response.write "共<b><font color=red>"&totalnumber&"</font></b>条留言 "

        response.write "<a href="&filename&"?O=1&p=1>首页</a> "

        response.write "<a href="&filename&"?O=1&p="¤tPage-1&">上一页</a> "

    end if

    

    if n-currentpage<1 then

        response.write "下一页 尾页"

    else

        response.write "<a href="&filename&"?O=1&p="&(CurrentPage+1)&">"

        response.write "下一页</a> <a href="&filename&"?O=1&p="&n&">尾页</a>"

    end if

    response.write " 页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页 "

    response.write " <b>"&maxperpage&"</b>条留言/页 "

    response.write "转到：" 

    response.write "  <select name='p' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>"

    for i = 1 to n

        response.write "<option value='" & i & "'"

        if CurrentPage=cint(i) then

           response.write " selected"

        end If

        response.write ">第" & i  & "页</option>"

    next

    response.write "</select>"

    response.write "<input type=hidden name=""O"" value=1>"

    response.write "</td></tr></FORM></table>"

end Function

凡夫与俗子 2009-08-31

打赏
举报

函数本身没错吧。。调用的时候出错？

swalp 2009-08-31

打赏
举报

这样也不行，都用response.write 还是提示定义函数那句有语法错误！！

hookee 2009-08-31

打赏
举报



function showpage(totalnumber,maxperpage,filename)

    dim n

    if totalnumber mod maxperpage=0 then

        n= totalnumber \ maxperpage

    else

        n= totalnumber \ maxperpage+1

    end if

    response.write "<table width='90%' border='0' align='center' cellpadding='3' cellspacing='0' class='BoderTab'>"

    response.write "<form method=Post action="""&filename&"""><tr><td align=center>"

    

    if CurrentPage<2 then

        response.write "共<b><font color=red>"&totalnumber&"</font></b>条 首页 上一页 "

    else

        response.write "共<b><font color=red>"&totalnumber&"</font></b>条留言 "

        response.write "<a href="&filename&"?O=1&p=1>首页</a> "

        response.write "<a href="&filename&"?O=1&p="¤tPage-1&">上一页</a> "

    end if

    

    if n-currentpage<1 then

        response.write "下一页 尾页"

    else

        response.write "<a href="&filename&"?O=1&p="&(CurrentPage+1)&">"

        response.write "下一页</a> <a href="&filename&"?O=1&p="&n&">尾页</a>"

    end if

    response.write " 页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页 "

    response.write " <b>"&maxperpage&"</b>条留言/页 "

    response.write "转到：" 

    response.write "  <select name='p' size='1' style=""font-size: 9pt"" onChange='javascript:submit()'>"

    for i = 1 to n

        response.write "<option value='" & i & "'"

        if CurrentPage=cint(i) then

           response.write " selected"

        end If

        response.write "第" & i  & "页</option>"

    next

    response.write "</select>"

    response.write "<input type=hidden name=""O"" value=1>"

    response.write "</td></tr></FORM></table>"

end Function