textarea 应用问题

[bnabinge]

<form method="POST" action="articleaddsave.asp" name="mainform">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="550" id="AutoNumber8">
<tr>
<td width="550" colspan="2" height="15"></td>
</tr>
<tr>
<td width="550" colspan="2" height="20" background="img/backgroud_02.gif">
<p class="tableh2">增加资讯</td>
</tr>
<tr>
<td width="50" height="30" class="table1" background="img/back_line.gif">
文章名称：</td>
<td width="500" height="30" background="img/back_line.gif">
<input name="articlename" id=me size=30 maxlength=100></td>
</tr>
<tr>
<td width="50" class="table1" background="img/back_line.gif" height="30">
所属类别：</td>
<td width="500" background="img/back_line.gif" height="30">
<select name="typeid" size="1">
<%
dim rs,sql,sel
set rs=server.createobject("adodb.recordset")
sql="select * from type order by typeid desc"
rs.open sql,conn,1,1
do while not rs.eof
sel="selected"
response.write "<option " & sel & " value='"+CStr(rs("typeid"))+"' name=typeid>"+rs("typename")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
</select></td>
</tr>
<tr>
<td width="50" class="table1" background="img/back_line.gif">文章内容：</td>
<td width="500" bgcolor="#F6F6F6">
<textarea name="content" style="WIDTH:500; HEIGHT:305; overflow-xx:hidden"></textarea></td>
</tr>
<tr>
<td width="50" class="table1" background="img/back_line.gif" height="30">
　</td>
<td width="500" background="img/back_line.gif" height="30">
<p class="table1">本系统支持任意位置贴图功能，格式：[tu]图片的完整路径或相对路径[/tu] </td>
</tr>
</table>
<p align="center"><input type="submit" value="增加" class="formb" name="cmdok">  
<input type="reset" value="复原" class="formb" name="cmdcancel"></p>
</form>
<SCRIPT language=javascript>
var _formName = 'mainform';
var _textName = 'content';
var _toolBarIconPath = 'http://image.taobao.com/editor';
var _debug = false;

var _maxCount = 25000;
var _postAction = 'articleaddsave.asp';

//语言
var _a_lang = new Array();
_a_lang['pic'] = '图片';
_a_lang['url'] = '地址';
_a_lang['viewe'] = '显示效果';
_a_lang['border'] = '边框粗细';
_a_lang['align'] = '对齐方式';
_a_lang['absmiddle'] = '绝对居中';
_a_lang['aleft'] = '居左';
_a_lang['aright'] = '居右';
_a_lang['atop'] = '顶部';
_a_lang['amiddle'] = '中部';
_a_lang['abottom'] = '底部';
_a_lang['absbottom'] = '绝对底部';
_a_lang['baseline'] = '基线';
_a_lang['submit'] = '确定';
_a_lang['cancle'] = '取消';
_a_lang['hlink'] = '超级链接';
_a_lang['other'] = '其他选项';
_a_lang['newwindow'] = '在新窗口打开';
_a_lang['ttop'] = '文本顶部';

_a_lang['copy'] = '复制';
_a_lang['cut'] = '剪切';
_a_lang['pau'] = '粘贴';
_a_lang['del'] = '删除';

_a_lang['bold'] = '粗体';
_a_lang['italic'] = '斜体';
_a_lang['underline'] = '下划线';
_a_lang['st'] = '中划线';
_a_lang['jl'] = '左对齐';
_a_lang['jc'] = '居中对齐';
_a_lang['jr'] = '右对齐';

_a_lang['fcolor'] = '文字颜色';
_a_lang['bcolor'] = '文字背景颜色';
_a_lang['ilist'] = '编号';
_a_lang['itlist'] = '项目符号';
_a_lang['sup'] = '上标';
_a_lang['sub'] = '下标';
_a_lang['createlink'] = '插入链接';
_a_lang['unlink'] = '取消链接';
_a_lang['inserthr'] = '插入水平线';
_a_lang['insertimg'] = '插入/修改图片';
_a_lang['editsource'] = '编辑源文件';
_a_lang['preview'] = '预览';
_a_lang['usehtml'] = '使用编辑器编辑';

_a_lang['font'] = '字体';
_a_lang['simsun'] = '宋体';
_a_lang['simhei'] = '黑体';
_a_lang['simkai'] = '楷体';
_a_lang['fangsong'] = '仿宋';
_a_lang['lishu'] = '隶书';
_a_lang['youyuan'] = '幼圆';

_a_lang['fontsize'] = '字号';
_a_lang['fontsize_1'] = '一号';
_a_lang['fontsize_2'] = '二号';
_a_lang['fontsize_3'] = '三号';
_a_lang['fontsize_4'] = '四号';
_a_lang['fontsize_5'] = '五号';
_a_lang['fontsize_6'] = '六号';
_a_lang['fontsize_7'] = '七号';

_a_lang['current'] = '当前';
_a_lang['word'] = '字';
_a_lang['maxword'] = '最多';

_a_lang['modify'] = '修改';
_a_lang['insert'] = '插入';

</SCRIPT>

<SCRIPT language=javascript src="editor_multi_lang.js"></SCRIPT>


这个是录入页面的FORM部分代码.
---------------------------------------------------------------------
<!--#include file="agentcyconn1.asp"-->
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">")," "," "),chr(13),"<br>")
changechr=replace(replace(replace(replace(changechr,"[tu]","<img src='"),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/tu]","></img>"),"","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function

%>

<%
IF not(Session("KEY")="super" or session("KEY")="check" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF

if request.form("articlename")="" then
response.write "错误提示:请输入资讯名称!"
response.end
end if
if request.form("content")="" then
response.write "错误提示:请输入资讯内容"
response.end
end if

dim sql,rs
dim articlename,articleid,content,about,typeid

articlename=request.form("articlename")
typeid=request.form("typeid")
about=request.form("about")


dim sql1
dim rs1
dim typename1
sql1="select * from type where typeid=" & typeid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
typename1=rs1("typename")
typeid=rs1("typeid")
filepath=rs1("typeeng")

content=changechr(request.form("content"))

set rs=server.createobject("adodb.recordset")
sql="select * from article where (articleid is null)"
rs.open sql,conn,1,3
rs.addnew
rs("articlename")=articlename
rs("content")=content
rs("typeid")=typeid
rs("typename")=typename1
rs("about")=about
rs.update

articleid=rs("articleid")
rs1.close
set rs1=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
%><head>
</head>

<link rel="stylesheet" type="text/css" href="style.css">

<div align="center">
<table border="1" cellspacing="0" width="400" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr bgcolor="#000066">
<td width="100%" height="20" background="../../img/backgroud_01.gif">
<p align="center" class="tableh2">添加资讯成功</td>
</tr>
<tr>
<td width="100%" height="50" valign="top">
<p class="tit2">其资讯类别为：<%response.write typename1%></p>
<p class="tit2">其资讯名称为：<%response.write articlename%></p>
<p class="tit2">是否继续添加？     <a href="articleadd.asp">是</a>    
<a href="articlemanage.asp?typeid=<%=typeid%>" >否</a></td>
</tr>
</table>
</div>
-------------------------------------保存页代码
--------------------------------------------------------------------------

[awaysrain]

光贴代码，所你啥问题啊

[bnabinge]

http://www.qynly.com/editor_multi_lang.js

表现的页
http://www.qynly.com/article/articlelist.asp?id=265

问题.在后能的录入页的textarea 设滚动条不可见没有生效.我用了样式overflow-x:hidden

再前台显示的时后.如何把那些HTM代码转成它相应的功能.如,是图的就显示图.而不是.代码.
后台的.textarea 如何设定一定的宽度然后换行.

谢谢各位高手帮忙.
小弟初学.希望大家能贴代码出来.

[bnabinge]

问题在下楼下啊

[zhenmeiyisi]

没有水平滚动条
<textarea style="overflow-x:hidden"></textarea>

没有垂直滚动条
<textarea style="overflow-y:hidden"></textarea>

没有滚动条
<textarea style="overflow-x:hidden;overflow-y:hidden"></textarea>
或<textarea style="overflow:hidden"></textarea>



四行 row=4 每行30个字符（30列） cols=30

<textarea name="content" style="overflow:hidden" cols=30 row=4></textarea>

[孟子E章]

<textarea name="content" style="overflow:visible" cols=30>
总不会有多余的空行和滚动条
</textarea>

[bnabinge]

还有呢.前台的数据提出显示.怎么做?

[bnabinge]

楼上两位所说的.不行啊.

[slayerbb]

function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">")," "," "),chr(13),"<br/>")
changechr=replace(replace(replace(replace(changechr,"[tu]","<img src='"),"","<b>"),"[red]","<font color=CC0000>"),"[big]","<font size=7>")
changechr=replace(replace(replace(replace(changechr,"[/tu]","></img>"),"","</b>"),"[/red]","</font>"),"[/big]","</font>")
end function

把你的这个函数逆转就可以了

[bnabinge]

其实我想要的就是自动换行啊

[slayerbb]

就是你转义存储之后并没有反过来的程序

[bnabinge]

slayerbb(名字被抢了) ( ) 信誉：98
不会写啊
可以帮一下忙吗

[bnabinge]

是真的没有人会.还是觉得我的问题无过于简单.怎么会没有人呢.不会比DELPHI专区还要差吧

[bnabinge]

高手们帮一下啊