uploadedittest.asp

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

<%@	Language=VBScript %>
<!--#include file="conn.asp"-->
<!-- #include file="upload.asp"	-->
<%

'创建文件上载对象,FileUploader类在upload.asp中定义
Set	Uploader = New FileUploader

'设置表单的字符集
Uploader.FormCharSet = "gb2312"

'执行上载
Uploader.Upload()
title = Uploader.Form("title")

If Uploader.Files.Count	= 0	Then
	Response.Write "没有上载的文件."
Else
	docid = Uploader.Form("docid") 	

	dim filename,dl,xl,lb
	lb = uploader.form("selecttype")
	Response.Write "docid="& docid & "<br>"
	Response.Write "Select * from dl where id="&lb	& "<br>"
	Response.Write "在线编辑的文件:	" & title & "<br>"
End	If

Set	Uploader = Nothing
Closeconn()
%>