gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\system_link_add.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 ''建立上传对象
  web_name=trim(upload.form("web_name"))
  web_url=upload.form("web_url")
  posi=upload.form("posi")
  if web_name="" or web_url="" then
   result=server.urlEncode("对不起，网站链接或者网址不能为空，请返回")
   Response.Redirect"result.asp?result="&result
  end if
  if posi=1 then
  set file=upload.file("logo")  ''生成一个文件对象
	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/link/"&file_name)   ''保存文件
		set file=nothing
		set upload=nothing 
		Set Rs=Server.CreateObject("Adodb.RecordSet")
        Rs.Open "link",conn,3,3
        Rs.AddNew
        Rs("logo")=file_name
        Rs("web_name")=web_name
        Rs("web_url")=web_url
		Rs("posi")=posi
		Rs.Update
		Rs.Close
		Set Rs=nothing
		Set conn=nothing
		Response.Redirect"system_link_manage.asp?posi="&posi
	else
	result=Server.urlEncode("对不起，网站图标为空，不能完成操作，请返回")
	Response.Redirect"result.asp?result="&result
	end if
  else 'link
   Set Rs=Server.CreateObject("Adodb.RecordSet")
        Rs.Open "link",conn,3,3
        Rs.AddNew
        Rs("web_name")=web_name
        Rs("web_url")=web_url
		Rs("posi")=posi
		Rs.Update
		Rs.Close
		Set Rs=nothing
		Set conn=nothing
		Response.Redirect"system_link_manage.asp?posi="&posi
  end if
   %>