guest_function.asp

该程序采用FlashMX开发

	strUbb=strUbb & "		alert(""代码标记\n使用代码标记，可以使你的程序代码里面的 html 等标志不会被破坏.\n使用方法:\n [code]这里是代码文字[/code]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""\r[code]\r[/code]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""输入代码"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[code]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/code]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function list() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""列表标记\n建造一个文字或则数字列表.\n\nUSE: [list] [*]项目一[/*] [*]项目二[/*] [*]项目三[/*] [/list]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt="" [list][*]  [/*][*]  [/*][*]  [/*][/list]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""列表类型\n输入 'A' 表示有序列表, '1' 表示无序列表, 留空表示无序列表."","""");" & vbcrlf
	strUbb=strUbb & "		while ((txt!="""") && (txt!=""A"") && (txt!=""a"") && (txt!=""1"") && (txt!=null)) {" & vbcrlf
	strUbb=strUbb & "			txt=prompt(""错误!\n类型只能输入 'A' 、 '1' 或者留空."","""");" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			if (txt=="""") {" & vbcrlf
	strUbb=strUbb & "				AddTxt=""[list]"";" & vbcrlf
	strUbb=strUbb & "			} else {" & vbcrlf
	strUbb=strUbb & "				AddTxt=""[list=""+txt+""]"";" & vbcrlf
	strUbb=strUbb & "			}" & vbcrlf
	strUbb=strUbb & "			txt=""1"";" & vbcrlf
	strUbb=strUbb & "			while ((txt!="""") && (txt!=null)) {" & vbcrlf
	strUbb=strUbb & "				txt=prompt(""列表项\n空白表示结束列表"","""");" & vbcrlf
	strUbb=strUbb & "				if (txt!="""") {" & vbcrlf
	strUbb=strUbb & "					AddTxt+=""[*]""+txt+""[/*]"";" & vbcrlf
	strUbb=strUbb & "				}" & vbcrlf
	strUbb=strUbb & "			}" & vbcrlf
	strUbb=strUbb & "			AddTxt+=""[/list] "";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function showfont(font) {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""字体标记\n给文字设置字体.\n用法: [face=""+font+""]改变文字字体为""+font+""[/face]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[face=""+font+""][/face]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""要设置字体的文字""+font,""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[face=""+font+""]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/face]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "function underline() {" & vbcrlf
	strUbb=strUbb & "  	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""下划线标记\n给文字加下划线.\n用法: [u]要加下划线的文字[/u]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[u][/u]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""下划线文字."",""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[u]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/u]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "function setfly() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""飞翔标记\n使文字飞行.\n用法: [fly]文字为这样文字[/fly]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[fly][/fly]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""飞翔文字"",""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[fly]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/fly]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function move() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""移动标记\n使文字产生移动效果.\n用法: [move]要产生移动效果的文字[/move]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[move][/move]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""要产生移动效果的文字"",""文字"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[move]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/move]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function shadow() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "               alert(""阴影标记\n使文字产生阴影效果.\n用法: [SHADOW=宽度, 颜色, 边界]要产生阴影效果的文字[/SHADOW]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[SHADOW=255,blue,1][/SHADOW]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt2=prompt(""文字的长度、颜色和边界大小"",""255,blue,1"");" & vbcrlf
	strUbb=strUbb & "		if (txt2!=null) {" & vbcrlf
	strUbb=strUbb & "			txt=prompt(""要产生阴影效果的文字"",""文字"");" & vbcrlf
	strUbb=strUbb & "			if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "				if (txt2=="""") {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[SHADOW=255, blue, 1]""+txt;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/SHADOW]"";" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "				} else {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[SHADOW=""+txt2+""]""+txt;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/SHADOW]"";" & 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 glow() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""光晕标记\n使文字产生光晕效果.\n用法: [GLOW=宽度, 颜色, 边界]要产生光晕效果的文字[/GLOW]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[glow=255,red,2][/glow]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt2=prompt(""文字的长度、颜色和边界大小"",""255,red,2"");" & vbcrlf
	strUbb=strUbb & "		if (txt2!=null) {" & vbcrlf
	strUbb=strUbb & "			txt=prompt(""要产生光晕效果的文字."",""文字"");" & vbcrlf
	strUbb=strUbb & "			if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "				if (txt2=="""") {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[glow=255,red,2]""+txt;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/glow]"";" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "				} else {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[glow=""+txt2+""]""+txt;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/glow]"";" & 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 openemot()" & vbcrlf
	strUbb=strUbb & "{" & vbcrlf
	strUbb=strUbb & "	var Win =window.open(""../guestbook/guestselect.asp?action=emot"",""face"",""width=380,height=300,resizable=1,scrollbars=1"");" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "function openhelp()" & vbcrlf
	strUbb=strUbb & "{" & vbcrlf
	strUbb=strUbb & "	var Win =window.open(""../Editor/editor_ubbhelp.asp"",""face"",""width=550,height=400,resizable=1,scrollbars=1"");" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "</script>" & vbcrlf
	strUbb=strUbb & "" & vbcrlf

	strUbb=strUbb & "<img onclick=bold() align=absmiddle src=""../images/ubb/Ubb_bold.gif"" width=""22"" height=""22"" alt=""粗体"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=italicize() align=absmiddle src=""../images/ubb/Ubb_italicize.gif"" width=""23"" height=""22"" alt=""斜体"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=underline() align=absmiddle src=""../images/ubb/Ubb_underline.gif"" width=""23"" height=""22"" alt=""下划线"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=center() align=absmiddle src=""../images/ubb/Ubb_center.gif"" width=""22"" height=""22"" alt=""居中"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=hyperlink() align=absmiddle src=""../images/ubb/Ubb_url.gif"" width=""22"" height=""22"" alt=""超级连接"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=emails() align=absmiddle src=""../images/ubb/Ubb_email.gif"" width=""23"" height=""22"" alt=""Email连接"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=image() align=absmiddle src=""../images/ubb/Ubb_image.gif"" width=""23"" height=""22"" alt=""图片"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=flash() align=absmiddle src=""../images/ubb/Ubb_swf.gif"" width=""23"" height=""22"" alt=""Flash图片"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=Cdir() align=absmiddle src=""../images/ubb/Ubb_Shockwave.gif"" width=""23"" height=""22"" alt=""Shockwave文件"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=Crm() align=absmiddle src=""../images/ubb/Ubb_rm.gif"" width=""23"" height=""22"" alt=""realplay视频文件"" border=""0""" & vbcrlf
	strUbb=strUbb & "><img onclick=Cwmv() align=absmiddle src=""../images/ubb/Ubb_mp.gif"" width=""23"" height=""22"" alt=""Media Player视频文件"" border=""0""" & vbcrlf