%@LANGUAGE="VBSCRIPT"%> <% category=trim(request("category")) flag=trim(request("flag")) sshy=trim(request("sshy")) if flag="重点推荐" then flag1="推荐项目" else flag1=flag end if set recordset1= Server.CreateObject("ADODB.Recordset") recordset1.ActiveConnection = MM_cnsinocp_STRING if sshy="" then recordset1.Source = "SELECT * FROM project WHERE viewflag='true' AND flag='"&flag1&"' and category='"&category&"' ORDER BY indate desc" elseif sshy<>"" then recordset1.Source = "SELECT * FROM project WHERE viewflag='true' AND flag='"&flag1&"' and category='"&category&"' and sshy='"&sshy&"' ORDER BY indate desc" end if recordset1.CursorType = 0 recordset1.CursorLocation = 3 recordset1.LockType = 3 recordset1.Open() recordset1.pagesize=10 cut1(recordset1) %>