asp ubound 高手帮帮忙啊

答案:2 悬赏:10 手机版

解决时间 2021-04-06 13:42

提问者网友：浩歌待明月
2021-04-05 16:22

<%
Dim filepath
Dim pic_topic

set upload=new upload_5xsoft

pictitle = upload.form("pictitle")

//set file=upload.file("picsc")
// file.saveas Server.mappath("upload/"&ufp)
// filepath = "manage/upload/"&ufp
set file=upload.file("picsc")

upfilename = split(file.FileName,".")

ufp="dsc"&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&upfilename(ubound(upfilename))
//错误就在这里,提示ubound函数下标越界
file.saveas Server.mappath("upload/"&ufp)

filepath = "manage/upload/"&ufp

piccontent = upload.form("piccontent")
content=replace(piccontent,"'","‘")

picsource = upload.form("picsource")

pic_date= date()

sql = "insert into picture (pic_title,pic_date,pic,pic_content,pic_soure)values('&pictitle&','&pic_date&' ,'&filepath&','&piccontent&','&picsource&')"
conn.execute(sql)
response.redirect "pic_list.asp"
%>

response.write(ubound(upfilename))
response.end
输入了返回值为-1

最佳答案

五星知识达人网友：往事隔山水
2021-04-05 16:50

upfilename = split(file.FileName,".")这句下面加一个输出

response.write(ubound(upfilename))
response.end

看看结果

全部回答

1楼网友：雪起风沙痕
2021-04-05 17:52

js数组里没有ubound，有length ubound是vbs数组里的 for (var i=0;i

我要举报

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

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