关于JS快速显示提示信息特效中的问题 http://www.cschina.org/Board/Board.asp?BoardID=100麻烦大大到我的论坛来看看,这个页面中的标题,您将鼠标指上去,看看每个标题显示出来的提示信息有何不同?在线等您。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 干吗要用title?自己定一个属性,比如tit="你要显示的内容",这样只要将event.srcElement.tit赋给你div的innerHTML就好了,根本不会有机会出现系统的那个提示框 测试ID:NAME:故事PWD:ffffff我发现,帖子的标题只要使用了论坛发帖时的“样式”,指定了标题颜色的,均不能按照上面的代码设置正确显示。求教各位大大! 我发现,帖子的标题只要使用了论坛发帖时的“样式”,指定了标题颜色的,均不能按照上面的代码设置正确显示。======================================titlelayer.innerText=temptitle;==>titlelayer.innerHTML=temptitle; scoutlin(梅川库子) 大大,我按照您的指点,将titlelayer.innerText=temptitle;(一处)替换成titlelayer.innerHTML=temptitle; 了,但是仍然没有解决问题。您再帮我看看,指点一下,好么?我等您。 以下是发帖页面的源码:.......<td bgcolor=<%=DEF_BBS_LightColor%> width="<%=DEF_BBS_LeftTDWidth%>" class=TBBG1>*帖子名称</td> <td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9> <% If VoteFlag = 0 Then%> <input maxlength=255 name=Form_Title size="49" value="<% If (Request("SubmitFlag") = "first" or Request("SubmitFlag") = "") and form_ParentID > 0 and Form_Title="" Then If Left(LMT_TopicName,3) <> "Re:" Then Response.Write "Re:" & htmlencode(LMT_TopicNameNoHTML) Else Response.Write htmlencode(LMT_TopicNameNoHTML) End If Else Response.Write htmlencode(Form_title) End If%>" class=fminpt><% Else%> <input maxlength=255 name=Form_Title size="35" value="<%=htmlencode(Form_Title)%>" class=fminpt> <%If isNumeric(Form_Vote_ExpireDay) = 0 then Form_Vote_ExpireDay = 0 Form_Vote_ExpireDay = cCur(Form_Vote_ExpireDay)%> <select name="Form_Vote_ExpireDay"> <option value=0>到期时间</option> <option value=0<%If Form_Vote_ExpireDay = 0 Then Response.Write " selected"%>>永不到期</option> <option value=1<%If Form_Vote_ExpireDay = 1 Then Response.Write " selected"%>>一天</option> <option value=2<%If Form_Vote_ExpireDay = 2 Then Response.Write " selected"%>>两天</option> <option value=3<%If Form_Vote_ExpireDay = 3 Then Response.Write " selected"%>>三天</option> <option value=7<%If Form_Vote_ExpireDay = 7 Then Response.Write " selected"%>>一周</option> <option value=10<%If Form_Vote_ExpireDay = 10 Then Response.Write " selected"%>>十天</option> <option value=15<%If Form_Vote_ExpireDay = 15 Then Response.Write " selected"%>>半个月</option> <option value=20<%If Form_Vote_ExpireDay = 20 Then Response.Write " selected"%>>二十天</option> <option value=30<%If Form_Vote_ExpireDay = 30 Then Response.Write " selected"%>>一个月</option> <option value=45<%If Form_Vote_ExpireDay = 45 Then Response.Write " selected"%>>一个月半</option> <option value=60<%If Form_Vote_ExpireDay = 60 Then Response.Write " selected"%>>二个月</option> <option value=90<%If Form_Vote_ExpireDay = 90 Then Response.Write " selected"%>>三个月</option> <option value=120<%If Form_Vote_ExpireDay = 120 Then Response.Write " selected"%>>四个月</option> <option value=180<%If Form_Vote_ExpireDay = 180 Then Response.Write " selected"%>>六个月</option> <option value=240<%If Form_Vote_ExpireDay = 240 Then Response.Write " selected"%>>八个月</option> <option value=365<%If Form_Vote_ExpireDay = 365 Then Response.Write " selected"%>>一年</option> </select> <%End If If GBL_BoardMasterFlag >= 5 Then%> <select name="Form_TitleStyle"> <option value=0<%If Form_TitleStyle = 0 Then Response.Write " selected"%>>样式</option><%If GBL_BoardMasterFlag >= 9 or Form_TitleStyle_Old = 1 Then%> <option value=1<%If Form_TitleStyle = 1 Then Response.Write " selected"%>>HTML</option><%End If%> <option value=2<%If Form_TitleStyle = 2 Then Response.Write " selected"%>>红色</option> <option value=3<%If Form_TitleStyle = 3 Then Response.Write " selected"%>>绿色</option> <option value=4<%If Form_TitleStyle = 4 Then Response.Write " selected"%>>蓝色</option> </select> <%End If If cCur(Form_ParentID)=0 and (GBL_CHK_CachetValue > 1 or GBL_BoardMasterFlag >= 4) Then Dim TArray,Num,N TArray = Application(DEF_MasterCookies & "BoardInfo" & GBL_Board_ID & "_TI") If isArray(TArray) = True Then%> <select name="Form_GoodAssort" class=TBBG9 style="width:74"> <Option value=0>选择专题</option> <% Num = Ubound(TArray,2) For N = 0 To Num If cCur(TArray(0,N)) = Form_GoodAssort Then Response.Write "<Option value=" & TArray(0,N) & " selected>" & TArray(1,N) & VbCrLf Else Response.Write "<Option value=" & TArray(0,N) & ">" & TArray(1,N) & VbCrLf End If Next Response.Write "</select>" & VbCrLf End If End If%> 最长255字</td> </tr>........等待中。 以下是显示页面的部分源码:........if(G8 > 1024) { G8 = "主题内容:" + Math.round((G8/1024)) + " KB"; } else { G8 = "主题内容:" + G8 + " 字节"; } if(G20 != "")G8 = G8 + "\n" + "发表时间:" + G21.substr(0,4) + "-" + G21.substr(4,2) + "-" + G21.substr(6,2) + " " + G21.substr(8,2) + ":" + G21.substr(10,2) + "\n" + "最后回复:" + htmlencode(G20);........if(T2!="")document.write("【<a href=../Board/EBoard.asp?BoardID=" + G16 + "&E=1&EID=" + G22 + ">" + T2 + "</a>】"); document.write("<a href=../Announce/Announce.asp?BoardID=" + G16 + "&ID=" + G0 + "<%=LMT_UrlEndString%> title=\"" + G8 + "\">"); if(G17 != 80 && G17 != 54 && G18 > 0)document.write("<img src=../images/<%=GBL_DefineImage%>TC/" + G18 + ".gif align=absmiddle border=0>");........ 我再顶一下,不好意思。另外,我也发现,如果TITLE是在链接当中的时候,也是只出现系统默认的提示信息框,不出现我设定的。 js 中单引号报错的问题 单击事件在ie中响应很慢 javascript 求正则表达文件路径判断 <A href="javascript:window.test()" >test</A>打开窗口! 对easyuui datagrid列求和的问题 求对各种类型的表单进行修改的代码 如何在层中显示指定的网页? 一个奇怪的技术问题 javascript高手请进—>………… 如何打开一个页面的时候自动点击一个动态生成的链接 在线等待:关于控制层CCS的问题,实在搞不懂了,谢谢各位进来看看。 关于checkbox的问题,实现checkgroup功能,再问!!在线等
NAME:故事
PWD:ffffff我发现,帖子的标题只要使用了论坛发帖时的“样式”,指定了标题颜色的,均不能按照上面的代码设置正确显示。求教各位大大!
======================================
titlelayer.innerText=temptitle;
==>
titlelayer.innerHTML=temptitle;
<td bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
<%
If VoteFlag = 0 Then%>
<input maxlength=255 name=Form_Title size="49" value="<%
If (Request("SubmitFlag") = "first" or Request("SubmitFlag") = "") and form_ParentID > 0 and Form_Title="" Then
If Left(LMT_TopicName,3) <> "Re:" Then
Response.Write "Re:" & htmlencode(LMT_TopicNameNoHTML)
Else
Response.Write htmlencode(LMT_TopicNameNoHTML)
End If
Else
Response.Write htmlencode(Form_title)
End If%>" class=fminpt><%
Else%>
<input maxlength=255 name=Form_Title size="35" value="<%=htmlencode(Form_Title)%>" class=fminpt>
<%If isNumeric(Form_Vote_ExpireDay) = 0 then Form_Vote_ExpireDay = 0
Form_Vote_ExpireDay = cCur(Form_Vote_ExpireDay)%>
<select name="Form_Vote_ExpireDay">
<option value=0>到期时间</option>
<option value=0<%If Form_Vote_ExpireDay = 0 Then Response.Write " selected"%>>永不到期</option>
<option value=1<%If Form_Vote_ExpireDay = 1 Then Response.Write " selected"%>>一天</option>
<option value=2<%If Form_Vote_ExpireDay = 2 Then Response.Write " selected"%>>两天</option>
<option value=3<%If Form_Vote_ExpireDay = 3 Then Response.Write " selected"%>>三天</option>
<option value=7<%If Form_Vote_ExpireDay = 7 Then Response.Write " selected"%>>一周</option>
<option value=10<%If Form_Vote_ExpireDay = 10 Then Response.Write " selected"%>>十天</option>
<option value=15<%If Form_Vote_ExpireDay = 15 Then Response.Write " selected"%>>半个月</option>
<option value=20<%If Form_Vote_ExpireDay = 20 Then Response.Write " selected"%>>二十天</option>
<option value=30<%If Form_Vote_ExpireDay = 30 Then Response.Write " selected"%>>一个月</option>
<option value=45<%If Form_Vote_ExpireDay = 45 Then Response.Write " selected"%>>一个月半</option>
<option value=60<%If Form_Vote_ExpireDay = 60 Then Response.Write " selected"%>>二个月</option>
<option value=90<%If Form_Vote_ExpireDay = 90 Then Response.Write " selected"%>>三个月</option>
<option value=120<%If Form_Vote_ExpireDay = 120 Then Response.Write " selected"%>>四个月</option>
<option value=180<%If Form_Vote_ExpireDay = 180 Then Response.Write " selected"%>>六个月</option>
<option value=240<%If Form_Vote_ExpireDay = 240 Then Response.Write " selected"%>>八个月</option>
<option value=365<%If Form_Vote_ExpireDay = 365 Then Response.Write " selected"%>>一年</option>
</select>
<%End If
If GBL_BoardMasterFlag >= 5 Then%>
<select name="Form_TitleStyle">
<option value=0<%If Form_TitleStyle = 0 Then Response.Write " selected"%>>样式</option><%If GBL_BoardMasterFlag >= 9 or Form_TitleStyle_Old = 1 Then%>
<option value=1<%If Form_TitleStyle = 1 Then Response.Write " selected"%>>HTML</option><%End If%>
<option value=2<%If Form_TitleStyle = 2 Then Response.Write " selected"%>>红色</option>
<option value=3<%If Form_TitleStyle = 3 Then Response.Write " selected"%>>绿色</option>
<option value=4<%If Form_TitleStyle = 4 Then Response.Write " selected"%>>蓝色</option>
</select>
<%End If If cCur(Form_ParentID)=0 and (GBL_CHK_CachetValue > 1 or GBL_BoardMasterFlag >= 4) Then
Dim TArray,Num,N
TArray = Application(DEF_MasterCookies & "BoardInfo" & GBL_Board_ID & "_TI")
If isArray(TArray) = True Then%>
<select name="Form_GoodAssort" class=TBBG9 style="width:74">
<Option value=0>选择专题</option>
<%
Num = Ubound(TArray,2)
For N = 0 To Num
If cCur(TArray(0,N)) = Form_GoodAssort Then
Response.Write "<Option value=" & TArray(0,N) & " selected>" & TArray(1,N) & VbCrLf
Else
Response.Write "<Option value=" & TArray(0,N) & ">" & TArray(1,N) & VbCrLf
End If
Next
Response.Write "</select>" & VbCrLf
End If
End If%> 最长255字</td>
</tr>........等待中。
{
G8 = "主题内容:" + Math.round((G8/1024)) + " KB";
}
else
{
G8 = "主题内容:" + G8 + " 字节";
}
if(G20 != "")G8 = G8 + "\n" + "发表时间:" + G21.substr(0,4) + "-" + G21.substr(4,2) + "-" + G21.substr(6,2) + " " + G21.substr(8,2) + ":" + G21.substr(10,2) + "\n" + "最后回复:" + htmlencode(G20);........if(T2!="")document.write("【<a href=../Board/EBoard.asp?BoardID=" + G16 + "&E=1&EID=" + G22 + ">" + T2 + "</a>】");
document.write("<a href=../Announce/Announce.asp?BoardID=" + G16 + "&ID=" + G0 + "<%=LMT_UrlEndString%> title=\"" + G8 + "\">");
if(G17 != 80 && G17 != 54 && G18 > 0)document.write("<img src=../images/<%=GBL_DefineImage%>TC/" + G18 + ".gif align=absmiddle border=0>");........