CSS控制段落首字突显

CSS控制每段第一个字的样式:*{margin:0;padding:0;}p{width:150px;color:#000;font-size:1em;}p:first-letter{font-size:2.5em;padding-right:5px; text-transform:uppercase;}/*段落第一个字母样式 :first-letter ,另外text-transform:uppercase; 是将英文字母转换成大写格式输出 *//* :first-letter样式中还可以使用行内元素的vertical-align属性,以控制同行内容的对齐方式,字体比较小时能派上用场!*/p:first-line{ color:#f00;} /* 段落第一行样式 :first-line */以上就是控制每个段落首字首行的CSS样式效果:笔记7小时前

php file 与 file_get_contents函数

简单的讲:file读取文件以数组形式返回,file_get_contents读取文件以字符串形式返回!比如读取一个data.txt的文本文件。<?php    $file=file("data.txt");    $file_get_contents=file_get_contents("data.txt");   echo "file 数组,一行一个!<br><br>";   print_r($file);   echo "<br><hr>file_get_contents,字符串。<br><br>";   print_r($file_get_contents);   ?>  输出:file 数组,一行一个!     Array ( [0] => 第一行 [1] => 第二行 [2] => 第三行 )    file_get_contents,字符串。     第一行 第二行 第三行  图:如果以txt做数据的话,utf-8编码要把txt也保存为utf-8的文本文件!知识7小时前

PHP随机取出不重复数字

有时需要不重复的数字,不管用于什么用途。我是写在随机抽取数据库里的数据,因为有几十万条的数据,随机抽取总会出点问题。不是连续太多就是超出,再且用rand()效率 也出错。join 总是出现很多连续的。就找了一个随机ID然后where in 来取出数据,这个主要ID 要连续的。要不然会出空值。我要随机100个,我就取出1000个,然后在选100个。<?php    function createRandID($s,$e,$n){        // 注意,要先声明一个空数组,否则while里的in_array会报错        $arr = array();        // 使用while循环,只要不够N个就永远循环        while(count($arr)<=$n){            // 产生一个随机数            $a = rand($s,$e);            // 判断:如果产生的随机数不再数组里就赋值到数组里            // 主要避免产生重复的数字            if(!in_array($a,$arr)){                // 把随机数赋值到数组里                $arr[] = $a;                }        }        // 返回产生的随机数字        return implode($arr,',');    }    echo createRandID(1,100,5); //实例,从1~100内取出5个不重复的随机数字   ?>  这个随机数代码,效率还不错!说明:$s:起始数,$e:结束数,$n:取出个数笔记7小时前

H1的CSS样式解决占用一行的问题

H1标签的作用-网站建设,H1标签是在网站制作过程中,经常用到的一个标签,他的作用仅次于Title,在seo方面,这个标签还有H2,H3,这些标签用好了,对网站的优化会有事半功倍的效果。H标签都是占用一行的。有时候,我们又不像让H标签占用一行!可以用CSS来限制CSS:display:inline; width:auto;对应的效果:笔记7小时前

VBA代码破解excel密码保护,支持2003,2007

Excel密码保护之后只能只读,不能进行修改操作,想要修改就需要对excel进行破解,当然,是在不知道密码的情况下!这是一个经过密码保护的excel表格,现在开始破解工作!1、打开密码保护的excel文件–工具–录制新宏–输入名字如:xp  –点击停止录制!2、工具–宏–宏,选xp,点编辑按钮3、删除窗口的代码,替换VBA破解代码:VBA代码:ublic Sub AllInternalPasswords()    ' Breaks worksheet and workbook structure passwords. Bob McCormick    ' probably originator of base code algorithm modified for coverage    ' of workbook structure / windows passwords and for multiple passwords    '    ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)    ' Modified 2003-Apr-04 by JEM: All msgs to constants, and    ' eliminate one Exit Sub (Version 1.1.1)    ' Reveals hashed passwords NOT original passwords    Const DBLSPACE As String = vbNewLine & vbNewLine    Const AUTHORS As String = DBLSPACE & vbNewLine & _    "Adapted from Bob McCormick base code by" & _    "Norman Harker and JE McGimpsey"    Const HEADER As String = "AllInternalPasswords User Message"    Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"    Const REPBACK As String = DBLSPACE & "Please report failure " & _    "to the microsoft.public.excel.programming newsgroup."    Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _    "now be free of all password protection, so make sure you:" & _    DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _    DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _    DBLSPACE & "Also, remember that the password was " & _    "put there for a reason. Don't stuff up crucial formulas " & _    "or data." & DBLSPACE & "Access and use of some data " & _    "may be an offense. If in doubt, don't."    Const MSGNOPWORDS1 As String = "There were no passwords on " & _    "sheets, or workbook structure or windows." & AUTHORS & VERSION    Const MSGNOPWORDS2 As String = "There was no protection to " & _    "workbook structure or windows." & DBLSPACE & _    "Proceeding to unprotect sheets." & AUTHORS & VERSION    Const MSGTAKETIME As String = "After pressing OK button this " & _    "will take some time." & DBLSPACE & "Amount of time " & _    "depends on how many different passwords, the " & _    "passwords, and your computer's specification." & DBLSPACE & _    "Just be patient! Make me a coffee!" & AUTHORS & VERSION    Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _    "Structure or Windows Password set." & DBLSPACE & _    "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _    "Note it down for potential future use in other workbooks by " & _    "the same person who set this password." & DBLSPACE & _    "Now to check and clear other passwords." & AUTHORS & VERSION    Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _    "password set." & DBLSPACE & "The password found was: " & _    DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _    "future use in other workbooks by same person who " & _    "set this password." & DBLSPACE & "Now to check and clear " & _    "other passwords." & AUTHORS & VERSION    Const MSGONLYONE As String = "Only structure / windows " & _    "protected with the password that was just found." & _    ALLCLEAR & AUTHORS & VERSION & REPBACK    Dim w1 As Worksheet, w2 As Worksheet    Dim i As Integer, j As Integer, k As Integer, l As Integer    Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer    Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer    Dim PWord1 As String    Dim ShTag As Boolean, WinTag As Boolean      Application.ScreenUpdating = False    With ActiveWorkbook    WinTag = .ProtectStructure Or .ProtectWindows    End With    ShTag = False    For Each w1 In Worksheets    ShTag = ShTag Or w1.ProtectContents    Next w1    If Not ShTag And Not WinTag Then    MsgBox MSGNOPWORDS1, vbInformation, HEADER    Exit Sub    End If    MsgBox MSGTAKETIME, vbInformation, HEADER    If Not WinTag Then    MsgBox MSGNOPWORDS2, vbInformation, HEADER    Else    On Error Resume Next    Do 'dummy do loop    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126    With ActiveWorkbook    .Unprotect Chr(i) & Chr(j) & Chr(k) & _    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    If .ProtectStructure = False And _    .ProtectWindows = False Then    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    MsgBox Application.Substitute(MSGPWORDFOUND1, _    "$$", PWord1), vbInformation, HEADER    Exit Do 'Bypass all for...nexts    End If    End With    Next: Next: Next: Next: Next: Next    Next: Next: Next: Next: Next: Next    Loop Until True    On Error GoTo 0    End If    If WinTag And Not ShTag Then    MsgBox MSGONLYONE, vbInformation, HEADER    Exit Sub    End If    On Error Resume Next    For Each w1 In Worksheets    'Attempt clearance with PWord1    w1.Unprotect PWord1    Next w1    On Error GoTo 0    ShTag = False    For Each w1 In Worksheets    'Checks for all clear ShTag triggered to 1 if not.    ShTag = ShTag Or w1.ProtectContents    Next w1    If ShTag Then    For Each w1 In Worksheets    With w1    If .ProtectContents Then    On Error Resume Next    Do 'Dummy do loop    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126    .Unprotect Chr(i) & Chr(j) & Chr(k) & _    Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    If Not .ProtectContents Then    PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _    Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _    Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)    MsgBox Application.Substitute(MSGPWORDFOUND2, _    "$$", PWord1), vbInformation, HEADER    'leverage finding Pword by trying on other sheets    For Each w2 In Worksheets    w2.Unprotect PWord1    Next w2    Exit Do 'Bypass all for...nexts    End If    Next: Next: Next: Next: Next: Next    Next: Next: Next: Next: Next: Next    Loop Until True    On Error GoTo 0    End If    End With    Next w1    End If    MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER    End Sub  4、关闭编辑窗口–工具—宏—宏,选AllInternalPasswords,执行,弹出的所有窗口都点击确定,直到不再弹出,破解完成!PS:如果excel表格内容比较多的话,可能会出现无反应的情况,等待一会就可以了!破解之后记得保存!笔记7小时前

外站调用wordpress文章

在外站调用wordpress文章,百度了下,一般都是通过框架或者直接在根目录调用系统文件创建一个新的php文件来输出文章,其实,只要在模版下新建一个页面模版输出文件即可,而且输出文章的代码可以直接用主题的代码,即输出文章的函数来获取最新文章。页面模版代码:<?php/*Template Name:外部调用文章模版*/?><?php query_posts('showposts=5'); ?><ul><?php while (have_posts()) : the_post(); ?><li><a href="<?php the_permalink() ?>"><?php the_title(); ?></a></li><?php endwhile;?></ul>只需要简单的写上这段代码,在wordpress后台新建一个页面,选择这个模版文件即可!新建一个页面,模版选择创建的页面模版文件,内容为空,直接发布!外站调用直接用用file_get_contents函数即可!笔记8小时前

JS+html点击运行文本框内代码

代码类,代码演示类,代码修改等处使用,通过JS+Html表单输入框实现“点击运行”在浏览器中查看文本框内的代码运行效果。JS代码:function RunCode(txt) {cod=document.all(txt)var code=cod.value;if (code!=""){var newwin=window.open('','',''); //打开一个窗口并赋给变量newwin。newwin.opener = null // 防止代码对论谈页面修改newwin.document.write(code); //向这个打开的窗口中写入代码code,这样就实现了运行代码功能。newwin.document.close();}else{alert("亲,对不起,您是要我运行什么啊!"); //空值时弹出}}HTML代码:由一个文本框和一个点击完成<textarea style="width:990px;height:200px;margin:10px 0px 10px 10px;" id="code"></textarea ><div class="run" onclick="RunCode('code')">点击运行-查看效果</div>点击之后就可以在浏览器中看待文本框内的效果!笔记8小时前

wordpress非插件点赞功能

非插件wordpress点赞功能,其实就是调用wordpress自定义字段,通过AJAX提交修改wordpress字段的数值,和阅读次数差不多。上图是最近写一个模版的文章底部的样式,现在帖下百度来的点赞代码:1、在模版functions.php适合位置插入//文章点赞开始 add_action('wp_ajax_nopriv_specs_zan', 'specs_zan'); add_action('wp_ajax_specs_zan', 'specs_zan'); function specs_zan(){ global $wpdb,$post; $id = $_POST["um_id"]; $action = $_POST["um_action"]; if ( $action == 'ding'){ $specs_raters = get_post_meta($id,'specs_zan',true); $expire = time() + 99999999; $domain = ($_SERVER['HTTP_HOST'] != 'localhost') ? $_SERVER['HTTP_HOST'] : false; // make cookies work with localhost setcookie('specs_zan_'.$id,$id,$expire,'/',$domain,false); if (!$specs_raters || !is_numeric($specs_raters)) { update_post_meta($id, 'specs_zan', 1); } else { update_post_meta($id, 'specs_zan', ($specs_raters + 1)); } echo get_post_meta($id,'specs_zan',true); } die; } //文章点赞结束 文章模版页添加JS代码:$.fn.postLike = function() { if ($(this).hasClass('done')) { return false; } else { $(this).addClass('done'); $(this).children('.zan').html("已赞"); var id = $(this).data("id"), action = $(this).data('action'), rateHolder = $(this).children('.count'); var ajax_data = { action: "specs_zan", um_id: id, um_action: action }; $.post("/wp-admin/admin-ajax.php", ajax_data, function(data) { $(rateHolder).html(data); }); return false; } }; $(document).on("click", ".specsZan", function() { $(this).postLike(); }); 在文章模版页需要添加点赞按钮的地方添加代码:<a hidefocus= true href="javascript:;" data-action="ding" data-id="<?php the_ID(); ?>" class="specsZan <?php if(isset($_COOKIE['specs_zan_'.$post->ID])) echo 'done';?>"> <i></i> <span class="zan" style="margin-right:5px;"><?php if(isset($_COOKIE['specs_zan_'.$post->ID])){ echo '已赞';}else{echo '赞';}?></span><span class="count"><?php if( get_post_meta($post->ID,'specs_zan',true) ){echo get_post_meta($post->ID,'specs_zan',true);} else {echo '0';}?></span></a></div> 这样,一个wordpress非插件的点赞功能就出来了!CSS样式自行添加。如果嫌麻烦,可以搜索安装相关的点赞插件,相对来说,非插件自定义的自由会比较大吧笔记8小时前

wordpress相关文章列表

WordPress相关文章列表,先获取标签相关文章,如标签下相关文章不能达到设置数量,获取同类目文章<?php$i = 0;$post_num = 8;//设置文章显示数量$exclude_id = $post->ID;//排查当前文章$posttags = get_the_tags();//获取标签if ( $posttags ) {$tags = ''; foreach ( $posttags as $tag ) $tags .= $tag->term_id . ',';$args = array('post_status' => 'publish','tag__in' => explode(',', $tags),'post__not_in' => explode(',', $exclude_id),'caller_get_posts' => 1,'orderby' => 'comment_date','posts_per_page' => $post_num);query_posts($args);while( have_posts() ) { the_post(); $i++; $exclude_id .= ',' . $post->ID;?> <div class="about_good fl <?php if($i%2==0){echo 'li-2';} if($i%3==0){echo ' li-3';} if($i%4==0){echo ' li-4';}?>"><a rel="bookmark" target="_blank" href="<?php the_permalink(); ?>"><?php post_thumbnail(); ?></a><div class="title"><a rel="bookmark" title="详细阅读 <?php the_title(); ?>" target="_blank" href="<?php the_permalink(); ?>"><?php the_title(); ?></a></div></div><?php } wp_reset_query();}if ( $i < $post_num ) {$cats = ''; foreach ( get_the_category() as $cat ) $cats .= $cat->cat_ID . ',';$args = array('category__in' => explode(',', $cats),'post__not_in' => explode(',', $exclude_id),//排除标签已显示的文章'caller_get_posts' => 1,'orderby' => 'comment_date','posts_per_page' => $post_num - $i);query_posts($args);while( have_posts() ) { the_post();?><div class="about_good fl <?php if($i%2==0){echo 'li-2';} if($i%3==0){echo ' li-3';} if($i%4==0){echo ' li-4';}?>"><a rel="bookmark" target="_blank" href="<?php the_permalink(); ?>"><?php post_thumbnail(); ?></a><div class="title"><a rel="bookmark" title="详细阅读 <?php the_title(); ?>" target="_blank" href="<?php the_permalink(); ?>"><?php the_title(); ?></a></div></div> <?php } wp_reset_query(); }?>以上带图片,需要在function中设置略缩图笔记8小时前

wordpress根据自定义字段查询文章并统计文章篇数

wordpress可以根据自定义字段来分类文章:$args = array( 'posts_per_page' => 10, // 显示多少条 'paged' => $paged, // 当前页面 'orderby' => 'date', // 时间排序 'order' => 'desc', // 降序(递减,由大到小) 'meta_query' => array( array( 'key' => 'key1', // 你的使用的自定义字段1 'value' => 'value1' // 自定义字段1对应的值 ), array( 'key' => 'key2', // 你的使用的自定义字段2 'value' => 'key2' // 自定义字段2对应的值 ) ));query_posts($args);while (have_posts()) : the_post(); // 循环内容;endwhile;但是有一个问题,就是需要重写分页代码,通过自定义分类检出的文章,如果需要全部检出分页,默认在function里的分页代码可能不准确,默认不会计算自定义字段,可以通过:$allsearch = new WP_Query($args);$allsearch->max_num_pages;取出分页数量笔记8小时前
零分站龄16年资深站长
一个喜欢折腾,却又折腾不出像样东西的,不会PHP的PHP程序员!
929
文章
13
分类
1516
标签
2
友链
onlinelovesky317355746vipsever@vip.qq.com