论坛，怎样在发帖时用JavaScript实现点击某个表情图片，自动在同一页面的文本框中加入图片对应的标签？


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<script type="text/javascript">
function ins(insertStr)
{
var obj = document.getElementById("text1")
if(document.all)
{
obj.focus();
var range = document.selection.createRange();
range.text=insertStr;
}
else if(obj.setSelectionRange)
{
var rangeStart = obj.selectionStart; 
var rangeEnd = obj.selectionEnd; 
var temp1 = obj.value.substring(0,rangeStart); 
var temp2 = obj.value.substring(rangeEnd); 
obj.value = temp1 + insertStr + temp2; 
}
}
</script>
</head>
<body>
<input type="button" onclick="ins('[:123]')" value="插入">
<input type="text" id="text1" value="文本文本">
</body></html>差不多把 把BUTTON换成IMG就行了

解决方案 »

  1.   

    谢谢，但是想问一下楼上的 if(document.all) 是什么意思？
      

  2.   

    判断是否为ie
    只有ie才支持document.all属性
      

  3.   

    用其他标签导入的图片？
    可以直接用<img src="xx.gif" onclick="ins('你的格式')"> 就行的啊
      

  4.   

    不行啊，虽然标签可以导入到文本框中，但是仍然是每次点击就打开新窗口显示图片。

        'response.Write "a1"
        Set fs=server.CreateObject("scripting.filesystemobject")
    set fd=fs.getfolder(server.mappath("Images/biaoqing"))  
    'response.Write server.MapPath("Images/biaoqing/")
    set fc=fd.files
    i=1
    response.Write "<tr>"
    response.Write "<td rowspan='5'><textarea name='c_message_content' cols='90' rows='20'></textarea></td>"  
    response.Write "<td rowspan='5' valign='top'>发帖表情</td>"
                for each fl in fc  
      response.Write "<td>"
      response.write "<a href=http://128.0.0.100:8050/images/biaoqing/"&fl.name&" target=_blank><img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:123]')></img></a>"   
      response.Write "</td>"
      if i mod 3=0 then response.Write "</tr><tr>"
      i=i+1
                next
      

  5.   

    把<a>标签去了 直接response.write "<img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:123]')>"就行
      

  6.   

    谢谢，不过还有最后一个问题，就是我那个JS函数的输入值：[:123]中的“123”实际上是上帖程序中的文件名，但是这个我在程序中应该如何引用呢？
          response.write "<a href=http://128.0.0.100:8050/images/biaoqing/"&fl.name&" target=_blank><img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:123]')></img></a>"
      

  7.   


    response.write "<img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:"&Split(fl.name,".")(0)&"]')>"这样呢？
      

  8.   

    不行啊老兄，Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /forumAdd.asp，行165 就是这一行还不对。
      

  9.   

    完整的图片名是123 还是123.gif?之类有后缀的？
    如果没后缀 用response.write "<img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:"&fl.name&"]')>"
      

  10.   

    是完整的，但是奇怪，用您刚才写的这个：
    response.write "<img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:"&fl.name&"]')>"
    就没问题，但是用
    response.write "<img src=images/biaoqing/"&fl.name&" border=0 onclick=ins('[:"&Split(fl.name,".")(0)&"]')>"
    就不行，但是我想把.gif去掉，应该怎么办呢？还求前辈指教！
      

  11.   

    有这怪事？晕死了 难道还有其他文件？
    实在不行在JS里动手吧 <script type="text/javascript">
    function ins(insertStr)
    {
    if(insertStr.indexOf('.')>-1)
    insertStr=insertStr.split(".")[0]
    var obj = ……
    ……
    }
    </script>