Posts Tagged Website

WordPress Skin:Redoable 1.1

三 4

Posted by Ahlang in Computer | No Comments

Redoable 1.1 截图

一个基于K2的主题，在K2的基础上做了一些修改，例如它可以设置Live Search的结果显示在中间还是侧边，Redoable的特色就是支持众多的插件，另外可以设置主题为深颜色。

支持插件列表：
# Alex King’s Articles v1.1
# Brian’s Latest Comments v1.5.10
# Extended Live Archives v0.10beta-r18
# Semiologic’s Google Analytics Plugin v1.9
# Gregarious v1.5.2 and v2 beta
# Noteworthy v1.0
# Random Quotes v1.3
# Rechuked Buttons v1.0 (Based on Sawchuck Buttons plugin) – Not WP2.1 compatible…yet
# Related Posts v2.04
# Share This v1.4
# Ultimate Tag Warrior v3.1415926
# Ultimate Category Cloud v2.0 (Based on Weighted Categories plugin)
# Word Count v0.01
# WP-PostRatings v1.04
# WP-PostViews v1.1
# iMP Download Manager v1.2
# Quoter v1.1
# Subscribe to Comments v2.0.8
# Spam Karma 2
# wp-recent-links

Redoable homepage

不过，这skin,更推荐用户使用FF浏览器.

包括

    右侧栏的live search在ie7下有错误，只可以回车提交搜索，而不是直接使用即时显示结果……
    底部的一排链接无法查看，opera及ie7均无效,仅在FF可用 :(

Google的Adsense上的FF推介
带Google 工具栏的Firefox:

Tags:

Google News Bar整合进pjblog

二 17

Posted by Ahlang in Computer | 4 Comments

在ChinaUI上看到Google AJAX Search API新增News及图书搜索结果的网站嵌入功能，感觉比较好玩，于是顺便就整合进了自己的blog内。


  • 读取的关键字为blog文章的第一个tag
  • 如无匹配的新闻,Google会自动以Google作为其关键字
  • 我这里的实现的方法很蠢:在article.asp里重新建了两数据集，以便获得第一个tag



Google官方的创建news bar 的向导页面:News Bar Wizard – Put Google News on Your Web Page ,有兴趣的朋友，可点击查看。


Tags:

页面如何实现显示随机标题

十一 17

Posted by Ahlang in Website | No Comments

类似于Verycd的效果。

  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  2. <HTML>
  3. <HEAD>
  4. <TITLE> New Document </TITLE>
  5. <META NAME="Generator" CONTENT="EditPlus">
  6. <META NAME="Author" CONTENT="">
  7. <META NAME="Keywords" CONTENT="">
  8. <META NAME="Description" CONTENT="">
  9. </HEAD>
  10.  
  11. <BODY>
  12. <body onload="oload()">
  13.  
  14. </body>
  15. <script type="text/javascript">
  16. function oload(){
  17. theTIT = new Array('共享世界，有你才精彩！'
  18. ,'目标愈高，志向愈可贵。'
  19. ,'生活的理想，就是为了理想的生活。'
  20. ,'每一天都是一个全新的开始。'
  21. ,'今天的执著，会造成明日的后悔。'
  22. ,'世间的活动，缺点虽多，但仍是美好的。'
  23. ,'不要浪费你的生命在你一定会后悔的地方上。'
  24. ,'人没有自由，犹如木偶。'
  25. ,'寻找本身就是一种幸福。'
  26. ,'不懂得自爱的人，是没有能力去爱别人的。'
  27. ,'如果你能像看别人缺点一样，如此准确地发现自己的缺点，那么你的生命将会不平凡。'
  28. ,'有个等待也不错。'
  29. ,'生活中的万事万物，无不可以吸收教益，无不可以成文，只要”求思之深而无不在”定能有所得益。'
  30. ,'不招人妒是庸才。'
  31. ,'精神里需要的东西，超出现实的负荷，是失败的一个原因。'
  32. ,'灵感，不过是顽强地劳动而获得的奖赏。'
  33. ,'春蚕到死丝方尽，人至期颐亦不休。一息尚存须努力，留作青年好范畴。'
  34. ,'要知道你用食指指着别人大骂时，手中另外三个指头是指着自己的。'
  35. ,'逆境中不自弃，顺境中不张扬。'
  36. ,'人家怕你，并不是一种福；人家欺你，并不是一种辱。'
  37. ,'分享互联网'
  38. ,'人生在世界是短暂的，对这短暂的人生，我们最好的报答就是工作。'
  39. ,'睡觉是为了踏实地工作，工作是为了踏实地睡觉。'
  40. ,'不是事业为了思想，而是思想为了事业。'
  41. ,'使生活变成幻想，再把幻想化为现实。'
  42. ,'来是偶然的，走是必然的。所以你必须，随缘不变，不变随缘。'
  43. ,'我们必须接受失望， 因为它是有限的，但千万不可失去希望，因为它是无穷的。'
  44. ,'羞耻心是所有品德的源泉。'
  45. ,'修行就是修正自己错误的观念。'
  46. ,'坐而论道，不如起而行动。'
  47. ,'有所成就是人生唯一的真正乐趣。'
  48. ,'你什么时候放下， 什么时候就没有烦恼。'
  49. ,'与其事过境还不时地感叹，不如用心地好好珍惜所有。'
  50. ,'一个人的价值，应该看他贡献什么，而不应当看他取得什么。'
  51. ,'忌妒别人，不会给自己增加任何的好处。忌妒别人，也不可能减少别人的成就。'
  52. ,'对人恭敬，就是在庄严你自己。','我的世界有我的真理，正义的立场由我决定。'
  53. ,'想象力比知识更重要。','你希望掌握永恒，那你必须控制现在。'
  54. ,'勇于接受别人的批评，正好可以调整自己的缺点。'
  55. ,'无事莫把闲话聊，是非往往闲话生。'
  56. ,'人生的价值，并不是用时间，而是用深度去衡量的。'
  57. ,'真正没有资格谈明天的人，是那个不懂得珍惜今天的人。'
  58. ,'超越自我。','随缘不是得过且过，因循苟且，而是尽人事听天命。'
  59. ,'只要自觉心安，东西南北都好。如有一人未度，切莫自己逃了。'
  60. ,'朋友就是另一个我。','谁给我一滴水， 我便回报他整个大海。'
  61. ,'人类最大的错误， 在于不敢承担圣人的心。'
  62. ,'一个不是我们有所求的朋友才是真正的朋友。'
  63. ,'拥有一颗无私的爱心，便拥有了一切。'
  64. ,'站在光明中看到的只是黑暗，站在黑暗中却拥有光明。'
  65. ,'你的选择是做或不做，但不做就永远不会有机会。'
  66. ,'不要在智慧中夹杂着傲慢，不要使谦虚缺乏智慧。'
  67. ,'我们确实有如是的优点， 但也要隐藏几分，这个叫做涵养。'
  68. ,'当你对自己诚实的时候，世界上没有人能够欺骗得了你。'
  69. ,'十日画一水，五日画一石。','最足以显示一个人性格的，莫过于他所嘲笑的是什么东西。'
  70. ,'和你一同笑过的人，你可能把他忘掉；但是和你一同哭过的人，你却永远不忘。'
  71. ,'沉默是诽谤最好的答复。'
  72. ,'戏言不能伤敌但能伤友。'
  73. ,'你的谦逊会使别人感到高兴。'
  74. ,'与人相处之道，在于无限的容忍。'
  75. ,'能为别人设想的人，永远不寂寞。'
  76. ,'学历代表过去，学习力掌握将来。'
  77. ,'要不得谦词是废话。'
  78. ,'自由的目的是为了为他人创造自由。'
  79. ,'人生得一知己足已，斯世当以同怀视之。'
  80. ,'广结众缘，就是不要去伤害任何一个人。'
  81. ,'人和人的心最远又最近，真诚便是中间的通道。'
  82. ,'自己不曾拥有，就快乐地欣赏别人的拥有。'
  83. ,'原谅别人，就是给自己心中留下空间，以便回旋。'
  84. ,'宁可自己去原谅原谅别人，莫让别人来原谅你。'
  85. ,'一个人如果不能从内心去原谅别人，那他就永远不会心安理得。');
  86. titID = Math.floor(Math.random()*theTIT.length);
  87. document.title = 'Life is like a dream ：'+theTIT[titID]
  88. }
  89. </script>
  90.  
  91. </BODY>
  92. </HTML>

Tags:

ASP中如何访问SQL Server

十 27

Posted by Ahlang in Website | No Comments

介绍如何使用 ActiveX 数据对象 (ADO) 在 ASP 脚本中建立到 SQL Server 的连接，同时利用 ODBC 3.0 的连接池功能。

连接池
启用 ODBC 连接池。
有关连接池的其他信息以及有关如何启用连接池功能的说明，请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：
164221 INFO：如何在 ODBC 应用程序中启用连接池

ODBC DSN
使用“ODBC 管理器”，在安装了 Microsoft Internet Information Server (IIS) 的计算机上创建一个系统数据源名称 (DSN)。指定一次连接属性，然后在每个页面上重新使用此属性。例如，在 Global.asa 文件的“Session_OnStart”事件中，将连接属性定义为：

  1. Session("ConnectionString") =
  2. "dsn=SQLSysDSN;uid=<username>;pwd=<strong password>;DATABASE=pubs;APP=ASP Script"

确保满足下列所有条件：
• “系统 DSN”定义中没有选中“受信任连接”框。
• SQL Server 安全模式不是“Windows NT 集成”。
• 在连接属性中，uid 不为空。
否则，到 SQL Server 的连接可能会失败，并收到以下错误消息：

Microsoft OLE DB provider for ODBC Drivers error ’80004005′
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed- User:_
Reason: Not defined as a valid user of a trusted SQL Server connection.

Global.asa是否使用 Global.asa 文件是可选的。在其位置上，在此文件中创建的条目通常可以放到应用程序调用的第一页上。假定 ASP 脚本位于一个在“Internet 服务管理器”中没有定义为虚拟目录的文件夹中，而是位于另一个虚拟目录下面，那么包含 Session 变量和 DSN 定义的 Global.asa 文件就必须保留在该虚拟目录中。否则，将收到以下错误消息：
Microsoft OLE DB Provider for ODBC Drivers error ’80004005′
[Microsoft][ODBC Driver Manager] Data source name not found and no
default driver specified

ASP 脚本中的连接
通过打开和关闭到每个 Active Server Pages 上的数据库的连接来利用连接池。要打开该连接，请在页面的 部分中键入以下语句：

  1. <%
  2. Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
  3. OBJdbConnection.Open Session("ConnectionString") %>

要关闭该连接，请直接将以下内容放到 标记后：

  1. <%
  2. OBJdbConnection.Close
  3. Set OBJdbConnection = Nothing
  4. %>

如果没有按照本文前面介绍的那样正确定义连接设置，您可能会收到以下两条错误消息：

Microsoft OLE DB Provider for ODBC Drivers error ’80004005′
[Microsoft][ODBC SQL Server Driver][DBNMPNTW]Connection broken.
- 或者 -
Microsoft OLE DB Provider for ODBC Drivers error ’80004005′
[Microsoft][ODBC SQL Server Driver]Communication link failure

此处是一个包含 Global.asa 和 Authors.asp 文件的示例应用程序。此示例应用程序将返回名为“authors”的“pubs”表中的四列和所有记录。

注意：您必须先将 UID 和 pwd = 更改为正确的值，然后才能运行此代码。请确保该 UID 具有在数据库中执行此操作所需的适当权限。

Global.asa

  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2. Sub Session_OnStart
  3. Session("ConnectionString") =
  4. "DSN=SQLSysDSN;UID=<username>;PWD=<strong password>;DATABASE=pubs;APP=ASP script"
  5. Session("ConnectionTimeout") = 15
  6. Session("CommandTimeout") = 30
  7. End Sub
  8.  
  9. Sub Session_OnEnd
  10.  
  11. End Sub
  12. </SCRIPT>

Authors.asp

  1. <HTML>
  2. <HEAD>
  3. <TITLE>All Authors</TITLE>
  4. </HEAD>
  5. <BODY BGCOLOR="#FFFFFF">
  6.  
  7. <% Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
  8. OBJdbConnection.ConnectionTimeout = Session("ConnectionTimeout")
  9. OBJdbConnection.CommandTimeout = Session("CommandTimeout")
  10. OBJdbConnection.Open Session("ConnectionString")
  11. Set SQLStmt = Server.CreateObject("ADODB.Command")
  12. Set RS = Server.CreateObject ("ADODB.Recordset")
  13. %>
  14.  
  15. <p>
  16. <table border="0" bordercolor="#000000">
  17. <%
  18. SQLStmt.CommandText = "select * from authors"
  19. SQLStmt.CommandType = 1
  20. Set SQLStmt.ActiveConnection = OBJdbConnection
  21. RS.Open SQLStmt
  22.  
  23. Do While Not RS.EOF
  24. %>
  25. <TR>
  26. <TD Width = 150 ALIGN=LEFT>
  27. <FONT SIZE=+1>
  28. <%= RS("au_id") %>
  29. </FONT></TD>
  30. <TD></TD>
  31. <TD Width = 150 ALIGN=LEFT>
  32. <FONT SIZE=+1>
  33. <%= RS("au_lname") %>
  34. </FONT></TD>
  35. <TD Width = 150 ALIGN=LEFT>
  36. <FONT SIZE=+1>
  37. <%= RS("au_fname") %>
  38. </FONT></TD>
  39. <TD Width = 150 ALIGN=LEFT>
  40. <FONT SIZE=+1>
  41. <%= RS("phone") %>
  42. </FONT></TD>
  43. </TR>
  44. <%
  45. RS.MoveNext
  46. Loop
  47. %>
  48. </table>
  49. <hr>
  50. <p>
  51. </BODY>
  52. <% OBJdbConnection.Close
  53. Set OBJdbConnection = Nothing
  54. %>
  55. </HTML>

适用于:
• Microsoft SQL Server 2000 标准版
• Microsoft SQL Server 7.0 标准版
• Microsoft SQL Server 6.5 标准版
• Microsoft SQL Server 6.0 标准版
• Microsoft SQL Server 4.21a 标准版
• Microsoft Internet Information Server 4.0
• Microsoft Internet Information Server 3.0
• Microsoft Internet Information Services 5.0
• Microsoft SQL Server 2005 Standard Edition
• Microsoft SQL Server 2005 Express Edition
• Microsoft SQL Server 2005 Developer Edition
• Microsoft SQL 2005 Server Enterprise
• Microsoft SQL 2005 Server Workgroup

Tags:

[转]css模拟title和alt的提示效果

十 26

Posted by Ahlang in Website | No Comments

  1. <style type="text/CSS">
  2. div#nifty{margin:0;background:#9BD1FA;font-size:12px;}
  3. p {padding:0 5px;margin:0;}
  4. div.rtop {display:block;background:#fff}
  5. div.rtop div {display:block;height:1px;overflow:hidden;background:#9BD1FA}
  6. div.r1{margin:0 3px}
  7. div.r2{margin:0 2px}
  8. div.r3{margin:0 1px}
  9. div.rtop div.r4 {margin:0 1px;height:1px}
  10. </style>
  11. <div id="nifty">
  12. <div class="rtop">
  13. <div class="r1"></div>
  14. <div class="r2"></div>
  15. <div class="r3"></div>
  16. <div class="r4"></div>
  17. </div>
  18. <p>div + CSS 圆角矩形--From <a href="http://www.achome.cn">www.achome.cn</a></p>
  19. <div class="rtop">
  20. <div class="r4"></div>
  21. <div class="r3"></div>
  22. <div class="r2"></div>
  23. <div class="r1"></div>
  24. </div>
  25. </div>

Tags:

正确截取中文字符长度的len及left函数

十 13

Posted by Ahlang in Website | No Comments

vbs中自带的len及left函数无法对中文字符长度进行正确的截取，可使用下2函数替代。

  1. <%
  2. Function Strleft(Str,L)
  3. Temp_Str=Len(Str)
  4. For I=1 To Temp_Str
  5. Test_Str=(Mid(Str,I,1))
  6. Strleft=Strleft&Test_Str
  7. If Asc(Test_Str)>0 Then
  8. lens=lens+1
  9. Else
  10. lens=lens+2
  11. End If
  12. If lens>=L Then Exit For
  13. Next
  14. End Function
  15.  
  16. function strLength(str)
  17. ON ERROR RESUME NEXT
  18. dim WINNT_CHINESE
  19. WINNT_CHINESE = (len("中国")=2)
  20. if WINNT_CHINESE then
  21. dim l,t,c
  22. dim i
  23. l=len(str)
  24. t=l
  25. for i=1 to l
  26. c=asc(mid(str,i,1))
  27. if c<0 then c=c+65536
  28. if c>255 then
  29. t=t+1
  30. end if
  31. next
  32. strLength=t
  33. else
  34. strLength=len(str)
  35. end if
  36. if err.number<>0 then err.clear
  37. end function
  38. %>

Tags: