<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Response.Buffer =True 
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache" %>
<!--#include file="conn.asp" -->
<% 
'ziduan=request("ziduan")
by=trim(request("by"))
key=request("key")
cd = request.QueryString("cd")
dsh = request.QueryString("dsh")
set rs=server.createobject("adodb.recordset")
<!--******************************-->
if dsh="yes" then 
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and renshidaili = '是' "
 if key="" then
 sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and renshidaili = '是' "
 else
 sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and renshidaili = '是' and name like '%"&key&"%' "
 end if
rs.open sql,conn,1,1
else
if dsh="no" then
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and xueke like '%"&cd&"%' "
if key="" then
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and xueke like '%"&cd&"%' "
else
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and xueke like '%"&cd&"%' and name like '%"&key&"%' "
rs.open sql,conn,1,1
end if
<!--******************************-->


if rs.eof then
response.write"没有相关记录！"
response.end
end if
size=request.QueryString ("size")
if size="" then
rs.PageSize=20
end if
if size="all" then
rs.PageSize=rs.recordcount
end if
pagecount=rs.PageCount 
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>



上边是部门sql代码,不知道为什么总是报Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少'end'