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

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

	StrSQL = "Select * From t_OA_Public_Live 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 height=100%>
	<tr class=LHtr>
	<td width=15%>浏览文章</td>
	<td width=85%></td>
	</tr>
	<tr class=Ltr>
		<td>文章标题</td>
		<td><input type="text" class=Input Check=1 Show="文章标题" name="_ThemeID"readonly value="<%=ObjRS("Title")%>"></td>
	</tr>
	<tr class=Ltr height=100%>
	<td colspan=2 ><iframe style="width=100%;height=100%" src="View_Body.asp?ID=<%=IntID%>" style="border: 1 solid #000000" readonly frameborder=0 id=frameEdit></iframe></td>
	</tr>
	<tr class=Ltr>
		<td>创建时间</td>
		<td><input type="text" class=Input name="_CreateTime"readonly value=<%=ObjRS("CreateTime")%>></td>
	</tr>
	<tr class=Ltr>
		<td colspan=2><input type="button" class=Button value="返 回"onclick="doBack()" id=button1 name=button1></td>
	</tr>
	</table>

	<%end if%>
	
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<!-- #include file="Templet.asp" -->