view.asp

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

<!-- #include virtual="include/DataEnvi.asp" -->
<%
	Dim objRS,objDB,strSQL,FileURL
	strSQL	=	"Select ExtName From t_OA_EI_DataUP where ID=" & Request.QueryString("ID")
	Set objDB	=	server.CreateObject("ADODB.Connection")
	OpenDB objDB
	Set objRS	=	objDB.Execute(strSQL)
	FileURL	=	"../../../UpLoad/OA/EI/DataUP/" & Request.QueryString("ID") & "." & objRS("ExtName")
	Set objRS	=	Nothing
	objDB.Close()
	Set objDB	=	Nothing
%>
<script>
	window.open("<%=FileURL%>","DataView")
	history.go(-1)
</script>