view.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 17 行

<%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")
	OpenDBH ObjDB
	StrSQL = "Select * From t_Hrms_Attach Where KeyPath = '" & Request.QueryString("ID") & "'"
	Set ObJRS = ObjDB.Execute(StrSQL)
	If Not ObjRS.Eof Then
		Response.Redirect   Application("RootPath") & "Hrms/Attach/Files/" & ObjRS("BasePath") & "/" & ObjRS("KeyPath") & "/" & ObjRS("FileName")
	End If
%>