zhuce1.asp

利用Dreamweaver、Flash、Photoshop等软件编辑

<%
dim cnstring,sql
set cn=server.createobject("adodb.connection")
name=request("yhm")
passwd=request("mm")
qrmm=request("qrmm")
sex=request("sex")
age=request("age")
address=request("add")
web=request("web")
email=request("email")
qq=request("qq")
if passwd<>qrmm then
   response.write("两次输入密码不一致！请重新输入！")
end if
sql="insert into usertype(name,passwd,sex,age,address,web,email,qq) values('"&name&"','"&passwd&"','"&sex&"','"&age&"','"&address&"','"&web&"','"&email&"','"&qq&"')"

cn.open application("dsn")
cn.execute sql,cn
response.write("注册成功！谢谢你的支持！")
%>