ASP中十大常用程序代码.：第九节〈我的心得〉
用ASP实现支持附件的EMail系统(3)
尝试发送邮件，但是失败了，请修改错误后重试！
＜script language="javascript"＞
alert("您输入的收件组格式错误！\r正确的格式是:'gr:001'");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
end if
tmpSQL="select * from t_group where owner='"&session("myid")&"' and groupidowner='"&thegroup&"'"
'response.write tmpsql
set tmprs=server.CreateObject("ADODB.Recordset")
tmprs.Open tmpsql,conn
if tmprs.bof or tmprs.eof then
'没有找到该组
%＞
尝试发送邮件，但是失败了，请修改错误后重试！
＜script language="javascript"＞
alert("您输入的收件组＜%=thegroup%＞没有找到！");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
if tmprs("personnum")=0 then
'组内没有用户
%＞
尝试发送邮件，但是失败了，请修改错误后重试！
＜script language="javascript"＞
alert("您输入的收件组＜%=thegroup%＞中目前没有任何的用户\n所以不能发送");
history.back();
＜/script＞
相关文档：
<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
只需要在fckeditor\editor\filemanager\connectors\asp文件夹下的commands.asp修改一下即可
在这个文件中查找一下：FileUpload
会找到这个函数
把
代码如下:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
代码如下:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
Abs （数值）
绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0
例子：ABS(-2000)
结果：2000
Array （以逗点分隔的数组元素）
Array 函数传回数组元素的值。
例子：
A=Array(1,2,3)
B=A(2)
结果： 2
说明：变量Ｂ为Ａ数组的第二个元素的值。
Ａs ......
用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能，就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的文件上传组件，使 ......
用ASP实现支持附件的EMail系统(2)
不过这仅仅只是得到了发送者的ip地址和mac地址，而且禁止用户自己更改自己ip地址的代码，因为我们的系统是需要对个人修改ip的行为进行禁止的。
＜%
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = S ......
