28,391
社区成员
发帖
与我相关
我的任务
分享类型不匹配: 'SafeRequest' 帮我解答
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'SafeRequest'
/bclass.asp, 第 10 行
下面是所有代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<title>新建网页 1</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="3" height="233" class=table>
<tr>
<td height="28" bgcolor="#014A2D">
<img border="0" src="images/member.jpg" width="176" height="25"></td>
</tr>
<tr>
<td><!--#include file="userlogin.asp" -->
</td>
</tr>
<tr>
<td bgcolor="#014A2D" height="28">
<p align="center"><b><font color="#FFFFFF">商品分类</font></b></td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_sort order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<table width=100% cellspacing="0" cellpadding="0" border="0">
<tr style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';">
<td height="25" class=table-xia width="943"><font color="#FF0000">·</font><a href="bclass.asp?bid=<%=rs("anclassid")%>"><b><%=rs("anclass")%></b></a></td>
<td height="25" class=table-xia width="34"><img src=images/jiantou.gif></td>
</tr>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from sh_sort2 where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then
%>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td height="25" width="977" colspan="2" > <a href="class2.asp?id=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>·<%rs_s.movenext
if rs_s.eof then
else
%><a href="class2.asp?id=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
</tr>
<%
rs_s.movenext
end if%>
<%
wend
end if
%>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#014A2D">
<p align="center"><b><font color="#FFFFFF">购物指南</font></b></td>
</tr>
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select top 7 * from klnews where ksid='购物指南' order by id desc"
rs.open sqltext,conn,1,1
%>
<table border="0" width="100%">
<%do while not rs.eof%>
<tr>
<td>·<a href="viewnews.asp?id=<%=rs("id")%>">
<% if len(trim(rs("name")))>23 then
response.write left(trim(rs("name")),22)&"…"
else
response.write trim(rs("name"))
end if%></a></td>
</tr>
<%rs.movenext
loop%>
</table>
</td>
</tr>
<tr>
<td bgcolor="#014A2D">
<p align="center"><b><font color="#FFFFFF">高级搜索</font></b></td>
</tr>
<tr>
<td>
<div align="center">
<table border="0" cellpadding="2" cellspacing="2" bgcolor="#FFFFFF">
<form name="form2" method="post" action="research.asp">
<tr>
<td width="36%" style="padding-left:6px"><div align="center">关 健 字</div></td>
<td width="64%" style="padding-left:6px">
<input name="searchkey" type="text" id="searchkey4" size="12">
</td>
</tr>
<tr>
<td style="padding-left:6px" width="36%">
<div align="center">查找方式</div></td>
<td style="padding-left:6px" width="64%">
<script>
var selects111=[];
<%dim i
set rs=server.createobject("adodb.recordset")
rs.open "select * from sh_pingpai order by pingpaiorder",conn,1,1
'有大类
%>
selects111['2']=new Array(
<%
if rs.recordcount>0 then
for i=1 to rs.recordcount
if i=rs.recordcount then
%>
new Option('<%=trim(rs("pingpainame"))%>','<%=trim(rs("pingpainame"))%>'));
<% else
%>
new Option('<%=trim(rs("pingpainame"))%>','<%=trim(rs("pingpainame"))%>'),
<%
end if
rs.movenext
next
else
%>
new Option('',''));
<%
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from sh_shihe order by shiheorder",conn,1,1
'有大类
%>
selects111['3']=new Array(
<%
if rs.recordcount>0 then
for i=1 to rs.recordcount
if i=rs.recordcount then
%>
new Option('<%=trim(rs("shihename"))%>','<%=trim(rs("shihename"))%>'));
<% else
%>
new Option('<%=trim(rs("shihename"))%>','<%=trim(rs("shihename"))%>'),
<%
end if
rs.movenext
next
else
%>
new Option('',''));
<%
end if
rs.close
set rs=nothing
%>
function showselect()
{
if (document.form2.action.value=="2") {
T_select.style.display = "";
//加入内容
with (document.form2){
if(action.value) {
selectname.options.length=0;
for(var i=0;i<selects111[action.value].length;i++){
selectname.add(selects111[action.value][i]);
}
}
}
}else{
T_select.style.display = "none";
}
}
</script>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<select name="action" id="action" onChange="showselect();">
<option value="1" selected>商品编号</option>
<option value="3">商品介绍</option>
</select>
</td>
<td>
<table border="0" cellspacing="0" cellpadding="0" id=T_select style="DISPLAY: none">
<tr>
<td>
<select name="selectname">
</select>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td style="padding-left:6px" width="36%">
<div align="center">价格范围</div></td>
<td style="padding-left:6px" width="64%">
<select name="jiage" id="jiage">
<option value="50" >50元以下</option>
<option value="100">100元以下</option>
<option value="500" selected>500元以下</option>
</select></td>
</tr>
<tr>
<td height="18" style="padding-left:6px" width="36%">
<div align="center">商品分类</div></td>
<td style="padding-left:6px" width="64%">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_sort order by anclassidorder",conn,1,1
%>
<select name="anclassid">
<option value="0">所有分类</option>
<%do while not rs.eof%>
<option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select></td>
</tr>
<tr>
<td height="23" colspan="2" style="padding-left:6px">
<div align="center">
<input type="image" border="0" name="submit" src="images/yemian/search1.gif" width="56" height="19" onClick="return checkk();">
</div></td>
</tr>
</form>
</table></div>
</td>
</tr>
</table>
</body>
</html>
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'SafeRequest'
/bclass.asp, 第 10 行
下面是所有代码:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<title>新建网页 1</title>
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="3" height="233" class=table>
<tr>
<td height="28" bgcolor="#014A2D">
<img border="0" src="images/member.jpg" width="176" height="25"></td>
</tr>
<tr>
<td><!--#include file="userlogin.asp" -->
</td>
</tr>
<tr>
<td bgcolor="#014A2D" height="28">
<p align="center"><b><font color="#FFFFFF">商品分类</font></b></td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_sort order by anclassidorder",conn,1,1
if rs.recordcount=0 then
response.write "<br>目前没有商品分类"
else
while not rs.eof
%>
<table width=100% cellspacing="0" cellpadding="0" border="0">
<tr style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';">
<td height="25" class=table-xia width="943"><font color="#FF0000">·</font><a href="bclass.asp?bid=<%=rs("anclassid")%>"><b><%=rs("anclass")%></b></a></td>
<td height="25" class=table-xia width="34"><img src=images/jiantou.gif></td>
</tr>
<%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from sh_sort2 where anclassid=" & rs("anclassid") & " order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then
%>
<%
else
i=0
while not rs_s.eof
%>
<tr>
<td height="25" width="977" colspan="2" > <a href="class2.asp?id=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a>·<%rs_s.movenext
if rs_s.eof then
else
%><a href="class2.asp?id=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><%=rs_s("nclass")%></a></td>
</tr>
<%
rs_s.movenext
end if%>
<%
wend
end if
%>
</table>
<%
rs_s.close
set rs_s=nothing
rs.movenext
wend
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" bgcolor="#014A2D">
<p align="center"><b><font color="#FFFFFF">购物指南</font></b></td>
</tr>
<tr>
<td>
<%
set rs=server.createobject("adodb.recordset")
sqltext="select top 7 * from klnews where ksid='购物指南' order by id desc"
rs.open sqltext,conn,1,1
%>
<table border="0" width="100%">
<%do while not rs.eof%>
<tr>
<td>·<a href="viewnews.asp?id=<%=rs("id")%>">
<% if len(trim(rs("name")))>23 then
response.write left(trim(rs("name")),22)&"…"
else
response.write trim(rs("name"))
end if%></a></td>
</tr>
<%rs.movenext
loop%>
</table>
</td>
</tr>
<tr>
<td bgcolor="#014A2D">
<p align="center"><b><font color="#FFFFFF">高级搜索</font></b></td>
</tr>
<tr>
<td>
<div align="center">
<table border="0" cellpadding="2" cellspacing="2" bgcolor="#FFFFFF">
<form name="form2" method="post" action="research.asp">
<tr>
<td width="36%" style="padding-left:6px"><div align="center">关 健 字</div></td>
<td width="64%" style="padding-left:6px">
<input name="searchkey" type="text" id="searchkey4" size="12">
</td>
</tr>
<tr>
<td style="padding-left:6px" width="36%">
<div align="center">查找方式</div></td>
<td style="padding-left:6px" width="64%">
<script>
var selects111=[];
<%dim i
set rs=server.createobject("adodb.recordset")
rs.open "select * from sh_pingpai order by pingpaiorder",conn,1,1
'有大类
%>
selects111['2']=new Array(
<%
if rs.recordcount>0 then
for i=1 to rs.recordcount
if i=rs.recordcount then
%>
new Option('<%=trim(rs("pingpainame"))%>','<%=trim(rs("pingpainame"))%>'));
<% else
%>
new Option('<%=trim(rs("pingpainame"))%>','<%=trim(rs("pingpainame"))%>'),
<%
end if
rs.movenext
next
else
%>
new Option('',''));
<%
end if
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open "select * from sh_shihe order by shiheorder",conn,1,1
'有大类
%>
selects111['3']=new Array(
<%
if rs.recordcount>0 then
for i=1 to rs.recordcount
if i=rs.recordcount then
%>
new Option('<%=trim(rs("shihename"))%>','<%=trim(rs("shihename"))%>'));
<% else
%>
new Option('<%=trim(rs("shihename"))%>','<%=trim(rs("shihename"))%>'),
<%
end if
rs.movenext
next
else
%>
new Option('',''));
<%
end if
rs.close
set rs=nothing
%>
function showselect()
{
if (document.form2.action.value=="2") {
T_select.style.display = "";
//加入内容
with (document.form2){
if(action.value) {
selectname.options.length=0;
for(var i=0;i<selects111[action.value].length;i++){
selectname.add(selects111[action.value][i]);
}
}
}
}else{
T_select.style.display = "none";
}
}
</script>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<select name="action" id="action" onChange="showselect();">
<option value="1" selected>商品编号</option>
<option value="3">商品介绍</option>
</select>
</td>
<td>
<table border="0" cellspacing="0" cellpadding="0" id=T_select style="DISPLAY: none">
<tr>
<td>
<select name="selectname">
</select>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td style="padding-left:6px" width="36%">
<div align="center">价格范围</div></td>
<td style="padding-left:6px" width="64%">
<select name="jiage" id="jiage">
<option value="50" >50元以下</option>
<option value="100">100元以下</option>
<option value="500" selected>500元以下</option>
</select></td>
</tr>
<tr>
<td height="18" style="padding-left:6px" width="36%">
<div align="center">商品分类</div></td>
<td style="padding-left:6px" width="64%">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sh_sort order by anclassidorder",conn,1,1
%>
<select name="anclassid">
<option value="0">所有分类</option>
<%do while not rs.eof%>
<option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select></td>
</tr>
<tr>
<td height="23" colspan="2" style="padding-left:6px">
<div align="center">
<input type="image" border="0" name="submit" src="images/yemian/search1.gif" width="56" height="19" onClick="return checkk();">
</div></td>
</tr>
</form>
</table></div>
</td>
</tr>
</table>
</body>
</html>
...全文
请发表友善的回复…
发表回复
