<% dim Hits dim vote dim VoteNum dim documentid Dim con Set con = Server.CreateObject("ADODB.Connection") con.Open Application("ConnectionString") Call con.Execute("update documents set hits=isnull(hits,0)+1 where documentid=258") Dim rs Set rs = con.Execute("select hits,vote/isnull(votenum,1),isnull(votenum,1) as votenum from documents where documentid=258") If Not (rs.EOF And rs.BOF) Then Hits = rs(0) Vote = rs(1) VoteNum = rs(2) Else Hits = 1 Vote = 5 VoteNum = 1 End If rs.Close Set rs = Nothing con.Close Set con = Nothing %> FILEDLGS.UCD外部函数介绍


FILEDLGS.UCD外部函数介绍
 

U011 - FILEDLGS.UCD外部函数介绍

OpenFileDlg
path := OpenFileDlg(dlgtitle, defname, defpath, defext, filters)

本函数会开启对话方块 让您选取所要的档案 然後将这个档案的路径与档名传回 放到变数 path 之中 在括弧之中的引数 dlgtitle 表示对话方块上的标题名称 其实建议您不用给它 只要给空字串即可 因为系统内定的名称为”开启旧档”

defname 是放置在档案名称栏位上的字串 您可以给一个字串 系统会自动先将它显示在栏位之中 或者不给也可以 

defpath 所指定的是档案一开启时所开的目录 如果没有指定任何路径 则系统会自动使用目前所在的这个目录 

defext 表示延伸的档案 若您指定了延伸的档名 则对话方块开启时 会自动将这个延伸的档名加在档案名称的後面

filters 表示档案型式清单之中的选项 但它的格式必须如下

"Description|*.ext|Description|*.ext;*.ext|..."

如果您有个档案型式 *.bmp 要放置在档案型式清单之中 所要写的方式为 

"Bitmaps|*.bmp"

如果加上个文字的档案型式 *.txt 则为 

"Bitmaps|*.bmp|Text Files|*.txt"

SaveAsFileDlg

path := SaveAsFileDlg(dlgtitle, defname, defpath, defext, filters)

本函数会开启一个对话方块 让您将档案储存 然後将这个档案的路径与档名传回 放到变数 path 之中 

括弧之中的引数 dlgtitle 表示对话方块上的标题名称 其实建议您不用给它 只要给空字串即可 因为系统内定的名称为”另存新档” 

defname 是放置在档案名称栏位上的字串 您可以给或者不给也可以 defpath 所指定的是对话方块开启时所开的目录 如果没有指定任何路径 则系统会自动使用目前所在的这个目录 

defext 表示延伸的档案 若您指定了延伸的档名 则对话方块开启时 会自动将这个延伸的档名加在档案名称的後面 filters 表示档案型式清单之中的选项 它的格式与上一个函数相同