📄 inc_ubb.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册相片上传[方便上传
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
   re.Pattern="(\[\/QUOTE\])"
		strContent=re.Replace(strContent,"[/QUOTE]" & VbCrLf)
		re.Pattern="\[QUOTE\](.*)\[\/QUOTE]"
		strContent=re.Replace(strContent,"<table width=100% bgcolor=" & DEF_WEB_DarkColor & " cellpadding=5 cellspacing=1 class=forum_list_table><tr><td bgcolor=" & DEF_WEB_LightestColor & " class=forum_list_tr><font color=#999999>$1</font></td></tr></table>")
		strContent = Replace(strContent,VbCrLf,"")

    Set Matches=re.Execute(strContent)
    '加多这个循环为的是ubb可以套用
        for each Match in matches
    strcontent = re.Replace(strContent, replStr) 
    strcontent = re.Replace(strcontent, replStr)
    next 

    '一般的文字处理
   re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
   strContent=re.Replace(strContent,"<font color=$1>$2</font>")
	
	re.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
	strContent=re.Replace(strContent,"<font face=$1>$2</font>")
	
	re.Pattern="\[align=(center|left|right)\](.[^\[]*)\[\/align\]"
	strContent=re.Replace(strContent,"<div align=$1>$2</div>")
	
   re.Pattern="\[fly\](.[^\[]*)\[\/fly\]"
 	strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
	
	re.Pattern="\[move\](.[^\[]*)\[\/move\]"
	strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$1</marquee>")
	
	re.Pattern="\[GLOW=*([0-9]*),*((\w)+),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
	strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$4)"">$5</table>")
	
	re.Pattern="\[SHADOW=*([0-9]*),*((\w)+),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
	strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$4)"">$5</table>")
	
	 re.Pattern="\[i\](.[^\[]*)\[\/i\]"
	strContent=re.Replace(strContent,"<i>$1</i>")
	
	 re.Pattern="\[center\](.[^\[]*)\[\/center\]"
	strContent=re.Replace(strContent,"<center>$1</center>")
	
	re.Pattern="\[u\](.[^\[]*)(\[\/u\])"
	strContent=re.Replace(strContent,"<u>$1</u>")
	
	re.Pattern="\[b\](.[^\[]*)(\[\/b\])"
	strContent=re.Replace(strContent,"<b>$1</b>")    
re.Pattern="\[size=([1-6])\](.[^\[]*)\[\/size\]"
strContent=re.Replace(strContent,"<font size=$1>$2</font>")
	
	 strContent=replace(strContent,"[br]","<br>")
	 
end if
    set re=Nothing
    UBBCode=strContent
end function

'== Ubb ico show

GBL_strUbbFont = "<SELECT onchange='SelectFont()' name=font><option>字体</option><option value='宋体'>宋体</option><option value='楷体_GB2312'>楷体</option><option value='新宋体'>新宋</option> <option value='黑体'>黑体</option><option value='隶书'>隶书</option><option value='Arial'>Arial</option></SELECT> "

GBL_strUbbSize = "<select name='size' onChange='SelectSize()'><option>大小</option><option value='1'>1</option><option value='2'>2</option><option value='3'>3</option><option value='4'>4</option></select> "

GBL_strUbbColor = "<SELECT onchange='SelectColor()' name=color><option>颜色</option><option style='background-color:#00FFFF;color: #00FFFF' value='#00FFFF'>#00FFFF</option><option style='background-color:#6495ED;color: #6495ED' value='#6495ED'>#6495ED</option><option style='background-color:#0000FF;color: #0000FF' value='#0000FF'>#0000FF</option><option style='background-color:#00008B;color: #00008B' value='#00008B'>#00008B</option><option style='background-color:#FFA500;color: #FFA500' value='#FFA500'>#FFA500</option><option style='background-color:#FF6347;color: #FF6347' value='#FF6347'>#FF6347</option><option style='background-color:#FF0000;color: #FF0000' value='#FF0000'>#FF0000</option><option style='background-color:#B22222;color: #B22222' value='#B22222'>#B22222</option><option style='background-color:#008000;color: #008000' value='#008000'>#008000</option><option style='background-color:#00FF00;color: #00FF00' value='#00FF00'>#00FF00</option><option style='background-color:#20B2AA;color: #20B2AA' value='#20B2AA'>#20B2AA</option><option style='background-color:#FF00FF;color: #FF00FF' value='#FF00FF'>#FF00FF</option><option style='background-color:#CD5C5C;color: #CD5C5C' value='#CD5C5C'>#CD5C5C</option><option style='background-color:#8B008B;color: #8B008B' value='#8B008B'>#8B008B</option><option style='background-color:#4B0082;color: #4B0082' value='#4B0082'>#4B0082</option><option style='background-color:#FFE4C4;color: #FFE4C4' value='#FFE4C4'>#FFE4C4</option><option style='background-color:#F4A460;color: #F4A460' value='#F4A460'>#F4A460</option><option style='background-color:#DAA520;color: #DAA520' value='#DAA520'>#DAA520</option><option style='background-color:#CD853F;color: #CD853F' value='#CD853F'>#CD853F</option><option style='background-color:#8FBC8F;color: #8FBC8F' value='#8FBC8F'>#8FBC8F</option><option style='background-color:#A9A9A9;color: #A9A9A9' value='#A9A9A9'>#A9A9A9</option></SELECT> "

GBL_strUbbFont2 = "<img onClick=Cbold() src='" & GBL_strHomeURL & "images/ubb/" & "bold.gif' width=19  height=19  alt='粗体' border='0' style='CURSOR:hand'> <img onclick=Citalic() src='" & GBL_strHomeURL & "images/ubb/" & "code.gif' width=19  height=19  alt='斜体' border='0' style='CURSOR:hand'> <img onclick=Cunder() src='" & GBL_strHomeURL & "images/ubb/" & "underline.gif' width=19  height=19  alt='下划线' border='0' style='CURSOR:hand'> "

GBL_strUbbCenter = "<img onclick=Ccenter() src='" & GBL_strHomeURL & "images/ubb/" & "center.gif' width=19  height=19  alt='居中' border='0' style='CURSOR:hand'> "

GBL_strUbbUrl = "<img onclick=Curl() src='" & GBL_strHomeURL & "images/ubb/" & "url1.gif' width=19  height=19  alt='超级连接' border='0' style='CURSOR:hand'> "

GBL_strUbbEmail = "<img onclick=Cemail() src='" & GBL_strHomeURL & "images/ubb/" & "email1.gif' width=19  height=19  alt='Email连接' border='0' style='CURSOR:hand'> "

GBL_strUbbImg = "<img onclick=Cimage() src='" & GBL_strHomeURL & "images/ubb/" & "image.gif' width=19  height=19  alt='图片' border='0' style='CURSOR:hand'> "

GBL_strUbbFlash = "<img onclick=Cswf() src='" & GBL_strHomeURL & "images/ubb/" & "swf.gif' width=19  height=19  alt='Flash图片' border='0' style='CURSOR:hand'> "

Dim GBL_strUbbRm : GBL_strUbbRm = "<img onclick=Crm() src='" & GBL_strHomeURL & "images/ubb/" & "rm.gif' width=19  height=19  alt='影视播放' border='0' style='CURSOR:hand'> "

Dim GBL_strUbbSound : GBL_strUbbSound = "<img onclick=Csound() src='" & GBL_strHomeURL & "images/ubb/" & "rm.gif' width=19  height=19  alt='影视播放' border='0' style='CURSOR:hand'> "

GBL_strUbbQuote = "<img onclick=Cquote() src='" & GBL_strHomeURL & "images/ubb/" & "quote1.gif' width=19  height=19  alt='引用' border='0' style='CURSOR:hand'> "

GBL_strUbbFly = "<IMG onclick=Cfly() height=19  alt=飞行字 src='" & GBL_strHomeURL & "images/ubb/" & "fly.gif' width=19  border=0 style='CURSOR:hand'> "

GBL_strUbbMove = "<IMG onclick=Cmarquee() height=19 width=19  alt=移动字 src='" & GBL_strHomeURL & "images/ubb/" & "move.gif' width=19 height=19 border=0 style='CURSOR:hand'> "

strUbbGlow = "<IMG onclick=Cguang() height=19 width=19 alt=发光字 src='" & GBL_strHomeURL & "images/ubb/" & "glow.gif' width=19 height=19  border=0 style='CURSOR:hand'> "

GBL_strUbbShadown = "<IMG onclick=Cying() height=19  alt=阴影字 src='" & GBL_strHomeURL & "images/ubb/" & "shadow.gif' width=19  border=0 style='CURSOR:hand'> "

GBL_strUbbShadown = "<IMG onclick=Clight() height=19  alt=闪烁字 src='" & GBL_strHomeURL & "images/ubb/" & "light.gif' width=19  border=0 style='CURSOR:hand'> "

Dim GBL_strMop : GBL_strMop = "<a href=""javascript:openEditScript('../plug-ins/audio/show.htm',450,370);"" title=插入巧嘴娃娃><img src="""& GBL_strHomeURL &"/images/ubb/audio.gif"" width=19 height=19 align=absmiddle border=0></a>"

If Trim(Application(GBL_strCookieURL & "APP_strCCID")) <> ""  Then
	GBL_strMop = GBL_strMop & "&nbsp;<object width='86' height='22'><param name='wmode' value='transparent' /><param name='allowScriptAccess' value='always' /><param name='movie' value='http://union.bokecc.com/flash/plugin/plugin_16.swf?userID=" & Trim(Application(GBL_strCookieURL & "APP_strCCID")) & "&type=ccrelease' /><embed src='http://union.bokecc.com/flash/plugin/plugin_16.swf?userID=" & Trim(Application(GBL_strCookieURL & "APP_strCCID")) & "&type=ccrelease' type='application/x-shockwave-flash' width='86' height='22' allowScriptAccess='always' wmode='transparent' ></embed></object>"
End If

Function GetUbb()
%>
<script language=javascript> 
function openEditScript(url, width, height)
{
	var Win = window.open(url,"openEditScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=no' );
}
</script>
<%
GetUbb = ""
GetUbb = GBL_strUbbFont & GBL_strUbbSize & GBL_strUbbColor & GBL_strUbbFont2 & "<br>" & GBL_strUbbCenter & GBL_strUbbUrl & GBL_strUbbEmail & GBL_strUbbImg & GBL_strUbbFlash &  GBL_strUbbRm & GBL_strUbbQuote & GBL_strUbbFly & GBL_strUbbMove & strUbbGlow & GBL_strUbbShadown & GBL_strMop

End Function

'===================================================================
'= Function     : ShowSmileList(strName,intStart,intEnd,intStep)
'= Time		    : Created At Feb,13,2004
'= Input        : 
'= Output       : 
'= Called by    : 
'= Calls        : 
'= Description  : show smile of txtcontent
'===================================================================
Function ShowSmileList(strName,intStart,intEnd,intStep)

	Dim strOutTmp
	Dim strTmp
	Dim i,k
	
	k = 0
	strOutTmp = "<table cellpadding=0 cellspacing=0  id='" & strName & "' style='DISPLAY: none'><tr><td>" & vbCrLf
	strOutTmp = strOutTmp & vbCrLf
	
	For i = intStart To intEnd
		k = k + 1
		strOutTmp = strOutTmp & "<img src='" & GBL_strHomeURL & "images/smile/" & i & ".gif' alt='插入表情' style='CURSOR:hand' onclick=""addcontent('[em" & i & "]','');""> "
		If k Mod intStep = 0 Then
			strOutTmp = strOutTmp & "<br>"
		End If
	Next

	strOutTmp = strOutTmp & "</td></tr></table>" & vbCrLf
	
	ShowSmileList = strOutTmp

End Function
'=============== End of func ShowSmileList() =======================
'===================================================================
'= Function     : ShowSmileOut(intStep)
'= Time		    : Created At Feb,13,2004
'= Input        : 
'= Output       : 
'= Called by    : 
'= Calls        : 
'= Description  : show smile of txtcontent
'===================================================================
Function ShowSmileOut(intStep)
	
	Dim strHtmlCode

	strHtmlCode = ""
	strHtmlCode = "<INPUT id=rdoSmile name=rdoSmile type=radio value=1 onclick=OutSmileList(this,s1,s2,s3,s4,s5) class=CSS_IPT_RADIO><span id=advance>表情1</span>"
	strHtmlCode = strHtmlCode & "<INPUT id=rdoSmile name=rdoSmile type=radio value=1 onclick=OutSmileList(this,s2,s1,s3,s4,s5) class=CSS_IPT_RADIO><span id=advance>表情2</span>"
	strHtmlCode = strHtmlCode & "<INPUT id=rdoSmile name=rdoSmile type=radio value=1 onclick=OutSmileList(this,s3,s1,s2,s4,s5) class=CSS_IPT_RADIO><span id=advance>表情3</span>"
	strHtmlCode = strHtmlCode & "<INPUT id=rdoSmile name=rdoSmile type=radio value=1 onclick=OutSmileList(this,s4,s1,s2,s3,s5) class=CSS_IPT_RADIO><span id=advance>表情4</span>"
	strHtmlCode = strHtmlCode & "<INPUT id=rdoSmile name=rdoSmile type=radio value=1 onclick=OutSmileList(this,s5,s1,s2,s3,s4) class=CSS_IPT_RADIO><span id=advance>包子1</span>"
	strHtmlCode = strHtmlCode & ShowSmileList("s1",1,22,intStep) & ShowSmileList("s2",23,44,intStep) & ShowSmileList("s3",45,66,intStep) & ShowSmileList("s4",67,100,intStep) & ShowSmileList("s5",155,169,intStep - 6) 

	ShowSmileOut = strHtmlCode
	strHtmlCode = ""

End Function
'=============== End of Func ShowSmileOut() ===============================
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -