<% Function reStr(str) reStr=Replace(Trim(str),"'","''") End Function dim arr(3) dim upload,file,formName,formPath,iCount,filename,fileExt,i set upload=new upload_5xSoft ''建立上传对象 name=reStr(Upload.Form("name")) sex=reStr(Upload.Form("sex")) age=reStr(Upload.Form("age")) profession=reStr(Upload.Form("profession")) area=reStr(Upload.Form("area")) qq=reStr(Upload.Form("qq")) msn=reStr(Upload.Form("msn")) email=reStr(Upload.Form("email")) tel=reStr(Upload.Form("tel")) codes=reStr(Upload.Form("codes")) 'Response.Write name&" "&sex&" "&age&" "&profession&" "&area&" "&qq&" "&msn&" "&codes&" "&session("codes") 'Response.end If name="" Then Call MessageBox("请输入您的大名!","") Response.End End If If email="" Or IsValidEmail(email)=false Then Call MessageBox("请输入正确邮箱,以便站长与你联系!","") Response.End End If If msn<>"" And IsValidEmail(email)=False Then Call MessageBox("请输入正确MSN,如果没有请留空,","") Response.End End If If codes="" or CStr(codes) <> CStr(session("codes")) Then Call MessageBox("验证码不正确!","") Response.End End If formPath="UpFile/friends/" ''列出所有上传了的文件 set file=upload.file("file") If file.filename<>"" then ''''限制文件格式 fileExt=getExt(file.filename) Forum_upload="gif,jpg,jpeg" Forumupload=split(Forum_upload,",") for i=0 to ubound(Forumupload) if fileEXT=trim(Forumupload(i)) then uploadsuc=true exit for else uploadsuc=false end if Next if uploadsuc=false then response.write "文件格式受限制[请重新上传]" response.end end If ''''''''''''''' if file.filesize>0 then if file.filesize>1000*500 Then '限制图片上传大小 response.write "图片大小超过了限制[重新上传]" response.end end If uploadsuc=false end if filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&file.FileName path="UpFile/friends/"&FileName 'Response.write path 'Response.end if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath(formpath&filename) ''保存文件 end If Else path="" End If 'Response.Write "" 'Response.Write "" 'Response.Write "" set upload=Nothing Call save Sub save() set rs=Server.CreateObject("ADODB.Recordset") sql="select * from friends" rs.open sql,conn,1,3 rs.addnew rs("name")=name rs("sex")=sex rs("age")=tolong(age) rs("profession")=profession rs("area")=area rs("qq")=qq rs("msn")=msn rs("email")=email rs("tel")=tel rs("photo")=path rs.update rs.close session("codes")="" Call MessageBox("提交成功,等待站长和你联系吧!","aboutme.asp") End Sub %>