view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL,ObjRS
	Dim C

	IntID = Request.QueryString("ID")
	
	Set ObjDB = Server.CreateObject("ADODB.Connection")
	OpenDB ObjDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(ObjDB)
	
	StrSQL ="Select ID,Theme From t_OA_Public_Help_Theme Where ID=" & IntID 
	
	Set ObjRS = C.View(StrSQL)
	
	ObjDB.Close
	Set ObjDB = Nothing

Sub Main
	If ObjRS.Count > 0 Then
%>
	<table width=100%>
	<tr>
	<td><%=ObjRS("ID")%></td>
	<td><%=ObjRS("Theme")%></td>
	</tr>
	</table>
<%
	End If
End Sub
%>
<!-- #include file="Templet.asp" -->