📄 guest_function.asp

📁 该程序采用FlashMX开发
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
'=================================================
'函数名：ShowTip()
'作  用：显示提示
'参  数：无
'=================================================
function ShowTip()
	dim strTip
	strTip="<div id=toolTipLayer style='position: absolute; visibility: hidden'></div>" & vbcrlf
	strTip=strTip & "<SCRIPT language=JavaScript>" & vbcrlf
	strTip=strTip & "var ns4 = document.layers;" & vbcrlf
	strTip=strTip & "var ns6 = document.getElementById && !document.all;" & vbcrlf
	strTip=strTip & "var ie4 = document.all;" & vbcrlf
	strTip=strTip & "offsetX = 0;" & vbcrlf
	strTip=strTip & "offsetY = 20;" & vbcrlf
	strTip=strTip & "var toolTipSTYLE='';" & vbcrlf
	strTip=strTip & "function initToolTips()" & vbcrlf
	strTip=strTip & "{" & vbcrlf
	strTip=strTip & "  if(ns4||ns6||ie4)" & vbcrlf
	strTip=strTip & "  {" & vbcrlf
	strTip=strTip & "    if(ns4) toolTipSTYLE = document.toolTipLayer;" & vbcrlf
	strTip=strTip & "    else if(ns6) toolTipSTYLE = document.getElementById('toolTipLayer').style;" & vbcrlf
	strTip=strTip & "    else if(ie4) toolTipSTYLE = document.all.toolTipLayer.style;" & vbcrlf
	strTip=strTip & "    if(ns4) document.captureEvents(Event.MOUSEMOVE);" & vbcrlf
	strTip=strTip & "    else" & vbcrlf
	strTip=strTip & "    {" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.visibility = 'visible';" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.display = 'none';" & vbcrlf
	strTip=strTip & "    }" & vbcrlf
	strTip=strTip & "    document.onmousemove = moveToMouseLoc;" & vbcrlf
	strTip=strTip & "  }" & vbcrlf
	strTip=strTip & "}" & vbcrlf
	strTip=strTip & "function toolTip(msg, fg, bg)" & vbcrlf
	strTip=strTip & "{" & vbcrlf
	strTip=strTip & "  if(toolTip.arguments.length < 1)" & vbcrlf
	strTip=strTip & "  {" & vbcrlf
	strTip=strTip & "    if(ns4) toolTipSTYLE.visibility = 'hidden';" & vbcrlf
	strTip=strTip & "    else toolTipSTYLE.display = 'none';" & vbcrlf
	strTip=strTip & "  }" & vbcrlf
	strTip=strTip & "  else" & vbcrlf
	strTip=strTip & "  {" & vbcrlf
	strTip=strTip & "    if(!fg) fg = '#333333';" & vbcrlf
	strTip=strTip & "    if(!bg) bg = '#FFFFFF';" & vbcrlf
	strTip=strTip & "    var content = '<table border=""0"" cellspacing=""0"" cellpadding=""1"" bgcolor=""' + fg + '""><td>' + '<table border=""0"" cellspacing=""0"" cellpadding=""1"" bgcolor=""' + bg + '""><td align=""left"" nowrap style=""line-height: 120%""><font color=""' + fg + '"">' + msg + '&nbsp\;</font></td></table></td></table>';" & vbcrlf
	strTip=strTip & "    if(ns4)" & vbcrlf
	strTip=strTip & "    {" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.document.write(content);" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.document.close();" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.visibility = 'visible';" & vbcrlf
	strTip=strTip & "    }" & vbcrlf
	strTip=strTip & "    if(ns6)" & vbcrlf
	strTip=strTip & "    {" & vbcrlf
	strTip=strTip & "      document.getElementById('toolTipLayer').innerHTML = content;" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.display='block'" & vbcrlf
	strTip=strTip & "    }" & vbcrlf
	strTip=strTip & "    if(ie4)" & vbcrlf
	strTip=strTip & "    {" & vbcrlf
	strTip=strTip & "      document.all('toolTipLayer').innerHTML=content;" & vbcrlf
	strTip=strTip & "      toolTipSTYLE.display='block'" & vbcrlf
	strTip=strTip & "    }" & vbcrlf
	strTip=strTip & "  }" & vbcrlf
	strTip=strTip & "}" & vbcrlf
	strTip=strTip & "function moveToMouseLoc(e)" & vbcrlf
	strTip=strTip & "{" & vbcrlf
	strTip=strTip & "  if(ns4||ns6)" & vbcrlf
	strTip=strTip & "  {" & vbcrlf
	strTip=strTip & "    x = e.pageX;" & vbcrlf
	strTip=strTip & "    y = e.pageY;" & vbcrlf
	strTip=strTip & "  }" & vbcrlf
	strTip=strTip & "  else" & vbcrlf
	strTip=strTip & "  {" & vbcrlf
	strTip=strTip & "    x = event.x + document.body.scrollLeft;" & vbcrlf
	strTip=strTip & "    y = event.y + document.body.scrollTop;" & vbcrlf
	strTip=strTip & "  }" & vbcrlf
	strTip=strTip & "  toolTipSTYLE.left = x + offsetX;" & vbcrlf
	strTip=strTip & "  toolTipSTYLE.top = y + offsetY;" & vbcrlf
	strTip=strTip & "  return true;" & vbcrlf
	strTip=strTip & "}" & vbcrlf
	strTip=strTip & "initToolTips();" & vbcrlf
	strTip=strTip & "</SCRIPT>" & vbcrlf
	ShowTip=strTip
end function

'=================================================
'函数名：ShowUbb()
'作  用：显示Ubb标签
'参  数：info 提示信息内容
'=================================================
function ShowUbb()
	dim strUbb
	strUbb="<SCRIPT language=javascript>" & vbcrlf
	strUbb=strUbb & "helpstat = false;" & vbcrlf
	strUbb=strUbb & "stprompt = true;" & vbcrlf
	strUbb=strUbb & "basic = false;" & vbcrlf
	strUbb=strUbb & "function thelp(swtch){" & vbcrlf
	strUbb=strUbb & "	if (swtch == 1){" & vbcrlf
	strUbb=strUbb & "		basic = false;" & vbcrlf
	strUbb=strUbb & "		stprompt = false;" & vbcrlf
	strUbb=strUbb & "		helpstat = true;" & vbcrlf
	strUbb=strUbb & "	} else if (swtch == 0) {" & vbcrlf
	strUbb=strUbb & "		helpstat = false;" & vbcrlf
	strUbb=strUbb & "		stprompt = false;" & vbcrlf
	strUbb=strUbb & "		basic = true;" & vbcrlf
	strUbb=strUbb & "	} else if (swtch == 2) {" & vbcrlf
	strUbb=strUbb & "		helpstat = false;" & vbcrlf
	strUbb=strUbb & "		basic = false;" & vbcrlf
	strUbb=strUbb & "		stprompt = true;" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function AddText(NewCode) {" & vbcrlf
	strUbb=strUbb & "document.myform.GuestContent.value+=NewCode;" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function emails() {" & vbcrlf
	strUbb=strUbb & "	if (helpstat) {" & vbcrlf
	strUbb=strUbb & "		alert(""Email 标记\n插入 Email 超级链接\n用法1: [email]nobody@domain.com[/email]\n用法2: [email=nobody@domain.com]佚名[/email]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[email][/email]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt2=prompt(""链接显示的文字.\n如果为空，那么将只显示你的 Email 地址"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt2!=null) {" & vbcrlf
	strUbb=strUbb & "			txt=prompt(""Email 地址."",""name@domain.com"");" & vbcrlf
	strUbb=strUbb & "			if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "				if (txt2=="""") {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[email]""+txt+""[/email]"";" & vbcrlf
	strUbb=strUbb & "				} else {" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[email=""+txt+""]""+txt2;" & vbcrlf
	strUbb=strUbb & "					AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "					AddTxt=""[/email]"";" & vbcrlf
	strUbb=strUbb & "				}" & vbcrlf
	strUbb=strUbb & "				AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			}" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function flash() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""Flash 动画\n插入 Flash 动画.\n用法: [flash]Flash 文件的地址[/flash]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[flash][/flash]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""Flash 文件的地址"",""http://"");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[flash]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/flash]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function Cdir() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""Shockwave 动画\n插入 Shockwave 动画.\n用法: [dir=500,350]Shockwave 文件的地址[/dir]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[dir][/dir]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""Shockwave 文件的地址"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[dir=500,350]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/dir]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
	strUbb=strUbb & "" & vbcrlf
	strUbb=strUbb & "function Crm() {" & vbcrlf
	strUbb=strUbb & " 	if (helpstat){" & vbcrlf
	strUbb=strUbb & "		alert(""real player 文件\n插入 real player 文件.\n用法: [rm=500,350]real player 文件的地址[/rm]"");" & vbcrlf
	strUbb=strUbb & "	} else if (basic) {" & vbcrlf
	strUbb=strUbb & "		AddTxt=""[rm][/rm]"";" & vbcrlf
	strUbb=strUbb & "		AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "	} else {" & vbcrlf
	strUbb=strUbb & "		txt=prompt(""real player 文件的地址"","""");" & vbcrlf
	strUbb=strUbb & "		if (txt!=null) {" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[rm=500,350]""+txt;" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "			AddTxt=""[/rm]"";" & vbcrlf
	strUbb=strUbb & "			AddText(AddTxt);" & vbcrlf
	strUbb=strUbb & "		}" & vbcrlf
	strUbb=strUbb & "	}" & vbcrlf
	strUbb=strUbb & "}" & vbcrlf
12 3 4 下一页
💿 文件大小 50 K
👤 上传用户 dante55
📂 所属分类 FlashMX/Flex源码
🏷️ 相关标签

#FlashMX #程序
⌨️ 快捷键说明

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