总出现“未指定参数”！！的错误，求助！
别人写的代码，拿来改，总出现“未指定参数”！！的错误，求助！有些代码看不明白啥意思，请各位高手指点，谢了！
<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--'#include file="char.inc"-->
<%
wMcms_typeid=ChkRequest(request("wMcms_typeid"), 1)
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"
rs5.Open rs5.Source,conn,1,1
twMcms_typename=rs5("wMcms_typename")
wMcms_typeorder=rs5("wMcms_typeorder")
rs5.Close
set rs5=nothing
%>
<%
dim wMcms_typeid
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"
rs.Open rs.Source,conn,1,1
i=1
Dim ArraywMcms_BigClassID(10000),ArraywMcms_BigClassName(10000),ArraywMcms_BigClassView(10000)
if not rs.EOF then
rseof=1
end if
end if
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>
<!--LINK href="CSS/wMcms_default.css" rel="stylesheet"-->
<!--LINK href="CSS/wMcms_ly.css" rel="stylesheet"-->
<noscript><iframe scr="*"></iframe></noscript>
<script language="JavaScript1.2">
<!--
function makevisible(cur,which){
if (which==0)
cur.filters.alpha.opacity=100
else
cur.filters.alpha.opacity=20
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</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
%>
[ 本帖最后由 lzw_love1 于 2009-9-22 01:29 编辑 ]
