view.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include file="Function.asp" -->
<%
Sub Main
  Dim IntID
  Dim ObjDB,ObjRS,C,D,i
  Dim IntDay,IntDays,IntYear,IntMonth,LMonth,NMonth,NNMonth,IntRows,j
  Dim Arr(31)
  Dim StrSQL
  
  IntID = Request.QueryString("ID")
  Set ObjDB = SErver.CreateObject("Adodb.Connection")
  Set C = Server.CreateObject("CMS2003.DBhandle")
  OpenDB ObjDB
  C.Init(ObjDB)
  Set ObjRS = C.View("Select * From t_OA_Work_Source Where ID = " & FixSQL(IntID))

  If ObjRS("NodeType") = 0 Then
%>
<script language=javascript>
    parent.location = "Index.asp?ParentID=<%=Request.QueryString("ID")%>"
</script>
<%
  End If

  If ObjRS("NodeType") = 1 Then
%>
	<table class=Ltable cellspacing=1 cellpadding=3>
  	<tr class=LHtr>
    	<td>资源名称</td>
    	<td><%=ObjRS("SourceName")%></td>
  	</tr> 
  	<tr class=Ltr>
    	<td>检索关键字</td>
    	<td><input type="text" size=38 class=Input  name="_KeyWord" readonly value=<%=ObjRS("KeyWord")%>></td>
  	</tr>
  	<tr class=Ltr>
    	<td>创建时间</td>
    	<td><input type="text" size=38 class=Input readonly name="_CreateTime" value=<%=ObjRS("CreateTime")%> ></td>
  	</tr>
  	<tr class=Ltr>
    	<td>备注</td>
    	<td><textArea  cols=27 rows=10 class=Textarea Show="备注" name="_Des" readonly><%=ObjRS("Des")%></textarea></td>
  	</tr>
 	</table>
    <input type="button"  name="button" onclick="history.go(0)" class=Button value="刷 新"><input type="button" name="button" onclick='window.showModalDialog("Record/index.asp?SourceID=<%=IntID%>&R=" + Math.random(),"SourceRecordWin","dialogHeight=400px;dialogWidth=750px;resizable=No;status=1;scrollbars=1");window.history.go(0)' class=Button value="预定此资源"><input type="button"  name="button" onclick="doList()" class=Button value="返 回"></td>
<%
  End If
End Sub
%>
<!-- #include file="Templet.asp" -->