js代码实现div两侧悬浮广告
实现代码如下：
<SCRIPT LANGUAGE="JavaScript">?
<!--?
var showad = true;?
var Toppx = 60;??? //上端位置??
var AdDivW = 120;?? //宽度??
var AdDivH = 240;?? //高度??
var PageWidth = 800; //页面多少宽度象素下正好不出现左右滚动条??
var MinScreenW = 1024; //显示广告的最小屏幕宽度象素??
var ClosebuttonHtml = ’<div align="right" style="position: absolute;top:0px;right:0px;margin:2px;padding:2px;z-index:2000;"><a href="javascript:;" mce_href="javascript:;" onclick="hidead()" style="col 阅读全文...
discuz论坛判断是否为首页的代码
今天需要调整在discuz论坛的一处代码，只需在论坛首页显示就好了，其他的页面无需显示。
实现起来其实不难，在代码的前后添加如下代码即可：
<!--{if $_G[’basescript’] == ’forum’ && CURMODULE == ’index’}-->
......
<!--{/if}--> 阅读全文...
鼠标指向文字链接弹出DIV层，离开文本层消失的实现代码
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>响应鼠标，超级链接显示、隐藏弹出层的例子</title>
<style type="text/css">
body{
color:#008000;
font:12px/1.5 arial;
}
a{
color:#0B59B2;
margin:0 8px;
}
#box{
position:absolute;
width:230px;
height:60px;
backgr 阅读全文...
修改discuz在线客服插件，免费版变收费版
昨天的时候在discuz应用中心发现一个在线客服的插件，感觉还不错，就拿来用了，但是免费版的bug挺多，确切的说也不算是bug了，就是显示效果不好，CSS定位偏下了一点，导致最下方显示不全，而且多余了不少不需要的东西。最关键的是免费版的默认是展开的，影响用户体验，因为一般的访问者根本就不需要看这些客服的联系方式。
于是，下载插件到本地，看代码，自己修改。
这个插件的代码很简单，很快就找到了突破点：
<DIV id=’floatTools’ class=’float0831’>
? <DIV class=’floatL’><A?style="DISPLAY: none" id=’aFloatT 阅读全文...
网页实现拉幕广告的代码 可重播
<style type="text/css"><!--
body { margin:0;background:#fffff; }? img { border:0; }? -->
--></style><script type="text/javascript">// <![CDATA[
var nowheight=0; //初始广告层高度
var maxheight=400; //广告层最大高度
var adobj;
var opendiv;
var closdiv;
var addfunc;
var handobj;
var reducefunc;
var speed=7; //层卷动速度
function showtopad() {
adobj=document.getElementById("bigad");
opendiv=document.getElementById("opendiv");
closdiv=document.getElementById("closdiv");
阅读全文...
discuz论坛搬家修改数据库名称
由于还有不到一个月的时间，论坛所在的主机就要到期了，因此要考虑网站搬家的问题，比较好的就是提前至少2周的时间让搜索引擎的DNS记录缓冲过来，避免造成对网站收录和权重的巨大影响，当然这个时间最好是提前一个月，期间不要删除原空间上的网站。
因为这次搬家是搬到我的一个VPS服务器上，之前空间上数据库的名称比较长，我想在VPS上修改的精简好记一些。那么就需要注意一些地方了。
很关键的一步就是修改文件：
需要修改的文件有三个：
第一个：位于configconfig_global.php
第二个：位于configconfig_ucenter.php
第三个：位于uc_s 阅读全文...
查看搜狗浏览器自动保存填写的密码的方法
使用浏览器自动保存密码的功能是方便了，但是时间一长，保存的密码一多，就有可能造成忘记密码是什么！
那么我以搜狗浏览器举个例子，因为我一直是使用这个浏览器的，习惯了收藏夹的自动同步。
前提都是你的智能填表里面保存的密码存在，或者可以在网页上自动填写密码。如果可以，就在想查看密码的网页上（必须是兼容模式），输入
javascript:(function()%7bvar s,F,j,f,i; s = ""; F = document.forms; for(j=0; j<F.length; ++j) %7b f = F%5bj%5d; for (i=0; i<f.length; ++i) %7b if (f%5bi%5d.type.toLowerCase() == 阅读全文...
解决应用程序正常初始化(0xc0000135)失败
今天下午回到学校之后去老师办公室给老师拷了个office2010，安装完之后准备激活的时候，出现了点小问题。运行激活工具，弹出“应用程序正常初始化失败”的报错对话框，当时因为时间比较紧张，没有想明白是怎么个情况，回宿舍之后查阅相关资料，发现了问题所在。这是由于没有安装.NET framework 所造成的。
需要安装.NET framework。下载地址：http://www.onlinedown.net/soft/38669.htm
我自己在虚拟机安装了纯净版的XP模拟这个问题，发现未安装.NET framework确实报错，安装完之后正常运行！ 阅读全文...
response.write中alert输出变量
试了很多次，终于成功了，记录下来。
dim sqlTotal
dim rsTotal
sqlTotal="select Count(*) from cjcxlog where zhu=’"&zhu&"’ and DATEDIFF(’h’,time,Now())<1"
Set rsTotal= Server.CreateObject("ADODB.Recordset")
rsTotal.open sqlTotal,conn,1,1
totalPut=rsTotal(0)
sqlTotal2="select Count(*) from cjcxlog where zhu=’"&zhu&"’"
Set rsTotal2= Server.CreateObject("ADODB.Recordset")
rsTotal2.open sqlTotal2,conn,1,1
totalPut2=rsTotal2(0)+1
if totalPut2<51 then
totalPut21=50-totalPut2
if tota 阅读全文...