欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

<?xml version="1.0" encoding="gb2312"?>
<%
dim url,db,dbpath,conn,show_username
dim rs,SQL

db="data/oblog221.mdb" ‘這里修改數據庫路徑或名稱(chēng)

Set conn = Server.CreateObject("ADODB.Connection")
dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open dbpath
%>
<rss VERSION="2.0">
 <channel>
  <TITLE>網(wǎng)站或欄目的名稱(chēng)</TITLE>
  <LINK>網(wǎng)站或欄目的URL地址</LINK>
  <description>網(wǎng)站或欄目的簡(jiǎn)要介紹</description>
<%
show_username=replace(request.QueryString("name"),"‘","")
‘set rs = Server.CreateObject("ADODB.Recordset")
if show_username<>"" then
 SQL="select top 10 * from blog where username=‘"&show_username&"‘ and ishide<>‘true‘ and passcheck<>‘false‘ and isnull(ispassword)=true and (isnull(blog_password)=true or blog_password=‘‘) order by id desc"
else
 SQL = "Select top 10 * from blog where ishide<>‘true‘ and passcheck<>‘false‘ and isnull(ispassword)=true and (isnull(blog_password)=true or blog_password=‘‘) order by id desc"
end if
set rs=conn.execute(SQL)
if rs.Eof or rs.Bof then
  response.write "<item></item>"
end if
while not rs.Eof
    response.Write "<item>"
 response.write "<link>"&url&"more.asp?name="&rs("username")&"&id="&rs("id")&"</link>"
 Response.write "<title><![CDATA["&rs("topic")&"]]></title>"
 response.write "<creator>"&rs("username")&"</creator>"
 response.write "<PubDate>"&rs("addtime")&"</PubDate>"
  response.write "<description><![CDATA["&rs("logtext")&"]]></description>"
 response.write "</item>"
 rs.MoveNext         
wend                 
set rs=nothing
conn.Close
set conn = nothing
%></channel></rss>