佬大帮帮忙了。小弟的那里编错了。请指点,最好能帮改好一下
<!--#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