member_modi_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 88 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/UpLoadClass.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If

Server.ScriptTimeout=999
'建立上传对象
dim request2
set request2=New UpLoadClass
	'上传总大小为2M
	request2.TotalSize= 2097152
	'单文件最大1M
	request2.MaxSize  = 1048576
'允许上传的格式
request2.FileType = "jpg/gif/bmp/png"
'上传路径
request2.SavePath= "../uppic/zjlogo/"
request2.open
pic=request2.Form("pic")
oldpic=request2.Form("oldpic")
id=trim(request2.Form("id"))
ismember=trim(request2.Form("ismember"))
if ismember="" then
   ismember=0
end if
place=trim(request2.Form("place"))
if place = "" then
place = 0
end if
strzj=trim(request2.Form("zj"))
if strzj = "" then
strzj = 0
end if
indexzj=trim(request2.Form("indexzj"))
if indexzj= "" then
indexzj= 0
end if
opendataconn
'***************************判断上传
	if request2.Error=4 then
response.write"<SCRIPT language=JavaScript>alert('图片大小超过限制，上传失败！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
	end if
	if request2.Error=2 then
response.write"<SCRIPT language=JavaScript>alert('类型有误！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if

if pic<>"" then
if oldpic<>"" then
Dim fso1
			
			set fso1 = CreateObject("Scripting.FileSystemObject")
			fso1.DeleteFile Server.MapPath(request2.SavePath&oldpic)
			set fso1 = nothing
end if
sqlstr="update company set zj="&strzj&",zjlogo='"&pic&"' where id="&id&""
conn.execute sqlstr
sql="update company set indexzj='"&indexzj&"',zj='"&strzj&"',ismember="&ismember&",place="&place&",pwd='"&request2.Form("reg_password")&"',company='"&request2.Form("company")&"',question='"&request2.Form("question")&"',answer='"&request2.Form("answer")&"',mphone='"&request2.Form("mphone")&"',fax='"&request2.Form("fax")&"',name='"&request2.Form("name")&"',phone='"&request2.Form("tel")&"',email='"&request2.Form("email")&"',address='"&request2.Form("address")&"',url='"&request2.Form("url")&"',info='"&request2.Form("info")&"' where id="&id&""
conn.execute sql
else
sqlstr="update company set zj="&strzj&"  where id="&id&""
conn.execute sqlstr
sql="update company set indexzj='"&indexzj&"',zj='"&strzj&"',ismember="&ismember&",place="&place&",pwd='"&request2.Form("reg_password")&"',company='"&request2.Form("company")&"',question='"&request2.Form("question")&"',answer='"&request2.Form("answer")&"',mphone='"&request2.Form("mphone")&"',fax='"&request2.Form("fax")&"',name='"&request2.Form("name")&"',phone='"&request2.Form("tel")&"',email='"&request2.Form("email")&"',address='"&request2.Form("address")&"',url='"&request2.Form("url")&"',info='"&request2.Form("info")&"' where id="&id&""
conn.execute sql
end if

%>
<script language="javascript">
alert ('您的信息已修改！');
history.back();
</script>