changecom.asp

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

<!--#include file="cn.asp"-->
<!--#include file="func.asp"-->
<%
id=request.QueryString("id")
if session("admin")="" then
response.Write "<script language=javascript>alert('非法用户！');window.open('login.htm');</script>"
response.End()
cn.close
set cn=nothing
end if
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("money")=trim(request.Form("money"))
'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("fax")=trim(request.Form("fax"))
rs("address")=trim(request.Form("address"))
rs("post")=trim(request.Form("post"))
rs("ontime")=rs("ontime")+trim(request.Form("addt"))
rs.update
response.Write "<script language=javascript>alert('修改成功！');history.go(-2);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
%>