木头的IT笔记

今天刚好需要运用jmail发送邮件,程序没有错,就是发送不出去,搞了半天总算找到解决办法了.在这把需要注意的事项给大家列出来,希望和大家共免.一、首先肯定要先装上jmail组件。好多人犯这样的低级错误，比较明显的提示是没有这个对象什么的。二、发送程序一定要写对哦。程序网上有很多，大家自己去找找看，注意好写对smtp服务器的地址，登陆名和密码。三、防火墙的25和110端口一定

RegExp对象提供简单的正则表达式支持功能。 　　RegExp对象的用法： Function RegExpTest(patrn, strng) Dim regEx, Match, Matches 建立变量。 Set regEx = New RegExp 建立正则表达式。 regEx.Pattern = patrn 设置模式。 regEx.IgnoreCase = True 设

        在优快云短短的时间里，我已经很受大家的帮忙了，所以，我觉得，我应该把工作中得到的经验与大家分享，在看到大家的提问的时候，我想有能帮忙的也有很多，但无奈工作太忙，所以，只能趁业余时间，把我一些盗用别人的东西，或者我归纳的东西，拿出来和大家共享，与广大的网友共同学习，共同进步~~~``还望大家支持，如果有什么不对的地方还请大家批评指正！ 

 1.Access数据库的DSN-less连接方法:set adocon=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _Server.MapPath("数据库所在路径")2.Access OLE DB连接方法：set adocon

Content--->用户输入的需要转换的字符串Number1--->没转换时切取的字符数量Number2--->转换后切取的字符数量 Function HtmlToStr(Content,Number1,Number2)  dim Str,Html,Num1,Num2,i  Html=trim(Content)   Num1=Number1  Num2=Number2  if Num1>0

Option Explicit  Sub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr try to connect to file NUL: vConnString = DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL: Set o