passuser2.asp

佳可商务购物程序v1.0

<!--#include file="conn.asp"-->
<%dim userid,username,szsheng,szshi,babysex
	userid=request.querystring("id")
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from [user] where userid="&userid ,conn,1,3
	username=rs("username")
	
'判断存不存在userinfo当前用户的目录
dim obj_fso,obj_File,cName
set obj_fso=server.createobject("scripting.filesystemobject")
if not obj_fso.folderexists(server.mappath("userinfo")) then 
	obj_fso.createfolder(server.mappath("userinfo"))
end if
cName=Server.MapPath("userinfo/"&username&".txt")
Set obj_File=obj_fso.CreateTextFile(cName,True)
obj_File.Writeline "用户ID　　　："&rs("username")
obj_File.Writeline "真实姓名　　："&rs("userzhenshiname")
obj_File.Writeline "电子邮件    ："&rs("useremail")
obj_File.Writeline "宝宝姓名　　："&rs("babyname")
obj_File.Writeline "宝宝生日　　："&rs("babybirth")
obj_File.Writeline "父亲姓名　　："&rs("username")

	set rs_s=server.createobject("adodb.recordset")
	rs_s.open "select * from szsheng where shengNo='"&rs("szsheng")&"'" ,conn,1,3
	szsheng=rs_s("shengname")
	rs_s.close
	set rs_s=nothing
	set rs_s=server.createobject("adodb.recordset")
	rs_s.open "select * from szshi where shiNo='"&rs("szshi")&"'" ,conn,1,3
	szshi=rs_s("shiname")
	rs_s.close
	set rs_s=nothing
	
obj_File.Writeline "所在省市　　："&szsheng&"--"&szshi
obj_File.Writeline "详细地址  　："&rs("shouhuodizhi")
obj_File.Writeline "邮编  　　　："&rs("youbian")
obj_File.Writeline "联系电话　　："&rs("usertel")
obj_File.Writeline "母亲姓名  　："&rs("momname")
obj_File.Writeline "母亲身份证　："&rs("momno")
obj_File.Writeline "预产期  　　："&rs("yuchan")
if rs("babysex")=0 then 
     babysex="男"
end if
if rs("babysex")=1 then 
     babysex="女"
end if
if rs("babysex")=3 then 
     babysex="----"
end if
obj_File.Writeline "宝宝性别  　："&babysex
obj_File.Close
Set obj_File=Nothing
set obj_fso=nothing
'清除资料
rs("youbian")=""
rs("shouhuodizhi")=""
rs("usertel")=""
rs("MomName")=""
rs("MomNo")=""
rs("yuchan")=""
rs("babysex")=3
rs("reglx")=3

rs.update
rs.close
set rs=nothing
response.write "<p align=center><font color=red>恭喜您!修改资料用户"&username&"审核成功<br>2秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content=""2;url=manageuser2.asp"">"
response.end
%>