雨豪博客 » 网页设计 http://www.wx35.cn 以互联网与电脑科技为主的独立博客 Sun, 29 Jan 2012 13:11:56 +0000 en hourly 1 http://wordpress.org/?v=3.2.1 Zblog静态日志调用热文排行 http://www.wx35.cn/archives/454/ http://www.wx35.cn/archives/454/#comments Sun, 23 Sep 2007 18:55:57 +0000 雨豪 http://www.wx35.com/blog/archives/454 月光博客曾经写过一篇ZBLOG调用热文排行的帖子，然而此代码只能适用于固定目录，如果是使用静态日志就无法使用，具体为体现为URL调用出错，无奈之下我重写了热文代码，下面请看具体修改。

修改function目录下c_system_event.asp文件，在最后添加如下代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

'*********************************************************
' 目的： 重建排行
'*********************************************************
Function BlogReBuild_Toplist()
 
Dim i
Dim objRS
Dim objStream
Dim objArticle
 
Dim strPrevious
Set objRS=objConn.Execute("SELECT [log_ID],[log_Url],[log_Title] FROM [blog_Article] WHERE [log_Level]>1 ORDER BY log_CommNums*100 + log_TrackBackNums*200 + sqr(log_ViewNums)*10 - (date()-Log_PostTime)*(date()-Log_PostTime) DESC")
 
If (Not objRS.bof) And (Not objRS.eof) Then
For i=1 to ZC_PREVIOUS_COUNT
Set objArticle=New TArticle
If objArticle.LoadInfoByID(objRS("log_ID")) Then
strPrevious=strPrevious & "<li><a href="""& objArticle.Url & """>" & objArticle.Title & "</a></li>"
End If
Set objArticle=Nothing
objRS.MoveNext
If objRS.eof Then Exit For
Next
End If
objRS.close
 
strPrevious=TransferHTML(strPrevious,"[no-asp]")
 
Call SaveToFile(BlogPath & "/include/toplist.asp",strPrevious,"utf-8",True)
 
BlogReBuild_Toplist=True
 
End Function
'*********************************************************

再次修改c_system_event.asp文件，找到MakeBlogReBuild函数的BlogReBuild_Categorys后面加上一行BlogReBuild_Toplist

将代码加入模板：

修改TEMPLATE\default.html与TEMPLATE\single.html模板，在适当位置加入以下语句：

1
2
3
4
5
6

<div class="function" id="divTopList">
<h3>热文排行</h3>
<ul>
<#CACHE_INCLUDE_TOPLIST#>
</ul>
</div>

这样热文排行就可以使用了。具体效果见徐果萍博客。

此为修改好的c_system_event.asp文件 只适用ZBLOG 1.7 版

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/454/feed/ 2 Zblog调用分类目录显示的解决方法 http://www.wx35.cn/archives/392/ http://www.wx35.cn/archives/392/#comments Wed, 25 Jul 2007 06:01:36 +0000 雨豪 http://www.wx35.com/blog/archives/392 博客改版了，不过也存在很多问题，比较ZBLOG文章首页调用这个问题，我也是翻阅了很多资料，花了整整一个晚上才搞好，现在将全部资料写出来，以帮助需要的朋友们。

首先修改FUNCTION目录下c_system_event.asp文件，找到 ‘BlogReBuild_Categorys 去掉前面注释(即去掉单引号)，修改完毕后 索引重建，然后用JavaScript调用，具体代码如下：

1

<script language="JavaScript" charset='utf-8' src="http://www.wx35.cn/function/c_html_js.asp?include=category_11" type="text/javascript"></script>

其中category_11是分类目录名，修改成你网站的目录ID即可。

还有个问题就是，调用代码后标题前面会有个小圆圈,可以使用 list-style:none 控制一下就没了，Zblog目录调用这样就完成了，详细可以参阅徐果萍首页。

http://www.xuguoping.net

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/392/feed/ 5 [原创]打造个性的站点 zblog站内搜索插件 http://www.wx35.cn/archives/347/ http://www.wx35.cn/archives/347/#comments Sat, 07 Jul 2007 01:10:30 +0000 雨豪 http://www.wx35.com/blog/archives/347 1、在自己的网站上新建一个用于显示搜索结果的网页，动态或者静态页面都可以。
2、登录到Google adsense设置adsense，在“产品”那里选择“AdSense for search”。
3、先设置好必要的选项，然后在“更多选项”那一栏，选中“在我的网站上打开搜索结果”并在下面的文本框中输入显示搜索结果的网址，即第一步创建的用于显示搜索结果的网页的URL。
4、在“获取搜索代码”那一栏，将“您的搜索框代码”文本框中生成的代码复制并粘贴到用于显示搜索框的网页的源代码中。
5、将“您的搜索结果代码”文本框中生成的代码复制并粘贴到至用于显示搜索结果的网页的源代码中。

上面是准备工作了，现在正式开始，首先修改search.asp文件，将代码改为如下，其中wx35.cn为你的域名

1

strQuestion=TransferHTML(Request.QueryString("domains=wx35.cn&q"),"[nohtml]")

接着修改TEMPLATE目录下search.html文件，插入AdSense for search申请的代码，位置随意，搜索代码和结果代码都要插入，以下是我的示范文件。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

<!-- SiteSearch Google -->
<form method="get" action="http://www.wx35.cn/search.asp" target="_top">
<table border="0" bgcolor="#F7EFE7">
<tr><td nowrap="nowrap" valign="top" align="left" height="32">
<a href="http://www.google.com/">
<img src="http://www.google.com/logos/Logo_25wht.gif" border="0" alt="Google" align="middle"></img></a>
</td>
<td nowrap="nowrap">
<input type="hidden" name="domains" value="wx35.cn"></input>
<label for="sbi" style="display: none">输入您的搜索字词</label>
<input type="text" name="q" size="31" maxlength="255" value="" id="sbi"></input>
<label for="sbb" style="display: none">提交搜索表单</label>
<input type="submit" name="sa" value="搜索" id="sbb"></input>
</td></tr>
<tr>
<td> </td>
<td nowrap="nowrap">
<table>
<tr>
<td>
<input type="radio" name="sitesearch" value="" id="ss0"></input>
<label for="ss0" title="搜索网络"><font size="-1" color="#000000">Web</font></label></td>
<td>
<input type="radio" name="sitesearch" value="wx35.cn" checked id="ss1"></input>
<label for="ss1" title="搜索 wx35.cn"><font size="-1" color="#000000">wx35.cn</font></label></td>
</tr>
</table>
<input type="hidden" name="client" value="pub-6811388601514482"></input>
<input type="hidden" name="forid" value="1"></input>
<input type="hidden" name="ie" value="UTF-8"></input>
<input type="hidden" name="oe" value="UTF-8"></input>
<input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#F7EFE7;VLC:663399;AH:center;BGC:F7EFE7;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;FORID:11"></input>
<input type="hidden" name="hl" value="zh_CN"></input>
</td></tr></table>
</form>
<!-- SiteSearch Google -->
1
2
3
4
5
6
7
8
9
10
11
12
13

                <!-- Google Search Result Snippet Begins -->
<div id="googleSearchUnitIframe"></div>
 
<script type="text/javascript">
   var googleSearchIframeName = 'googleSearchUnitIframe';
   var googleSearchFrameWidth = 750;
   var googleSearchFrameborder = 0 ;
   var googleSearchDomain = 'www.google.cn';
</script>
<script type="text/javascript"
         src="http://www.google.com/afsonline/show_afs_search.js">
</script>
<!-- Google Search Result Snippet Ends -->

最后在TEMPLATE目录下找到这些文件catalog.html,default.html,single.html,tags.html ，将其中的

1
2
3
4

<form method="post" action="<#ZC_BLOG_HOST#>cmd.asp?act=Search">
<input type="text" name="edtSearch" id="edtSearch" size="12" />
<input type="submit" value="<#ZC_MSG087#>" name="btnPost" id="btnPost" />
</form>

修改为

1
2
3
4
5
6
7
8
9
10
11
12

<form method="get" action="http://www.wx35.cn/search.asp" target="_top">
<input type="hidden" name="domains" value="wx35.cn">
<input type="text" name="q" id="sbi" maxlength="255" value="" size="12" />
<input type="submit" value="搜索" name="sa" id="sbb" />
<input type="hidden" name="sitesearch" value="wx35.cn" checked id="ss1">
<input type="hidden" name="client" value="pub-6811388601514482">
<input type="hidden" name="forid" value="1">
<input type="hidden" name="ie" value="UTF-8">
<input type="hidden" name="oe" value="UTF-8">
<input type="hidden" name="cof" value="GALT:#008000;GL:1;DIV:#F7EFE7;VLC:663399;AH:center;BGC:F7EFE7;LBGC:336699;ALC:0000FF;LC:0000FF;T:000000;GFNT:0000FF;GIMP:0000FF;FORID:11">
<input type="hidden" name="hl" value="zh_CN">
</form>

http://www.wx35.cn/search.asp 是搜索页，修改为你自己的
wx35.cn 是搜索域名，修改为你自己的
pub-6811388601514482 是你的google分配号，修改为你自己的

到这里站内搜索就完成了，鉴于有些朋友修改过源码，实际代码可能与本文不符合，请自行检查代码区域。

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/347/feed/ 4 [原创]在zblog插入google maps地图 兼容任何博客 http://www.wx35.cn/archives/346/ http://www.wx35.cn/archives/346/#comments Sat, 07 Jul 2007 00:18:56 +0000 雨豪 http://www.wx35.com/blog/archives/346 先把googlemaps.js放在script目录下，再修改模板页single.html,插入一段JS代码，如下：

1

<script src="<#ZC_BLOG_HOST#>script/googlemaps.js" type="text/javascript"></script>

再用管理员帐号登陆后台管理，进入 网站设置 –UBB设置及相关转换–自动替换回车符为换行标签(默认启用,除非全用HTML排版可设为False) –设置为 False

插入google maps直接使用UBB编辑插入源码，如下：

1
2
3
4
5
6
7
8
9
10
11
12

<script src="http://maps.google.com/maps?file=api&v=2&key=ABQIAAAA_W0tUzIq_fXaNJc8PRFwNhQTv-rer0TjA4s446H0qY1yHGNh8BTYqrqdSrPKZEKXNrYZT2h1W1MMjA" type="text/javascript">
</script>
<script type="text/javascript">
        //<![CDATA[
 
        MapPluginInit(
                /* Default maps width  */          510,
                /* Default maps height */          510,
                /* Use rel instad of title? */     false);
        //]]>
</script>
<a title="googlemap" href="http://maps.google.com/maps?ll=38.7243451948041,-93.5529024038937& z=16&t=k">美国怀特曼空军基地</a>

替换ABQIAAAA_W0tUzIq_fXaNJc8PRFwNhQTv-rer0TjA4s446H0qY1yHGNh8BTYqrqdSrPKZEKXNrYZT2h1W1MMjA为你申请的google maps api的KEY

替换38.7243451948041,-93.5529024038937为坐标

美国怀特曼空军基地 为提示标注

以上源码来自WordPress for google maps插件，理论上来说应该兼容任何程序，只需支持UBB编辑即可。

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/346/feed/ 1 JS实现跳转代码：多域名指向同一空间 http://www.wx35.cn/archives/123/ http://www.wx35.cn/archives/123/#comments Wed, 20 Sep 2006 00:46:56 +0000 雨豪 http://wx35.com/blog/?p=123

<script>try {if( self.location == "http://域名一/" ) {
top.location.href = "http://域名一/目录";
}
else if( self.location == "http://域名二/" ) {
top.location.href = "http://域名二/目录";
}
else if( self.location == "http://域名三/" ) {
top.location.href = "http://域名三/目录";
}
else if( self.location == "http://域名四/" ) {
top.location.href = "http://域名四/目录";
}
else {document.write ("错误的访问地址")}} catch(e) {}</script>

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/123/feed/ 0 让广告代码不再影响你的网页加载速度 http://www.wx35.cn/archives/122/ http://www.wx35.cn/archives/122/#comments Wed, 20 Sep 2006 00:30:59 +0000 雨豪 http://wx35.com/blog/?p=122  

做一些联盟广告时，由于联盟广告的加载慢，整体页面的显示速度也会变慢，如果加入下面的代码就可以有效地解决这个问题。

　　第一步：把这段代码放在你要放广告的网页位置：

<span id="myads">广告载入中…</span>

　　第二步：把这段代码放到页底：

<span id="span_myads">
这里放广告的JS代码或其他加载速度比较慢的内容都可以.
</span>

<script type="text/javascript">
myads.innerHTML=span_myads.innerHTML;
span_myads.innerHTML="";
</script>

 

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/122/feed/ 0 多个绑定多域名的PHP代码 http://www.wx35.cn/archives/117/ http://www.wx35.cn/archives/117/#comments Thu, 14 Sep 2006 18:40:18 +0000 雨豪 http://wx35.com/blog/?p=117  

这是一段很有用的代码，和绑定多域名的ASP代码类似，如果你只有一个PHP空间，而你又想放置多个多个站点，下面这些代码可以帮到你。

　　第一个：

if($HTTP_HOST=="www.moon-soft.com"){
Header("Location: moon.htm");
}
elseif($HTTP_HOST=="www.williamlong.info"){
Header("Location: williamlong.htm");
}
else{
Header("Location: other.htm");
}

第二个：

if($HTTP_HOST=="www.moon-soft.com"){
require "moon.htm";
}
elseif($HTTP_HOST=="www.williamlong.info"){
require "williamlong.htm";
}
else{
require "other.htm";
}

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/117/feed/ 0 多个绑定多域名的ASP代码 http://www.wx35.cn/archives/116/ http://www.wx35.cn/archives/116/#comments Thu, 14 Sep 2006 18:38:50 +0000 雨豪 http://wx35.com/blog/?p=116  

如果只有一个ASP空间，而你又想放置多个多个站点，这些代码可以帮到你。

第一个
<%
if Request.ServerVariables("SERVER_NAME")="www.williamlong.info" then
response.redirect "williamlong/index.htm"
else
response.redirect "index2.htm"
end if
%>

第二个
<%
select case request.servervariables("http_host")
case "www.williamlong.info" ’1
Server.Transfer("v3.htm")
case "www.williamlong.info" ’1
Server.Transfer("v3.htm")
case "www.moon-soft.com" ’2
Server.Transfer("i.htm")
case "www.write100.com" ’3
Server.Transfer("write100.htm")
…… 继续添加 ……
end select
%>

第三个
<%
if instr(Request.ServerVariables("SERVER_NAME"),"www.williamlong.info")>0 then
response.redirect "index.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"www.moon-soft.com")>0 then
response.redirect "x/index.asp"
elseif instr(Request.ServerVariables("SERVER_NAME"),"www.write100.com")>0 then
response.redirect "index3.asp"
end if
%>

第四个
<%
if Request.ServerVariables("SERVER_NAME")="www.williamlong.info" then
response.redirect "index1.asp"
elseif Request.ServerVariables("SERVER_NAME")="www.moon-soft.com" then
response.redirect "index2.asp"
elseif Request.ServerVariables("SERVER_NAME")="www.write100.com" then
response.redirect "index3.asp"
end if
%>

第五个
<%
if Request.ServerVariables("SERVER_NAME")="www.williamlong.info" then
Server.Transfer("williamlong.htm")
elseif Request.ServerVariables("SERVER_NAME")="www.moon-soft.com" then
Server.Transfer("moon.htm")
elseif Request.ServerVariables("SERVER_NAME")="www.write100.com" then
Server.Transfer("write100.htm")
else
Server.Transfer("other.htm")
end if
%>

 

 

本文章由雨豪博客撰写,采用CC授权分享,转载时请注明原文链接。

]]> http://www.wx35.cn/archives/116/feed/ 0