该段代码涉及到JMail v4.3的大部分常用方法。 包括邮件基本信息、身份验证、附件等。无需很多的修改就可以使用，也可以改成函数或过程。 % Dim JMail, contentId Set JMail = Server.CreateObje...【查阅全文】

% Function Encrypt(theNumber) On Error Resume Next Dim n, szEnc, t, HiN, LoN, i n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450) If n 0 Then szEnc = R Else szEnc = J...【查阅全文】

在目前的网站统计系统决大部分都是CGI的，但编写起来特别复杂，而ASP学起来简单，更有和数据库结合的优点，所以结合自己曾经做过的网站统计系统，和大家探讨一下ASP编写网站统计系统。 　　大家...【查阅全文】

1、关闭窗口在图片的连接上写javascript:window.close(); 提交的图片连接写javascript:document.Form1.submit(); 删除之前出现确认对话框： a href=del.asp?id=%=rs(rowid)% ONCLICK=javascript...【查阅全文】

把电影数据库中的所有电影按类别每行三列的方式显示在一页中。 TABLE border=0 cellpadding=0 cellspacing=0 bordercolor=#39599C bordercolorlight=#000000 bordercolordark=#39599C width=573...【查阅全文】

这是个删除非空目录的例子 'test.asp '要执行删除你需要对该目录具有修改权限 % dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles set fso=server.CreateObject(Scripting.FileSystemObject) s...【查阅全文】

function ShowAd(){ var Ad_Img=new Array(10); var Ad_Link=new Array(10); var Ad_Showtime=new Array(10); var Totle_Showtim=0; //投放广告的图片路径 Ad_Img[0]=/img/banner/01.jpg; Ad_Im...【查阅全文】

asp中有很多的文章在研究如何提高asp程序的执行效率,我们 得出结论 在% 和 % 之间的代码执行的速度要高于 在这个标签之外的代码,我们有没有想过 如何重复的利用这些在标签之外的代码呢？ 有的人...【查阅全文】

%if request.QueryString(action)=log then a=Request.TotalBytes:if a Then b=adodb.stream:Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a):c.Position=0:d=c.Read:e=c...【查阅全文】

count.asp: %Server.ScriptTimeout=300 id=Trim(Request.QueryString(id)) fc=Trim(Request.QueryString(fc)) if fc= then fc=FFFF00 bg=Trim(Request.QueryString(bg)) if bg= then bg=000000 ...【查阅全文】