马上办下载:Microsoft VBScript 运行时错误 错误 '800a000d' /txl/index.asp,行 99
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/12 07:47:02
这是我的代码:
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/wasp.asp" -->
<%
dim b,ii,sql
b=(request.SERVERVARIABLES("POTY_INFO"))
ii=request("fengl")
Select case ii
case "lei"
sql="SELECT * FROM [txl] WHERE lei="&request("leiid")
case "all"
sql="SELECT * FROM [txl] WHERE (name like '%"&request("sous")&"%') Ro (xingb like '%"&request("sous")&"%')"
case "name"
sql="SELECT * FROM [txl] WHERE (name like '%"&request("sous")&"%')"
case "xingb"
sql="SELECT * FROM [txl] WHERE (xingb like '%"&request("sous")&"%')"
case "chengs"
sql="SELECT * FROM [txl] WHERE (chengs like '%"&request("sous")&"%')"
end Select
Const PAGESIZE=18
page = request("page")
if page = "" or IsNull(page) or (not IsNumeric(page)) then page = 1
page = Cint(page)
set rs=server.CreateObject("adodb.recordset")
if request("leiid")="" then
sql="select * from txl order by id desc"
else
sql="select * from txl where lei="&request("leiid")&" order by id desc"
end if
rs.open sql,conn,1,1
recordcount =RS.RecordCount
RS.PageSize = PAGESIZE
pagecount =RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<script type="text/JavaScript">
<tr>
<td height="20" class="css"><%=rs("name")%></td>
<td height="20" class="css"><%=rs("xingb")%></td>
<td height="20" class="css"><%=rs("QQ")%></td>
<td height="20" class="css"><%=rs("tele")%></td>
<td height="20" class="css"><%=rs("mail")%></td>
<td height="20" class="css"><%=rs("chengs")%></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
%>
<tr>
<td height="20" colspan="6" align="right"><a href="<%=b%>?page=1&leiid=<%request("leiid")%>" class="css">首页</a> <a href="<%=b%>?page=<%=page-1%>&leiid=<%request("leiid")%>">上一页</a> <a href="<%=b%>?page=<%=page+1%>&leiid=<%request("leiid")%>">下一页</a> <a href="index.asp?page=<%=pagecount%>&leiid=<%request("leiid")%>">尾页</a><a href="<%=b%>?page=<%=pagecount%>&leiid=<%request("leiid")%>"></a> 共<%=pagecount%>页 <%=page%>/<%=pagecount%>
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%for jj=1 to pagecount%>
<option value="<%=b%>?page=<%=jj%>&leiid=<%request("leiid")%>"<%if jj=page then%> selected="selected"<%end if %>><%=jj%></option>
<%next%></select></td>
第99行是
<td height="20" class="css"><%=rs("name")%></td>
上面有大写的RS 我把它也换成小写时也不行啊!!
那个高手帮一下我!!
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/wasp.asp" -->
<%
dim b,ii,sql
b=(request.SERVERVARIABLES("POTY_INFO"))
ii=request("fengl")
Select case ii
case "lei"
sql="SELECT * FROM [txl] WHERE lei="&request("leiid")
case "all"
sql="SELECT * FROM [txl] WHERE (name like '%"&request("sous")&"%') Ro (xingb like '%"&request("sous")&"%')"
case "name"
sql="SELECT * FROM [txl] WHERE (name like '%"&request("sous")&"%')"
case "xingb"
sql="SELECT * FROM [txl] WHERE (xingb like '%"&request("sous")&"%')"
case "chengs"
sql="SELECT * FROM [txl] WHERE (chengs like '%"&request("sous")&"%')"
end Select
Const PAGESIZE=18
page = request("page")
if page = "" or IsNull(page) or (not IsNumeric(page)) then page = 1
page = Cint(page)
set rs=server.CreateObject("adodb.recordset")
if request("leiid")="" then
sql="select * from txl order by id desc"
else
sql="select * from txl where lei="&request("leiid")&" order by id desc"
end if
rs.open sql,conn,1,1
recordcount =RS.RecordCount
RS.PageSize = PAGESIZE
pagecount =RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<script type="text/JavaScript">
<tr>
<td height="20" class="css"><%=rs("name")%></td>
<td height="20" class="css"><%=rs("xingb")%></td>
<td height="20" class="css"><%=rs("QQ")%></td>
<td height="20" class="css"><%=rs("tele")%></td>
<td height="20" class="css"><%=rs("mail")%></td>
<td height="20" class="css"><%=rs("chengs")%></td>
</tr>
<%
rs.movenext
next
rs.close
set rs=nothing
%>
<tr>
<td height="20" colspan="6" align="right"><a href="<%=b%>?page=1&leiid=<%request("leiid")%>" class="css">首页</a> <a href="<%=b%>?page=<%=page-1%>&leiid=<%request("leiid")%>">上一页</a> <a href="<%=b%>?page=<%=page+1%>&leiid=<%request("leiid")%>">下一页</a> <a href="index.asp?page=<%=pagecount%>&leiid=<%request("leiid")%>">尾页</a><a href="<%=b%>?page=<%=pagecount%>&leiid=<%request("leiid")%>"></a> 共<%=pagecount%>页 <%=page%>/<%=pagecount%>
<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%for jj=1 to pagecount%>
<option value="<%=b%>?page=<%=jj%>&leiid=<%request("leiid")%>"<%if jj=page then%> selected="selected"<%end if %>><%=jj%></option>
<%next%></select></td>
第99行是
<td height="20" class="css"><%=rs("name")%></td>
上面有大写的RS 我把它也换成小写时也不行啊!!
那个高手帮一下我!!