% '读取数据 typeID = "6" '文章类别 if IsNull(typeID) or typeID = "" then Response.Write "类别参数有误,不能继续!" Response.End end if Set Rs = Server.CreateObject("ADODB.RECORDSET") if not isempty(request("page")) and request("page")<>"" then pagecount=cint(request("page")) else pagecount=1 end if %>
|