% if request("b1")<>empty then if request.Form("pho")<>"" then name1=request("name") sex=request("sex") pho=request("pho") sheng=request("sheng") crtime=now dsn="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("..\zdx123\tiezi.mdb")&";user id=admin;password=;" set conn=server.createobject("adodb.connection") mysql="insert into zhunuser(name,sex,pho,sheng,crtime) values('"&name1&"','"&sex&"','"&pho&"','"&sheng&"','"&crtime&"')" conn.open dsn conn.execute(mysql) response.redirect"view.asp" conn.close set conn=nothing else response.Write("请输入您的联系方式!") end if else %>