www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\admin\inc\UBBBln.asp
<% '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 &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/italicize.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""倾斜"" OnClick=""javascript:italicize('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/underline.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""下划线"" OnClick=""javascript:underline('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/center.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""居中"" OnClick=""javascript:center('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/url.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""超级链接"" OnClick=""javascript:url('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/email.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""Email链接"" OnClick=""javascript:email('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/fly.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""飞行字"" OnClick=""javascript:fly('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/shadow.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""阴影字"" OnClick=""javascript:shadow('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/image.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""插入图片"" OnClick=""javascript:image('"& Objname &"');""> ") Response.Write("<IMG style=""cursor:hand;"" SRC=""images/UBB/Help.gif"" WIDTH=""23"" HEIGHT=""22"" BORDER=""0"" ALT=""帮助"" OnClick=""javascript:help('"& Objname &"');""> ") 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") &"')""> ") Rs.Movenext Wend Db.Close() End Function %>