zsx's Old Blog

黑历史逐步隐藏中_(:з」∠)_仅保留部分可能有些价值的文章,并不保证将来的可访问性。

[置顶]ASP 腾讯微博SDK v2.3发布

解决GetID3库解析中文ID3v2乱码问题

你看啊!用千千静听保存的好好的ID3v2!保存为ISO-8859-1编码!用PHP的GetID3库读出来!是不是这样!整个人都被乱码了!!你是不是也试过foreach(mb_list_encodings() as $chr){          echo mb_convert_encoding($fileinfo['id3v2']['TIT2'

七牛云存储For Z-BlogPHP 使用说明

其实我不怎么想写这种使用说明的,因为我个人感觉可用性还可以……况且我目前用的还是ASP啊懒得转PHP啊混蛋!

PowerPoint转换视频和图片为任意分辨率

这里的PowerPoint版本需要为2010以上,否则就有问题。

PowerPoint自带的转换功能不能转换高清视频和高清图片,于是,经过多方努力查询,查到这个——

VBA代码:

Sub ConvertToVideo()
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:="文件存放路径", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=25, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub

文件扩展名可以是wmv也可以是mp4。如果是mp4,视频编码则为H.264,音频为AAC。某些PPT不能转换为MP4,原因未知。

解决Console.WriteLine句柄无效问题

QQ截图20131130184242

 

写程序写蛋疼了,先FreeConsole再AllocConsole。  这个时候就会出现句柄无效问题。

未处理System.IO.IOException
  Message=句柄无效。

解决Windows To Go移动硬盘不分配盘符的问题

微软当初设计时可能是考虑到Windows To Go作为一个系统分区,不需要当数据盘使用,所以这么干了。但是……像我这样文件和系统放一起的呢!!!!!于是怒谷歌,大致解决方案如下:管理员权限运行cmd,敲diskpart敲list volume,找到移动硬盘,记录编号敲select volume 刚才的编号敲attributes volume clear nodefaultdriveletter敲exit退出重新拔插移动硬盘

Windows Phone开发设计器出现System.NullReferenceException的解决方法[2]

接着还是这篇文章……

上一篇文章是 https://old.zsxsoft.com/archives/307.html

说实话,这个也是有时有用有时无用的……具体还是因人而异……比如我的情况就不适用。

为什么写上篇文章呢……因为我!还!在!修!复!所!以!未!验!证!效!果!


这!篇!文!章!是!成!功!验!证!了!

Windows Phone开发设计器出现System.NullReferenceException的解决方法

在新装好的系统里装好Windows Phone 8 SDK后没有启动,也没有修改,但今天要用到时突然出现一个提示:

System.NullReferenceException
未将对象引用设置到对象的实例。

后面一堆balabalabalabala的信息,看了也没用……


上网去找了一下,基本是SliverLight开发时出现的错误,解决方法是重装Sliverlight等。少数提及Windows Phone的也是要重装Windows Phone 8 SDK和Visual Studio...麻烦死了是不是……

Windows下用Sublime Text写Pascal

我是不是太闲得无聊了天天纠结Pascal的编辑器。。。

QQ截图20130721125848


在新安装的Sublime Text 2里,可以看到是没有Pascal选项的。

Sublime Text 3倒是有:QQ截图20130721130055

Windows下使用Vim来写Pascal

形势所迫,被迫学习Free Pascal。说句实话,Free Pascal自带的IDE实在是。。代码页必须切换到中国,否则会出现——

QQ截图20130712212720

如图所示的奇怪的乱码。

把代码页切换到英文呢,又无法输入中文。而且,这种代码高亮风格,实在是太坑爹了!

百度统计ASP版+ZBLOG WAP应用


代码高亮出现问题,正在修正中






首先,我们需要从这里得到ID号:

打开百度统计,点击网站中心--获取代码--WAP站访问分析代码,复制画圈处

image

网站变灰(全浏览器通杀代码)

首先是万能的WebKit:

-webkit-filter: grayscale(100%);

其次是IE(IE10下可能挂,原因未知)

-ms-filter: grayscale(100%);
-ms-filter: "progid:DXImageTransform.Microsoft.BasicImage(grayscale=1)";
filter: gray;
filter: progid:DXImageTransform.Microsoft.BasicImage(grayscale=1);
zoom:1;

然后是SVG(能把狐狸[即Firefox]卡死,支持IE10,虽然我也没成功)

ASP GetRows效率测试

老听有人说GetRows效率高,查了网上的文章也是这么说。于是我做了一个测试。

测试数据库:Access testmdb.rar

Access\MSSQL的多表联立update\delete

Access:


UPDATE TABLE1 INNER JOIN [TABLE2] ON (XXXX) SET [FIELD1]=XXXX
DELETE TABLE1.* from TABLE1 INNER JOIN [TABLE2] ON (XXXXX)


MSSQL:

WireShark本地抓包

这个标题本身有点标题党了,因为WireShark在这里只是起到打开文件的作用。。

在网络编程中,常常要用到swfupload等通过ActiveX\Plugin向服务器上传数据的组件。它们发送的包是不会在浏览器开发者工具里的网络选项卡出现的。但是,在本地调试它们有个问题,WireShark这个强大的抓包工具却无法抓本地发往本地的包!so,要这样——

首先,我们需要准备一个软件,它的名字叫“RawCap”。下载地址→http://www.netresec.com/?page=RawCap

春节抢电脑秘籍

现在的小学生(这里指的是不太懂电脑却爱瞎搞的人)造访别人的家,天天吵着嚷着要玩电脑,不玩甚至要打人(比如我的表弟),一点都不懂得基本的礼仪常识。

让他玩吧,你的工作别做了,就在旁边看着他玩吧。但是——

  • 如果他乱删改了你的系统文件呢?

  • 如果他乱下载东西感染了病毒呢?

  • 如果他装了一堆不需要的软件呢?

这个时候,你是哭呢,还是哭呢,还是哭呢??

ASP XMLHTTP断点续传+进度显示

代码:

Dim objPing,strMax,i
Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP")
objPing.open "HEAD", "地址",False
objPing.send 
strMax=CDBl(objPing.getResponseHeader("Content-Length"))  
'以上代码通过HEAD请求来得到字节数,以便断点续传
  
Response.Write "大小:" & FormatNumber(strMax/1024/1024,"3.33") & "MB, 下载中.."
Response.Flush()
  
  
Dim MyStream,s
Set MyStream=Server.CreateObject("Adodb.Stream") 
MyStream.Type = 1
MyStream.Mode = 3
MyStream.Open 
  
  
  
For i=-1 To strMax Step 1000000 '1000000是每次下载字节数
    s=IIf(i+1000000>strMax,strMax,i+1000000)
    objPing.open "GET", "地址",False
    objPing.setRequestHeader "Range","bytes="&i+1&"-"&s
              
    'HTTP 1.1的断点续传,就通过Range来实现
              
    objPing.send 
    MyStream.Write objPing.responsebody 
    Response.Write "<p>已下载:" & CInt(s/strMax*100) & "% </p>"
    Response.Flush()
Next
  
MyStream.SaveToFile Server.MapPath(".") & "\" & "文件名" ,2
'当然你也可以一边下载一边保存


ASP VBScript CRC32算法

原VB6代码:http://tieba.baidu.com/p/327458071

参考VB6版的CRC32算法所写:

ASP的Byte()不像VB6的Byte()那样,可以直接用Byte(位置)得到其二进制值。所以,这里用了ado.stream,既读取文件的二进制,又顺便用AscB(objAdo.Read(1))来代替Buffer(i)。


<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Write CRC32("D:\aaa.txt")
Public Function CRC32(Path)
      
    Dim objAdo
    Set objAdo = CreateObject("adodb.stream")
    objAdo.Open
    objAdo.Type = 1
    objAdo.LoadFromFile Path
          
    Dim crc32Result
    Dim i
    Dim j
    Dim dwCrc
    Dim iLookup
    Dim Lb
    Dim Ub
           
     '常数
    Const Num0 = &H0
    Const Num1 = &H1
    Const Num2 = &H2
    Const Num8 = &H8
    Const Num255 = &HFF
    Const Num256 = &H100
    Const Num16777215 = &HFFFFFF
    Const dwPolynomial = &HEDB88320
    Const Num2147483647 = &H7FFFFFFF
    Const NumNegative1 = &HFFFFFFFF
    Const NumNegative2 = &HFFFFFFFE
    Const NumNegative256 = &HFFFFFF00
           
    'CRC32表
    Dim crc32Table(&HFF)
           
    '初始化CRC32表
    For i = Num0 To Num255
        dwCrc = i
        For j = Num8 To Num1 Step NumNegative1
            If (dwCrc And Num1) Then
                dwCrc = ((dwCrc And NumNegative2) \ Num2) And Num2147483647
                dwCrc = dwCrc Xor dwPolynomial
            Else
                dwCrc = ((dwCrc And NumNegative2) \ Num2) And Num2147483647
            End If
        Next
        crc32Table(i) = dwCrc
    Next
    crc32Result = NumNegative1
    '计算CRC32码
    For i = 0 To objAdo.Size-1
        objAdo.Position=i
        iLookup = (crc32Result And Num255) Xor AscB(objAdo.Read(1))
        crc32Result = ((crc32Result And NumNegative256) \ Num256) And Num16777215
        crc32Result = crc32Result Xor crc32Table(iLookup)
    Next
            
    CRC32 = Hex(Not (crc32Result))
End Function
      
%>


360产品替代目录(包括外国产品与国产)

手机上的软件,事实上AppStore或GooglePlay里还是挺多的。所以这里主要说电脑,而且是基于Windows的个人PC。

image



360的用户黏性毕竟不如腾讯,用户可以任意更换安全产品(当然,在某些情况下就不行了)。所以,本文推荐一些可以替代360的免费(或暂时免费)产品。这其中,有国产软件,也有有官方中文版的外国软件,任君挑选。

SQL Server 2012 IDENTITY自增列自动编号自动加1000


这几天给人转换数据库,总碰到这种现象:

image

以中文在百度和Google查找,均无结果。

使用关键词:

“sql server IDENTITY  1000 WHY”(有点坑爹吧),找到了:

WIN8下Visual Studio 2012玩转ASP

 

Visual Studio不光可以调试ASP.NET,就连我们的ASP它都可以调试。不信?

首先,在IIS里打开在服务端调试。

IIS7、8打开方法:开INETMGR,双击ASP,设置“启用服务器端调试”为True即可:

image

segmentfault光棍节程序员闯关秀过关方法

来吧少年,让我们大战一场——http://segmentfault.com/game/

无秘笈过关真不容易,不过比起以前玩的那个台湾人做的叫A什么来着 Oline算好了。

另外未寒,丫切下你这无节操的人的XX!!


第一关——Ctrl+A,底下有连接。。

ASP 解密Base64处理过的文件

'利用XML对BASE64进行解压
Function UnpackBase64(Base64Code,savePath)
    Dim tmpXMLData
    tmpXMLData="<?xml version=""1.0"" encoding=""utf-8""?><file><stream xmlns:dt=""urn:schemas-microsoft-com:datatypes"" dt:dt=""bin.base64"">"&Base64Code&"</stream></file>"
      
    Dim objXmlFile
    Dim objNodeList
    Dim objStream
    Dim i, j
    Set objXmlFile = CreateObject("Microsoft.XMLDOM")
        objXmlFile.async = False
        objXmlFile.ValidateOnParse = False
            objXmlFile.LoadXML (tmpXMLData)
            If objXmlFile.readyState <> 4 Then
                response.write "error"
            Else
                If objXmlFile.parseError.errorCode <> 0 Then
                    response.write "error"
                Else
                    Set objNodeList = objXmlFile.documentElement.selectNodes("//file/stream")
                            j = objNodeList.length - 1
                            For i = 0 To j
                                Set objStream = CreateObject("ADODB.Stream")
                                    With objStream
                                        .Type = 1
                                        .Open
                                        .Write objNodeList(i).nodeTypedvalue
                                        .SaveToFile savePath, 2
                                        .Close
                                    End With
                                Set objStream = Nothing
                            Next
                        Set objNodeList = Nothing
                    End If
                End If
            Set objXmlFile = Nothing
        UnpackBase64=True
End Function


PlaySpy程序,填充骗子的数据库

填充骗子的数据库!!!!!!!!!!!!!!!

Asp中msxml.dll出现An error occurred in the secure channel support的解决方法

这两天,有位用户说Z-Blog腾讯微博插件有问题,说打开页面时出现“An error occurred in the secure channel support”的问题。我胜利地解决了它……

【讽刺】vbs编写查毒率100%的查毒软件

代码在此,看注释就知道了 写这程序的起因是因为看到某人写个调用vt的api,说实现云安全,还说查毒率100% 好,我写个不联网就可以查毒的程序,且查毒率100%。 本程序只有讽刺意义,不可用于使用.

如何耍骗子,填充他的数据库

往骗子的数据库里填充硅胶,呼呼呼

群登器2.3.11.0305发布

本次更新于2011年3月5日晚约10时许发布。于22:30撤回更新检查更新程序BUG。经检查无BUG,3月6日早9时重新开放更新。

各类浏览器ABP或类似插件安装方法

啥都不说鸟

VB实现Aero效果(for Vista、2008、7)

列出代码与示意图,写出如何在VB中实现aero。

本人亲测Win7自动联网和断网,超级简单!100%正确

 Win7自动联网断网

...

Windows7\VISTA安装内码输入法

很多朋友抱怨,WinVista\Win7下没有内码输入法,造了字却不能使用,真令人恼火。网上的教程,又需要双系统支持。唉~
所以我特地编写了一个小程序,它能实现一键安装内码输入法。
下载地址
http://cid-977d0ca7e2ad4ff0.skydrive.live.com/self.aspx/NamipanPublic/2009-12-13/%e5%ae%89%e8%a3%85%e5%86%85%e7%a0%81%e8%be%93%e5%85%a5%e6%b3%95.rar(不要右键点击下载,这只是一个网页)

...

Win7开启XP Mode模式(原创)



...

控制面板
您好,欢迎到访网站!
  查看权限
Google Adsense
文章归档
站点信息
  • 文章总数:259
  • 页面总数:10
  • 分类总数:17
  • 标签总数:136
  • 评论总数:1644
  • 浏览总数:216659

Powered By Z-BlogPHP 1.5.1 Zero

闽ICP备15006942号   闽公网安备 35010302000147号