readseal.asp

来自「本示例综合展示了NTKO OFFICE文档控件所具有的发布为HTML」· ASP 代码 · 共 30 行

<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<%
	'从数据库中读取在线编辑的文件数据
	id	= Request.querystring("id")
	
	Dim	RS
	Set	RS = Server.CreateObject("ADODB.Recordset")
		RS.Open	"seals", conn, adOpenStatic, adLockReadOnly	
	If id <>"" Then
		RS.Find	"sid=" & id
		If Not RS.EOF THEN
			response.ContentType = "application/octet-stream"
			'Response.AddHeader "Content-Disposition","attachment; filename=" & RS("sname")
			Response.BinaryWrite(RS("Imagefile"))
			
		end if
  	Else
  		id = Request.Querystring("sid")	
		RS.Find	"sid=" & id
		If Not RS.EOF THEN
			response.ContentType = "application/octet-stream"
			'Response.AddHeader "Content-Disposition","attachment; filename=" & RS("sname")
			Response.BinaryWrite(RS("espfile"))
			
		end if
	End If
	rs.close
	set rs = nothing
%>