文件上传代码有问题希望高手帮忙解决

答案:5 悬赏:80 手机版

解决时间 2021-04-22 15:56

提问者网友：wodetian
2021-04-22 00:49

<%
Dim upload
Set upload=Server.CreateObject("Persits.Upload")
upload.OverWriteFiles=False
upload.Save Server.MapPath("upfiles")
Dim strKind,strTitle,dtmSubmit,strFileName
strKind=upload.Form("txtKind")
strTitle=upload.Form("txtTitle")
dtmSubmit=upload.Form("txtTime")
If upload.Files.Count>0 Then
strFileName=upload.Files("fleUpload").FileName
Else
strFileName=""
End If
Dim strConn,conn
Set conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("WEBDATA.MDB")
conn.Open strConn
Dim strSql
strSql="Insert Into tbnews(strKind,strTitle,dtmSubmit,strFileName) Values('" & strKind & "','" & strTitle & "',#" & Date() & "#,'" & strFileName & "')"
conn.execute(strSql)
Response.Redirect "manageindex.asp"
%>

最佳答案

五星知识达人网友：零点过十分
2021-04-22 01:48

什么问题？你都没说嘛!

全部回答

1楼网友：千夜
2021-04-22 04:58

具体问题说出来，最还有代码！

2楼网友：廢物販賣機
2021-04-22 03:25

呵呵！这些问题真的让人摸不着头脑了。

3楼网友：青尢
2021-04-22 02:37

既然数字的兄弟回答了，我就顺便领点分，呵呵。

4楼网友：煞尾
2021-04-22 02:21

你的代码呢？

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息