ASP代码大全

邮件方面：CDONTS：%Setcdomail=Server.CreateObject(CDONTS.NewMail)'建立邮件对象cdomail.Subject=MailSubject'邮件标题cdomail.From=Sender'sMail'发件人的地址cdomail.To=Emailwillfrom'收件人的地址cdomail.Body=MailBody'邮件的内容cdomail.Send'执行发送%这种方法发送邮件是最简单的，同时也带来一定的问题，就是很少有服务器会开这项服务！我们写程序，一般情况下都是说要代码模块化，这样方便维护，同时也方便移植。因此，我在这里将这个发邮件的写成一个子程，在调用的时候可以直接调用（当然，如果你高兴写成函数的话也是可以的，这个主要是看个人兴趣）：%'参数说明'Subject:邮件标题'MailAddress:发件服务器的地址,如smtp.163.com'Email:收件人邮件地址'Sender:发件人姓名'Content:邮件内容'Fromer:发件人的邮件地址----------------------------Jmail：SubSendAction(subject,mailaddress,email,sender,content,fromer)Setjmail=Server.CreateObject(JMAIL.SMTPMail)'创建一个JMAIL对象jmail.silent=true'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUEjmail.logging=true'启用使用日志jmail.Charset=GB2312'邮件文字的代码为简体中文jmail.ContentType=text/html'邮件的格式为HTML的jmail.ServerAddress=mailaddress'发送邮件的服务器jmail.AddRecipientEmail'邮件的收件人jmail.SenderName=sender'邮件发送者的姓名jmail.Sender=fromer'邮件发送者的邮件地址jmail.Priority=1'邮件的紧急程序，1为最快，5为最慢，3为默认值jmail.Subject=subject'邮件的标题jmail.Body=content'邮件的内容'由于没有用到密抄跟抄送，这里屏蔽掉这两句，如果您有需要的话，可以在这里恢复'jmail.AddRecipientBCCEmail'密件收件人的地址'jmail.AddRecipientCCEmail'邮件抄送者的地址jmail.Execute()'执行邮件发送jmail.Close'关闭邮件对象EndSub'调用此Sub的例子DimstrSubject,strEmail,strMailAdress,strSender,strContent,strFromerstrSubject=这是一封用JMAIL发送的测试邮件strContent=JMail组件发送测试成功！strEmail=[e-mail]=[e-mail]=mail.ubbcn.comCallSendAction(strSubject,strMailaddress,strEmail,strSender,strContent,strFromer)%%Setjmail=Server.CreateObject(JMAIL.SMTPMail)'创建一个JMAIL对象jmail.silent=true'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUEjmail.logging=true'启用使用日志jmail.Charset=GB2312'邮件文字的代码为简体中文jmail.ContentType=text/html'邮件的格式为HTML的jmail.ServerAddress=ServerAddress'发送邮件的服务器jmail.AddRecipientEmail'邮件的收件人jmail.SenderName=SenderName'邮件发送者的姓名jmail.Sender=EmailAddress'邮件发送者的邮件地址jmail.Priority=1'邮件的紧急程序，1为最快，5为最慢，3为默认值jmail.Subject=MailSubject'邮件的标题jmail.Body=MailBody'邮件的内容jmail.AddRecipientBCCEmail'密件收件人的地址jmail.AddRecipientCCEmail'邮件抄送者的地址jmail.Execute()'执行邮件发送jmail.Close'关闭邮件对象%w3Jmail4.3组件重新设计了其内部结构——使用Message对象代替原来的单一对象Jmail.smtpmail发送邮件，有些方法需要身份验证的(如163、yahoo等)，可以用下面的方法解决：%Setjmail=Server.CreateObject(JMAIL.Message)'建立发送邮件的对象jmail.silent=true'屏蔽例外错误，返回FALSE跟TRUE两值jmail.logging=true'启用邮件日志jmail.Charset=GB2312'邮件的文字编码为国标jmail.ContentType=text/html'邮件的格式为HTML格式jmail.AddRecipientEmail'邮件收件人的地址jmail.From=EmailFromforSender'发件人的E-MAIL地址jmail.MailServerUserName=UserNameofEmail'登录邮件服务器所需的用户名jmail.MailServerPassword=PasswordofEmail'登录邮件服务器所需的密码jmail.Subject=MailSubject'邮件的标题jmail.Body=MailBody'邮件的内容jmail.Prority=1'邮件的紧急程序，1为最快，5为最慢，3为默认值jmail.Send(ServerAddress)'执行邮件发送（通过邮件服务器地址）jmail.Close()'关闭对象%----------------------------------------------------------------asp的错误集合（这个要看仔细了哟）：ActiveServerPages,ASP0126(0x80004005)--找不到包含文件MicrosoftOLEDBProviderforODBCDrivers(0x80040E21)--sql语句出错(数据类型不匹配或表名(字段名)错误或表处于编辑状态，或表不存在于conn打开的数据库中)MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)--sql语句出错(字段名错误,或数据类型不匹配)MicrosoftOLEDBProviderforODBCDrivers(0x80040E07)--sql语句出错(要插入或更新的字段的类型与变量数据类型不匹配)MicrosoftOLEDBProviderforODBCDrivers(0x80040E57)--sql语句出错(要插入或更新的数据溢出)MicrosoftOLEDBProviderforODBCDrivers(0x80040E10)--sql语句出错(update字段名或要更新的数据类型错误)MicrosoftOLEDBProviderforODBCDrivers(0x80004005)--sql语句出错(要插入或更新的字段的数值不能为空值)MicrosoftOLEDBProviderforODBCDrivers(0x80004005)--打开数据库出错，没有在指定目录发现数据库MicrosoftOLEDBProviderforODBCDrivers(0x80040E37)--没有发现表MicrosoftVBscript运行时错误(0x800A000D)--错误引用rs变量(rs对像已关闭或未定义)MicrosoftVBscript运行时错误(0x800A01C2)--vbscript脚本错误(vbscript语句出错)MicrosoftVBscript运行时错误(0x800A0006)--vbscript脚本错误(溢出错误)MicrosoftVBscript编译器错误(0x800A040E)--缺少loopMicrosoftVBscript编译器错误(0x800A03EA)--缺少if或endifMicrosoftVBscript编译器错误(0x800A03EE)--语句未结束(缺少))MicrosoftVBscript编译器错误(0x800A03F6)--if语句出错(缺少endif)MicrosoftVBscript运行时错误(0x800A005B)--缺少setMicrosoftVBscript运行时错误(0x800A0005)--变量未定义MicrosoftVBscript编译器错误(0x800A03F9)--if语句缺少thenMicrosoftVBscript编译器错误(0x800A0411)--dim语句定义错误MicrosoftVBscript编译器错误(0x800A0408)--sql语句错误ADODB.Recordset(0x800A0BB9)--sql语句出错(sql语句或conn语句未定义或对一个rs属性进行赋值时发生错误)ADODB.Recordset(0x800A0CC1)--rs对像出错(rs对像本身不存在或错误地引用了一个不存在的字段名)ADODB.Recordset(0x800A0BCD)--rs对像出错(记录集中没有记录却对记录集进行操作)ADODB.Recordset(0x800A0E78)--rs对像出错(记录集不存在,缺少rs.open语句)ADODB.Recordset(0x800A0CC1)--rs对像出错(引用了一个不存在的字段名)ADODB.Recordset(0x800A0E7D)--conn定义错误ADODB.Recordset(0x800A0CB3)--数据库以只读方式打开，无法更新数据ASP编程中20个非常有用的例子1.如何用Asp判断你的网站的虚拟物理路径答：使用Mappath方法palign=centerfontsize=4face=ArialbThePhysicalpathtothisvirtualwebsiteis:/b/fontfontcolor=#FF0000size=6face=Arial%=Server.MapPath(\)%/font/p2.我如何知道使用者所用的浏览器？答：使用theRequestobject方法strBrowser=Request.ServerVariables(HTTP_USER_AGENT)IfInstr(strBrowser,MSIE)0ThenResponse.redirect(ForMSIEOnly.htm)ElseResponse.redirect(ForAll.htm)EndIf3.如何计算每天的平均反复访问人数答：解决方法%startdate=DateDiff(d,Now,01/01/1990)ifstrdate0thenstartdate=startdate*-1avgvpd=Int((usercnt)/startdate)%显示结果%response.write(avgvpd)%thatisit.thispagehavebeenviewedsinceNovember10,19984.如何显示随机图象%dimp,ppic,dpicppic=12randomizep=Int((ppic*rnd)+1)dpic=gra