没分了，好心的朋友帮个忙（高难度的）

[califord]

有以下的长文章分页代码，小弟在链接上数据库后一直调试不成功，请指教。就是显示不了数据，而我用response.write却可以显示数据库里的内容

'函数名称：mySplit
'编写：Dnawo(http://www.mzwu.com/)
'功能说明：按分页标识mark分几页显示内容content，有分页列表
'参数说明：
'content：内容
'mark：分页标识
'调用格式：Response.write mySplit("aaa{!page}bbb{!page}ccc","{!page}")
Function mySplit(content,mark)
mySplit = mySplit + "<div id=""mzwucom_content""></div>" & vbcrlf
mySplit = mySplit + "<div id=""mzwucom_list"" style=""text-align:center""></div>" & vbcrlf
mySplit = mySplit + "<script language=""javascript"">" & vbcrlf
mySplit = mySplit + "function showpage(n){" & vbcrlf
mySplit = mySplit + " i = n;" & vbcrlf
mySplit = mySplit + " var list = """";//存放列表" & vbcrlf
mySplit = mySplit + " if(n>0){list = ""<input type='button' value='上一页' onclick='javascript:showpage("" + (i-1) + "");'> "";}" & vbcrlf
mySplit = mySplit + " document.getElementById(""mzwucom_content"").innerHTML = content[n];" & vbcrlf
mySplit = mySplit + " for(var j=0;j<content.length;j++){" & vbcrlf
mySplit = mySplit + " list += ""<a href='javascript:showpage("" + j + "");'>"" + (j+1) + ""</a> "";" & vbcrlf
mySplit = mySplit + " }" & vbcrlf
mySplit = mySplit + " if(i<count){list += ""<input type='button' value='下一页' onclick='javascript:showpage("" + (i+1) + "");'>"";}" & vbcrlf
mySplit = mySplit + " if(count != 0){document.getElementById(""mzwucom_list"").innerHTML = list;}" & vbcrlf
mySplit = mySplit + "}" & vbcrlf
mySplit = mySplit + "var i = 0;//存放当前页数" & vbcrlf
mySplit = mySplit + "var count;//存放数组长度" & vbcrlf
mySplit = mySplit + "var content = new Array(""" & Replace(content,mark,""",""") & """);//用数组存放各页内容" & vbcrlf
mySplit = mySplit + "count = content.length-1;" & vbcrlf
mySplit = mySplit + "showpage(0);//初始化" & vbcrlf
mySplit = mySplit + "</script>" & vbcrlf
End Function

MSN [e-mail]
QQ:17790092
在线...

[califord]

没有分，就没有人帮助吗？

[cow8063]

有什么错误

[califord]

原文地址http://www.mzwu.com/article.asp?id=719

[califord]

我已经用别的方法实现了，谢谢