changecom.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<%
if session("user")=""   then
response.Redirect "../login.asp"

end if
uname=session("user")
cname=session("company")
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from company where id="&id
rs.open sql,cn,1,3
'rs("uname")=trim(request.Form("uname"))
'rs("commm")=md5(trim(request.Form("commm")))
rs("cname")=trim(request.Form("cname"))
'rs("typ")=trim(request.Form("typ"))
'rs("hangye")=trim(request.Form("hangye"))
rs("http")=trim(request.Form("http"))
rs("faren")=trim(request.Form("faren"))

'rs("qq")=trim(request.Form("qq"))
rs("yewu")=trim(request.Form("yewu"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("msn")=trim(request.Form("msn"))
rs("fax")=trim(request.Form("fax"))
rs("address")=trim(request.Form("address"))
rs("post")=trim(request.Form("post"))
rs("inf")=trim(request.Form("inf"))
if trim(request.Form("pic"))<>"" then
rs("pic")=trim(request.Form("pic"))
end if
rs.update
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
rs.close
set rs=nothing
cn.close
set cn=nothing
%>