触摸冬日暖阳

和朋友一起过“立春”

ANACE — Sat, 06 Feb 2010 00:20:16 +0800

自秦代以来，中国就一直以立春作为春季的开始。立春是从天文上来划分的，而在自然界、在人们的心目中，春是温暖，鸟语花香；春是生长，耕耘播种。

昨天是二十四节气之一，立春。和朋友一起度过，有兄弟间的友情，有男女朋友间的友情。兄弟，美酒，春宵，暖阳；没有压力，没有烦恼，只有快乐。整个人都懒了，懒到天天都想过这种日子。

一个人的缘分是有限的，一个人的机会是有限的，人要求过好日子也是理所应当的。

今年是暖阳时来运转的一年，跟着我一起打拼的朋友们咱们好好努力，暖阳会和你们同甘共苦；

把暖阳看做潜力股的朋友们，信你们的眼光就行了。

网站作品：豆腐皮机专业制造商周口富康机械

ANACE — Sat, 23 Jan 2010 01:20:38 +0800

2009年8月份做的一个网站，喜欢李老板的为人处世风格。“先做人，后做事。”打个电话试一把，绝对让你有收获。

周口市川汇区富康豆制品机械厂 - 周口富康机械厂专业从事：豆腐皮机,豆腐皮机械生产,豆腐皮机械加工,高产豆腐皮机研发,欢迎广大朋友与我们合作！

欢迎访问：http://www.dopiji.com

简捷模板服务于为中小企业建站的站长

ANACE — Sat, 23 Jan 2010 00:10:49 +0800

简捷模板——服务于为中小企业建站的站长。这个站是两个月前的一个项目，最近我们计划更新一下这个网站，希望能做更多的事。

欢迎朋友们支持：http://www.easytpl.com

尽人事以听天命

ANACE — Fri, 22 Jan 2010 00:52:46 +0800

只问耕耘不问收获！

今天是腊八，祝朋友们节日快乐！

身边的事，有太多需要我去做，又有太多的无可奈何！

有些时候，不是你能力不及，而是你选错了方向；

我的家人，我有太多的亏欠。

恩师啊，我什么时候才能振翅高飞！

关心我的朋友们啊，我怎么去回报大家！

跟着我一起闯的人啊，我要怎么对你们的将来负责！

把ASP中的时间转换UNIX时间戳

ANACE — Thu, 21 Jan 2010 02:01:47 +0800

感觉这套CMS系统写出来后对我的ASP水平提高真的是非常有帮助。



    '参数：strTime:要转换的时间；intTimeZone：该时间对应的时区          
    '返回值：strTime相对于1970年1月1日午夜0点经过的秒数        
    '示例：ToUnixTime("2008-5-23 10:51:0", +8)，返回值为1211511060          
    Function ToUnixTime(strTime, intTimeZone)         
        If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now         
        If IsEmpty(intTimeZone) or Not isNumeric(intTimeZone) Then intTimeZone = 0         
         ToUnixTime = DateAdd("h",-intTimeZone,strTime)         
         ToUnixTime = DateDiff("s","1970-1-1 0:0:0", ToUnixTime)         
    End Function        
            
    '把UNIX时间戳转换为标准时间         
    '参数：intTime:要转换的UNIX时间戳；intTimeZone：该时间戳对应的时区         
    '返回值：intTime所代表的标准时间         
    '示例：FromUnixTime("1211511060", +8)，返回值2008-5-23 10:51:0         
     
    Function FromUnixTime(intTime, intTimeZone)         
        If IsEmpty(intTime) Or Not IsNumeric(intTime) Then        
             FromUnixTime = Now()         
            Exit Function        
        End If        
        If IsEmpty(intTime) Or Not IsNumeric(intTimeZone) Then intTimeZone = 0         
         FromUnixTime = DateAdd("s", intTime, "1970-1-1 0:0:0")         
         FromUnixTime = DateAdd("h", intTimeZone, FromUnixTime)         
    End Function

ASP无限分类代码

ANACE — Thu, 21 Jan 2010 00:36:32 +0800

ASP无限分类用一个数据表来做，在过程中调用自身来实现。

category表
cid            自动编号的栏目ID
fid             父栏目ID，默认值0
cname      栏目名称

<%
Call limitClass("cid,fid,name",0,0)
'无限分类
Sub limitClass(Row,fid,N)
Dim rs
Set rs = Easp.db.GetRecord("j_class:"&Row,"fid="&fid,"cid Asc")
While Not rs.eof
%>
<tr>
<td><%If rs("fid")<>0 Then Response.Write( replace(String(N," ")," ","   "))&"┠ "&rs(2)%></td>
</tr>
<%
'通过在过程中调用自身来实现无限分类
Call limitClass(Row,rs("cid"),N+1)
rs.movenext()
Wend
Easp.db.C(rs)
End Sub
%>

ASP从网址中获取域名

ANACE — Sun, 17 Jan 2010 02:11:00 +0800

<%
Dim url,urls,domain
urls="http://www.anace.cn/logo.gif"
url = split(urls,"/")
domain =url(2)
Response.Write(domain)
%>

显示的结果是：www.anace.cn

ASP远程获取图片存到本地并生成缩略图

ANACE — Sun, 17 Jan 2010 02:08:49 +0800

最近在写一个小程序，非常有意思的小程序。等我写好了就发布给大家使用，娱乐一下，哈哈，或许对某些人来说用处真的不大。用到ASP远程获取图片存到本地并生成缩略图，贴一下代码，记录。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'调用方法如下
SourceURL="http://www.anace.cn/logo.gif"
Dim FileExt
FileExt = right(SourceURL,4) '获取远程图片的格式
'随机文件名称
Dim ranNum, dtNow, FileName, LocalFileName
randomize
ranNum = int(9*10^3*rnd)+10^3
dtNow = Now()
FileName = year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum & FileExt
LocalFileName = "/images" '保存本地路径
if right(LocalFileName,1) <> "/" then LocalFileName = LocalFileName & "/"
SaveAddr=Server.MapPath(LocalFileName & FileName)
'   On Error Resume Next
    Dim oXML : Set oXML = Server.CreateObject("Microsoft.XMLHTTP")
    With oXML
        .Open "Get",SourceURL,False,"",""
        .Send
        RemoteDate = .ResponseBody
    End With
    Set oXML = Nothing
    Dim oStream : Set oStream = Server.CreateObject("Adodb.Stream")
    With oStream
        .Type = 1
        .Open
        .Write RemoteDate
        .SaveToFile SaveAddr,2
        If Err.Number=0 Then SaveRemoteFile = True
        .Close()
    End With
    Set oStream = Nothing
'''''''''''''''''''
dim Jpeg, SavePath
Set Jpeg = Server.CreateObject("Persits.Jpeg")
if Err then
response.Write ("错误：空间没安装aspjpeg组件或获取图片超时！")
response.end
end If
Jpeg.Quality = 100
Jpeg.Open SaveAddr
Jpeg.PreserveAspectRatio = True '等比缩放
Dim newwidth, newheight
newwidth=256 '//设图片宽度
newheight=192 '//等比例缩放高度
'如果图片宽小于等于256 高小于等于192 则不创建缩略图
if Jpeg.OriginalWidth<=256 and Jpeg.Height<=192 then
Jpeg.Width = Jpeg.OriginalWidth
Jpeg.Height = Jpeg.OriginalHeight
Else
Jpeg.Width = newwidth
Jpeg.Height = CInt(jpeg.OriginalHeight*(newwidth/jpeg.Originalwidth))
If CInt(jpeg.Originalwidth) > CInt(newwidth) Then
jpeg.crop 0,0,newwidth,newheight    '开始切割其实是把超过象素的下部分去掉
End If
End If
SavePath = server.MapPath("/images/thumb/thumb_"& FileName)
Jpeg.save SavePath
Response.Write("原图，<img src=""" & LocalFileName & FileName & """ /><br />")
Response.Write("缩略图，<img src=""" & LocalFileName & "thumb/thumb_" & FileName & """ /><br />")
%>

JavaScript学习消息框和函数

ANACE — Fri, 15 Jan 2010 01:58:48 +0800

有了ASP和PHP的基础学习JavaScript基础也非常的容易，回头再看看PHP也是挺简单的。这次学习JavaScript着重扎实基础，所有学习代码都要亲手敲一遍，不回偷懒了。

<script type="text/javascript"> 
//显示提示框  
function disp_prompt()  
         {  
                   var name=prompt("请输入您的姓名","")  
                         if (name!=true && name!="")  
                         {  
                               document.write("你好"+name+" ，最近好吗？")  
                         }  
                             else if (name=="")  
                             {  
                               alert("你好请输入姓名！")  
                             }  
                 }  
//显示确认框  
function disp_confirm()  
         {  
                   var r=confirm("继续请点击 确认")  
                         if (r==true)  
                         {  
                               document.write("祝贺你又登高一步！")  
                         }  
                             else  
                             {  
                               document.write("你选择了"+'\n'+"取消！")  
                             }  
                 }  
//有参数的函数  
function myfun(txt)  
         {  
                   alert(txt)  
                 }  
//有参数并返回值的函数  
function myfunr(a,b)  
         {  
                   x=a*b  
                     return x  
                 }  
</script> 
 
<input type="button" onclick="disp_prompt()" value="显示提示框" /> <br />   
<input type="button" onclick="disp_confirm()" value="显示确认框" /><br /> 
<input type="button" onclick="myfun('函数是多少？')" value="有参数的函数" /><br /> 
有参数并返回值的函数 =   
<script> 
document.write(myfunr(2,3))  
</script>

开始学习JavaScript

ANACE — Thu, 14 Jan 2010 01:58:38 +0800

一个朋友告诉我，学习了JavaScript就知道ASP其实有多容易了，一直都是想去学JavaScript，想了有三年了吧，今天是个突破。

<script type="text/javascript"> 
          /*  
          Java 和 JavaScript 是相同的吗？  
          不同！  
          在概念和设计方面，Java 和 JavaScript 是两种完全不同的语言。  
          Java（由太阳微系统公司开发）很强大，同时也是更复杂的编程语言，就像同级别的 C 和 C++。  
          */  
          document.write("我是贾彦，正式学习JavaScript！"); //要学好JavaScript最好先了解它的历史  
        </script>