view.asp

功能齐全的oa系统

<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="Include/DataEnvi.asp"-->
<!-- #include virtual="include/Page.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim IntID
Dim C
Dim IntParentID
IntParentID = Request.QueryString("ParentID")
If IntParentID <> 0 Then
	IntID = Request.QueryString("ID")
	
	Set ObjDB = Server.CreateObject("Adodb.Connection")
	OpenDB ObjDB

	StrSQL = "Select * From t_OA_Public_Help where ID=" & IntID
	Set C = Server.CreateObject ("CMS2003.DBHandle")
	C.Init (ObjDB)
	
	Set ObjRS = C.View (StrSQL)
	ObjDB.Close 
	Set ObjDB = Nothing

Sub Main
%>
	<%	If ObjRS.Count > 0 then %>
	<form id=form1 name=form1>
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=Ltr>
		<td>帮助标题</td>
		<td><input type="text" class=Input Check=1 Show="帮助标题" name="_Title"readonly value="<%=ObjRS("Title")%>"></td>
	</tr>
		
	<tr class=Ltr>
		<td>帮助内容</td>
		<td><textarea  class=textarea Check=1 Show="帮助内容" name="_Body"readonly value=""><%=ObjRS("Body")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>创建时间</td>
		<td><input type="text" class=Input name="_CreateTime"readonly value=<%=ObjRS("CreateTime")%>></td>
	</tr>
	</table>
	<input type=button class=Button value="确定" onclick="doList()">

	<%end if%>
	
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<!-- #include file="Templet.asp" -->
<%
Else
%>
<script language=javascript>
parent.location = "Index.asp?ParentID=<%=Request.QueryString("ID")%>"
</script>
<%
End If
%>