'函数名: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 & " |
PosImageWin=PosImageWin & "
End Function

