view.asp

功能齐全的oa系统

<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!--#include virtual="include/DataEnvi.asp"-->
<%
	Dim ObjDB,StrSQL,ObjRS
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	StrSQL = "Select * From t_OA_Attach Where KeyPath = '" & Request.QueryString("ID") & "'"
	Set ObJRS = ObjDB.Execute(StrSQL)
	If Not ObjRS.Eof Then
		Response.Redirect   Application("RootPath") & "OA/Attach/Files/" & ObjRS("BasePath") & "/" & ObjRS("KeyPath") & "/" & ObjRS("FileName")
	End If
%>