国产成人99久久亚洲综合精品,亚洲国产激情在线一区,亚洲人成网站免费播放

javascript中如何正��将日期(Date)字符�Ԍ��转换为日�?Date)对象?

癑ֹ� — Tue, 11 Dec 2007 09:14:00 GMT

癑ֹ� 2007-12-11 17:14 发表评论

癑ֹ� — Mon, 10 Dec 2007 09:19:00 GMT

W3 JMail邮�g�l��g是Dimac公司开发的用来完成邮�g的发送、接收、加密和集群传输�{�工作的。w3 Jmail�l��g是国际最为流行的

邮�g�l��g之一�Q�当今世界上�l�大部分ASP�E�序员都在��用w3 Jmail�l��g构徏邮�g发送系�l�，那是因�ؓw3 Jmail�l��g使用了新的内�?/p>

技术，使其更加可靠和稳定�?nbsp;

一、下面向读者介�l�w3   Jmail4.3�l��g的新�Ҏ��：

1�?nbsp; w3   Jmail4.3�l��g重新设计了其内部�l�构——��用Message对象代替原来的单一对象Jmail.smtpmail发送邮�Ӟ��

2�?nbsp; w3   Jmail4.3�l��g一共有十多个对象（后面��详�l�介�l�）——这些对象中�Q�绝大多数是针对Jmail.Message对象操作的；

3�?nbsp; 支持从POP3邮�g服务器收取邮�Ӟ��

4�?nbsp; 支持加密邮�g的传输；

5�?nbsp; 快速发送，一�ơ会话就完成邮�g发送；

6�?nbsp; �q�有一个特性就是可以��用w3   Jmail4.3�l��g的集��发送功能一�ơ发送成千上万个邮�g�Q�还可以通过邮�g合�ƈ�Q�mailmerge

�Q�对象来个性化邮�g�?nbsp;

二、Jmail邮�g�l��g的安装及卸蝲�Q?nbsp;

1�?nbsp; 安装

跟��用别个组件一��P��在��用Jmail邮�g�l��g之前要先安装或注册该�l��gJmail.dll。具体注册方法，是先把Jmail.dll文�g拯��?/p>

��盘的某一目录下（如C:\Jmail\Jmail.dll�Q�，然后执行命��oRegsvr32   C:\Jmail\Jmail.dll卛_��?nbsp;

2�?nbsp; 卸蝲

卸蝲�l��g是安装组件的相反动作�Q�可以��用参�?U来卸载已安装的组�Ӟ��执行命��oRegsvr32   /U   Jmail.dll卛_��?nbsp;

三、详�l�介�l�W3   Jmail�l��g的对象（12个）:

1�?POP3对象

属性（或方法）
说明

Connect(Username,Password,Server,Port)
�q�接POP3服务器，断口可选，默认110�?nbsp;

DeleteMessages()
从邮件服务器上删除所有邮件�?nbsp;

DeleteSingleMessage(MessageID)
从邮件服务器上删除由MessageID指定的邮件�?nbsp;

Disconnect()
关闭跟邮件服务器的连接�?nbsp;

DownloadHeaders()
从邮件服务器上读取所有的邮�g头�ƈ传递给Messages集合�?nbsp;

DownloadMessages()
从邮件服务器��d��所有邮件�?nbsp;

DownloadSingleHeader(MessageID)
从邮件服务器��d��指定的邮件头�q�传递给Messages集合�?nbsp;

DownloadUnreadMessages()
从邮件服务器上读取所有未读邮件�?nbsp;




2�?Messages对象

属性（或方法）
说明

Clear()
清除集合中的所有内容，�q�不会删除邮件服务器上的��M��邮�g�?nbsp;

Count():Integer
�q�回集合中记录的数目�Q�I=Messages.Count

Item(Index):Pointer
�q�回一个Message对象。Set   oMsg=Messages.Item(0)




3�?Message对象

属性（或方法）
说明

AddAttachment(FileName,isInline,ContentType):String
�l�邮件添加一个文件型的附件。isInline讄��为True�Ӟ��d��的这个附件就是一个可嵌入的附件�?nbsp;

AddCustomAttachment(FileName,Data,isInline):String
�l�邮件添加一个自定义�c�d��的附件�?nbsp;

AddHeader(Xheader,Value)
�l�邮件添加一个自定义邮�g头X-Header�?nbsp;

AddNativeHeader(Header,Value)
�l�邮件添加一个邮件头�?nbsp;

AddRecipient(emailAddress,recipientName,PGPKey)
�l�邮件添加一个收件�h。RecipientName和PGPKey是可选项�Q�RecipientName为收件�h姓名�Q�PGPKey�l�邮件加密�?nbsp;

AddRecipientBCC(emailAddress,PGPKey)
��d��一个邮件暗送�h�Q�BCC�Q�地址�?nbsp;

AddRecipientCC(emailAddress,recipientName,PGPKey)
�l�邮件添加一个邮件抄送�h�Q�CC�Q�地址�?nbsp;

AddURLAttachment(bstrURL,bstrAttachAs,isInline,bstrAuth):String
从指定的URL下蝲文�g�q�添加�ؓ邮�g附�g。参数bstrAttachAs是用来更�Ҏ��加�ؓ邮�g附�g的文件名�?nbsp;

AppendBodyFromFile(FileName)
清除邮�g正文�Q��ƈ把指定文件的内容作�ؓ邮�g正文�?nbsp;

AppendHTML(Text)
从邮件追加HTML格式正文�Q�如例所�C�：Message.   AppendHTML(“

Hello Word

”)

AppendText(Text)
向邮件添加文本正文�?nbsp;

Clear()
清除所有邮件消息，是成��Z��个空对象�?nbsp;

ClearAttachments()
清除附�g列表。如�Q�Message.ClearAttachments

ClearCustomHeaders()
清除所有自定义的邮件头�?nbsp;

ClearRecipients()
清除所有收件�h地址列表�?nbsp;

Close()
释放Jmail与邮件服务器�q�接而��用的�~�存�Q�Cache�Q��?nbsp;

DecodeHeader(Header):String
输出一个邮件头消息�?nbsp;

ExtractEmailAddressesFromURL(bstrURL,bstrAuth)
从指定的�|�制�Q�URL�Q�读取�ƈ��d��邮�g列表�?nbsp;

GetMessageBodyFromURL(同上)
删除邮�g正文�q�用指定的URL的内容代�ѝ�?nbsp;

KeyInformation(keyIdentifier):pointer
�q�回一个PGPKey对象�?nbsp;

LoadFromStream(Stream)
从数据库��读取数据，该数据库��必��ȝ��合RFC822标准�?nbsp;

LogCustomMessage(Message)
�l�Jmail日志文�g��d��自定义日志。此函数只有在logging属性被讄��为True时有效�?nbsp;

Nq()
��邮件追加到发送队列等待发送�?nbsp;

ParseMessage(MessageSource)
解析一个邮�Ӟ��数据��必��ȝ��合RFC822格式标准�?nbsp;

SaveToStream(Stream)
保存邮�g到数据流�Q�数据流必须�W�合RFC822格式标准�?nbsp;

Send(MailServer,enque):Boolean
发送邮件。邮件服务器是一个描�q�邮件服务器名称或地址的字�W�串�Q�用户名和密码是可选项。当要发送认证邮件时使用格式为：�?/p>

户名:密码@邮�g服务�?nbsp;

SendToNewsGroup(ServerName,NewsGroup)
使用指定的Ｎ�Q�Ｔ�Q�服务器发送邮件到新闻�l�，多个邮�g�?#8220;,”隔开�?nbsp;

About():string
讄��一些附加信息�?nbsp;

Attachments():Pointer
�q�回邮�g的附仉��合。Set   Attachments=Message.Attachments

Body():String
�q�回邮�g正文。Response.Write   (Message.Body)


BodyText():String
�q�回全部的文本正文。Response.Write   (Message.BodyText)

Charset():String
讄��邮�g使用的字�W�集。默认�ؓUS-ASCII,支持中文则设�|��ؓGB2312�?nbsp;

ContentTransferEncoding():String
讄��邮�g�~�码。默认�ؓ�Q�Quoted-Printable.

ContentType():string
�q�回正文�c�d��?nbsp;

Date():Date
�q�回邮�g发送时间�?nbsp;

DeferredDelivery():Date
讄��邮�g定时发送�?nbsp;

Encoding():String
讄��附�g的默认编码：Base64或Quoted-Printable

EncryptAttachments():Boolean
讄��为True�Ӟ��所有的附�g都被加密�Q�当然是�~�译器可用的情况下。其默认��gؓTrue.

ErrorCode():Integer
如果message.silent讄��为True�Ӟ��该函数包含错误号�?nbsp;

ErroeMessage():String
如果message.silent讄��为True�Ӟ��该函数包含错误描�q��?nbsp;

ErroeSource():String
如果message.silent讄��为True�Ӟ��该函数包含错误来源�?nbsp;

From():String
�q�回或设�|�发件�h的Email地址�?nbsp;

FromName():String
�q�回或设�|�发件�h的名字�?nbsp;

HtmlBody():String
�q�回或设�|�邮件正文的HTML部分�?nbsp;

ISOEncodeHeaders():Boolean
邮�g头是否��用iso-8859-1�~�码。（默认为True�Q?nbsp;

Log():String
当Logging为True�Ӟ��该函数返回创建的日志�?nbsp;

Logging():Boolean
是否启用日志。Message.Logging=True�Ӟ��启用日志�?nbsp;

MailData():String
�q�回邮�g的源代码�?nbsp;

MailDomain():String
讄��发送邮件时使用的邮件服务器�?nbsp;

MailServerPassWord():String
当邮件服务器使用SMTP发信认证�Ӟ��该函数设�|�登录密码�?nbsp;

MailServerUserName():String
当邮件服务器使用SMTP发信认证�Ӟ��该函数设�|�登录帐受��?nbsp;

MimeVersion():String
声明Mime版本�Q�默认�ؓ1.0�?nbsp;

MsPickupdirectory():String
指定MS   SMTP服务的Pickup文�g夹的位置�?nbsp;

PGPEncrypt():Boolean
当邮件是使用PGP发送时�q�该属性被讄��为True�Ӟ��该邮件将被自动加密�?nbsp;

PGPSign():Boolean
当邮件是使用PGP发送时�q�该属性被讄��为True�Ӟ��该邮件将被自动签名�?nbsp;

Priority():Byte
讄��邮�g的优先��Q?�?�?

Recipients():Pointer
�q�回收�g人集合�?nbsp;

RecipientsString():String
�q�回收�g人集合（只读�Q��?nbsp;

ReplyTo():String
指定一个回复地址�?nbsp;

Silent():Boolean
当设�|��ؓTrue�Ӟ��Send()�Ҏ��׃��忽略错误�q�不��错误信息返回给操作�pȝ��?nbsp;

SimpleLayout():Boolean
当设�|��ؓTrue�Ӟ��发信时Jmail不会��d��邮�g头到邮�g里�?nbsp;

Size():Integer
�q�回邮�g的��d��节数�?nbsp;

Subject():String
讄��邮�g标题�?nbsp;

Text():string
�q�回完整的邮件内宏V�?nbsp;

Version():String
�q�回Jmal的版本信息�?nbsp;




4�?nbsp; Headers对象

属性（或方法）
描述

GetHeader(HeaderName):String
�q�回指定的邮件头的倹{�?nbsp;

Text():String
�q�回所有的邮�g头的倹{�?nbsp;




5�?nbsp; Recipients对象

属性（或方法）
描述

Add(Value)
�q�加一个收件�h到集合中�?nbsp;

Clear()
清除集合中的全部记录�?nbsp;

Count():Integer
�q�回集合中收件�h的��L��?nbsp;

Item(Index):Pointer
�q�回集合中的一个指定的收�g人�?nbsp;




6�?nbsp; Recipient对象

属性（或方法）
描述

New(Name,Email,recipientType):Pointer
创徏一个可以添加到收�g人集合中Recipients的收件�h�?nbsp;

Email():String
�q�回收�g人的邮�g�?nbsp;

Name():String
�q�回收�g人的姓名�?nbsp;

ReType():Integer
�q�回收�g人模式（收�g人To=0,抄送CC=1,暗送BCC=2�Q��?nbsp;




7�?nbsp; Attachments对象

属性（或方法）
描述

Add(Attachment)
��d��一个附件到集合�?nbsp;

Clear()
清除集合中的全部附�g�?nbsp;

Count():Integer
�q�回集合中附件的��L��?nbsp;

Item(Index):Pointer
�q�回集合中指定的附�g�?br />

癑ֹ� 2007-12-10 17:19 发表评论

ASP常用函数攉��(�?

癑ֹ� — Sun, 25 Nov 2007 07:07:00 GMT

摘要: 推荐'Oledb方式打开SQL数据�q�接 Sub OpenSqlByOledb on error resume next set conn=server.createobject("adodb.connection") &nbs... 阅读全文

癑ֹ� 2007-11-25 15:07 发表评论

癑ֹ� — Wed, 21 Nov 2007 16:09:00 GMT

摘要: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% StartTime=timer() '�E�序执行旉��?nbsp; '######################################### '┌──VIBO───────────────────�?nbsp; '�?nbsp... 阅读全文

癑ֹ� 2007-11-22 00:09 发表评论

截取字符串左边的限定长度(分中英文)

癑ֹ� — Wed, 21 Nov 2007 16:04:00 GMT

此ASP函数实现截取自定义长度的字符�?�q�可定义��出部分昄��样式,支持中英文字�W�串自动判别

<%
'定义字符串判别函�?/span>
function strlen(str)
dim p_len
p_len=0
strlen=0
if trim(str)<>"" then
p_len=len(trim(str))
for xx=1 to p_len
if asc(mid(str,xx,1))<0 then
strlen=int(strlen) + 2
else
strlen=int(strlen) + 1
end if
next
end if
end function
'定义截取函数
function strvalue(str,lennum)
dim p_num
dim i
if strlen(str)<=lennum then
strvalue=str
else
p_num=0
x=0
do while not p_num > lennum-2
x=x+1
if asc(mid(str,x,1))<0 then
p_num=int(p_num) + 2
else
p_num=int(p_num) + 1
end if
strvalue=left(trim(str),x)&"…" //截取后定义超出部分内容的昄��方式
loop
end if
end function
%>

<% =strvalue(rsnews.("title",20)
'20 为截取长�?nbsp;%>

癑ֹ� 2007-11-22 00:04 发表评论

旉��和日期的格式化函�?�?

癑ֹ� — Wed, 21 Nov 2007 14:14:00 GMT

'��一个一位的数字前面加零
function FillZero(str)
   ttt=str
   if len(str)=1 then
      ttt="0" & str
   end if
   FillZero=ttt
end function

'转化日期�Q�将一位补上零  2003-1-2  -->  2003-01-02
function ConvertDate(tDate)
   ttt=tDate
   if isdate(tDate) then
      ttt=year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate))
   end if
   ConvertDate=ttt
end function

'输入一个日期时间串�Q��{换成�q�四位，其他两位的新的日期时间串
function ConvertDateTime(tDateTime)
   ttt=tDateTime
   if isdate(tDateTime) then
      ttt=year(tDateTime) & "-" & FillZero(month(tDateTime)) & "-" & FillZero(day(tDateTime)) & " " & FillZero(cstr(hour(tDateTime))) & ":" & FillZero(cstr(minute(tDateTime))) & ":" & FillZero(cstr(second(tDateTime)))
   end if
   ConvertDateTime=ttt
end function

癑ֹ� 2007-11-21 22:14 发表评论

旉��和日期的格式化函�?一)

癑ֹ� — Wed, 21 Nov 2007 14:03:00 GMT

<%
'该函��C��用：按指定参数格式化昄��旉��?/span>
'numformat=1:��时间�{化�ؓyyyy-mm-dd hh:nn格式�?/span>
'numformat=2:��时间�{化�ؓyyyy-mm-dd格式�?/span>
'numformat=3:��时间�{化�ؓhh:nn格式�?/span>
'numformat=4:��时间�{化�ؓyyyy�q�mm月dd�?nbsp;hh时nn分格式�?/span>
'numformat=5:��时间�{化�ؓyyyy�q�mm月dd日格式�?/span>
'numformat=6:��时间�{化�ؓhh时nn分格式�?/span>
'numformat=7:��时间�{化�ؓyyyy�q�mm月dd�?nbsp;星期×格式�?/span>
'numformat=8:��时间�{化�ؓyymmdd格式�?/span>
'numformat=9:��时间�{化�ؓmmdd格式�?/span>

function formatdate(shijian,numformat)
  dim ystr,mstr,dstr,hstr,nstr '变量含义分别为年字符�Ԍ��月字�W�串�Q�日字符�Ԍ��时字�W�串�Q�分字符�?/span>

  if isnull(shijian) then
    numformat=0
  else
    ystr=DatePart("yyyy",shijian)

if DatePart("m",shijian)>9 then
      mstr=DatePart("m",shijian)
    else
      mstr="0"&DatePart("m",shijian)
    end if

    if DatePart("d",shijian)>9 then
      dstr=DatePart("d",shijian)
    else
      dstr="0"&DatePart("d",shijian)
    end if

    if DatePart("h",shijian)>9 then
      hstr=DatePart("h",shijian)
    else
      hstr="0"&DatePart("h",shijian)
    end if

    if DatePart("n",shijian)>9 then
      nstr=DatePart("n",shijian)
    else
      nstr="0"&DatePart("n",shijian)
    end if
  end if

  select case numformat
    case 0
   formatdate=""
case 1
   formatdate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr
case 2
   formatdate=ystr&"-"&mstr&"-"&dstr
case 3
   formatdate=hstr&":"&nstr
case 4
   formatdate=ystr&"�q?/span>"&mstr&"�?/span>"&dstr&"�?nbsp;"&hstr&"�?/span>"&nstr&"�?/span>"
case 5
   formatdate=ystr&"�q?/span>"&mstr&"�?/span>"&dstr&"�?/span>"
case 6
   formatdate=hstr&"�?/span>"&nstr&"�?/span>"
case 7
   formatdate=ystr&"�q?/span>"&mstr&"�?/span>"&dstr&"�?nbsp;"&WeekdayName(Weekday(shijian))
case 8
   formatdate=right(ystr,2)&mstr&dstr
case 9
   formatdate=mstr&dstr
  end select
end function
%>

癑ֹ� 2007-11-21 22:03 发表评论

癑ֹ� — Fri, 03 Aug 2007 06:52:00 GMT

'////////////////////////////////////////////////FSO操作/////////////////////////////////////
'判断文�g�Ҏ��否存�?/span>
Function FolderExits(Folder)
Folder=Server.Mappath(Folder)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FolderExists(Folder) Then
   FolderExits=true
Else
   FolderExits=false
End IF
End Function

'判断文�g是否存在
Function FileExits(FileName)
FileName=Server.Mappath(FileName)
Set FSO= Server.CreateObject("Scripting.FileSystemObject")
IF FSO.FileExists(FileName) Then
   FileExits=true
Else
   FileExits=false
End IF
End Function

'创徏文�g�?/span>
Function CreateFolder(Folder)
on error resume next
Folder=Server.Mappath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(Folder)
if err>0 then
  err.clear
  CreateFolder=False
else
  CreateFolder=True
end if
End function

'创徏文�g
Function CreateFile(FileName,Content)
on error resume next
FileName=Server.Mappath(FileName)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
set fd=FSO.createtextfile(FileName,true)
fd.writeline Content
if err>0 then
  err.clear
  CreateFile=False
else
  CreateFile=True
end if
End function

'删除文�g
function DeleteFile(FileName)
on error resume next
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FileExists(FileName) then
  FSO.DeleteFile FileName,true
end if
if err>0 then
  err.clear
  DeleteFile=False
else
  DeleteFile=True
end if
end function

'删除文�g�?/span>
function DeleteFolder(Folder)
on error resume next
Folder=server.MapPath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if FSO.FolderExists(Folder) then
  FSO.Deletefolder Folder,true
end if
if err>0 then
  err.clear
  Deletefolder=False
else
  Deletefolder=True
end if
end function

癑ֹ� 2007-08-03 14:52 发表评论

癑ֹ� — Thu, 05 Apr 2007 04:55:00 GMT

在查询数据页头加�?
<%
  Response.Buffer   =   TRUE
  Response.AddHeader   "Content-Disposition",   "attachment;   filename=???.xls"
  Response.contentType="application/vnd.ms-excel"
%>

�q�可以用js

用一个button�Ȁ发一个事件弹��Z��个新��，��检索的sql传�h到此��中�Q�（��p��又重新检索了一遍）加上�q�句Response.contentType="application/vnd.ms-excel"

癑ֹ� 2007-04-05 12:55 发表评论

癑ֹ� — Sat, 10 Mar 2007 09:21:00 GMT

摘要: sina的smtp验证太厉害了�Q�不��怎么样传数据都说验证��p�|�Q�去www. 126 .com甌��一�?0MB的邮��，报告“无效的user”，于是把msg.From也改成tindy@ 126 .com�Q�奇�q�发生了�Q�邮件发出去了，也！�Q�！代码如下�Q? Set msg = Server.CreateObject( ... 阅读全文

癑ֹ� 2007-03-10 17:21 发表评论

关于ASP.NET中Resonse.QueryString函数汉字参数传递错误的处理办法

癑ֹ� — Sat, 10 Mar 2007 02:29:00 GMT

最�q�在处理Resonse.QueryString函数汉字参数传递时�Q�发生不能完整传递参数的具体值的错误�Q�经�q�分析，发现是Web.config中的encoding和全球化讄��不正��，先脓出来�Q�以免同仁再犯同��L��错误�Q?br />
1 、首行： < ?xml version = " 1.0 " encoding = " utf-8 " ? >=>< ?xml version = " 1.0 " encoding = " GB2312 " ? >
2 �?/span> < ! --   全球�?br />          此节讄��应用�E�序的全球化讄��?br />     -->
     < globalization
            requestEncoding = " utf-8 "
            responseEncoding = " utf-8 "
    />
更改为：
< ! --   全球�?br />          此节讄��应用�E�序的全球化讄��?br />     -->
     < globalization
            requestEncoding = " GB2312 "
            responseEncoding = " GB2312 "
    />

再传递汉字参数时��正��了�?/span>

癑ֹ� 2007-03-10 10:29 发表评论

ASP�E�序中同一个用户不允许同时登陆两次

癑ֹ� — Sat, 10 Mar 2007 02:25:00 GMT

登陆��login.asp:

< %
if request.Form.count > 0 then
session( " username " ) = request( " username " )
application(session( " username " )) = session.SessionID
response.Redirect( " index.asp " )
end if
% >
< form method = post action = "" >
< input type = " text " name = " username " >< input type = " submit " >
form >

其他需要认证的��面index.asp:

< %
if application(session( " username " )) = session.SessionID then
response.Write( " 已经登陆 " )
else
response.Write( " 没有登陆 " )
end if
% >

癑ֹ� 2007-03-10 10:25 发表评论

国产成人99久久亚洲综合精品,亚洲国产激情在线一区,亚洲人成网站免费播放

javascript中如何正���将日期(Date)字符�Ԍ��转换为日�?Date)对象?