%@ language="vbscript" codepage="65001" %>
<%
option explicit
Response.Buffer = true
Response.CharSet = "utf-8"
dim toolid
toolid = Request("t")
if (toolid = "") then toolid = 14
%>
<%
call study()
function study
dim oConn, oRs, bSuccess, strSql
bSuccess = GetConnection(oConn)
if (not bSuccess) then
call whMsg(MSG_ERR, 1, true, true)
exit function
end if
strSql = "SELECT TOP 6 [Info].* FROM [Info] INNER JOIN [Classes] ON [Info].ClassID = Classes.ID WHERE [Info].[ToolID] = " & toolid & " AND [Bool1] = true AND Classes.Name = '最新新闻' AND [Text4] <> '' AND [Text4] IS NOT NULL ORDER BY [Int1], [Info].[ID] DESC"
bSuccess = OpenRecord(oRs, oConn, adLockReadOnly, strSql)
if (not bSuccess) then
oConn.Close: set oConn = nothing
call whMsg(MSG_ERR, 2, true, true)
exit function
end if
if (not oRs.EOF) then
end if
%>