博客终于换上了自适应模板,加载速度也不慢. 重起电脑后,再打开博客发现无法登陆… 网上找了半天,终于找到解决方法了: 修改wp-includes/load.php ,添加选中的代码这样获取正确的地址,现在后台和前台访问就没有异常。 function is_ssl() { if ( isset( $_SERVER['HTTPS'] ) ) { if ( 'on' == strtolower( $_ ...
-
ssllabs评分低解决方法
ssllabs评分低是由于自己设置的造成的! 主要影响评分低的原因在下面用红色标注: ssl on; ssl_certificate /nginx_conf/vhosts/ssl/2016/www.ctohome.com-openssl-bundle.crt; ssl_certificate_key /nginx_conf/vhosts/ssl/2016/www.ctohome.com-openssl-nopass.key; ssl_session_timeout 5m; ssl_ciphers ECDHE-RSA-AE ...
-
wordpress https访问设置
新修改数据表中 http:// 开头为https:// 请参考:wordpress 更换域名 可能有些图片无法更新过来,但我们可以通过代码实现: 编辑当前主题下的 functions.php 文件,加入以下代码: //WordPress SSL add_filter('get_header', 'fanly_ssl'); function fanly_ssl(){ if( is_ssl() ){ function fanly_ssl_main ($cont ...
-
wordpress更换域名
一、换空间换域名 1、如果是上述问题,打包备份旧空间ftp内的所有文件,进旧站数据库phpmyadmin里导出你网站的数据库sql文件; 2、将备份的ftp所有文件上传至新的空间FTP内,将备份的sql上传到新空间的数据库phpmyadmin内; 3、打开新空间ftp的网站根目录找到wp-config.php文件,编辑它(php文件不要用txt去编辑),进 ...
-
delphi WebBrowser对IE浏览器的各种控制
试着改变参数会得到其他一些功能: WebBrowser.ExecWB(1,1) 打开 WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口,并打开一个新窗口 WebBrowser.ExecWB(4,1) 保存网页 WebBrowser.ExecWB(6,1) 打印 WebBrowser.ExecWB(7,1) 打印预览 WebBrowser.ExecWB(8,1) 打印页面设置 WebBrowser.ExecWB(10,1) 查看页面属性 WebBrow ...
-
delphi 字符复制粘贴
uses Clipbrd; 把数据复制到粘贴板: clipboard.AsText:='11111111'; 把复制的数据写入变量: str:=clipboard.AsText; 把数据模拟粘贴: keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0); //ctrl+v keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0); keybd_event(Ord('V'), Ma ...
-
delphi webbrowser 地址定位点击超链接
有时候需要模拟点击js链接,但又无name无id该怎么办呢! 用下面代码可以达到意想不到的效果,循环检测链接地址,地址匹配则点击! procedure TForm1.Button1Click(Sender: TObject); var I: Integer; Document: IHTMLDocument2; Element: IHTMLElement; Anchors: IHTMLElementCollection; sLink: stri ...
-
delphi WebBrowser文字判断来点击链接
uses ActiveX, ComObj, MSHTML; 根据连接文字点击连接- 一般情况下的连接 Procedure HTMLClinkByText(text:string;Wbr:TWebBrowser); var doc:IHTMLDocument2; len,I:integer; item:OleVariant; all:IHTMLElementCollection; begin doc:=Wbr.Document as IHTMLDocument2; all:=d ...
-
delphi 检测图片格式类型
有时候jpg后缀图片其实是png格式的图片。这样我们就需要将真实的格式还原出来; procedure TForm1.Button6Click(Sender: TObject); var //声明变量 MyImage:TMemoryStream; //内存流对象 Buffer:Word; begin if strtoint(edit3.Text)<strtoint(edit4.Text) then //OpenDialog1是一个文件打开 ...
最活跃的读者