<%
Function RecordNo6()
dim temp6,pic6,url6
Set Rs = Server.CreateObject("Adodb.recordset")
Sql = "SELECT top 4 * From WoWo_Model WHERE isdel = 0"
Sql = Sql & "Order By id Desc"
Rs.open Sql,conn,1,1
i=0
if Rs.eof then
RecordNo6 = ""
else
temp6 = ""
pic6 = ""
while Not Rs.eof
i=i+1
id=Rs("id")
title=Rs("title")
logo=Rs("logo")
temp6 = temp6 & title&"|"
pic6 = pic6 & logo&"|"
Rs.MoveNext
Wend
temp6 = temp6 & ""
pic6 = pic6 & ""
RecordNo6 = temp6
end if
Rs.Close
Set Rs = Nothing
End Function
%>
<%
Dim myCache6,content6
Set myCache6 = New Cls_Cache
myCache6.Reloadtime = 1
myCache6.CacheName = "myCache6"
myCache6.Name = "tempCache6"
If myCache6.ObjIsEmpty() Then
content6 = RecordNo6()
myCache6.value = content6
Else
content6 = myCache6.value
End If
Response.Write content6
Set myCache6 = Nothing
%>
精彩