我写了一个过程 ,这然后在 首页 调用这个过程,就出了点问题,错误提示是,找不到项目什么之类的意思!请大家帮忙看下,也请版主 帮忙看下, 感激不尽! 代码如下
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--过程程序开始-->
<%public sub center()%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="26" align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" align="center" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<!--列表标题-->
<td height="35"><%response.Write "ID"%></td>
<td><%response.Write "留言标题"%></td>
<td><%response.Write "留言者"%></td>
<td><%response.Write "浏览次数"%></td>
<td><%response.Write "回复条数"%></td>
<td><%response.Write "留言时间"%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="35">
<%
'输出内容
set rs=server.CreateObject("adodb.recordset")
rs.open "select messageid,count(names) as sum from reg group by messageid order by messageid dese",conn,1,1
page=request.QueryString("page")
rs.pagesize=10
if int(page)="" then
page=1
elseif int(page)<1 then
page=1
else
page=int(page)
end if
rs.absolutepage=int(page)
do while rs.pagesize
call messages_xinxi(rs("messageid"))
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<td height="35"><%=id%></td>
<td><%=title%></td>
<td><%=names%></td>
<td><%=counts%></td>
<td><%=rs("sum")%></td>
<td><%=times%></td>
</tr>
</table>
<%
rs.movenext
loop
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
'分页程序开始
'第一部分 判断是否有上一页
response.Write "<a href='index.asp?page=1'>第一页</a>"
if Int(page)<=1 then
response.Write "已经是第一条了"
else
response.Write "<a href='index.asp?page="&page-1&"'>上一页</a>"
end if
'中间部分
if Int(page)>1 then p=1
end if
if Int(page)>2 then p=2
end if
if Int(page)>3 then p=3
end if
if Int(page)>4 then p=4
end if
'计算前4页
for i=Int(page)-p to Int(page)-1
if Int(page)>=Int(rs.pagecount) then
exit for
else
response.Write "<a href='index.asp?page="&i&"'>"&i&"</a>"
end if
next
'显示当前页
response.Write "["&page&"]"
'计算后4页
for i=Int(page)+1 to int(page)+4
response.Write "<a href='index.asp?page="&i&"'>"&i&"</a>"
next
'判断是否有下一页
if Int(page)>=rs.pagecount then
response.Write "已经是最后一条了"
else
response.Write "<a href='index.asp?page="&page+1&"'>下一页</a>"
end if
'分页程序结束
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--center()过程结束-->
<%end sub%>
</td>
</tr>
</table>
<%
'查询过程开始
public sub messages_xinxi(s)
set rs1=server.CreateObject("ADODB.Recordset")
rs1.open "select * from message where id="&s,conn,1,1
id=rs1("id")
title=rs1("title")
names=rs1("names")
counts=rs1("counts")
neirong=rs1("neirong")
times=rs1("times")
set rs1=nothing
end sub
'过程结束
%>
连接数据库文件在主页调用的, 此页面是在主页调用的 ,请大家看看，代码有什么错误,但我看了好几遍也没有找出来什么错误,所以 发上来 请大家帮忙 如果不够详细, 请大家下载
92s4uQ8n.rar
