总出现“未指定参数”！！的错误，求助！ - 编程论坛

#2

yms1232009-09-22 14:18

<%@ Language=VBScript%>














<%
wMcms_typeid=ChkRequest(request("wMcms_typeid"), 1)
'获得从URL里传来的值wMcms_typeid，ChkRequest为自定义函数作用未知可能在function.asp里存有自定义这个函数的代码

'判断传过来的参数是否为空或不是数字参数
if wMcms_typeid="" then
    Response.Write "<script>alert('未指定参数');history.back()</script>"
    response.end
else
    if not IsNumeric(wMcms_typeid) then
        response.write "<script>alert('非法参数');history.back()</script>"
        response.end
    else

        dim twMcms_typename
        set rs5=server.CreateObject("ADODB.RecordSet")'创建一个数据库记录集
        rs5.Source="select * from "& db_wMcms_type_Table &" where wMcms_typeid=" & wMcms_typeid &" order by wMcms_typeorder"
        '设置查询语句
        '查询参数db_wMcms_type_Table 传过来的表名条件为字段wMcms_typeid为参数wMcms_typeid 指定的字段按字段wMcms_typeorder排序
        '从以上SQL语句得出查询的表中必有wMcms_typeid和wMcms_typeorder两个字段，从写发上判断wMcms_typeid应该是数字类型的字段

        rs5.Open rs5.Source,conn,1,1 '打开记录集执行上面的查询语句

        '获得查询结果里wMcms_typename和wMcms_typeorder两个字段的值
        '由此可知查询的表中还有字段wMcms_typename
        twMcms_typename=rs5("wMcms_typename")
        wMcms_typeorder=rs5("wMcms_typeorder")

        '关闭数据库记录集清空内存
        rs5.Close
        set rs5=nothing
        %>
        <%
        dim wMcms_typeid'声明变量

        '获得URL里传来的参数wMcms_typeid，对其执行函数checkstr这个函数也是自定义函数
        wMcms_typeid=checkstr(request("wMcms_typeid"))

        set rs=server.CreateObject("ADODB.RecordSet")'打开记录集
        rs.Source="select * from "& db_wMcms_BigClass_Table &" where wMcms_typeid="& wMcms_typeid &" order by wMcms_bigclassorder"
        '继续带参数查询条件依然是wMcms_typeid等于参数的记录，结果按wMcms_bigclassorder字段排序
        rs.Open rs.Source,conn,1,1
        i=1

        '声明了3个大小为10000的数组
        Dim ArraywMcms_BigClassID(10000),ArraywMcms_BigClassName(10000),ArraywMcms_BigClassView(10000)

        '判断是否查询到结果
        if not rs.EOF then
            rseof=1
        end if
    end if

    '循环所有查询结果将结果传递给3个声明的数组里，由此可知结果记录数可能不会大于10000因为超过会报数组下标越界错误。
    while not rs.EOF
        abcount=rs.RecordCount
        wMcms_BigClassView=rs("wMcms_BigClassView")
        wMcms_BigClassID=rs("wMcms_BigClassID")

        wMcms_BigClassName=trim(rs("wMcms_BigClassName"))
        BigClasszs=rs("BigClasszs")

        ArraywMcms_BigClassView(i)=wMcms_BigClassView
        ArraywMcms_BigClassID(i)=wMcms_BigClassID
        ArraywMcms_BigClassName(i)=wMcms_BigClassName

        i=i+1

        rs.MoveNext
    wend
    rs.close
    %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www. lang="gb2312">
<head>

<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">


<meta name="Description" content="<%=SiteDescription%>">
<meta name="keywords" content="<%=SiteKeywords%>">
<title><%=twMcms_typename%>__<%=wMgov_Cn%></title>


<noscript><iframe scr="*"></iframe></noscript>
<script language="JavaScript1.2">

</script>

</head>
<body>

<div id="WM_Content">
<%
'依然是上面的那种查询代码，代码相似作用也差不多就不用解释了，参考上面的解释。
dim wMcms_typename
wMcms_typeid=checkstr(request("wMcms_typeid"))
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_wMcms_type_Table &" where wMcms_typeid="& wMcms_typeid &" order by wMcms_typeorder"
rs.Open rs.Source,conn,1,1
mode=rs("mode")
wMcms_typename=rs("wMcms_typename")
rs.close
set rs=nothing
%>

#3

水濂山人2009-09-22 15:23

老大注解好详细……yms123多大功夫呀。

#4

lzw_love12009-09-22 21:59

yms123,谢谢了，小弟感激不尽！！
爱死你了