view.asp

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

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/String.asp" -->
<%
	Dim IntClassID,StrClassName
	Dim ObjDB,ObjRS,C
	
	IntClassID = Request.QueryString("ID")
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB
	Set C = Server.CreateObject("CMS2003.DBHandle")
	C.Init(ObjDB)
	Set ObjRS = C.View("Select ClassName From t_OA_Work_Document_Class Where ID = " & FixSQL(IntClassID))
	ObjDB.Close
	Set ObjDB = Nothing
	
%>

<script language=javascript>
parent.location = "../index.asp?ClassID=<%=IntClassID%>&ClassName=<%=ObjRS("ClassName")%>"
</script>