ASP编程：用ASP完成撑持附件的EMail体系（3）
ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。实验发送邮件，可是失利了，请修正毛病后重试！＜scriptlanguage="javascript"＞
alert("您输出的收件组格局毛病！准确的格局是:gr:001");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
endif
endif
tmpSQL="select*fromt_groupwhereowner="&session("myid")&"andgroupidowner="&thegroup&""
response.writetmpsql
settmprs=server.CreateObject("ADODB.Recordset")
tmprs.Opentmpsql,conn
iftmprs.bofortmprs.eofthen
没有找到该组
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件组＜%=thegroup%＞没有找到！");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
iftmprs("personnum")=0then
组内没有效户
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件组＜%=thegroup%＞中今朝没有任何的用户
以是不克不及发送");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
strFieldValue=trim(tmprs("groupempl"))
tmprs.close
settmprs=nothing
endif
endif
endif
ifinstr(strfieldValue,"|")then
组发
allsearch=replace(trim(strfieldValue),"|",",")
allsearch=""&allsearch&""
tmpstring=trim(strfieldValue)&"|"
tosearch=""
dowhilelen(tmpstring)＞=5
tosearch=left(tmpstring,5)
tmpstring=mid(tmpstring,7)
ifinstr(tosearch,"|")then
格局毛病
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件品德式毛病!");
history.back();
＜/script＞
＜p＞
＜%
response.end
endif
tmpSQL="select*from(selectuseridfromt_officerwhereuseridin("&allsearch&"))DERIVEDTBLwhereuserid="&tosearch&""
response.writetmpsql
settmprs=server.CreateObject("ADODB.Recordset")
tmprs.Opentmpsql,conn
iftmprs.eofortmprs.bofthen
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件人＜%=tosearch%＞没有找到!");
history.back();
＜/script＞
＜p＞
＜%
response.end
endif
tmprs.close
settmprs=nothing
loop
strfieldValue=trim(strFieldValue)
else
iflen(trim(strFieldValue))＜＞5then
格局不准确
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件人＜%=trim(strFieldValue)%＞不准确!");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
ifisnumeric(trim(len(strFieldValue)))then
tmpSQL="select*fromt_officerwhereuserid="&trim(strFieldValue)&""
settmprs=server.CreateObject("ADODB.Recordset")
tmprs.Opentmpsql,conn
iftmprs.eofortmprs.bofthen
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件人＜%=trim(strFieldValue)%＞没有找到该员工大概还没有注册!");
history.back();
＜/script＞
＜p＞
＜%
response.end
endif
tmprs.close
settmprs=nothing
strfieldValue=trim(strFieldValue)
else
%＞
实验发送邮件，可是失利了，请修正毛病后重试！
＜scriptlanguage="javascript"＞
alert("您输出的收件人＜%=trim(strFieldValue)%＞不准确!");
history.back();
＜/script＞
＜p＞＜%
response.end
endif
endif
endif
endif
strFieldValue=replace(strFieldValue,"＜","＜")
response.writestrfieldname
rs(STRFIELDNAME)=replace(strFieldValue,"＞","＞")
binHTTPHeader=MIDB(binHTTPHeader,INSTRB(DataStart+1,binHTTPHeader,divider))
loop
入手下手处置文件数据
titem=0
rs("filesize_1")=0
rs("filesize_2")=0
rs("filesize_3")=0
DowhilelenB(binHTTPHeader)＞46
ifINSTRB(binHTTPHeader,bnCRLF&bnCRLF)＜＞0then
binHeaderData=LeftB(binHTTPHeader,INSTRB(binHTTPHeader,bnCRLF&bnCRLF)-1)
else
exitdo
endif
strHeaderData=bin2str(binHeaderData)
读取上传文件的Content-Type
lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")
strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))
strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString)
读取上传的文件名
ifinstr(strheaderdata,"filename=")＞0then
lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34))
lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34))
strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString)
else
strfilename=""
endif
读取上传文件数据
DataStart=INSTRB(binHTTPHeader,bnCRLF&bnCRLF)+4
DataEnd=INSTRB(DataStart+1,binHTTPHeader,divider)-DataStart
IfstrFileName＜＞""Then
ifdataend＞0then
binFieldValue=MIDB(binHTTPHeader,DataStart,DataEnd)
将上传的文件写进数据库
titem=titem+1
response.write"titem:"&titem
rs("FileContentType_"&titem)=strFileContentType
rs("FileContent_"&titem).AppendChunkbinFieldValue
rs("filesize_"&</p>因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题： 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)
页:
[1]