dbpath=server.mappath("db.mdb")
myconn.open "driver={Microsoft access driver (*.mdb)};dbq="&dbpath
SQL="select * from hostname where 用户名=''''"&vname&"''''"
set list=myconn.execute(sql)
%>
<% if list.eof then%>
<%
set rs=server.createobject("ADODB.RecordSet")
rs.Open "hostname", myconn, adOpenDynamic, 3
rs.addnew
rs("用户名")=vname
rs("密码")=vpass
rs("邮箱")=vemail
rs.update
rs.close
Set myfileobject=server.createobject("scripting.filesystemobject")
myfileobject.createfolder("e:club"&vname)
set afile=myfileobject.getfile("e:clubperson.htm")
afile.copy "e:club"&vname&"index.htm"
set afile=myfileobject.getfile("e:clubline113.gif")
afile.copy "e:club"&vname&"line113.gif"
set afile=myfileobject.getfile("e:clubbg11.gif")
afile.copy "e:club"&vname&"bg11.gif"
set afile=myfileobject.getfile("e:clubc24.gif")
afile.copy "e:club"&vname&"c24.gif"
set mytextfile=myfileobject.opentextfile("C:Program Filesserv-uServ-u.ini",8)
mytextfile.writeline("[USER="&vname&"]")
mytextfile.writeline("password="&vpass)
mytextfile.writeline("HomeDir=e:club"&vname)
mytextfile.writeline("RelPaths=YES")
mytextfile.writeline("ChangePassword=YES")
mytextfile.writeline("SpeedLimit=20480")
mytextfile.writeline("QuotaEnable=YES")
mytextfile.writeline("QuotaMaxCurrent=20971520,0")
mytextfile.writeline("TimeOut=600")
mytextfile.writeline("Access1=e:club"&vname&",RWAMCDLP")
Response.Redirect "welcome.htm"
response.end
%>
<%else%>
<center>对不起，您的用户名<%=vname%>已被他人所用，请您换一个用户名申请<P><a href="./">返回申请页面</a></p></center>
<%end if%>
</body>
</html>
3、注册成功页面welcome.htm
<html>
<head>
<title>OK</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg14.jpg">
<p align="center"><b><font color="#FF0000" size="7">恭喜您</font></b></p>
<p align="center"><img border="0" src="line761.gif" width="560" height="18"></p>
<p align="center"></p>
<p align="center">您已成功地申请了自己的个人主页</p>
<p></p><table width="451" border="0" align="center">
