给WP博客加验证码防止恶意评论

这两我的网站出现了上万ip，流量都快搞没了，原因是QQ空间中引用了存在本站的mp3背景音乐，今天登录博客后台显示2万多评论，全是垃圾评论。
若不想关闭评论就想办法加验证码，教程如下：（注意代码中的中文若无法显示就改成英文的）
编辑博客根目录下的wp-comments-post.php文件，在67行处加上代码： 

1
2
3
4
5
6
7
8

if ( !$user->ID ) {
$a = trim($_POST[a]);
$b = trim($_POST[b]);
$sub = trim($_POST[sub]);
if((($a+$b)!=$sub)|| empty($sub)){
wp_die( __('错误: 请输入正确的算术题结果.') );
}
}

到当前使用的模版根目录中（如\wp-content\themes\inove），编辑 comments.php 在textarea标签（位置合适就行）后添加代码：

1
2
3
4
5

<p><? $a=rand(0,5); $b=rand(0,5); ?>
<input type="text" name="sub" tabindex="4" id="sub" size="22">
<input type="hidden" name="a" value="<?=$a?>" />
<input type="hidden" name="b" value="<?=$b?>" />
<label for="sub"> 验证码：<span class="red"><?=$a?>+<?=$b?>=?</span> (*)</label></p>

, , ,

继续阅读

vb中日期格式化问题

我们用now()获取到的是本地时间,这些格式有时被用户自定义过了,不标准,如下面这个
datNowTime = "2009-11-12 下午 13:22:11"
这里面含有中文,程序中直接操作会出错的,可以这样转换.
Format(datNowTime, "YYYY-MM-DD HH:mm:ss")
Format(datNowTime, "YYYY-MM-DD")
如果是在sql语句中直接用 getdate() 函数即可得到当前时间,要用引号.而不需要任何转换或拆分.

, , ,

继续阅读

Inno setup 常用代码收集[1]

1 、如何让协议许可页面默认选中我同意按钮
[code]
procedure InitializeWizard();
begin
WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
end;

2、自定义安装程序右上角图片大小
[code]
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.width:=150; //设置页眉图片的大小
WizardForm.WizardSmallBitmapImage.left:=WizardForm.width-150; //设置左边页眉留出的空隙
WizardForm.PAGENAMELABEL.width:=0; //设置标题文字显示的大小
WizardForm.PAGEDESCRIPTIONLABEL.width:=0; //设置标题文字显示的大小
end;
或者

, ,

继续阅读

JS平滑毫秒倒计时特效

这个倒计时不会卡，代码很简单，很值得参考借用，可以平滑的显示剩余时间毫秒数。

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

<div id=msg></div>
</body>
<script language="javascript"> 
function clock(){ 
document.getElementById('msg').innerHTML="本窗口将在"+i+"秒后关闭";
if(i==0){
clearTimeout(st); 
window.opener=null; window.close();} 
i = i -1; 
st = setTimeout("clock()",10); 
} 
var i=10000;
clock(); 
</script>

,

继续阅读

在VB程序中ByVal与ByRef的区别

ByVal 传送参数内存的一个拷贝给被调用者。也就是说，栈中压入的直接就是所传的值。
ByRef 传送参数内存的实际地址给被调用者。也就是说，栈中压入的是实际内容的地址。被调用者可以直接更改该地址中的内容。

ByVal 可选的。表示该参数按值传递。
ByRef 表示该参数按地址传递。 ByRef 是 Visual Basic 的缺省选项。

ByVal是传递值 源数据不会被修改
你可以把这个值当作自己的局部变量来使用
ByRef是传递地址 ， 源数据可能被修改
你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉


sub Add1(ByVal no as int32)
no=no+100
end sub
sub Add2(ByRef no as int32)
no=no+100
end sub
private sub button1_click(sender as object,e as eventargs)handles button1.click
dim a as int32
a=100
Add1(a)
msgbox ("a的值为：" & a) '显示：a的值为100
Add2(a)
msgbox ("a的值为：" & a) '显示：a的值为200,因为Add2中的参数no为ByRef,即
'按地址传递，因此在Add2中对no进行修改后，将会导致
'源参数a的值也被修改。
End Sub

继续阅读

读取任意QQ空间音乐列表代码

QQ空间音乐读取器可以在线窃取好友的音乐列表,只需要输入对方的qq号,便可以直接下载,或者在线播放,十分方便,玩qq空间的朋友必备，嘿嘿

源码下载地址：http://www.suntw.com/qq/qqLoadmp3.rar
在线演示地址： http://www.suntw.com/qq

, ,

继续阅读

asp中javascript连接access数据库

1
2
3
4
5
6
7

<%
var MM_baodianDSN_STRING= Server.CreateObject("ADODB.Connection");
var myConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="; 
myConnect += Server.MapPath("\\");
myConnect += "\\data_base\\baodian.mdb;";
MM_baodianDSN_STRING.open (myConnect);
%>

, ,

继续阅读

asp在线压缩access数据库(源码)

1
2
3
4
5
6
7
8
9
10

< %
dim action,db
db="你的数据库的路径"
action=Trim(request("action"))
 
Select Case action
Case "CompressData" '压缩数据
    Call CompressData()
end Select
%>

, ,

继续阅读

asp.net探针 乘风asp.net探针

源码见内页，单文件可以直接放在空间中运行，不要web.config

,

继续阅读

php中smtp方式发送邮件的例子

首先下载这两个文件，是phpmail的类：
class.phpmailerclass.smtp
以下是使用时的代码。

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

<?php
require("class.phpmailer.php"); //下载的文件必须放在该文件所在目录
$mail = new PHPMailer(); //建立邮件发送类
$address = $_POST['address']; 
$mail->IsSMTP(); // 使用SMTP方式发送
$mail->Host = "mail.suntw.com"; // 您的企业邮局域名
$mail->SMTPAuth = true; // 启用SMTP验证功能
$mail->Username = "test@suntw.com"; // 邮局用户名(请填写完整的email地址)
$mail->Password = "test123"; // 邮局密码
 
$mail->From = "test@suntw.com"; //邮件发送者email地址
$mail->FromName = "我的名称";
$mail->AddAddress("$address", "");//收件人地址，可以替换成任何想要接收邮件的email信箱,格式是AddAddress("收件人email","收件人姓名")
//$mail->AddReplyTo("", "");
 
//$mail->AddAttachment("/var/tmp/file.tar.gz"); // 添加附件
//$mail->IsHTML(true); // set email format to HTML //是否使用HTML格式
$mail->Subject = "PHPMailer测试邮件"; //邮件标题
$mail->Body = "Hello,这是测试邮件"; //邮件内容
$mail->AltBody = "This is the body in plain text for non-HTML mail clients"; //附加信息，可以省略
 
if(!$mail->Send())
{
 echo "邮件发送失败. <p>";
 echo "错误原因: " . $mail->ErrorInfo;
 exit;
}
echo "邮件发送成功";
?>
1
2
3
4
5
6
7
8
9
10
11
12

<html>
<body>
<h3>phpmailer Unit Test</h3>
请你输入<font color="#FF6666">收信</font>的邮箱地址:
<form name="phpmailer" action="send.php" method="post">
<input type="hidden" name="submitted" value="1"/>
邮箱地址: <input type="text" size="50" name="address" />
<br/>
<input type="submit" value="发送"/>
</form>
</body>
</html>

, ,

继续阅读

页码 20 / 21首页...10...1718192021