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