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/String.asp"-->
<!--#include virtual = "/Include/ShowAttachs.asp"-->
<script language=javaScript>
function viewAttach(){
var attachURL
attachURL	=	Attach.value 
//alert(attachURL)
window.open(attachURL,'viewAttach')
}
</script>
<%
	Dim ObjDB,ObjRS,StrSQL
	Dim C,IntID
	Dim StrSQLOne
	Dim ObjRSOne,strOption,Attach
	
	IntID = Request.QueryString ("ID")
	Set ObjDB = Server.CreateObject ("ADODB.Connection")
	OpenDB ObjDB

	StrSQL = "Select * From t_OA_Message where ID=" & IntID

	Set C = Server.CreateObject ("CMS2003.DBHandle")
	C.Init (ObjDB)
	Set ObjRS = C.View (StrSQL)

%>
<%'==================================================================%>
<%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%>&nbsp</td></tr>
	<tr class=Ltr>
	<%
		If objRS("BoxID")=1 Then
		StrSQL = "Update t_OA_Message Set IsNew = 0 where ID="&IntID
		ObjDB.Execute (StrSQL)
	%>
		<td>发件人地址</td>
		<td><input type="text" class=Input readonly value="<%=ObjRS("FromAddr")%>"></td>
	<%Else%>
		<td>收件人地址</td>
		<td><input type="text" class=Input readonly value="<%=ObjRS("ToAddr")%>"></td>
	<%end if%>
	</tr>
	<tr class=Ltr>
		<td>邮件主题</td>
		<td><input type="text" class=Input readonly value="<%=ObjRS("Subject")%>"></td>
	</tr>
	<%	
		If ObjRS("IsAttach") then
	%>
	<tr class=Ltr>
		<td>附件</td>
		<td><%=ShowAttachs(ObjDB,ObjRS("Attachs"))%></td>
	</tr>
	<%end if%>
	<tr class=Ltr>
		<td>发件时间</td>
		<td><input type="text" class=Input readonly value="<%=ObjRS("CreateTime")%>" id=text1 name=text1></td>
	</tr>
	<tr class=Ltr id=TBody2 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 colspan=2>
	<input type=button class=button value="返 回" onclick="history.go(-1)"  id=button1 name=button1>		
	</td>
	</tr>
	</table>

	</form>
	
<%
	ObjDB.Close 
	Set ObjDB = Nothing
	end if
%>
<%'------------------------------------------------------------------%>
<%End Sub%>
<%'==================================================================%>
<!-- #include file="templet.asp" -->