ASP中十大常用程序代码.：第七节〈我的心得〉
用ASP实现支持附件的EMail系统(1)
大家经常探讨使用asp，而不使用其他组建能否实现文件的上传，从而开发出支持邮件附件的邮件系统，答案是可以的。
以下是发送邮件的页面，邮件的帐号是员工号，假设是5位的数字，sendmail.asp当然是在合法登陆后才能够看到的
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜link rel="stylesheet" type="text/css" href="/css/FORUM.CSS"＞
＜style type=text/css＞
＜!--
input { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}
select { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}
textarea { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}
--＞
＜/style＞
＜title＞邮件系统＜/title＞＜/head＞
＜body bgcolor="#FEF7ED"＞
＜script language="javascript"＞
＜%
if session("myid")="" or len(session("myid"))＜＞5 then
response.write "window.open('nolog.asp',target='_top');"
end if
%＞
function check(theform)
{
if (theform.geterempl.value=='')
{
alert('请输入收件人！');
theform.geterempl.focus();
return false;
}
if (theform.emailtitle.value=='')
{
alert('请输入主题!');
theform.emailtitle.focus();
return false;
}
if (theform.emailtitle.value.length＞200)
{
alert('主题请少于200字节');
theform.emailtitle.focus();
return false;
}
if (theform.body.value.length＞15*1024)
{
alert('正文请少于16K');
theform.body.focus();
return false;
}
if (theform.emailshowname.value.length＞1024)
{
alert('签名请少于1K');
theform.emailshowname.focus();
return false;
}
}
＜/script＞
＜%
meth=request.querystring("meth")
if meth=1 then
geterempl=trim(request.querystring("geterempl"))
emailtitle=trim(request.querystring("emailtitle"))
elseif meth=2 then
mailid=trim(request.querystring("mailid"))
set conn=server.createobject("adodb.connection")
conn.open "DSN=;UID=;PWD="
dsnpath="DSN=;UID=;PWD="
set rs=server.createobject("adodb.recordset")
selectnew="select * from t_mail where ((get
相关文档：
<%
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 ......
Abs （数值）
绝对值。一个数字的绝对值是它的正值。空字符串 (null) 的绝对值，也是空字符串。未初始化的变数，其绝对为 0
例子：ABS(-2000)
结果：2000
Array （以逗点分隔的数组元素）
Array 函数传回数组元素的值。
例子：
A=Array(1,2,3)
B=A(2)
结果： 2
说明：变量Ｂ为Ａ数组的第二个元素的值。
Ａs ......
'使用FSO修改文件特定内容的函数
Function FSOchange(filename,Target,String)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
FiletempData = objCountFile.ReadAll
objCountFi ......
在InterDev中实现网上购物推车(1)
本文将介绍在InterDev中实现网上商店购物车功能的方法，具体步骤如下：
一、 数据库结构：
产品数据表(Products): 存放产品信息
产品名 ProductName
产品编号 ProductID
单价 Price
分类编号 CategoryID
Cart：购物车数据表，临时存放客户的� ......
用ASP设计网站在线人数统计程序
在浏览网页的时侯，常常可以看见一些“当前网站上的人数是ＸＸＸ人”的在线人数同计。如何用ASP来做一个呢？首先，分析一下它的做法，一般来说，这些线上人数统计都是指一个时段内的访客人数统计。比如（5分钟内，10分钟内）而这个时间的长短，是由设计者设定 ......
