最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
使用asp实现支持附件的邮件系统(三)
时间:2008-01-18 编辑:简简单单 来源:一聚教程网
<%
Response.Buffer= true
Response.Clear
function getname(oriname)
thename=oriname
do while instr(thename,"/")>0
thename=mid(thename,instr(thename,"/")+1)
loop
do while instr(thename,"")>0
thename=mid(thename,instr(thename,"")+1)
loop
getname=thename
end function
function canexec(thechar)
if instr(thechar,".asp")>0 then
canexec=false
exit function
end if
if instr(thechar,".asa")>0 then
canexec=false
exit function
end if
if instr(thechar,".aspx")>0 then
canexec=false
exit function
end if
if instr(thechar,".asax")>0 then
canexec=false
exit function
end if
canexec=true
end function
mailID=request("mailID")
se=request("se")
if se<>1 and se<>2 and se<>3 then
-
上一个: 一个不错的随机函数。
-
下一个: Asp快速入门,快速出程序!
相关文章
- asp使用jmail 发邮件代码 07-07
- ASP+SMTP完成邮件群发功能 01-18
- 使用asp实现支持附件的邮件系统(二) 01-12
- 利用ASP+JMAIL进行邮件群发的新思路 01-12
- 使用ASP+jmail进行邮件群发 01-12
- 使用asp实现支持附件的邮件系统 01-12