ubbbln.asp

主要功能与特点： 1、本站个人主页是一个多功能的主页系统； 2、它有添加、修改、删除作品、相片、歌曲、日记等功能； 3、还可以添加flash、电影等

<%
'UBB图片
Function UBBBln(Objname)
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/bold.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""加粗"" OnClick=""javascript:bold('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/italicize.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""倾斜"" OnClick=""javascript:italicize('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/underline.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""下划线"" OnClick=""javascript:underline('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/center.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""居中"" OnClick=""javascript:center('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/url.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""超级链接"" OnClick=""javascript:url('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/email.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""Email链接"" OnClick=""javascript:email('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/fly.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""飞行字"" OnClick=""javascript:fly('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/shadow.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""阴影字"" OnClick=""javascript:shadow('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/image.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""插入图片"" OnClick=""javascript:image('"& Objname &"');"">&nbsp;")
	Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/Help.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""帮助"" OnClick=""javascript:help('"& Objname &"');"">&nbsp;")
End Function
'表情图片显示
Function UbbEm(Objname)
	Dim Sql,Rs,I
	Db.Open()
	Sql = "Select * From wr_Em"
	Set Rs = Db.ExeCute(Sql)
	I = 1
	While Not Rs.Eof
		If I mod 7 = 1 Then
			Response.Write("<br>")
		End If
		I = I + 1
		Response.Write("<img style=""cursor:hand;"" src=""images/em/"& Rs("ImgName") &""" border=0 OnClick=""AddText('"& Objname &"','"& Rs("EmTxt") &"')"">&nbsp;")
		Rs.Movenext
	Wend
	Db.Close()
End Function
%>