openfiles.asp

来自「绿叶ＯＡ 一个功能比较全面的办公OA系统」· ASP 代码 · 共 46 行

<%
Dim opentypes__MMColParam
opentypes__MMColParam = "1"
If (Session("userssdfgfhtrh")   <> "") Then 
  opentypes__MMColParam = Session("userssdfgfhtrh")  
End If
%>
<%
Dim opentypes
Dim opentypes_numRows

Set opentypes = Server.CreateObject("ADODB.Recordset")
opentypes.ActiveConnection = MM_oavbsconn_STRING
opentypes.Source = "SELECT 方案  FROM 文件打开方式  WHERE 帐号 = '" + Replace(opentypes__MMColParam, "'", "''") + "'"
opentypes.CursorType = 0
opentypes.CursorLocation = 2
opentypes.LockType = 1
opentypes.Open()

opentypes_numRows = 0
%>
<%if not opentypes.eof or not opentypes.bof then
dim opent
opent=opentypes("方案")
else
opent="3"
end if%>
<%
opentypes.Close()
Set opentypes = Nothing
%>
<%dim target
if opent=1 then
target="target=_blank"
elseif opent=2 then
target=""
elseif opent=3 then
if (Right(n, 4))=".jpg" or (Right(n, 5))=".jpeg" or (Right(n, 4))=".gif" or (Right(n, 4))=".bmp" or (Right(n, 4))=".png" then
target=""
else
target="target=_blank"
end if
end if
%>