upload.asp
来自「文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。」· ASP 代码 · 共 22 行
ASP
22 行
<%@Language=VBScript %>
<HTML>
<BODY>
<%
Dim txtValue
Set obj = Server.CreateObject("upfile1.UploadFile")
txtValue = obj.request("text1")
Response.Write( "text2的输入值是： " & txtValue)
Response.Write "<P> </p>"
ss=obj.SaveFile("file1", "e:\test")
ss=obj.SaveFile("file2", "e:\test")
if ss<> "" then',"33.txt"
Response.Write "选择的文件已经上载到服务器！"
Response.Write(ss)
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("new.mdb")
response.write ("e:\test\" & ss)
'obj.savetodb "e:\test\" & ss,strConn,"select pic from demo"
end if
txtValue = obj.request("text2")
Response.Write( "text2的输入值是： " & txtValue)
%>
</BODY >⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?