addcom.asp

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

<!--#include file="cn.asp"-->
<!--#include file="func.asp"-->
<%

set rs=server.CreateObject("adodb.recordset")
sql="select * from company  where uname='"&trim(request.Form("uname"))&"'"
rs.open sql,cn,1,3
if  not rs.eof then
response.Write "<script language=javascript>alert('被注册的用户名！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
end if
rs.addnew
'用户信息
rs("uname")=trim(request.Form("uname"))
rs("commm")=md5(trim(request.Form("commm")))
rs("question")=trim(request.Form("question"))
rs("answer")=trim(request.Form("answer"))
'公司信息
rs("cname")=trim(request.Form("cname"))
rs("typ")=trim(request.Form("typ"))
rs("ptime")=trim(request.Form("py"))&trim(request.Form("pm"))&trim(request.Form("pd"))
rs("ontime")=trim(request.Form("ontime"))
rs("faren")=trim(request.Form("faren"))
rs("yewu")=trim(request.Form("yewu"))
rs("pic")=trim(request.Form("pic"))
'联系信息
rs("http")=trim(request.Form("http"))
rs("email")=trim(request.Form("email"))
rs("msn")=trim(request.Form("msn"))

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("inf")=trim(request.Form("inf"))
rs.update
response.Write "<script language=javascript>alert('注册成功！');window.location.replace('../login.asp');</script>"
response.Redirect "gx.asp"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
%>