ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
使用当前日期做为流水号,采用函数

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

<% ''将当前的日期和时间转为流水号
function makefilename(fname)
  fname = now()
  fname = replace(fname,"-","")
  fname = replace(fname," ","")
  fname = replace(fname,":","")
  fname = replace(fname,"PM","")
  fname = replace(fname,"AM","")
  fname = replace(fname,"上午","")
  fname = replace(fname,"下午","")
  makefilename=fname
end function
%>
上函数体,可使用此句vfname=makefilename(now())来调用当前时间调用,
若response.write vfname则显示:年月日时。


若虚上传时取得所上传的文件的类型,可采用下面这个函数

<%
  function GetExtendName(FileName)
     dim ExtName
     ExtName = LCase(FileName)
     ExtName = right(ExtName,3)
     ExtName = right(ExtName,3-Instr(ExtName,"."))
     GetExtendName = ExtName
  end function
%>
在用时可以采用这种做法,通过函数instr来完成对上传文件类型的比较
if Instr(".gif.jpg.png",GetExtendName(file.FileName)) then'限制了上传文件类型
   'TypeFlag = 1        '文件为允许的类型
    vfname = makefilename(now())  '文件为允许的类型执行此行  
       fname=vfname & "." & GetExtendName(file.FileName)
    file.SaveAs Server.mappath(UpFilePath&fname)   ''保存文件
    else
      'TypeFlag = 0  '文件为不允许的类型
        
      response.write ("<script language=javascript>")
            response.write ("alert('不支持您所上传的文件类型!');")
            response.write ("history.back();")
            response.write("</script>")
   end if





相关文章

相关软件