📄 upload.asp
字号:
<%@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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -