ckeditor無法編輯- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
2029

會員總數：246318
討論主題：189850

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> ASP >> ckeditor無法編輯

[]

[我要回覆]

ckeditor無法編輯
價值 : 30 QP 點閱數:1991 回應數:0

樓主

小裕

137	219
3486	418

發送站內信

我有一段程式當點擊編輯後，
應該會跳HTML EDITOR，
現在都沒反應，請問是哪裡有問題呢？？

我單獨測試簡單的下面這段是正常的

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>A Simple Page with CKEditor</title>

<script type="text/javascript" src="ckeditor/ckeditor.js"></script>
<script type="text/javascript" src="ckfinder/ckfinder.js"></script>
</head>
<body>
<form>
<textarea id="content" name="content" class="ckeditor" rows="9" cols="96"></textarea>

</form>
</body>
</html>

<%call HTML_Editor("../inc/")%>


<%pno=session("pno")%>
<%stno=request("ostno")%>
<%stnox=request("stno")%>

<%set RSP=SC.execute("select * from d_project where pno="&pno&" ")
if stno="" then stno=0 end if
Set RsL=SC.execute("select * from order_stru where stno="&stno&" ")
g=0
i=0
j=0
k=0
function layer1(stno1)
Set Rs1=SC.execute("select * from order_stru where layer=1 and stno="&stno1&" order by tsort")
do while not Rs1.eof
g=g+1
response.write "<p style='margin-top:12.0pt;margin-right:0cm;margin-bottom:12.0pt;margin-left:0cm;text-align:center;font-size:12.0pt;font-family:Arial;color:maroon;font-weight:bold;text-decoration:underline;'>"
response.write chr(g+64)&"."&Rs1("TITLE") 
response.write "</p>"
i=0
Set Rs1x=SC.execute("select * from order_stru where layer=2 and up_no="&stno1&" order by tsort")
if not rs1x.eof then
do while not rs1x.eof
layer2(Rs1x("stno"))
rs1x.movenext
loop
end if

response.write "</div><br clear='all' style='page-break-before: always'>"
Rs1.movenext
loop
response.write "<br clear=all style='page-break-before:always;mso-break-type:section-break'>"
response.write "<div style='size:842.0pt 568.0pt;margin:0.0cm 0.0cm 0.0pt 0.0cm'>"
response.write "<table width=842 hight=568 ></table></div>"

end function

function layer2(stno2)
Set Rs2=SC.execute("select * from order_stru where layer=2 and stno="&stno2&" order by tsort")
if not rs2.eof then
do while not Rs2.eof
i=i+1
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
response.write "<tr><td width='5%'>"
response.write "<p style='margin-top:6.0pt;	margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:green;font-weight:bold;'>"
response.write chr(g+64)&"."&i&".</p></td><td width='95%'>"
response.write "<p style='margin-top:6.0pt;margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:green;font-weight:bold;'>"
response.write "<u>"&Rs2("TITLE")&"</u><a href='context_ins.asp?stno="&Rs2("stno")&"&ostno="&stno&"'>[edit]</a></p>"    
response.write "</td></tr></table>"

Set Rs2c=SC.execute("select * from order_text where stno="&Rs2("stno")&" and pno="&pno&" order by tsort")
if not Rs2c.eof then
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
do while not Rs2c.eof
context=Rs2c("context")
Set Rs2v=SC.execute("select * from order_value,order_tag where order_value.tagno=order_tag.tagno and  pno="&pno&" ")
if not Rs2v.eof then
do while not Rs2v.eof
context=replace(context,"["&Rs2V("tagname")&"]","<span style=""background-color: #FFFF00"">"&Rs2V("tagvalue")&"</span>")
Rs2v.movenext
loop
end if

response.write "<tr><td width='15%'></td><td width='85%'>"

if cint(stnox)=cint(Rs2("stno")) then
response.write "<form method='POST' name='n"&RS2c("ctno")&"' target='upd' action='text_upd.asp'>"
response.write "<SCRIPT>"
response.write "function sub(){"
response.write "document.n"&RS2c("ctno")&".context.value=GetHTMLSource(chkViewHTML1,1);"
'response.write "location.href='node_list.asp?stno="&stno&"';"
response.write "location.reload();"
response.write "}"
response.write "</SCRIPT><input type='submit' value='儲存' name='B1' onclick='sub()'><input type='button' value='跳離' name='B2' onclick=""location.href='node_list.asp?stno="&stno&"'"">"
response.write "<input type='hidden' name='context' value='"&server.htmlencode(Rs2c("context"))&"' >"
call GenerateEditor("GenerateEditor('document.n"&RS2c("ctno")&".context','100%','300')")
response.write "<input type='hidden' name='ocontext' value='"&server.htmlencode(Rs2c("context"))&"' >"
response.write "<input type='hidden' name='cno' value='"&RS2c("ctno")&"'>"
response.write "<input type='hidden' name='stno' value='"&RS2c("stno")&"'>"
response.write "</form>"
else
response.write "<p style='margin-top:6.0pt;margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;line-height: 120%;'>"
response.write context
end if

response.write "</td></tr>"

context1=context
context=""
Rs2c.movenext
loop

response.write"</table>"
if instr(context1,"<br clear=""all"" style=""page-break-before: always"">")>1 then response.write "<br clear=""all"" style=""page-break-before: always"">" 
end if
j=0
Set Rs2x=SC.execute("select * from order_stru where layer=3 and up_no="&stno2&" order by tsort")
if not rs2x.eof then
do while not rs2x.eof
layer3(Rs2x("stno"))
rs2x.movenext
loop
end if

Rs2.movenext
loop
end if

end function

function layer3(stno3)
Set Rs3=SC.execute("select * from order_stru where layer=3 and stno="&stno3&" order by tsort")
if not rs3.eof then
do while not Rs3.eof
j=j+1
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
response.write "<tr><td width='5%'>"
response.write "<p style='margin-top:6.0pt;	margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:blue;'>"
response.write chr(g+64)&"."&i&"."&Chr(96+j)&".</p></td><td width='95%'>"
response.write "<p style='margin-top:6.0pt;	margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:blue;'>"
response.write "<u>"&Rs3("TITLE")&"</u><a href='context_ins.asp?stno="&Rs3("stno")&"&ostno="&stno&"'>[edit]</a></p>"    
response.write "</td></tr></table>"

Set Rs3c=SC.execute("select * from order_text where stno="&Rs3("stno")&" and pno="&pno&" order by tsort")
if not Rs3c.eof then
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
do while not Rs3c.eof
context=Rs3c("context")
Set Rs3v=SC.execute("select * from order_value,order_tag where order_value.tagno=order_tag.tagno and  pno="&pno&" ")
if not Rs3v.eof then
do while not Rs3v.eof
context=replace(context,"["&Rs3V("tagname")&"]","<span style=""background-color: #FFFF00"">"&Rs3V("tagvalue")&"</span>")
Rs3v.movenext
loop
end if

response.write "<tr><td width='15%'></td><td width='85%'>"

if cint(stnox)=cint(Rs3("stno")) then
response.write "<form method='POST' name='n"&RS3c("ctno")&"' target='upd' action='text_upd.asp'>"
response.write "<SCRIPT>"
response.write "function sub(){"
response.write "document.n"&RS3c("ctno")&".context.value=GetHTMLSource(chkViewHTML1,1);"
'response.write "location.href='node_list.asp?stno="&stno&"';"
response.write "location.reload();"
response.write "}"
response.write "</SCRIPT><input type='submit' value='儲存' name='B1' onclick='sub()'><input type='button' value='跳離' name='B2' onclick=""location.href='node_list.asp?stno="&stno&"'"">"
response.write "<input type='hidden' name='context' value='"&server.htmlencode(Rs3c("context"))&"' >"
call GenerateEditor("GenerateEditor('document.n"&RS3c("ctno")&".context','100%','300')")
response.write "<input type='hidden' name='ocontext' value='"&server.htmlencode(Rs3c("context"))&"' >"
response.write "<input type='hidden' name='cno' value='"&RS3c("ctno")&"'>"
response.write "<input type='hidden' name='stno' value='"&RS3c("stno")&"'>"
response.write "</form>"
else
response.write "<p style='margin-top:6.0pt;margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;line-height: 120%;'>"
response.write context
end if

response.write "</td></tr>"

context1=context
context=""
Rs3c.movenext
loop

response.write"</table>"
if instr(context1,"<br clear=""all"" style=""page-break-before: always"">")>1 then response.write "<br clear=""all"" style=""page-break-before: always"">" 
end if
k=0

Set Rs3x=SC.execute("select * from order_stru where layer=4 and up_no="&stno3&" order by tsort")
if not rs3x.eof then
do while not rs3x.eof
layer4(Rs3x("stno"))
rs3x.movenext
loop
end if

Rs3.movenext
loop
end if

end function

function layer4(stno4)
Set Rs4=SC.execute("select * from order_stru where layer=4 and stno="&stno4&" order by tsort")
do while not Rs4.eof
k=k+1
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
response.write "<tr><td width='5%'>"
response.write "<p style='margin-top:6.0pt;	margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:blue;'>"
response.write chr(g+64)&"."&i&"."&Chr(96+j)&"."&k&".</p></td><td width='95%'>"
response.write "<p style='margin-top:6.0pt;	margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;color:blue;'>"
response.write "<u>"&Rs4("TITLE")&"</u><a href='context_ins.asp?stno="&Rs4("stno")&"&ostno="&stno&"'>[edit]</a></p>"    
response.write "</td></tr></table>"

Set Rs4c=SC.execute("select * from order_text where stno="&Rs4("stno")&" and pno="&pno&" order by tsort")
if not Rs4c.eof then
response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>"
do while not Rs4c.eof
context=Rs4c("context")
Set Rs4v=SC.execute("select * from order_value,order_tag where order_value.tagno=order_tag.tagno and  pno="&pno&" ")
if not Rs4v.eof then
do while not Rs4v.eof
context=replace(context,"["&Rs4V("tagname")&"]","<span style=""background-color: #FFFF00"">"&Rs4V("tagvalue")&"</span>")
Rs4v.movenext
loop
end if

response.write "<tr><td width='15%'></td><td width='85%'>"
if cint(stnox)=cint(Rs4("stno")) then
response.write "<form method='POST' name='n"&RS4c("ctno")&"' target='upd' action='text_upd.asp'>"
response.write "<SCRIPT>"
response.write "function sub(){"
response.write "document.n"&RS4c("ctno")&".context.value=GetHTMLSource(chkViewHTML1,1);"
'response.write "location.href='node_list.asp?stno="&stno&"';"
response.write "location.reload();"
response.write "}"
response.write "</SCRIPT><input type='submit' value='儲存' name='B1' onclick='sub()'><input type='button' value='跳離' name='B2' onclick=""location.href='node_list.asp?stno="&stno&"'"">"
response.write "<input type='hidden' name='context' value='"&server.htmlencode(Rs4c("context"))&"' >"
call GenerateEditor("GenerateEditor('document.n"&RS4c("ctno")&".context','100%','300')")
response.write "<input type='hidden' name='ocontext' value='"&server.htmlencode(Rs4c("context"))&"' >"
response.write "<input type='hidden' name='cno' value='"&RS4c("ctno")&"'>"
response.write "<input type='hidden' name='stno' value='"&RS4c("stno")&"'>"
response.write "</form>"
else
response.write "<p style='margin-top:6.0pt;margin-right:0cm;margin-bottom:3.0pt;margin-left:0cm;line-height:12.0pt;font-size:12.0pt;font-family:Arial;line-height: 120%;'>"
response.write context
end if
response.write "</td></tr>"

context1=context
context=""
Rs4c.movenext
loop

response.write"</table>"
if instr(context1,"<br clear=""all"" style=""page-break-before: always"">")>1 then response.write "<br clear=""all"" style=""page-break-before: always"">" 
end if

Rs4.movenext
loop

end function

<%if stno=0 then%>
<html>

<body onload="document.all['Editor1'].focus()">
<br clear="all" style="page-break-before: always">
<div class=Section1 style="size:21.0cm 842.0pt;margin:0.0cm 0.0cm 0.0pt 0.0cm">
<%
Set Rs0=SC.execute("select * from order_stru where layer=1 and tno="&RSP("tno")&" order by tsort")
do while not rs0.eof
layer1(Rs0("stno"))
rs0.movenext
loop%><%end if%><%
if not rsL.eof then
if RsL("layer")=1 then layer1(stno)
if RsL("layer")=2 then layer2(stno)
if RsL("layer")=3 then layer3(stno)
if RsL("layer")=4 then layer4(stno)

end if

<pre lang="xml">
<%sub HTML_Editor(file_src)%>
<SCRIPT LANGUAGE="JavaScript">
var s='<%=file_src%>'
Item_Title = new Array('複製','剪下','貼上','刪除','復原','字型','大小','粗體字','斜體字','加底線','字型色彩','背景顏色','上標字','下標字','調整編號格式','調整項目符號格式','減少縮排','增加縮排','靠左對齊','置中','靠右對齊','插入水平線','插入圖片','插入超連結','插入跑馬燈','插入表格','檢視HTML原始檔')
Font_List= new Array('細明體','新細明體','標楷體','Arial','System','Wingdings')//,'Times New Roman')
cancelViewHTMLChk='請您取消勾選【檢視HTML原始檔】';
</SCRIPT>
<LINK REL=stylesheet TYPE="text/css" HREF="<%=file_src%>images/editor.css">
<SCRIPT LANGUAGE="JScript.Encode" src="<%=file_src%>images/ckeditor.js"></SCRIPT>

<%end sub%>

<%
sub GenerateEditor(js_generate)
aa=Request.ServerVariables("HTTP_USER_AGENT")
bb=inStr(1,aa,";",1)
aint=mid(Request.ServerVariables("HTTP_USER_AGENT"),bb+7,1)
if aint<6 then
response.write("<SCRIPT>setTimeout("&js_generate&")</SCRIPT>")
else
response.write("<SCRIPT>"&js_generate&"</SCRIPT>")
end if
end sub
%>

搜尋相關Tags的文章： [ ckeditor ] ,
本篇文章發表於2017-04-28 11:40

目前尚無任何回覆

回覆

如要回應,請先登入.