<%dim oblog
set oblog=new class_sys
oblog.autoupdate=false
oblog.start
Response.contentType="application/xml"
Response.Expires=0
Response.Write ""
%>
香蕉久久一区二区三区,日韩成年视频,国产伦精品久久久一区二区三区
<%=oblog.CacheConfig(3)%>
<%=oblog.CacheConfig(5)%>大自然拓展訓練營拓展培訓北京拓展公司godzrmail@163.com
<%
dim rs,sql,classid,logtext
classid=clng(request("classid"))
if classid>0 then
sql=" and classid="&classid
else
sql=""
end if
set rs=oblog.execute("select top 20 * from oblog_log where ishide=0 and passcheck=1 and isdraft=0 and blog_password=0"&sql&" order by logid desc")
if rs.Eof or rs.Bof then
response.write ""
end if
while not rs.Eof
if rs("ispassword")="" or isnull(rs("ispassword")) then
logtext=oblog.trueurl(rs("logtext"))
else
logtext="此文章內容已加密"
end if
if rs("ishide")=1 then logtext="此文章內容已隱藏"
response.Write "" & vbcrlf
Response.write "<![CDATA["&rs("topic")&"]]>" & vbcrlf
if true_domain=0 then
response.write ""&oblog.CacheConfig(3)&rs("logfile")&"" & vbcrlf
else
response.write ""&rs("logfile")&"" & vbcrlf
end if
response.write ""&rs("author")&"" & vbcrlf
response.write ""&rs("addtime")&"" & vbcrlf
response.write "" & vbcrlf
response.write ""
rs.MoveNext
wend
set rs=nothing
%>
<%
Function FmtStringForXML(byval sContent)
Dim objRegExp,strOutput
If IsNull(sContent) Then
FmtStringForXML=""
Exit Function
End If
strOutput=Trim(sContent)
If Instr(strOutput,"<") And Instr(strOutput,">") Then
'剔除<>標記
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
strOutput = objRegExp.Replace(strOutput, "")
Set objRegExp = Nothing
End If
strOutput=Replace(strOutput," ","")
strOutput=Replace(strOutput,"<>","")
strOutput=Replace(strOutput," "," ")
FmtStringForXML = strOutput
End Function
%>