在asp里出现一个参数没有被指定值
这是代码<!--#includefile="../include/conn.asp"--><%dimstrSQL,cfield,typeInfordimselectInf...
这是代码
<!--#include file="../include/conn.asp"-->
<%
dim strSQL,cfield,typeInfor
dim selectInfor '定义选择条件
selectInfor=trim(Request("selectType"))
strSQL=Trim(Request("sql"))
typeInfor=trim(Request("setType"))
if trim(request("sqlbakbak")) = "" then ''第一次的sql
sqlbakbak=trim(request("sql"))
else
sqlbakbak=trim(request("sqlbakbak"))
end if
set rsLook=Server.CreateObject("ADODB.Recordset")
rsLook.Open strSQL,conn,3,2 '打开记录集
cfield=rsLook.fields.count '列数
'---------------------------------------- 如果没有找到记录则提示
if rsLook.eof and rsLook.bof then
response.write "<center><font size=2>暂时没有你找到您没有满足条件的记录!</font></center>"
response.end
response.Flush()
end if
'---------------------------------------- 如果有记录则分页开始
nPerPage = 20
rsLook.PageSize = nPerPage '每页显示的数目
nTotalRecord = rsLook.RecordCount '记录行数
''当前页面
nCurrentPage = Trim(Request.QueryString("page"))
'判断页面如果不合法或则<1则当前页为第一页
If Not IsNumeric(nCurrentPage) Then nCurrentPage=1
If nCurrentPage<1 Then nCurrentPage=1
nPageCount = rsLook.PageCount 'nPageCount页面数
If (nCurrentPage-nPageCount)>0 Then nCurrentPage=nPageCount '如果当前页>页面数则为最后页
rsLook.AbsolutePage = nCurrentPage 'AbsolutePage
flag = 0 '分页标志
%> 展开
<!--#include file="../include/conn.asp"-->
<%
dim strSQL,cfield,typeInfor
dim selectInfor '定义选择条件
selectInfor=trim(Request("selectType"))
strSQL=Trim(Request("sql"))
typeInfor=trim(Request("setType"))
if trim(request("sqlbakbak")) = "" then ''第一次的sql
sqlbakbak=trim(request("sql"))
else
sqlbakbak=trim(request("sqlbakbak"))
end if
set rsLook=Server.CreateObject("ADODB.Recordset")
rsLook.Open strSQL,conn,3,2 '打开记录集
cfield=rsLook.fields.count '列数
'---------------------------------------- 如果没有找到记录则提示
if rsLook.eof and rsLook.bof then
response.write "<center><font size=2>暂时没有你找到您没有满足条件的记录!</font></center>"
response.end
response.Flush()
end if
'---------------------------------------- 如果有记录则分页开始
nPerPage = 20
rsLook.PageSize = nPerPage '每页显示的数目
nTotalRecord = rsLook.RecordCount '记录行数
''当前页面
nCurrentPage = Trim(Request.QueryString("page"))
'判断页面如果不合法或则<1则当前页为第一页
If Not IsNumeric(nCurrentPage) Then nCurrentPage=1
If nCurrentPage<1 Then nCurrentPage=1
nPageCount = rsLook.PageCount 'nPageCount页面数
If (nCurrentPage-nPageCount)>0 Then nCurrentPage=nPageCount '如果当前页>页面数则为最后页
rsLook.AbsolutePage = nCurrentPage 'AbsolutePage
flag = 0 '分页标志
%> 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询