rss_list.asp

购物系统(本版为正式商业版

<%response.expires=0
Response.ContentType = "text/xml" 
%>
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp" -->
<!--#include file="fuction.asp"-->
<%if request("a") then
	bigclassid=nosql(request("a"))
else
	bigclassid=0
end if
if request("b") then
	tmp_dys=nosql(request("b"))
else
	tmp_dys=88
end if
if request("c") then
	tmp_zs=nosql(request("c"))
else
	tmp_zs=26
end if
%>
<?xml version="1.0" encoding="gb2312"?>
<rss version="2.0">
<%
sql="select top " & tmp_dys & " shopid, [shopname], [shopcontent], [shichangjia], [huiyuanjia], [vipjia], [pifajia],[kucun],[adddate] from [shop_snsn] where shopid=" & bigclassid & " order by shopid desc"

set rs=Conn.execute(sql)
	if not rs.eof then
chtitle= rs("shopname")
	end if
%>
	<channel>
    <title><%=webname%>-<%=chtitle%></title>
    <description><%=webname%>-<%=chtitle%></description>
    <link><%=weburl%></link>
    <language>zh-cn</language>
    <docs>欢迎您使用<%=webname%>！</docs>
    <generator>欢迎您使用<%=webname%>！</generator>
	<%
	do
	if rs.eof then exit do
if rs("kucun")>0 then
kucun="上架"
else
kucun="缺货"
end if
rsslink=tohtml(""&weburl&"/" & "list.asp?id=" & rs("shopid"))
shopname=tohtml(rs("shopname"))
adddate=tohtml(rs("adddate"))
shichangjia=tohtml(rs("shichangjia"))
huiyuanjia=tohtml(rs("huiyuanjia"))
vipjia=tohtml(rs("vipjia"))
pifajia=tohtml(rs("pifajia"))
shopcontent=tohtml(htmltotext(rs("shopcontent")))
%>
<item>
<title><%=shopname%></title>
<link><%=rsslink%></link>
<author>商品名称：<%=shopname%></author>
<pubDate>时间：<%=adddate%></pubDate>
<shop>市场价：<%=shichangjia%>元</shop>
<shop>会员价：<%=huiyuanjia%>元</shop>
<shop>VIP价：<%=vipjia%>元</shop>
<shop>批发价：<%=pifajia%>元</shop>
<shop>商品状态：<%=kucun%></shop>
<description><%=shopcontent%></description> 
</item>
<%
rs.movenext		
loop
%>
 </channel>
</rss>
<%
Rem 截取文字
function cutStr(str,strlen)
	dim l,t,c
	l=len(str)
	t=0
	for i=1 to l
	c=Abs(Asc(Mid(str,i,1)))
	if c>255 then
	t=t+2
	else
	t=t+1
	end if
	if t>=strlen then
	cutStr=left(str,i)&".."
	exit for
	else
	cutStr=str
	end if
	next
	cutStr=replace(cutStr,chr(10),"")
end function

Rem 判断数字是否整形
function isChkInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isChkInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isChkInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isChkInteger=false 
              exit function
           end if
       next
       isChkInteger=true
       if err.number<>0 then err.clear
end function
'response.write tohtml("<>&")
function tohtml(byval str1)
tempstr=str1
tempstr=replace(tempstr,"<br>"," ")
tempstr=replace(tempstr,"&","&amp;")
tempstr=replace(tempstr,">","&gt;")
tempstr=replace(tempstr,"<","&lt;")
tohtml=tempstr
end function

function htmltotext(byval nr)
''过滤html字符的
pa=""
strContent=nr

Set regex = New RegExp 
regEx.Global = True

regEx.IgnoreCase = False ' 设置是否区分大小写。<BR>

'去掉换行
regEx.Pattern = "\n"
strContent = regEx.Replace(strContent,"")

regEx.Pattern = "<[a-zA-Z]+([ ]|[^\n>]|[%$#@!'])*>"
strContent = regEx.Replace(strContent,"")
regEx.Pattern = "</[a-zA-Z]+>"
strContent = regEx.Replace(strContent,"")
regEx.Pattern = "[ ]+"
strContent = regEx.Replace(strContent," ")

strContent=replace(strContent,"&nbsp;","")

if len(strContent)>1000 then
strContent=left(strContent,1000) & "......"
end if

htmltotext=strContent

end function

%>