gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\source_\admin\zhaopinhui_add_todata.asp
<!--#include FILE="../inc/upload_5xsoft.inc"--> <!--#include file="../inc/conn.asp"--> <!--#include file="session.asp"--> <% dim upload,file,formName,formPath,iCount set upload=new upload_5xSoft ''建立上传对象 title=trim(upload.form("title")) pic_internet=upload.form("pic_internet") author=upload.form("author") body=upload.form("body") if title="" then result=Server.urlEncode("新闻标题不能为空,请返回填写完整") Response.Redirect"result.asp?result="&result end if if body="" then result=Server.urlEncode("新闻内容不能为空,请返回填写完整") Response.Redirect"result.asp?result="&result end if if pic_internet<>"http://" then pic=pic_internet end if 'Response.write title&radiopic&pic_internet&author&body&pic 'Response.End set file=upload.file("pic_local") ''生成一个文件对象 if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file_exs=split(file.FileName,".") file_exname=file_exs(UBound(file_exs)) if not (file_exname<>"gif" or file_exname<>"jpg" or file_exname<>"jpg" or file_exname<>"bmp") then result=Server.urlEncode("只能上传格式为gif,jpg或者bmp的图象,请返回") Response.Redirect"result.asp?result="&result end if if file.FileSize/1024>900 then result=Server.urlEncode("只能上传大小为900k以内的图象,请返回") Response.Redirect "result.asp?result="&result end If file_name=year(now())&month(now())&day(now())&minute(now())&second(now())&"."&file_exname file.SaveAs Server.mappath("\images\news_pic\"&file_name) ''保存文件 set file=nothing set upload=nothing ''删除此对象] pic="\images\news_pic\"&file_name '把文件名付给pic,准备存入数据库 end if Set Rs=Server.CreateObject("Adodb.RecordSet")'保存到数据库 Rs.Open "zhaopinhui",conn,3,3 Rs.AddNew Rs("title")=title Rs("author")=author Rs("pic")=pic Rs("body")=body Rs("up_time")=now() Rs.Update Rs.Close Set Rs=nothing Set conn=nothing Response.Redirect"zhaopinhui_manage.asp" %> <html></html>