2006年3月21日

很不错的一个UBB代码

摘要： "" Then strNewValue = Replace(strValue,"",">") strNewValue = Replace(strNewValue,"'","'") strNewValue = Replace(strNewValue,"""",""") strNewValue = Replace(strNewValue,vbCrLf,"") strNewV 阅读全文

posted @ 2006-03-21 11:07 bluesky 阅读(279) 评论(0) 推荐(0) 编辑

JMail发送邮件代码

摘要： On error resume nextDim JMail, contentIdSet JMail = Server.CreateObject("JMail.Message") JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True' 发送者信息（可用变量方... 阅读全文

posted @ 2006-03-21 11:06 bluesky 阅读(986) 评论(4) 推荐(0) 编辑

一个INI类代替缓存

摘要： 0 Then IsTrue = False Err.Clear End if Content = Stream.ReadText(Stream.Size) if Not IsAnsi Then Content=Bytes2bStr(Content) End Prope... 阅读全文

posted @ 2006-03-21 11:03 bluesky 阅读(261) 评论(0) 推荐(0) 编辑

收藏几个好看的button样式

摘要：好看的CSDN Button 好看的Green Button 好看的Green Button 好看的 Button 好看的QQ Buttonhttp://blog.csdn.net/juwuyi"> 好看的 2k3 Button 阅读全文

posted @ 2006-03-21 11:02 bluesky 阅读(2005) 评论(0) 推荐(0) 编辑

上传前在本地判断文件大小

摘要：阅读全文

posted @ 2006-03-21 10:58 bluesky 阅读(607) 评论(1) 推荐(0) 编辑

收藏一个代码(关键字变红)

摘要： Function setRedWord(strContent,strKeyword) Dim myRegExpSet myRegExp=new RegExp myRegExp.IgnoreCase =True myRegExp.Global=True Dim ArrayKeyword,iArrayKeyword = split(strKeyword," ")For i=0 to UBOUND(Ar... 阅读全文

posted @ 2006-03-21 10:56 bluesky 阅读(332) 评论(0) 推荐(0) 编辑

有关html字符转换的两个函数

摘要： public string Encode(string str) { str=str.Replace("&","&"); str=str.Replace("'","''"); str=str.Replace("\"","""); str=str.Replace(" "," "); str=str.Replace("","&g 阅读全文

posted @ 2006-03-21 10:34 bluesky 阅读(804) 评论(1) 推荐(0) 编辑

导航

2006年3月21日