如题,想在栏目的简介和自设选项里加入编辑器; 高手帮看一下怎么改啊,,
现在编辑器是加上了,但不显示内容;;;
-
If Action="Edit" Then
- IF DefineNum-1<=Ubound(ClassDefineContentArr) Then
- .Write " <td> <TEXTAREA class='textbox' ID='ClassDefineContent' Name='ClassDefineContent" & DefineNum &"' ROWS='' COLS=''style='width:500px;height:100px' style='display:none'>" &ClassDefineContentArr(DefineNum-1)& "</TEXTAREA> " & vbCrLf
- .Write "<script type=""text/javascript""> " & vbCrLf
- .Write "CKEDITOR.replace('ClassDefineContent', {width:""98%"",height:""100px"",toolbar:""Basic"",filebrowserBrowseUrl :""Include/SelectPic.asp?from=ckeditor&Currpath="& KS.GetUpFilesDir() &""",filebrowserWindowWidth:650,filebrowserWindowHeight:100});" & vbCrLf
- .Write "</script> " & vbCrLf