gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\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>