博文
ASPJPEG组件使用说明(2007-07-27 09:15:00)
摘要：利用aspjpeg组件对图片进行处理
1、为图片制作缩略图
<% ' 建立实例Dim Jpeg,PathSet Jpeg = Server.CreateObject("Persits.Jpeg")' 图片所在位置Path = Server.MapPath("images") & "\clock.jpg"
' 打开Jpeg.Open Path
' 设置缩略图大小（这里比例设定为50%）Jpeg.Width = Jpeg.OriginalWidth / 2Jpeg.Height = Jpeg.OriginalHeight / 2
' 保存缩略图到指定文件夹下Jpeg.Save Server.MapPath("images") & "\clock_small.jpg"
' 注销实例Set Jpeg = Nothing%>
<IMG SRC="images/clock.jpg"><P><IMG SRC="images/clock_small.jpg">
2、为图片加入水印功能
<%Dim Jpeg' 建立实例Set Jpeg = Server.CreateObject("Persits.Jpeg")' 打开目标图片Jpeg.Open Server.MapPath("images/dodge_viper.jpg")
' 添加文字水印Jpeg.Canvas.Font.Color = &HFF0000' 红色Jpeg.Canvas.Font.Family = "宋体"Jpeg.Canvas.Font.Bold = True Jpeg.Canvas.Print 10, 10, "Copyright (c) Cnmaya.org"
' 保存文件Jpeg.Save Server.MapPath("images/dodge_viper_framed.jpg")
' 注销对象Set Jpeg = Nothing%>
' Aspjpeg 功能设置Set Jpeg = Server.CreateObject("Persits.Jpeg")' 获取源图片路径Path = Server.MapPath("uploadimages/")&"/"&Fil......
利用asp将文本文件导入到access数据库中(2007-07-25 09:37:00)
摘要：利用asp将文本文件导入到指定的数据库的某个字段中去，主要用到的是fso文件操作和数据库插入代码。index.asp<!--#include file="conn.asp"--><%'On Error Resume next Server.ScriptTimeOut = 9999 i=0'创建一个FileSystemObject对象的事例Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")ctime=Timerthing=server.mappath("./aaa.txt") Call getEmail(thing)response.write "已经生成"&i&"条记录,用时"&(Timer-ctime)&"秒"%></Body></HTML><%Function getemail(filepath)Set MyTextFile=MyFileObject.OpenTextFile(filepath)While not MyTextFile.AtEndOfStream txt=Trim(MyTextFile.ReadLine) sql="insert into bbbb(aaaa) values('"&txt&"')" rs.open sql,conn,1,1 i=i+1WendMyTextFile.CloseEnd Function%>
aaa.txt中的内容是1111111111111222222222222qqqqqqqqqqqqqqq3434eeeeeeeeeeeeee
conn.asp为数据库连接代码<%set rs=server.CreateObject("adodb.recordset")db="./aaaa.mdb"set conn=server.CreateObject("adodb.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)conn.open ......
jmail发送邮件函数(2007-07-22 15:51:00)
摘要：smtp为邮件服务器名user为smtp邮件服务器上的邮件地址pwd为smtp邮件服务器上的邮件的密码sendto为要发送的邮件地址form发件人名subject为主题body为内容function sendmail(smtp,sendto,from,user,pwd,subject,body)Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象 jmail.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j jmail.logging = true '启用邮件日志 '加上如下语句，否则还有可能出现乱码的可能性： jmail.Charset = "GB2312" '邮件的文字编码为国标 jmail.ContentTransferEncoding = "base64" jmail.Encoding = "base64" jmail.ISOEncodeHeaders = false
'jmail.ContentType = "text/html" '邮件的格式为HTML格式 -- 有此句则发送附件时为乱码jmail.AddRecipient sendto '邮件收件人的地址 jmail.From = from '发件人的E-MAIL地址 jmail.MailServerUserName = user '登录邮件服务器所需的用户名 jmail.MailServerPassword = pwd '登录邮件服务器所需的密码 jmail.Subject = subject '邮件的标题 jmail.Body = body '邮件的内容 'jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/html"'Jmail.AddAttachment Server.MapPath("b.rar") '否则附件会变成乱码jmail.Priority = 3 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值 if jmail.send(smtp)=false then'执行邮......
带有关闭按纽的对联广告(2007-07-18 14:22:00)
摘要：像新浪网站一打开后，左右两侧出现各一个flash广告index.html<html><head><title>带有关闭的对联广告代码</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> </p><p> <script language=JavaScript src="ad-02.js"></script></p></body></html>
ad-02.js var delta=0.8; var collection; var closeB=false; function floaters() { ......
ajax实现windows关机效果代码(2007-07-10 15:17:00)
摘要：效果：使用Windows系统的用户在关机的时候，出现的界面只允许用户选择关机、注销或取消动作，而桌面上的程序都不能使用，并且屏幕呈现灰色状态。Windows关机效果如图22.1所示。
网页中使用此效果好处：在网页上运用这种关机效果有什么好处呢？首先，由于单击某一链接后，将用户此时不可用的操作隐藏在后台，将可用的操作放在屏幕最上层，并高亮显示，可以避免用户的误操作。其次，将信息高亮显示，也可以提醒用户应该注意的事项。
原理：在网页中实现这种效果的原理很简单。创建两个图层，一个为遮盖层，覆盖整个页面，并且显示为灰色；另一个图层作为高亮显示的部分，在遮盖层的上方，这可通过设置图层的z-index属性来设置。当取消关机效果后，只需将这两个图层元素在页面中删除即可。
代码：<html><head><title>ajax关机效果</title><style type="text/css">#lightbox {/*该层为高亮显示层*/ BORDER-RIGHT: #fff 1px solid; BORDER-TOP: #fff 1px solid; DISPLAY: block; Z-INDEX: 9999; /*设置该层在网页的最上端,设置足够大*/ BACKGROUND: #fdfce9; /*设置背景色*/ LEFT: 50%; MARGIN: -220px 0px 0px -250px; BORDER-LEFT: #fff 1px solid; WIDTH: 5......
利用javascript实现QQ客服代码(2007-07-10 10:15:00)
摘要：经常会在一些网站上看到QQ客服效果，当客服人员在线的时候，网页上的QQ显示为在线状态，不在线的时候，网页上的QQ显示下线状态，这是通过javascript来实现的。<script language=javascript>function picsize(obj,MaxWidth){ img=new Image();//新建一个Image对象，用这个对象的width就不会出现width为0的现象 img.src="/fk/blog/obj.src"; if (img.width>MaxWidth) { return MaxWidth; } else { return img.width; }}</script><style><!-- div {font-size:12px;}--></style></head><body><SCRIPT>var online= new Array();if (!document.layers)document.write('<div id="divStayTopLeft" style="position:absolute">')</SCRIPT><layer id="divStayTopLeft"><table border="0" width="110" cellspacing="0" cellpadding="0"><tr><td width="110"><img border=0 src="images/up5.gif"></td></tr><script src="http://webpresence.qq.com/getonline?Type=1&391193603:471133041:"></script><!--设置两个QQ号码，分别对应下面两个--><tr><td valign......
新闻滚动代码(2007-06-30 09:44:00)
摘要：<style>.dhMarquee {width:100px;height:108px;text-align:left;margin:0px;padding:0px;border:1px solid #000;overflow:hidden;white-space:nowrap;} .mqdemo {margin:0px;padding:0px;border:0px;}.dhScrollA {font-size:12px;display:block;padding:2px;}</style> <div id="mq" class="dhMarquee" onmouseover="iScrollAmount=0" onmouseout="iScrollAmount=1"><div id="mqdemo" class="mqdemo"><a class="dhScrollA" href="javascript:alert('1')">月圆之夜1</a><a class="dhScrollA" href="javascript:alert('2')">紫禁之颠2</a><a class="dhScrollA" href="javascript:alert('3')">西门吹雪3</a><a class="dhScrollA" href="javascript:alert('4')">天外飞仙4</a><a class="dhScrollA" href="javascript:alert('5')">太阳之夜5</a><a class="dhScrollA" href="javascript:alert('6')">紫禁之谷6</a><a class="dhScrollA" href="javascript:alert('7')">西门吹风7</a><a class="dhScrollA" href="javascript:alert('8')">天外飞碟8</a><a class="dhScrollA" href="javascr......
利用asp获取客户端真实的IP地址(2007-06-27 09:26:00)
摘要：客户端IP有两种情况，一个是代理服务器上网的，另一种是直接上网的，所以要获取客户端IP也需要分开来获取。<%Function getIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") >0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function %>......
给字符串中的网址加上超连接(2007-06-18 11:46:00)
摘要：<%Function regExReplace(sSource,patrn, replStr) Dim regEx, str1 str1 = sSource Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = True regEx.Global = True regExReplace = regEx.Replace(str1, replStr) End Function
Function RegExpTest(strng,s)strng1=strngDim regEx, Match, Matches ' 建立变量。Set regEx = New RegExp ' 建立正则表达式。regEx.Pattern = s ' 设置模式。regEx.IgnoreCase = True ' 设置是否区分大小写。regEx.Global = True ' 设置全局替换。Set Matches = regEx.Execute(strng) ' 执行搜索。For Each Match in Matches ' 遍历 Matches 集合。strng1=regExReplace(strng1,Match.value,"<a href="""&Match.value&""" target=""_blank"">"&Match.Value&"</a>")NextRegExpTest = strng1end Function
str="http://www.yahoo.com.cn雅虎http://www.sina.com.cn新浪http://hao123.com好123"s="((http:[/][/]|www.)([a-z]|[A-Z]|[0-9]|[/.]|[~])*)"response.write RegExpTest(str,s) %>......
动态生成的checkbox表单的检测(2007-06-08 15:22:00)
摘要：有时候会动态生成的checkbox表单，通常该表单的数据大于等于2个时，很方便去检测。如果表单的数量是一个时也方便检测，但是由于动态的，所以表单的数量不确定，可能是一个，也可以是多个，所以采用以下代码可以解决问题。<script language="javascript">function check(){j=0;len=document.getElementsByName("test").length;if (len>1){for(var i=0;i<len;i++){ if (document.form1.test[i].checked==true) { j++; } }if (j==0){ alert('你没有选择');return false;}else{ alert('已经选择');}
}else{ if (document.form1.test.checked==true) { alert('通过'); } else { alert('请选择'); return false; } }}</script><form name="form1" method="post" action=""><!--这里是动态生成的checkbox表单，可能是一个，也可能是多个--> <input type="checkbox" name="test" id="test" value="1"> 1 <input type="checkbox" name="test" id="test" value="2"> 2 <input type="checkbox" name="test" id="test" v......