photosave.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 70 行

ASP
70 行
字号 
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<%link="company_uploadlogo.asp"
sUploadDir=UpFilesPath("Company")%>
<!--#include file="checkcmember.asp" -->
<!--#include file="uploadfile_inc.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>保存Logo</title>
</head>
<body>
<%
 nn=""
 formsize = request.totalbytes
 formdata = request.binaryread(formsize)
 bcrlf = chrb(13) & chrb(10)
 divider = leftb(formdata, instrb(formdata, bcrlf) - 1)
 path = Server.MapPath(sUploadDir)
 filename = SaveFile("attachment",path,100)
 if filename = "" then error ="<p align=center><font color=red>图片大小不要超过100K！点击<a href='javascript:history.back()'>这里</a>返回重新输入</font></p>"
 if error <> "" then
  response.write "<br><br>"
  response.write error
  response.end
 end if     
%>
<%
Set rs= Server.CreateObject("ADODB.RecordSet")
sql="select * from JOB_Member where Member_login='"&Cmember_login&"'"
rs.open sql,conn,3,3
if rs.eof then '不存在则添加
 rs.addnew

 rs("Member_logocommand")=0
 rs("Member_logo")=nn
 if AdminLogCheckReg=1 then
 rs("Member_logostatus")=0
 else
 rs("Member_logostatus")=1
 end if
 rs.update
else
 company_logo=rs("Member_logo")
 if company_logo<>"" and not isnull(company_logo) then      '原来有图片
  set fileobject=server.createobject("scripting.filesystemobject")
  path=Server.MapPath(sUploadDir&company_logo)
  if fileobject.fileexists(path) then
   set afile=fileobject.getfile(path)
   afile.delete
  end if
 end if
 rs("Member_logo")=nn
 if AdminLogCheckReg=True then
 rs("Member_logostatus")=0
 else
 rs("Member_logostatus")=1
 end if
 rs("Member_logocommand")=0
 rs.update
end if
rs.close
set rs=nothing
response.redirect link
%>
</body>
</html>

photosave.asp - 源码说明

本页面展示了「嘉缘人才6.0精简 ,很好用的人才系统」中的 photosave.asp 源码文件，采用 ASP 编程语言编写，共 70 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与6.0相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?