Asp判断本地文件是否是图片格式

作者:admin 日期:2008-12-06

function CheckFileType(filename)
on error resume next
CheckFileType=false
dim fstream,fileExt,stamp,i
fileExt=mid(filename,InStrRev(filename,".")+1)
set fstream=Server.createobject("ADODB.Stream")
fstream.Open
fstream.Type=adTypeBinary
fstream.LoadFromFile filename
fstream.position=0
select case fileExt
case "jpg","jpeg"
stamp=fstream.read(2)
for i=0 to 1
if ascB(MidB(stamp,i+1,1))=jpg(i) then CheckFileType=true else CheckFileType=false
next
case "gif"
stamp=fstream.read(6)
for i=0 to 5
if ascB(MidB(stamp,i+1,1))=gif(i) then CheckFileType=true else CheckFileType=false
next
case "png"
stamp=fstream.read(4)
for i=0 to 3
if ascB(MidB(stamp,i+1,1))=png(i) then CheckFileType=true else CheckFileType=false
next
case "bmp"
stamp=fstream.read(2)
for i=0 to 1
if ascB(MidB(stamp,i+1,1))=bmp(i) then CheckFileType=true else CheckFileType=false
next
end select
fstream.Close
set fseteam=nothing
if err.number<>0 then CheckFileType=false
end function

Tags: asp

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3417

pixviewer.swf源文件

作者:admin 日期:2008-11-30

用Flash实现幻灯片效果，网站展示新闻图片常用到！

点击下载此文件

Tags: flash

分类:业界文摘 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5374

Css实现文字精确描边效果!

作者:admin 日期:2008-11-21

filter: DropShadow(Color=#FFFFFF, OffX=1, OffY=1, Positive=1) DropShadow(Color=#FFFFFF, OffX=1, OffY=-1, Positive=1) DropShadow(Color=#FFFFFF, OffX=-1, OffY=1, Positive=1) DropShadow(Color=#FFFFFF, OffX=-1, OffY=-1, Positive=1);
测试的时候请把网页背景设置为深色：）

Tags: css

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 4187

百度关键字提取器V2.0开发完成！

作者:admin 日期:2008-11-19

本软件目前内部测试中，可能不会对外开放下载，这也是为了避免软件用上几天就被百度废掉：）

分类:我的作品 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3382

一句牛比的代码!

作者:admin 日期:2008-11-17

parent.window.opener.location='https://blog.guanjianci.net/';

Tags: javascript

分类:技术文章 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 3451

VB中屏蔽webbrowser的弹出错误对话框!

作者:admin 日期:2008-11-16

Private Sub WebBrowser1_DownloadBegin()
WebBrowser1.Silent = True
End Sub

Private Sub WebBrowser1_DownloadComplete()
WebBrowser1.Silent = True
End Sub

Private Sub Form_Load()
WebBrowser1.Silent = True '这样就可以屏蔽了。。
End Sub

'而不是在设计中选中Webbrowser1控件把silent设为true，一定要代码写在form_load中

Tags: vb webbrowser

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7690

盗版Windows制约了中文域名的推广！

作者:admin 日期:2008-10-25

经本人不完全统计，目前90以上上网用户使用Winxp，而70%的用户仍使用IE6，未升级到IE7。这其中很重要的原因应该是盗版系统无法更新吧！而中文域名只有在IE7下才可以不安装插件直接访问！看来中文域名想普及还需要一段事件啊！！！
本人已注册淘宝网taobao.com和淘宝网服装.com，欢迎广大IE7用户访问！！！

Tags: 盗版 windows 中文域名

分类:随笔杂记 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3253

感慨+气愤！火车为日本人临时停车！！！

作者:admin 日期:2008-10-24

　　【新民网·独家报道】10月23日有报道称，8月22日，大连客运段火车为帮助日籍乘客赶飞机，临时在靠近机场的车站停1分钟。最终赶上飞机的日籍乘客事后专门用汉语写来表扬信，并称“列车临时为我们停车1分钟，这在世界上任何一个国家都是做不到的……”
　　新闻一经报道，立刻引起网友的极大争议，逾万网友就此事件发表了看法。

网友们对火车是否应该停车、是否会在紧急情况下为中国乘客停车提出质疑。其中，接近九成网友认为，火车不会为中国乘客临时停车。
　　虽然有网友认为，造成日籍旅客不能准时到达大连是由列车晚点造成的，铁路部门应该负有责任。但有网友反驳称，火车飞机汽车等交通工具都有误点的时候，旅客自身应该考量，并认为这并不属于紧急情况。另有网友提出，铁路部门也应为全车乘客多停留1分钟的损失负责。
　　据报道称，该列车的列车长在了解情况后曾与沈阳铁路局客运调度室联系，请示能否在离机场最近的周水子车站临时停1分钟，用汽车送旅客去机场，随后沈阳铁路局批准临时停车，让日本旅客下车。
　　新民网记者23日上午采访沈阳铁路局客运调度室，希望有关部门对网友质疑发表意见，但相关人员一听是采访为日籍旅客临时停车的事情，立即挂断了电话。
　　不过，亦有不少网友对日本人致铁道部的感谢信提出质疑，媒体报道说，返回日本后，杉本洋江代表其余外籍旅客用汉语写来感谢信。杉本洋江在信中说：“这在世界任何一个国家都是做不到的。列车在周水子车站临时为我们停车一分钟(本不应停)安排我们提前下车，为我们赢得了宝贵的时间，这在中国铁路史上闻所未闻。在世界史上任何一个国家都是做不到的。列车长为了万无一失，还专为我们联系了警车护送到机场。这也是铁路的又一创举。”
　　有网友认为，这封信含有太多恶搞和戏剧元素，有反讽意味，实不可信。（新民网张静）

分类:随笔杂记 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3052