wordpress在上传时,上传后的文件名为你上传前的文件名。这样给大家带来极大的不便,特别是一些Linux主机不支持中文。如果上传的文件名是带有中文的,那么你就蛋疼了。笔者就有这样的经历,特蛋疼! 所以在网上找了许久的资料,资料是很多。但似乎都有些问题经过改进,目前很正常了。 在wordpress程序的wp-admin/includ ...
-
linux的VPS新增硬盘分区
今天买了个紫田网络的VPS,搞得都头大了。第一块硬盘只有10G,第二个硬盘还没启用。如果要启用这个未启用的硬盘,就必须的分区。 fdisk -l 对/dev/sdb(此名称因系统而异)进行分区: fdisk /dev/sdb 输入n新建分区: Command (m for help): n Command action e extended p primary partition (1-4) 显示代码如 ...
-
delphi 内存流文件流生成客户端
———————配置端—————————————– uses Inifiles; 全局: var Inifile:TInifile; 加载资源文件: {$RClient.RES} 主要代码: var File1,File2:TFileStream; Size:integer; Files:str ...
-
百度蜘蛛IP段 作用
这个是这前几天在网上看到的一篇文章,觉得有些意思,拿来给大家看看,有兴趣的可以试试! 123.125.68.* 这个蜘蛛经常来别的来的少表示网站可能要进入沙盒了,或被者降权(请检查近期是否对网站有大改动,或者友情连接出问题拉)。 220.181.68.* 每天这个IP段只增不减很有可能进沙盒或K站。 220.181.7.* 123.125.66.* ...
-
linux web服务器磁盘挂载教程
当咱们放数据的那个磁盘不够时,想将另个分区的的空间挂载上解决磁盘空间满载的问题!那么我们该怎样做呢? 方法如下: 假设新增加的硬盘为/dev/sdb 前提该分区已经分好了区并格式化了,为/dev/sdb1 首先,创建一个临时加载点. mkdir /mnt/data 将新分区加载进来,如下: mount /dev/sdb1 /mnt/data 先停止所有的服务: serv ...
-
linux 系统命令(自己用到的命令 长期更新)
常用命令: wget http://www.xxx.com/a.zip //下载命令 cd /www //切换目录命令 dir //查看当前命令 unzip a.zip //解压zip文件命令 tar -zxvf a.tar.gz //压缩当前文件夹为 a.tar.gz 支持目录命令如 tar -zxvf a.tar.gz -C /www //解压带/www目录中 tar -zcvf /tmp/etc.tar.gz /etc //打包/etc目录 并将打包好的 ...
-
delphi for循环应用
for语句的一般格式: for := to do ; for := downto do ; For语句执行过程: ①先将初值赋给左边的变量(称为循环控制变量); ②判断循环控制变量的值是否已”超过”终值,如已超过,则跳到步骤⑥; ③如果末超过终值,则执行do后面的那个语句(称为循环体); ④循环变量递增(对to)或递减(对downt o)1; ⑤返回步骤②; ⑥ ...
-
delphi 程序自我删除代码
在制作自动更新时,需要删除自己来替换新程序并运行! 这段代码就很有用了! procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat'; AssignFile(Batch ...
-
delphi 模拟路由登陆
模拟路由自动登陆: procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://192.168.0.1'); timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); var wnd:HWND; begin wnd:=FindWindow('#32770','连接到 192.168.0.1'); if wnd>0 then begin ...
-
delphi 获取指定文件夹下所有文件名
找了好会儿,才找到个能用的,现在我分享给大家! procedure TForm1.Button1Click(Sender: TObject); var found:integer; keyword,s,dirstr:string; rc:TSearchRec; begin memo1.Clear; dirstr:='C:\1\';//任意目录 keyword:='*.Txt';//关键字 指定.txt后缀 s:=dirstr+Trim(keyword); found:=findf ...
最活跃的读者