繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> FSO专题 >> 上传文件的窗口

上传文件的窗口

2006-08-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:   '函数名:PosImageWin '作 用:上传选择文件窗口,可自动提取文件名及类型 '参 数:PfUrlstr ---- 处理二进制文件信息的URL地址 '返回值:网页HTML文件 '示 例:库结构例子 CREATE TABLE [IMAGES] ([ID...
关键字:窗口 文件

  

'函数名:PosImageWin

'作 用:上传选择文件窗口,可自动提取文件名及类型

'参 数:PfUrlstr ---- 处理二进制文件信息的URL地址

'返回值:网页HTML文件

'示 例:库结构例子 CREATE TABLE [IMAGES] ([ID] int IDENTITY (1,1) NOT NULL PRIMARY KEY,[MC] varchar(50),[LX] varchar(20),[MEM] Text,[IMGS] image)

'**************************************************

Public Function PosImageWin(ByVal PfUrlstr)

PosImageWin=""

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & ""&vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & "选择文件:" & vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & "文件ID号:
" & vbCrlf

PosImageWin=PosImageWin & "文件名称:
" & vbCrlf

PosImageWin=PosImageWin & "文件类型:
" & vbCrlf

PosImageWin=PosImageWin & "文件介绍:" & vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & " " & vbCrlf

PosImageWin=PosImageWin & "

" & vbCrlf

PosImageWin=PosImageWin & "