conn.asp

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

<!--#include file="../data.asp"-->
<%
set conn=Createobject("ADODB.Connection")
conn.ConnectionString="DBQ="& server.mappath("../"&const_AccessDatabase&"")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open

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

dim killword
killword=split("fuck,他妈的",",")
function UBBCode(strContent)
	if IsNull(strContent) then exit function
	strContent=ubb(strContent)
	dim re,i
	
	for i=0 to ubound(killword)
		strContent=replace(lcase(strContent),killword(i),string(len(killword(i)),"*"))
	next
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
	re.Pattern="(\(IMG\))(.[^\[]*)(\(\/IMG\))"
	strContent= re.Replace(strContent,"<img src=""$2"" alt=""$2""/>")
	re.Pattern="(\(IMG=(.[^\]]*)\))(.[^\[]*)(\(\/IMG\))"
	strContent= re.Replace(strContent,"<img src=""$2"" alt=""$3""/>")
	
	re.Pattern="(\(URL\))(.[^\[]*)(\(\/URL\))"
	strContent= re.Replace(strContent,"<a href=""$2"" >$2</a>")
	re.Pattern="(\(URL=(.[^\]]*)\))(.[^\[]*)(\(\/URL\))"
	strContent= re.Replace(strContent,"<a href=""$2"" >$3</a>")

	re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
	strContent= re.Replace(strContent,"<a href=""$2"" >$2</a>")
	re.Pattern="(\[URL=(.[^\]]*)\])(.[^\[]*)(\[\/URL\])"
	strContent= re.Replace(strContent,"<a href=""$2"" >$3</a>")

	re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
	strContent= re.Replace(strContent,"<img src=""$2"" alt=""$2""/>")
	re.Pattern="(\[IMG=(.[^\]]*)\])(.[^\[]*)(\[\/IMG\])"
	strContent= re.Replace(strContent,"<img src=""$2"" alt=""$3""/>")
	
	re.Pattern="(\(WEB\))(.[^\[]*)(\(\/WEB\))"
	strContent= re.Replace(strContent,"<a href=""http://wap.ejoint.net/perl/html3wml.cgi?url=$2"" >$2</a>")
	re.Pattern="(\(WEB=(.[^\]]*)\))(.[^\[]*)(\(\/WEB\))"
	strContent= re.Replace(strContent,"<a href=""http://wap.ejoint.net/perl/html3wml.cgi?url=$2"" >$3</a>")
	
	re.Pattern="(\(EMAIL\))(.[^\]]*)(\(\/EMAIL\))"
    strContent= re.Replace(strContent,"<a href=""mailto:$2"">$2</a>")
    re.Pattern="(\(EMAIL=(.[^\]]*)\))(.[^\]]*)(\(\/EMAIL\))"
    strContent= re.Replace(strContent,"<a href=""mailto:$2"" >$3</a>")
     
    re.Pattern="(\(COOL\))(.[^\]]*)(\(\/COOL\))"
    strContent= re.Replace(strContent,"<a href=""wtai://wp/mc;$2"">$2</a>")
    re.Pattern="(\(COOL=(.[^\]]*)\))(.[^\]]*)(\(\/COOL\))"
    strContent= re.Replace(strContent,"<a href=""wtai://wp/mc;$2"" >$3</a>")
        
    re.Pattern="(\(i\))(.[^\[]*)(\(\/i\))"
    strContent=re.Replace(strContent,"<i>$2</i>")
    re.Pattern="(\(u\))(.[^\[]*)(\(\/u\))"
    strContent=re.Replace(strContent,"<u>$2</u>")
    re.Pattern="(\(b\))(.[^\[]*)(\(\/b\))"
    strContent=re.Replace(strContent,"<b>$2</b>")
	
	re.Pattern = "^(mailto:[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	re.Pattern = "(mailto:[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	
	re.Pattern = "([^>=""])(mailto:[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"$1<img src=""url.gif"" alt=""url""/><a href=""$2"">$2</a>")
	
	re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	
	re.Pattern = "([^>=""])(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"$1<img src=""url.gif"" alt=""url""/><a href=""$2"">$2</a>")
	
		re.Pattern = "^(wtai://wp/mc;[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	re.Pattern = "(wtai://wp/mc;[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	
	re.Pattern = "([^>=""])(wtai://wp/mc;[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"$1<img src=""url.gif"" alt=""url""/><a href=""$2"">$2</a>")
	
		re.Pattern = "^(http://wap.ejoint.net/perl/html3wml.cgi?url=[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	re.Pattern = "(http://wap.ejoint.net/perl/html3wml.cgi?url=[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
	strContent = re.Replace(strContent,"<img src=""url.gif"" alt=""url""/><a href=""$1"">$1</a>")
	
	re.Pattern = "([^>=""])(http://wap.ejoint.net/perl/html3wml.cgi?url=[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"$1<img src=""url.gif"" alt=""url""/><a href=""$2"">$2</a>")
	
	UBBCode=strContent
end function
%>