佬大帮帮忙了。小弟的那里编错了。请指点，最好能帮改好一下
<!--#include file= "checkaleave.asp "-->
<!--#include file= "conn.asp "-->
<!--#include file= "chk_pass.asp "-->
<%
if cint(session( "aleave "))=4 then
chk_pass( "ck2 ")
end if
%>
<%
page=clng(request.Querystring( "page "))
guize=request( "guize ")
seastr=request( "seastr ")
if guize= "one " then
fromend=now()
fromnow=dateadd( "d ",-1,now())
sql= "select * from model where infotime Between # "&fromnow& "# and # "&fromend& "# "
end if
if guize= "tow " then
fromend=now()
fromnow=dateadd( "d ",-3,now())
sql= "select * from model where infotime Between # "&fromnow& "# and # "&fromend& "# "
end if
if guize= "three " then
fromend=now()
fromnow=dateadd( "d ",-7,now())
sql= "select * from model where infotime Between # "&fromnow& "# and # "&fromend& "# "
end if
if guize= "allmol " or len(guize)=0 then
sql= "select * from model order by id desc "
end if
if guize= "mjiaju " then
sql= "select * from model where fenglei1 <> '灯具/照明 ' and fenglei1 <> '其它 ' order by id desc "
end if
if guize= "mdeng " then
sql= "select * from model where fenglei1= '灯具/照明 ' order by id desc "
end if
if guize= "mshipin " then
sql= "select * from model where fenglei1= '其它 ' order by id desc "
end if
if guize= "shencha " then
sql= "select * from model where shouye=false order by id desc "
end if
if len(seastr) <> 0 then
sql= "select * from model where model_name like '% " & seastr & "% ' order by id desc "
end if
dim rs
set rs=server.createobject( "adodb.recordset ")
rs.open sql,conn,1,1
%>
<Html>
<head>
<title> 模型文件管理 </title>
<link href= "../css.css " rel= "stylesheet " type= "text/css ">
<style type= "text/css ">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
</head>
<body>
<br>
<center> 模型文件管理 </center>
<br>
<table width= "90% " cellpadding= "0 " cellspacing= "1 " bgcolor= "#000000 " align= "center ">
<tr bgcolor= "#ffffff ">
<form action= "mange_model.asp " method= "post " name= "form1 ">
<td colspan= "4 " align= "center "> <select name= "guize " class= "input " style= "150px ">
<option selected value= "allmol "
<%
if guize= "allmol " then
response.Write "selected "
end if
%>
> 显示所有模型 </option>
<option value= "mjiaju "
<%
if guize= "mjiaju " then
response.Write "selected "
end if
%>
> 查看家具模型 </option>
<option value= "mdeng "
<%
if guize= "mdeng " then
response.Write "selected "
end if
%>
> 查看灯具模型 </option>
<option value= "mshipin "
<%
if guize= "mshipin " then
response.Write "selected "
end if
%>
> 查看饰品模型 </option>
<option value= "shencha "
<%
if guize= "shencha " then
response.Write "selected "
end if
%>
> 查看末通过审查模型 </option>
<option value= "one "
<%
if guize= "one " then
response.Write "selected "
end if
%>
> 24小时之内上传的模型 </option>
<option value= "tow "
<%
if guize= "tow " then
response.Write "selected "
end if
%>
> 3天之内上传的模型 </option>
<option value= "three "
<%
if guize= "three " then
response.Write "selected "
end if
%>
> 1周之内上传的模型 </option>
</select> <input type= "submit " value= "确定 " class= "input "> </td> </form>
<form action= "mange_model.asp " method= "post " mane= "form2 ">
<td colspan= "4 " align= "center " style= "border-right:1px solid #000000 "> 模型搜索 <input class= "input " type= "text " name= "seastr "> <input type= "submit " value= "确定 " class= "input "> </td> </form> </tr>
<%
if rs.eof and rs.bof then
response.write " <tr bgcolor= '#ffffff '> <td colspan= '6 '> 没有任何模型文件！ </td> </tr> "
else
rs.pagesize=15
if page=0 then page=1
pages=rs.pagecount
rs.absolutepage=page
%>
<tr bgcolor= "#cccccc "> <td width= "14% " align= "center "> 模型名称 </td>
<td width= "15% " align= "center "> 缩略图 </td>
<td width= "10% " align= "center "> 下载模型 </td> <td width= "11% " align= "center "> 删除模型 </td> <td width= "12% " align= "center "> 前台显示 </td> <td width= "9% " align= "center "> 上传会员 </td> <td width= "18% " align= "center "> 上传时间 </td>
<td width= "11% " align= "center "> 封面显示 </td>
</tr>
<%
for i=1 to rs.pagesize
%>
<tr bgcolor= "#ffffff "> <td height= "50 " align= "center "> <a href= "model_info.asp?id= <%=rs( "id ")%> ">
<%if len(rs( "model_name ")) <> 0 then%>
<%=replace(rs( "model_name "),seastr, " <font color=red> "&seastr& " </font> ")%>
<%else%>
尚无名称模型
<%end if%>
</a> </td>
<td align= "center "> <img width= "60 " height= "45 " src= "../ <%=rs( "xiaoguo ")%> "> </td>
<td align= "center "> <a href= "../ <%=rs( "model_file ")%> " > 下载 </a> </td> <td align= "center "> <a href= "del_mol.asp?id= <%=rs( "id ")%> " onClick= "return del_chk() "> 删除模型 </a> </td> <td align= "center "> <a href= "shouye.asp?id= <%=rs( "id ")%> &page= <%=page%> "> <%if rs( "shouye ")=true then%>
是
<%else%>
否
<%end if%>
</a>
</td>
<td align= "center "> <%=rs( "user_name ")%> </td>
<td align= "center "> <%=rs( "infotime ")%> </td>
<td align= "center "> <a href= "vsee.asp?id= <%=rs( "id ")%> &page= <%=page%> &fenglei1= <%=rs( "fenglei1 ")%> ">
<%
dim sql_v,rs_v
set rs_v=server.CreateObject( "ADODB.Recordset ")
sql_v= "select * from modelview "
rs_v.open sql_v,conn,1,3
' ' ' ' ' ' ' ' ' ' ' ' ' '家具/组合
if rs( "fenglei1 ") <> "灯具/照明 " and rs( "fenglei1 ") <> "其它 " then
if rs_v( "mjiaju ")=rs( "id ") then
response.write " <font color= '#FF0000 '> 是 </font> "
else
response.Write "否 "
end if
end if
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' 灯具/照明
if rs( "fenglei1 ")= "灯具/照明 " then
if rs_v( "mdeng ")=rs( "id ") then
response.write " <font color= '#FF0000 '> 是 </font> "
else
response.Write "否 "
end if
end if
调试说明：报错内容是
microslft vbscript 运行时错误 错误 ‘800a000d’
类型不匹配”‘clng’
/admin/mange_model.asp,行10
不知道怎么改了。
[解决办法]
page=clng(request.Querystring( "page "))
改为
if page= " " then
page=0
else
page=cint(page)
end if
同时要保证过来的page是数字
