标签为 代码 的存档

google ADsense设置代码

都说可以通过google adsense挣钱,不知道真假,估计与网站的浏览量或流量有关系吧,至少我目前还达不到这种规模,不过还是可以先装上用用,也方便自己找东西吗?贴子设成隐藏的,给自己留个备用参考,也省得别人说我给自己做广告。

1、google adsense 搜索模块(AdSense for Search)
在页面的适当位置放置下面的代码即可实现google搜索功能.
[code]
<!-- Search Google -->
<form method="get" action="http://www.google.com/custom" target="google_window">
<table >
<tr><td nowrap="nowrap" valign="top" align="left" height="32">
<input type="text" name="q" size="15" maxlength="255" value="www.sale925.cn" ></input>
<input type="submit" name="sa" value="Google" class="button" ></input>
<input type="hidden" name="client" value="pub-9928792648942112"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="channel" value="1752202669"></input>
<input type="hidden" name="ie" value="GB2312"></input>
<input type="hidden" name="oe" value="GB2312"></input>
<input type="hidden" name="cof" ></input>
<input type="hidden" name="hl" value="zh-CN"></input>
</td></tr></table>
</form>
<!-- Search Google -->
[/code]

2、google adsense的页面广告功能( AdSense for Content)
在你想加入广告的页面位置处放置下面的代码即可实现google广告功能.本广告的显示大小为468*60的格式。
[code]<script type="text/javascript"><!--
google_ad_client = "pub-9928792648942112";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "image";
google_ad_channel = "";
google_ui_features = "rc:10";
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
[/code]

LBS修改-友情链接的修改

一直没有太注意”友情链接”的页面,今天无事可干,认真的研究了下,才发现页面里应该有的链接显示不出来,认真看了下代码,原来代码中有个标志位

(indexlinks==0)

的条件限制有问题,把限制条件改动正确

(indexlinks==1或干脆去掉)

后,页面就正常了.

不过发现默认的页面显示方式十分的丑陋,考虑到”图片链接和文字链接”是放在同一个数据表中,简单的进行换行设置会更加混乱,便增加了个变量(j),使得程序可以对”图片链接和文字链接”分开换行,并且对页面美观度进行了调整.

部分代码如下:

<div class=”textbox”>
<div class=”textbox-title”><%=lang["image_link"]%></div>
<div id=”textboxContent” class=”textbox-content”>
<div class=”textbox-tag” align=center>
<%
var j=0;
for(var i=0;i<theCache.links.length;i++){
with(theCache.links[i]){
var tmpA=func.HTMLEncode(link_logo);
var tmpB=0;
var showlink=tmpB+link_show;
if (tmpA.length>0&&showlink==1){
j=j+1;
%>
<a href=”<%=func.HTMLEncode(link_url)%>” title=”<%=func.HTMLEncode(link_name)%>” target=”_blank”><img src=”<%=func.HTMLEncode(link_logo)%>” alt=”<%=func.HTMLEncode(link_name)%>” style=”margin-bottom:3px;margin-right:3px;” /></a>
<%
if((j) % 4 == 0) write(“<br /><br />”);
}
delete tmpA;
delete tmpB;
delete showlink;
}
}%>
</div>
</div>
</div>
<div class=”textbox”>
<div class=”textbox-title”><%=lang["text_link"]%></div>
<div id=”textboxContent” class=”textbox-content”>
<div class=”textbox-tag” align=center>
<% var j=0
for(var i=0;i<theCache.links.length;i++){
with(theCache.links[i]){
var tmpA=func.HTMLEncode(link_logo);
var tmpB=0;
var showlink=tmpB+link_show;
if (tmpA.length==0&&showlink==1){

j=j+1;
%>
<a href=”<%=func.HTMLEncode(link_url)%>” title=”<%=func.HTMLEncode(link_name)%>” target=”_blank”> <%=func.HTMLEncode(link_name)%> </a>
<%
if((j) % 6 == 0) write(“<br /><br />”);
}
delete tmpA;
delete tmpB;
delete showlink;
}
}%>
</div>
</div>
</div>

记得在安装完这个版本之初,在发表日志的时候便发现首行的空格不起作用,这样排版很不方便,于是在网上找下下,从∽生活笔谈∽那里找到这解决的办法,很完美的方法,转贴如下:

✲ 首先打开 class/UBBcode.asp 搜索到:

// List

✲ 在其上一行插入:

str=str.replace(/\[space\]/ig,’  ’);

✲ 接着打开“edit.asp”搜索到:

“Insert Subscript” /></a>

✲ 替换成

“Insert Subscript” /></a> <a href=”javascript:space()”><img src=”<%=theCache.settings["imageFolder"]%>/ubbcode/bb_space.gif” alt=”Insert SBC case space” /></a>

✲ 最后打开 messageform.js 在最后面插入:

function space() {
var txtarea = document.inputform.message;
if (txtarea.createTextRange && txtarea.caretPos) {
var caretPos = txtarea.caretPos;
caretPos.text = caretPos.text.charAt(caretPos.text.length – 1) == ‘ ‘ ? ‘ ‘ : ”;
txtarea.focus();
} else {
txtarea.value += ”;
txtarea.focus();
}
}

✲ 还需要把下面的图放入相应“风格(styles)”的 images/ubbcode 文件夹内,注意保存的文件名称为:bb_space.gif
http://www.a-boss.com/blog/styles/coffee/images/ubbcode/bb_space.gif

LBS修改-管理员回复评论

不记得从哪里找到的代码了,但在修改完后,发现不是我想要的样子,于是按自己的要求改动了下,现在把自己的代码贴出来,供大家分享下:

打开 comment.asp,搜索到

<%if(editMark){
var arrEdit=editMark.split(“$|$”);
%>
<div class=”editmark”>[<%=lang["edited_by"]+arrEdit[0]+lang["at"]+arrEdit[1]%>]</div>
<%}%>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>

替换为:

<%if(editMark){
var arrEdit=editMark.split(“$|$”);
%>
<div class=”editmark”>[<%=lang["edited_by"]+arrEdit[0]+lang["at"]+arrEdit[1]%>]</div>
<%}%>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>
<%if(reply){%>
<div class=”commentbox-reply-title”>
<div class=”commentbox-reply-label”>[ <%=replyUsername%> ] <%=lang["reply_comment"]%> [ <%=func.getDateTimeString("YY-MM-DD hh:ii:ss", replyTime)%> ]</div>
<%if(!hidden||(theUser.id==userid&&userid!=0)||theUser.rights["view"]>2){%>
<%var strContent=ubb.toHTML(func.HTMLEncode(reply),”110011″, “”, true)%>
<div class=”commentbox-reply-content”>
<%=strContent%>
</div>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>
<%}%>

搜索

strTitle,strActionURL,strContent,strUBBFlags,bHidden

以上代码有两处,均替换为:

strTitle,strActionURL,strContent,strUBBFlags,bHidden,strReply,bShowReplyArea

接着打开 src_comment.asp,搜索到

“content”: comments[i]["comm_content"],
“hidden”: comments[i]["comm_hidden"],
“postTime”: new Date(Number(comments[i]["comm_posttime"])),
“ubbFlags”: comments[i]["comm_ubbflags"],
“editMark”: comments[i]["comm_editmark"],

替换为:

“content”: comments[i]["comm_content"],
“hidden”: comments[i]["comm_hidden"],
“postTime”: new Date(Number(comments[i]["comm_posttime"])),
“ubbFlags”: comments[i]["comm_ubbflags"],
“editMark”: comments[i]["comm_editmark"],
“reply”: comments[i]["comm_reply"],
“replyUsername”: comments[i]["comm_replyusername"],
“replyTime”: new Date(Number(comments[i]["comm_replytime"])),

继续搜索到 “ // Check content ” 在上一行插入:

// Workaround for content/reply swap when the user has reply rights
if(input["entry"]){
input["reply"]=input["message"];
input["message"]=input["entry"];
if(input["reply"].length>theCache.settings["maxCommentLength"]||input["reply"].length<2){
strError+=”<li>”+lang["length_invalid"]+”</li>”;
}
}

继续搜索到:

“ arrData=connBlog.query(“SELECT TOP 1 tLog.log_id,tLog.log_authorID,
tLog.log_title,tComm.comm_authorid,tComm.comm_content,
tComm.comm_ubbFlags,tComm.comm_hidden FROM [blog_Article] tLog,
[blog_Comment] tComm WHERE tLog.log_id=tComm.log_id AND tComm.comm_id=”+input["id"]); ”

替换成

“ arrData=connBlog.query(“SELECT TOP 1 tLog.log_id,tLog.log_authorID,tLog.log_title,tComm.comm_authorid,
tComm.comm_content,tComm.comm_ubbFlags,tComm.comm_reply,
tComm.comm_hidden FROM [blog_Article] tLog,[blog_Comment] tComm
WHERE tLog.log_id=tComm.log_id AND tComm.comm_id=”+input["id"]); ”

搜索到

“ outputEditComment(lang["edit_comment_on"]+”: “+arrData["log_title"], “?
act=update&id=”+input["id"], arrData["comm_content"], arrData["comm_ubbflags"],
arrData["comm_hidden"]); ”

替换成

“ outputEditComment(lang["edit_comment_on"]+”: “+arrData["log_title"], “?
act=update&id=”+input["id"], arrData["comm_content"], arrData["comm_ubbflags"],
arrData["comm_hidden"],arrData["comm_reply"],
theUser.rights["edit"]>2 ? true : false); ”

继续搜索到 “ connBlog.update(“blog_Comment”, arrUpdate, “comm_id=”+input["id"]); ”
在其上面一行插入

// If the user has reply rights
if(theUser.rights["edit"]>1){
arrUpdate["comm_reply"]=input["reply"];
arrUpdate["comm_replyUsername"]=theUser.username;
arrUpdate["comm_replyTime"]=new Date();
}

打开 article.asp 文件,搜索到

<%if(editMark){
var arrEdit=editMark.split(“$|$”);
%>
<div class=”editmark”>[<%=lang["edited_by"]+arrEdit[0]+lang["at"]+arrEdit[1]%>]</div>
<%}%>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>

替换为:

<%if(editMark){
var arrEdit=editMark.split(“$|$”);
%>
<div class=”editmark”>[<%=lang["edited_by"]+arrEdit[0]+lang["at"]+arrEdit[1]%>]</div>
<%}%>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>
<%if(reply){%>
<div class=”commentbox-reply-title”>
<div class=”commentbox-reply-label”>[ <%=replyUsername%> ] <%=lang["reply_comment"]%> [ <%=func.getDateTimeString("YY-MM-DD hh:ii:ss", replyTime)%> ]</div>
<%if(!hidden||(theUser.id==userid&&userid!=0)||theUser.rights["view"]>2){%>
<%var strContent=ubb.toHTML(func.HTMLEncode(reply),”110011″, “”, true)%>
<div class=”commentbox-reply-content”>
<%=strContent%>
</div>
<%}else{%>
<div class=”hidden-note”><%=lang["hidden_comment"]%></div>
<%}%>
</div>
<%}%>

打开 class/article.asp 文件,搜索到

this.loadComments = function(bTimeOrder, bWithTrackBack, intTrackbackPos,
intPageSize, intCurrentPage){
var sql=”SELECT 0 as type, comm_ID,comm_Content,comm_authorID,
comm_author,comm_PostTime,comm_EditMark,comm_UBBFlags,comm_Hidden,
comm_IP FROM blog_Comment WHERE log_ID=”+this.id;

if(bWithTrackBack){
// Trackback Fields Mapping: comm_ID=0, comm_Content=tb_Excerpt,
comm_aut
horID=tb_ID, comm_author=tb_Title
sql+=” UNION ALL SELECT 1,0,tb_Excerpt,tb_ID,tb_Title,tb_Time,tb_URL,
tb_Blog,false,tb_IP FROM blog_Trackback WHERE log_ID=”+this.id;
}

替换成

this.loadComments = function(bTimeOrder, bWithTrackBack, intTrackbackPos, intPageSize, intCurrentPage){
var sql=”SELECT 0 as type, comm_ID,comm_Content,comm_authorID,
comm_author,comm_PostTime,comm_EditMark,comm_UBBFlags,
comm_Hidden,comm_IP,comm_reply,comm_replyUsername,
comm_replyTime FROM blog_Comment WHERE log_ID=”+this.id;

if(bWithTrackBack){
// Trackback Fields Mapping: comm_ID=0, comm_Content=tb_Excerpt, comm_authorID=tb_ID, comm_author=tb_Title
sql+=” UNION ALL SELECT 1,0,tb_Excerpt,tb_ID,tb_Title,tb_Time,tb_URL,
tb_Blog,false,tb_IP,false,false,tb_Time FROM blog_Trackback WHERE log_ID=”+this.id;
}

搜索到

“ubbFlags”: tmpA[i]["comm_ubbflags"],
“hidden”: tmpA[i]["comm_hidden"],
“IP”: tmpA[i]["comm_ip"]

替换成

“ubbFlags”: tmpA[i]["comm_ubbflags"],
“hidden”: tmpA[i]["comm_hidden"],
“IP”: tmpA[i]["comm_ip"],
“reply”:tmpA[i]["comm_reply"],
“replyUsername”:tmpA[i]["comm_replyusername"],
“replyTime”: new Date(Number(tmpA[i]["comm_replytime"]))

在css中添加回复功能的样式:

.commentbox-reply-title {
border: 1px dashed #999;
margin: 2px 40px;
padding: 5px;
}
.commentbox-reply-label{
font-weight: bold;
margin-bottom: 5px;
}
.commentbox-reply-content{
font-weight: normal;
color: #000080;
font-size: 11px;
display: inline;
}

最后一步,在lang/blog.asp中添加

t["reply_comment"]=”回复于”

代码!
再刷新一下页面,在编辑评论的时候,就多了回复功能!

比原来的好看的多了。