说明:ASP中取得图片宽度和高度的类(无组件) <% Class ImgWHInfo ‘获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP Dim ASO Private Sub Class_Initialize Set ASO=Server.CreateObject(“ADODB.Stream”) ASO.Mode=3 ASO.Type=1 ASO.Open End Sub Private <weixin_38669832> 上传 | 大小:24kb
说明:以下是源码,请命名为.asp文件 代码如下:<% bpn = request(“bpn”) if(bpn = “”) then bpn = “0” end if intbpn = cint(bpn) if request(“action”) = “1” then word = request(“word”) url = request(“url”) if word “” then getCategories() if url “” then <weixin_38666232> 上传 | 大小:32kb
说明:此类高亮根据Editplus高亮来做的 代码如下:Class Wyd_AspCodeHighLight Private RegEx Public Keyword,ObjectCommand,Strings,VBCode Public KeyWordColor,ObjectCommandColor,StringsColor,Comment,CodeColor Private Sub Class_Initialize() Set RegEx = New RegExp Re <weixin_38632916> 上传 | 大小:42kb