修正关键字替换显示错误的BUG并增加关键字前的标示图片
作者:小戒 日期:2008-08-28
开control\action.asp，找到
到
之间的代码，全部替换为：
Dim key_Image
KeyWordID = Split(Request.Form("KeyWordID"), ", ")
KeyWord = Split(Request.Form("KeyWord"), ", ")
KeyWordURL = Split(Request.Form("KeyWordURL"), ", ")
key_Image = Split(Request.Form("key_Image"), ", ")
For i = 0 To UBound(KeyWordID)
If Int(KeyWordID(i))<> -1 Then
conn.Execute("update blog_Keywords set key_Text='"&CheckStr(KeyWord(i))&"',key_URL='"&CheckStr(KeyWordURL(i))&"',key_Image='"&CheckStr(key_Image(i))&"' where key_ID="&KeyWordID(i))
Else
If Len(Trim(CheckStr(KeyWord(i))))>0 Then
conn.Execute("insert into blog_Keywords (key_Text,key_URL,key_Image) values ('"&CheckStr(KeyWord(i))&"','"&CheckStr(KeyWordURL(i))&"','"&CheckStr(key_Image(i))&"')")
session(CookieName&"_MsgText") = "新关键字添加成功! "
End If
End If
Next
结束。请注意备份。
复制内容到剪贴板
程序代码
程序代码 session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&(UBound(KeyWordID) + 1)&"关键字被删除!"
RedirectUrl("ConContent.asp?Fmenu=smilies&Smenu=KeyWord")
Else
RedirectUrl("ConContent.asp?Fmenu=smilies&Smenu=KeyWord")
Else
到
复制内容到剪贴板 程序代码
程序代码 Keywords(2)
session(CookieName&"_ShowMsg") = True
session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"关键字保存成功!"
session(CookieName&"_ShowMsg") = True
session(CookieName&"_MsgText") = session(CookieName&"_MsgText")&"关键字保存成功!"
之间的代码，全部替换为：
复制内容到剪贴板 程序代码
程序代码Dim key_Image
KeyWordID = Split(Request.Form("KeyWordID"), ", ")
KeyWord = Split(Request.Form("KeyWord"), ", ")
KeyWordURL = Split(Request.Form("KeyWordURL"), ", ")
key_Image = Split(Request.Form("key_Image"), ", ")
For i = 0 To UBound(KeyWordID)
If Int(KeyWordID(i))<> -1 Then
conn.Execute("update blog_Keywords set key_Text='"&CheckStr(KeyWord(i))&"',key_URL='"&CheckStr(KeyWordURL(i))&"',key_Image='"&CheckStr(key_Image(i))&"' where key_ID="&KeyWordID(i))
Else
If Len(Trim(CheckStr(KeyWord(i))))>0 Then
conn.Execute("insert into blog_Keywords (key_Text,key_URL,key_Image) values ('"&CheckStr(KeyWord(i))&"','"&CheckStr(KeyWordURL(i))&"','"&CheckStr(key_Image(i))&"')")
session(CookieName&"_MsgText") = "新关键字添加成功! "
End If
End If
Next
结束。请注意备份。
上一篇: 论坛图片签名调用博客文章（增强版-随机背景图片）
下一篇: 让你的PJBLOG3静态下也支持侧栏插件（8/31日更新）
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: PJBLOG PJ3 BUG 关键字 
相关日志:
评论: 7 | 引用: 0 | 查看次数: -
回复
现在好了。。。。。方法能提供吗？ 我不会加在左边 我想加在文章左边
小戒 于 回复
小戒 于 回复打开STATIC.HTM,找到：
在下面插入：
然后在你的CSS文件中插入：
复制内容到剪贴板 程序代码
程序代码 <div id="logPanel" class="Content-body">
在下面插入：
复制内容到剪贴板 程序代码
程序代码<div id="paper02"></div>
<div id="aditem_paper01">
<script type="text/javascript"><!--
google_ad_client = "pub-6347887448711969";
/* muzili.com文章页 */
google_ad_slot = "1157673251";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></div>
<div id="aditem_paper01">
<script type="text/javascript"><!--
google_ad_client = "pub-6347887448711969";
/* muzili.com文章页 */
google_ad_slot = "1157673251";
google_ad_width = 336;
google_ad_height = 280;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></div>
然后在你的CSS文件中插入：
复制内容到剪贴板 程序代码
程序代码#paper02{clear: left;float: left;height: 10px;width: 1px;}
#aditem_paper01{clear: left;float: left;height: auto;width: auto;}
#aditem_paper01{clear: left;float: left;height: auto;width: auto;}
视觉工人博客用了这个修改方法后也解决了问题！谢谢！！
http://www.wjzxy.cn/blog
http://www.wjzxy.cn/blog
解决了！谢谢！！
还有我想问你一下，你的广告挡住了文章文字，你为什么不修复呢。我只会把广告放在文章的上面或者下面 ，不会放在文章左边，不知道能不能把方法做个文章出来
小戒 于 回复
小戒 于 回复呃。。。不好意思。我用的IE6，一直是正常状态，最近才有朋友说用FIREFOX和IE7，问题严重。现在如何了？谢谢。
已经解决 谢谢了 哈哈
不错，但是好多字都被你的广告盖住了看不见啊。。。。还有为什么我升级到157以后发表的文章页面的GG广告全部都不显示了，，，而157以前版本发布的文章却显示，，，，但是看你的好像每这个问题，，能指点一二吗？
小戒 于 回复
小戒 于 回复后台更新缓存，重新生成一下。
发表评论
后祝中秋节快乐，全家幸福安康平安！