
<%

function shopso()


If saytk>1 then
%>
<form name="form" method="post" action="/shop/searchok.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%End if%>
<input name="title"  maxlength="50" value="输入货品名称"/><br/>
搜:
<%If saytk<>1 Then
response.write "<input type=""submit"" name=""Submit"" value=""全部货品""></form><br/>"
else%>
[<anchor><img src='/shop/so.gif' alt='商城'/>全部货品
<go method='post' href='/shop/searchok.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>
<postfield name='tj' value='$(tj)'/>
<postfield name='title' value='$(title)'/>
</go>
</anchor>]<br/>
<%End if
end function
'标题和编辑UBB
function ubbshop(str)
	str=trim(str)
	if IsNull(str) then exit function


str=replace(str,"&","&amp;")
str=replace(str,"←↑→","&amp;")
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
str=replace(str,"'","&apos;")
str=replace(str,"""","&quot;")
str=replace(str,"$","$$")
str = replace(str, "", "")
str = replace(str, "", "")
str=replace(str,"","")
str=replace(str," ","")
str=replace(str,"","")
str=replace(str,"","")
str=replace(str,"&#xFFE5;","*")
str=replace(str,"&nbsp;","")
str=replace(str,"(br)","<br/>")
str=replace(str,"[br]","<br/>")
str=replace(str,"[tid]",""&tid&"")
str=replace(str,"[date]",""&date&"")
str=replace(str,"[time]",""&time&"")
str=replace(str,"(name)",""&myni&"")
str=replace(str,"(myid)",""&myid&"")
str=replace(str,"(time)",""&time()&"")
str=replace(str,"(date)",""&date()&"")
str = replace(str, "sid=@@sid@@", "sid="&sid&"")
str = replace(str, "sid=[sid]", "sid="&sid&"")
str = replace(str, "saytk=[saytk]", "saytk="&saytk&"")
str = replace(str, "saytk=@@saytk@@", "saytk="&saytk&"")
str=replace(str,"(now)",""&now()&"")
str=replace(str,"(week)",""&WeekDayName(DatePart("w",Now))&"")
str=replace(str,Chr(13),"\\")
str=replace(str,Chr(14),"\\")
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.pattern="(\(img)\)(.{5,}?)\(/img\)"
str= re.Replace(str,"<img src=""$2"" alt='.'/>")
re.pattern="(\[img\])(.[^\[]*)(\[\/img\])"
str= re.Replace(str,"<img src=""$2"" alt='.'/>")
re.pattern="(\(URL\))(.[^\(]*)(\(\/URL\))"
str= re.Replace(str,"<a href=""$2"" >$2</a>")
re.pattern="(\(URL=(.[^\(]*)\))(.[^\(]*)(\(\/URL\))"
str= re.Replace(str,"<a href=""$2"" >$3</a>")
re.pattern="(\[url\])(.[^\[]*)(\[\/url\])"
str= re.Replace(str,"<a href=""$2"" >$2</a>")
re.pattern="(\[url=(.[^\]]*)\])(.[^\[]*)(\[\/url\])"
str= re.Replace(str,"<a href=""$2"" >$3</a>")
re.pattern="(\(c\))(.[^\[]*)(\(\/c\))"
str= re.Replace(str,"<a href=""wtai://wp/mc;$2"" >$2</a>")
re.pattern="(\(c=(.[^\]]*)\))(.[^\[]*)(\(\/c\))"
str= re.Replace(str,"<a href=""wtai://wp/mc;$2"" >$3</a>")
re.pattern="(\(u\))(.[^\[]*)(\(\/u\))"
re.pattern="(\(d=(.[^\}]*)\))(.[^\}]*)(\(\/d\))"
if saytk=>2 then
str= re.Replace(str,"<div class=""$2"" style=""margin: 0px;display: inline;"">$3</div>")
else
str= re.Replace(str,"$3")
end if
re.pattern="(\(size=(.[^\}]*)\))(.[^\}]*)(\(\/size\))"
if saytk=>2 then
str= re.Replace(str,"<font  size=""$2"" >$3</font>")
else
str= re.Replace(str,"$3")
end if

str= re.Replace(str,"<u>$2</u>")
re.pattern="(\(b\))(.[^\[]*)(\(\/b\))"
str= re.Replace(str,"<b>$2</b>")
re.pattern="(\(i\))(.[^\[]*)(\(\/i\))"
str= re.Replace(str,"<i>$2</i>")
re.Pattern="(\\\\)"
str= re.Replace(str,"<br/>")
	str=replace(str,"无界浏览器","*")
	str=replace(str,"特码","*")
	str=replace(str,"法轮功","*")
	str=replace(str,"法轮大法","*")
	str=replace(str,"李洪志","*")
	str=replace(str,"大法弟子","*")
	str=replace(str,"大纪元","*")
	str=replace(str,"六合","*")
	str=replace(str,"真善忍","*")
	str=replace(str,"修炼大法","*")
	str=replace(str,"反共","*")
	str=replace(str,"台独","*")
	str=replace(str,"反革命","*")
	str=replace(str,"疆独","*")
	str=replace(str,"藏独","*")
	str=replace(str,"多党执政","*")
	str=replace(str,"江泽民","*")
	str=replace(str,"胡锦涛","*")
	str=replace(str,"罗干","*")
	str=replace(str,"镕基","*")
	str=replace(str,"李鹏","*")
	str=replace(str,"温家宝","*")
	str=replace(str,"温家堡","*")
	str=replace(str,"六四","*")
	str=replace(str,"玉蒲团","*")
	str=replace(str,"素女自拍","*")
	str=replace(str,"成人片","*")
	str=replace(str,"成人电影","*")
	str=replace(str,"激情图片","*")
	str=replace(str,"激情电影","*")
	str=replace(str,"成人小说","*")
	str=replace(str,"肉棍","*")
	str=replace(str,"淫水","*")
	str=replace(str,"乱伦","*")
	str=replace(str,"嫖鸡","*")
	str=replace(str,"小穴","*")
	str=replace(str,"换妻","*")
	str=replace(str,"淫魔","*")
	str=replace(str,"淫女","*")
	str=replace(str,"淫靡","*")
	str=replace(str,"口交","*")
	str=replace(str,"迷药","*")
	str=replace(str,"迷昏药","*")
	str=replace(str,"窃听器","*")
	str=replace(str,"六合彩","*")
	str=replace(str,"买卖枪支","*")
	str=replace(str,"退党","*")
	str=replace(str,"麻醉药","*")
	str=replace(str,"短信群发器","*")
	str=replace(str,"色情服务","*")
	str=replace(str,"出售枪支","*")
	str=replace(str,"摇头丸","*")
	str=replace(str,"出售假币","*")
	str=replace(str,"监听王","*")
	str=replace(str,"蒙汗","*")
	str=replace(str,"迷奸药","*")
	str=replace(str,"催情药","*")
	str=replace(str,"办理证件","*")
	str=replace(str,"反政府","*")
	str=replace(str,"乱伦","*")
	str=replace(str,"待开发票","*")
	str=replace(str,"代开发票","*")
	str=replace(str,"老虎机","*")
	str=replace(str,"换妻","*")
	str=replace(str,"曾道人","*")
	str=replace(str,"仿真假钞","*")
	str=replace(str,"裸聊","*")

	ubbshop=str
end function
%>
