参数类型不正确,该怎么解决
参数类型不正确
<!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_conn_STRING
rs_cmd.CommandText = "SELECT f_id, f_qymc, f_qyzch, f_gszt, f_swzt, f_qylx, f_fwlly FROM qyxxk"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 2
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<table width="1146" border="1" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="102" align="center">序号</td>
<td width="438" align="center">企业名称</td>
<td width="115" align="center">注册号</td>
<td width="105" align="center">工商状态</td>
<td width="115" align="center">税务状态</td>
<td width="119" align="center">服务联络员</td>
<td width="114" align="center">企业类型</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<tr>
<td align="center"><%=(rs.Fields.Item("f_id").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qymc").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qyzch").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_gszt").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_swzt").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_fwlly").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qylx").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
</table>
</form>
<%
rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page 参数类型不正确
%>
<div align="centre">
<table width="100%">
<tr>
<form action="<%=Myself%>?pages=<%=pages%>" method="get">
<td>
<p align="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a href="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a href="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
下一页</a>
<a href="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
最后一页</a>
<% End If %> <font size="2">输入页次:</font>
<input name="Page" size="3" class="s01" />
<font size="2">页:</font><font color="Red" size="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
</td>
</form>
</tr>
</table>
</div>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
参数类型不正确，麻烦大侠们帮我看下吧！在线等
------解决思路----------------------
两边类型不一致 一边是Clng 一边可能是int
本帖最后由 hanbing19841111 于 2015-03-03 12:47:44 编辑
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="Connections/conn.asp" -->
<%
Dim rs
Dim rs_cmd
Dim rs_numRows
Set rs_cmd = Server.CreateObject ("ADODB.Command")
rs_cmd.ActiveConnection = MM_conn_STRING
rs_cmd.CommandText = "SELECT f_id, f_qymc, f_qyzch, f_gszt, f_swzt, f_qylx, f_fwlly FROM qyxxk"
rs_cmd.Prepared = true
Set rs = rs_cmd.Execute
rs_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 2
Repeat1__index = 0
rs_numRows = rs_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<table width="1146" border="1" align="center" cellpadding="1" cellspacing="1">
<tr>
<td width="102" align="center">序号</td>
<td width="438" align="center">企业名称</td>
<td width="115" align="center">注册号</td>
<td width="105" align="center">工商状态</td>
<td width="115" align="center">税务状态</td>
<td width="119" align="center">服务联络员</td>
<td width="114" align="center">企业类型</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT rs.EOF))
%>
<tr>
<td align="center"><%=(rs.Fields.Item("f_id").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qymc").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qyzch").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_gszt").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_swzt").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_fwlly").Value)%></td>
<td align="center"><%=(rs.Fields.Item("f_qylx").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs.MoveNext()
Wend
%>
</table>
</form>
<%
rs.PageSize = 2 '每页显示记录数
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*(rs.PageSize-1)
rs.AbsolutePage = Page 参数类型不正确
%>
<div align="centre">
<table width="100%">
<tr>
<form action="<%=Myself%>?pages=<%=pages%>" method="get">
<td>
<p align="right">
<%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&pages=<%=pages%>">
第一页</a>
<a href="<%=Myself%>?Page=<%=(Page-1)%>&pages=<%=pages%>">
上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a href="<%=Myself%>?Page=<%=(Page+1)%>&pages=<%=pages%>">
下一页</a>
<a href="<%=Myself%>?Page=<%=rs.PageCount%>&pages=<%=pages%>">
最后一页</a>
<% End If %> <font size="2">输入页次:</font>
<input name="Page" size="3" class="s01" />
<font size="2">页:</font><font color="Red" size="2">第<%=Page%>页/共<%=rs.PageCount%>页</font></p>
</td>
</form>
</tr>
</table>
</div>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
参数类型不正确，麻烦大侠们帮我看下吧！在线等
------解决思路----------------------
两边类型不一致 一边是Clng 一边可能是int