|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧object|源代码删除邮件时挪用的文件(mail_prc.asp)
<%@Language=VBScript%>
<%
*************************************
这个文件是删除邮件时挪用的
awayeah
邮箱:awayeah@163.net
*************************************
dimcc,cc1,sep,dd
获得邮件总数
msgcount=session("msgcount")
sep=","
fori=1tomsgcount
dd="c"+cstr(i)
msgid=cstr(Request.Form(dd))
ifmsgid=""then
cc1=cc1+msgid
else
cc1=cc1+msgid+sep
endif
next
iflen(cc1)=0then
Response.Redirect"maillist1.asp"
endif
cc1=left(cc1,len(cc1)-1)
dimarr
arr=split(cc1,",")
SetPOP3=CreateObject("EasyMail.POP3.5")
pop3.account=session("straccount")
pop3.password=session("strpassword")
POP3.MailServer="192.9.200.89"
POP3.LicenseKey="awa/S19I500R1AX30C0R3100"
x=POP3.Connect()
fori=0toubound(arr)
arr(i)=clng(arr(i))
y=POP3.DownloadHeaders
删除邮件
x=POP3.DeleteSingleMessage(arr(i))
Ifx0Then
Response.Write"<palign=center><br><br>删除邮件产生毛病("+CStr(x)+").请与办理员接洽.<br><br>"
Response.Write"<ahref=maillist1.asp>前往</a></p>"
POP3.Disconnect
Response.End
Else
Response.Write"Messagedeletedsuccessfully."
Response.Write""
POP3.Disconnect
EndIf
next
POP3.Disconnect
Response.Redirect"maillist1.asp"
%>
<HTML>
<HEAD>
<METANAME="GENERATOR"Content="MicrosoftVisualStudio6.0">
</HEAD>
<BODY>
</body>
</html>
</p>当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|