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
相关文档:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("action")=1 then
Response.ContentType="application/ms-excel"
Response.AddHeader "content-disposition","attachment;filename=www.xls"
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//E ......
指针在C中经常提到,但是任何一种语言中都隐藏着指针。
asp也是如此,在我们传递参数给function或者sub时,我们如果传递的是一个变量,那么asp会把这个变量地址传过去,所以如果你在函数和过程里面更改这个参数,那么原变量也会改变。
'函数例子
Dim i1,i2
i1=1
'=======================
Function toadd(i)'或 ......
GridView 为动态绑定 DataSet,结果 (DataSet)dt = grid1.DataSource 拿不到东西,想偷懒直接添加行不行了, 只好用最笨的办法,把GridView的东西倒成DataSet,然后在DataSet里加行,最后回绑gridview
try里面的
DataTable dtable = new DataTable("tb1");
&n ......
由于项目的需要去Google搜了一下 ,还真多
记得“想当年”某天上午在这里路过,看到一位朋友贴的自己写的验证码程序,虽然他的程序是黑白有杂点,但其实很容易被破解的,但却有不少人喜欢着。。。没办法,当天下午研究了一翻 BMP 图片,然后就写出了这些代码,只是当初没有公布,眼看今天这么多坏人乱在很多论坛 ......
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答:如果想从表里取值到oracle,则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;&nbs ......