联系

点击这里立即发消息给我

加腾讯QQ:211812590
E_mail: 211812590@qq.com

条码二维码软件
实用工具软件

站点日历
73 2018 - 7 48
1234567
891011121314
15161718192021
22232425262728
293031


日志搜索

 标题   内容

联系

点击这里立即发消息给我

E_mail: 211812590@qq.com

[14] [15] [16] [17] [18] [19] [20] [21] [22] [23]  ... [23]  显示模式: 默认模式 | 正常模式
晴天 产生随机文件名的函数   [ 2005/5/13 16:27:23  |  本站原创 ]

[code]Function RndName(ByVal Filename)
    Dim ranNum,fileExt
    randomize
    ranNum = int(8999*rnd)+1000    '产生一个4位的随机数
    fileExt = Mid(Filename,InstrRev(Filename,".")+1)    '取文件的后缀名


阅读全文……
作者:zhang981322 | 分类:标签技术应用 | 评论:0 | 引用:0 | 查看:4390
晴天 几个常用的函数   [ 2005/5/13 16:26:41  |  本站原创 ]

获取用户真实IP函数
程序代码: 
'获取用户真实IP函数
[code]Function GetIP()
    GetIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")


阅读全文……
作者:zhang981322 | 分类:标签技术应用 | 评论:0 | 引用:0 | 查看:5320
晴天 利用ADODB.Stream读取文件内容   [ 2005/5/13 16:22:03  |  本站 ]

Function LoadFile(ByVal File)
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    With objStream
        .Type = 2


阅读全文……
作者:zhang981322 | 分类:标签技术应用 | 评论:0 | 引用:0 | 查看:3655
晴天 图片按比例缩放函数   [ 2005/5/13 16:21:03  |  本站原创 ]

[code]<script language="JavaScript">
<!--
//图片按比例缩放
var flag=false;
function DrawImage(ImgD){


阅读全文……
作者:zhang981322 | 分类:标签技术应用 | 评论:0 | 引用:0 | 查看:4567
[14] [15] [16] [17] [18] [19] [20] [21] [22] [23]  ... [23]  
Copyright@zg126.net all rights reserved 2010-2016