view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/String.asp" -->
<%
	Dim IntBoardID,StrBoardName
	Dim ObjDB,ObjRS,C
	
	IntBoardID = 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 BoardName From t_OA_Public_BBS_Board Where ID = " & FixSQL(IntBoardID))
	ObjDB.Close
	Set ObjDB = Nothing
	
%>

<script language=javascript>
parent.location = "../index.asp?BoardID=<%=IntBoardID%>&BoardName=<%=ObjRS("BoardName")%>"
</script>