Asp学习资料 -- 编程爱好者博客

ASPJPEG组件使用说明(2007-07-27 09:15:00)

摘要：利用aspjpeg组件对图片进行处理
1、为图片制作缩略图
<% ' 建立实例
Dim Jpeg,Path
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' 图片所在位置
Path = Server.MapPath("images") & "\clock.jpg"
' 打开
Jpeg.Open Path ' 设置缩略图大小（这里比例设定为50%）
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.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 功......

阅读全文(4810) | 评论:0

利用asp将文本文件导入到access数据库中(2007-07-25 09:37:00)

摘要：利用asp将文本文件导入到指定的数据库的某个字段中去，主要用到的是fso文件操作和数据库插入代码。
index.asp

<%
'On Error Resume next
Server.ScriptTimeOut = 9999
i=0
'创建一个FileSystemObject对象的事例
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
ctime=Timer
thing=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+1
Wend
MyTextFile.Close
End Function
%> aaa.txt中的内容是
1111111111111
222222222222
qqqqqqqqqqqqqqq
3434
eeeeeeeeeeeeee conn.asp为数据库连接代码
<%
set rs=server.CreateObject("adodb.recordset")
db="./aaaa.md......

阅读全文(4408) | 评论:0

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")      ......

阅读全文(3536) | 评论:0

带有关闭按纽的对联广告(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......

阅读全文(3393) | 评论:0

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 ......

阅读全文(9848) | 评论:2

利用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>

</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://webpresen......

阅读全文(22052) | 评论:4

新闻滚动代码(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')"......

阅读全文(4954) | 评论:0

利用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
%>......

阅读全文(3536) | 评论:0

给字符串中的网址加上超连接(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=strng
Dim 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>")
Next
RegExpTest = strng1
end 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.w......

阅读全文(3611) | 评论:0

动态生成的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="">

<input type="checkbox" name="test" id="test" val......

阅读全文(4326) | 评论:0

博客介绍

文章分类

博文