📄 yewtzopenfile.asp

📁 一套asp办公小软件

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>欢迎来到《旅游学刊》网站</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2627" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#fbf9f0 leftMargin=0 topMargin=0 marginheight="0" 
marginwidth="0">
<!--#include file="Global.asp" -->
<%
	'设置文件的大小及MIME类型
	Function SetForDisplay(field, contentType)
		contentType = LCase(trim(contentType))
		nFieldSize = field.ActualSize
		bytes = field.GetChunk(nFieldSize)
		Session("Bytes") = bytes
		Session("Type") = contentType
	End Function
%>

<%  dim rs
	strSQL="select * from qiktp "
	set rs=server.CreateObject("adodb.recordset")
	rs.Open strSQL,conn,1,3
	
   '此处下载Word文档，将mime类型设置为"application/msword"
   	SetForDisplay rs("tup"), "image/pjpeg"
    Set rs= Nothing
%>
<% 
    '读取数据库中保存的内容
    response.Expires = 0
    response.Buffer  = True
    response.Clear
    response.contentType = Session("Type")
    response.BinaryWrite Session("Bytes")
    Session("Type") = ""
    Session("Bytes") = ""
    response.End
%></BODY>
&nbsp;</HTML><iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -