notice.asp

wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

<%
set rsn=Server.CreateObject("ADODB.Recordset")
rsnstr="select * from [notice] order by [ID] desc"
rsn.open rsnstr,conn,1,2

function ubb(str)
	dim i
	str=trim(str)
	if IsNull(str) then exit function
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","""")
	'str=replace(str,vbCrLf&vbCrlf,"</p><p>")
	str=replace(str,vbCrLf,"<br/>")
	ubb=replace(str,"  "," ")
end function
%>