guest_function.asp

该程序采用FlashMX开发

	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function Cwmv() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""media player 文件\n插入 wmv 文件.\n用法: [mp=500,350]media player 文件的地址[/mp]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[mp][/mp]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""media player 文件的地址"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[mp=500,350]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/mp]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function Cmov() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""quick time 文件\n插入 quick time 文件.\n用法: [qt=500,350]quick time 文件的地址[/qt]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[qt][/qt]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""quick time 文件的地址"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[qt=500,350]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/qt]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function showsize(size) {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""文字大小标记\n设置文字大小.\n可变范围 1 - 6.\n 1 为最小 6 为最大.\n用法: [size=""+size+""]这是 ""+size+"" 文字[/size]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[size=""+size+""][/size]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""大小 ""+size,""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[size=""+size+""]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/size]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function bold() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""加粗标记\n使文本加粗.\n用法: [b]这是加粗的文字[/b]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[b][/b]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""文字将被变粗."",""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[b]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/b]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function italicize() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""斜体标记\n使文本字体变为斜体.\n用法: [i]这是斜体字[/i]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[i][/i]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""文字将变斜体"",""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[i]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/i]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function quote() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""引用标记\n引用一些文字.\n用法: [quote]引用内容[/quote]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[quote][/quote]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""被引用的文字"",""文字"");" & vbcrlf
	strUbb=strUbb & "		if(txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[quote]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/quote]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function showcolor(color) {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""颜色标记\n设置文本颜色.  任何颜色名都可以被使用.\n用法: [color=""+color+""]颜色要改变为""+color+""的文字[/color]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[color=""+color+""][/color]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "     	txt=prompt(""选择的颜色是: ""+color,""文字"");" & vbcrlf
	strUbb=strUbb & "		if(txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[color=""+color+""]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/color]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function center() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""对齐标记\n使用这个标记, 可以使文本左对齐、居中、右对齐.\n用法: [align=center|left|right]要对齐的文本[/align]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[align=center|left|right][/align]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt2=prompt(""对齐样式\n输入 'center' 表示居中, 'left' 表示左对齐, 'right' 表示右对齐."",""center""); " & vbcrlf
	strUbb=strUbb & "		while ((txt2!="""") && (txt2!=""center"") && (txt2!=""left"") && (txt2!=""right"") && (txt2!=null)) {" & vbcrlf
	strUbb=strUbb & "			txt2=prompt(""错误!\n类型只能输入 'center' 、 'left' 或者 'right'."","""");" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""要对齐的文本"",""文本"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""\r[align=""+txt2+""]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/align]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function hyperlink() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""超级链接标记\n插入一个超级链接标记\n使用方法: [url]http://www.asp163.net[/url]\nUSE: [url=http://www.asp163.net]链接文字[/url]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[url][/url]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt2=prompt(""链接文本显示.\n如果不想使用, 可以为空, 将只显示超级链接地址. "","""");" & vbcrlf
	strUbb=strUbb & "		if (txt2!=null) {" & vbcrlf
	strUbb=strUbb & "			txt=prompt(""超级链接."",""http://"");" & vbcrlf
	strUbb=strUbb & "			if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "				if (txt2=="""") {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[url]""+txt;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/url]"";" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "				} else {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[url=""+txt+""]""+txt2;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/url]"";" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "				}" & vbcrlf
	strUbb=strUbb & "			}" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function image() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""图片标记\n插入图片\n用法： [img]http://www.asp163.net/logo.gif[/img]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[img][/img]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""图片的 URL"",""http://"");" & vbcrlf
	strUbb=strUbb & "		if(txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[img]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/img]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function showcode() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf