易截截图软件、单文件、免安装、纯绿色、仅160KB

asp Jmail发邮件类

<!--#include file="conn.asp" -->
<!--#include file="Fun.asp" -->
<%
'发送邮件类
class SendEmails
'发送
private flag
private info
public sub Class_Initialize()
flag=false
info=""
end sub
public sub Class_Terminate()
flag=false
info=""
end sub
public property let SetFlag(byval v)
flag=v
end property

public property get GFlag()
GFlag=flag
end property

public property let SetMsg(byval m)
info=m
end property

public property get GMsg()
GMsg=info
end property
'得到邮箱服务器设置
private function getEmailset()
set f1=new DbConstrol
OpenConn()
f1.DConn=conn
set rs=f1.GetRs("select * from tbSetMail")
getEmailset=rs.getrows
rs.close
set rs=nothing
closeconn
set f1=nothing
end function

public function Sends()
call postFormfrom()
fromname=getFormStr("fromname")
fromaddress=getFormStr("fromaddress")
toname=getFormStr("toname")
toaddress=getFormStr("toaddress")
title=getFormStr("title")
content=getFormStr("content")
isimportance=getFormStr("isimportance")
if len(fromname)=0 then
Msg "请填写发件人姓名!",0,""
response.End()
end if
if len(fromaddress)=0 then
Msg "请填写发件人地址!",0,""
response.End()
end if
if len(toname)=0 then
Msg "请填写收件人姓名!",0,""
response.End()
end if
if len(toaddress)=0 then
Msg "请填写收件人地址!",0,""
response.End()
end if
if len(title)=0 then
Msg "请填写邮件主题!",0,""
response.End()
end if
if len(content)=0 then
Msg "请填写邮件内容!",0,""
response.End()
end if
if isimportance="1" then
isimportance=1
else
isimportance=3
end if
arr=getEmailset()
MailServerUser=trim(arr(4,0))
M


相关文档:

asp调用js代码

 最近很苦恼,当数据访问失败或者成功的时候,要页面的js处理一些效果,只是不知道怎么调用,非常郁闷。终于找
到了一个地方:
 ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
在后台的函数中调用这个即可。(针对updatepanel)刷新数据后,就会调用js ......

[ASP]动态绑定数据源的GridView添加行 (技术备份)

 GridView 为动态绑定 DataSet,结果 (DataSet)dt = grid1.DataSource 拿不到东西,想偷懒直接添加行不行了, 只好用最笨的办法,把GridView的东西倒成DataSet,然后在DataSet里加行,最后回绑gridview
try里面的
DataTable dtable = new DataTable("tb1");
        
&n ......

asp Access数据备份,还原,压缩类

 <!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
......

Asp中Response.write出现乱码


现象:普通的html文字显示正常,但用response.write等asp代码输出的文字就出现乱码
解决方法:起初以为是浏览器编码出错的原因,所有在代码中加入
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
但还是出现乱码,问题没解决,上面的代码指定的是html静态文字的编码
最后查资料反省是c ......

浅说asp的一些特点,呵呵

到底使用PHP,ASP,或其它哪种技术时,可能选择PHP 会很酷,但是如果你对Unix系统,以及Perl 或C 等知之甚少的话,这就不是一个明知的选择。ASP 可以用VBScript 进行编写,而VBScript 本身是MICROSOFT Visual Basic 产品的简化版本,它采用与Visual Basic 近似的语法框架,简单易学。考虑到Visual Basic 的普及性,那么你还 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号