view.asp

功能齐全的oa系统

<%option explicit%>
<!-- #include virtual="Include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

Dim ObjDB, ObjRS, StrSQL
Dim IntID
Dim C, i
Dim Month, Year, Day

IntID = Request.QueryString("ID")

Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB

StrSQL = "Select * From V_OA_Work_Source_Record_TrueName 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 
%>
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
  <td width=15%>查看预定情况</td>
  <td width=85%></td>
  <tr class=Ltr>
    <td>开始时间</td>
    <td><input type="text" class=Input3 readonly value="<%=ObjRS("BegDate")%>">
    <input type=text Class=Input4 size=2 readonly value="<%=ObjRS("BegHour")%>" > 时 <input type=text size=2 Class=Input4 readonly value="<%=ObjRS("BegMinute")%>"> 分 
    </td>
  </tr>
  <tr class=Ltr>
    <td>结束时间</td>
    <td><input type="text" class=Input3 readonly value="<%=ObjRS("FinDate")%>">
    <input type=text Class=Input4 size=2 readonly value="<%=ObjRS("FinHour")%>"> 时 <input type=text size=2 Class=Input4 readonly value="<%=ObjRS("FinMinute")%>"> 分 
    </td>
  </tr>
  <tr class=Ltr>
    <td>预定人</td>
    <td><input type="text" class=Input readonly value="<%=ObjRS("TrueName")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>预定时间</td>
    <td><input type="text" class=Input readonly value="<%=ObjRS("CreateTime")%>"></td>
  </tr>
  <tr class=Ltr>
    <td valign=top>预定描述</td>
    <td><textarea rows=4 cols=30 class=textarea readonly  value="" rows="1" cols="20"><%=ObjRS("Des")%></textarea></td>
  </tr>
  </table>
  <input type=button class=button value="返 回" onclick="doList()"" ><input type=button class=Button value="关 闭" onclick="top.close()" id=button2 name=button2>
<%
  end if
End Sub
%> 
<!-- #include file="Templet.asp" -->