showrecord.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 42 行

<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: [e-mail],[e-mail]
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<%
Dim id,MailSubject,MailBody,MailFormat,SEndTime
id=Request("id")

Sub showrecord()
	Set rs=Server.Createobject("adodb.recordset") 
	sql="select MailSubject,MailBody,MailFormat,SEndTime from record where id="&id 
	rs.open sql,conn,1,1   
		MailSubject=rs("MailSubject")
		MailBody=rs("MailBody")
		MailFormat=rs("MailFormat")
		SEndTime=rs("SEndTime")
	rs.close
	
	If MailFormat="txt" Then MailBody=Server.HTMLencode(MailBody)
End Sub

	Call loaderror()
	Call showwebdata()
	Call showrecord()
%> 
<title><%=webname%>| 历史记录-- <%=Server.HTMLencode(MailSubject)%></title>
<div align="center">
<%=MailBody%>
</div>