addimg.asp

this a program about talent web database used asp and VB.

<!--#include file="tools.asp"-->
<%
set obj=server.CreateObject("lyfupload.uploadfile")
hid=obj.Request("hid")
fname=obj.Request("fname")
fname=cstr(fname)
obj.ExtName="jpg,gif"
path=server.MapPath("\mimages")
Response.Write path
if instr(fname,".jpg")>0 or instr(fname,".gif")>0 then
ss=obj.SaveFile("fname",path,true,"s"&hid&".jpg")
fname="s"&hid&".jpg"

else
errid="您上传的不是 gif 或 jpg 文件"
end if

%>