29,031
社区成员
发帖
与我相关
我的任务
分享
<?php if($_GET['act'] == '') {
$sql = "select * from wx_list order by id asc";
$result = mysql_query($sql);
$total = mysql_num_rows($result);
$page = isset($_GET['page'])?intval($_GET['page']):1;
$info_num = 50;
$pagenum = ceil($total/$info_num);
$offset = ($page-1)*$info_num;
$info = mysql_query("select * from wx_list order by id desc limit $offset,$info_num");
?>
include("data/config.php");
$id = $_GET['id'];
$sql = "select * from lists where id='".$id."'";
$rs = mysql_fetch_array(mysql_query($sql));
$s_time = strtotime (date('Y-m-d'));
$e_time = strtotime ($rs['e_time']);
$r_time = ceil(($e_time - $s_time));
if($r_time <= 0){
echo '这是文本';
exit;
}
$count = $rs['count'] + 1;
mysql_query($sql = "update wx_list set count='".$count."' where id='".$id."'");
function get_ticket($code){
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, TRUE);
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, FALSE);
$contents = curl_exec($ch);
preg_match('/ticket=(.*?)\"/',$contents,$result);
$content = $result[1];
return $content;
}
if(time() - $rs['uptime'] >= 1800) {
$www_url = get_ticket($rs['www_url']);
mysql_query($sql = "update wx_list set ticket='".$www_url."',uptime='".time()."' where id='".$id."'");
} else {
$www_url = $rs['ticket'];
}
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width,initial-scale=1,minimum-scale=1,maximum-scale=1,user-scalable=0">
<meta name="apple-mobile-web-app-capable" content="yes">
<meta name="apple-mobile-web-app-status-bar-style" content="black">
<meta name="format-detection" content="telephone=no">
<title>正在跳转中</title>
</head>
<body>
<div style="text-align: center;font-size: 18px;margin: 100px 0 30px 0;">需要免费代码联系我QQ:3220192183</div>
<a href="weixin://dl/business/?ticket=<?php echo $www_url ?>" style="width: 90%;background: #1AAD19;text-align: center;color: #fff;margin: 0 auto;box-sizing: border-box;font-size: 18px;line-height: 2.55555556;border-radius: 5px;display: block;text-decoration: none;">再次跳转</a>
<script>window.location.href="weixin://dl/business/?ticket=<?php echo $www_url ?>";</script>
<!--要免费代码的联系我QQ:3220192183-->
</body>
</html>
procedure TForm1.Button1Click(Sender: TObject);
var
strCaption,strDirectory:String;
wstrRoot:WideString;
begin
countf := 0;
countd := 0;
Memo1.Clear; { 清除数据表memo字段内容 }
strCaption:='修改文件后缀名的软件';//该参数是浏览文件夹窗口的显示说明部分
wstrRoot:='';//这个参数表示所显示的浏览文件夹窗口中的根目录,默认或空表示“我的电脑”。
SelectDirectory(strCaption,wstrRoot,strDirectory);
Edit1.Text:=strDirectory;
search(Edit1.Text,Edit2.Text,strtoint(Edit3.Text)); { 调用Search()函数 }
MessageDlg('文件搜索完毕!', mtInformation, [mbOk], 0); { 结束提示 }
showmessage('目录:' + inttostr(countd) + ' 文件:' + inttostr(countf));
end;