readdoc.asp.bak

本示例综合展示了NTKO OFFICE文档控件所具有的发布为HTML

<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
	'从数据库中读取在线编辑的文件数据
	docid	= Request.querystring("docid")
	
	Dim	RS
	Set	RS = Server.CreateObject("ADODB.Recordset")
'	docid = Request.querystring("docid")
	if docid <> "" then
			RS.Open	"files", conn, adOpenStatic, adLockReadOnly	'open static for search,read only
			RS.Find	"fid=" &	docid
			If Not RS.EOF THEN
				Response.AddHeader "Content-Disposition","attachment; filename=" & RS("fname")
				Response.BinaryWrite(RS("fcontent"))
			end if
	ELSE
			docid = Request.querystring("templateid")
			RS.Open	"templates", conn, adOpenStatic, adLockReadOnly	'open static for search,read only
			RS.Find	"tid=" &	docid
			If Not RS.EOF THEN
			Response.AddHeader "Content-Disposition","attachment; filename=" & RS("tname")
			Response.BinaryWrite(RS("tcontent"))
	END IF
	RS.Close
	Set	Rs=	Nothing
	Closeconn()
%>