一段ASP上传代码? 在本机上调试成功,在网络上就不行了

来源：百度知道 编辑：UC知道 时间：2024/05/30 10:29:20
form action="" method="post">
<br>选择你要上传到的类别:<br>
<%
Set rs1 = conn.Execute("select * from ptype order by pid")
%>
<%
dim bb
bb=0
do while not rs1.eof
bb=bb+1
%>
<input name="pho" type="radio" value="<%=rs1("pid")%>" checked ><%=rs1("pname")%>
<%
if bb=5 then
response.write "<br><br>"
end if
rs1.movenext
loop
rs1.close

set rs1=nothing

%>
<input type="radio" name="pho" value="15">我的作品
<input type="radio" name="pho" value="16">别人的作品
<br><br>
相片介绍:
<input type="text" name="intr" size="30"

确认你的空间是否支持FSO组件

---------------------------------
无组件上传（Up.asp）
---------------------------------
<%
dim Data_Upload

Class file_Upload

dim objForm,objFile

Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
End function

Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
End function

Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
set objForm=Server.CreateObject("Scripting.Dictionary"