openfile01.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<!--#include file="ConnectDB.asp" -->
<%
If Not Request("pId")="" Then
	Set rs=Server.CreateObject("ADODB.recordset")
	sql="select pid,ContentType,Data from FileLibrary where pID='" & trim(request("pId")) &"'"
	rs.open sql,conn,1,1 

	If Not (Rs.Eof And Rs.Eof) Then
		Response.ContentType = Rs("ContentType")
		Response.BinaryWrite rs("Data")
	End If

	rs.close 
	set rs=nothing 
	set conn=nothing
End If
%>