ASP中会员注册时提交表单时自动生成文件夹和指定文件 如何能办到呢

Dim Folder_Name '文件夹名称 Folder_Name = "/"&Username&"/" '用户名 （你要的）Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF Not Fso.FolderExists(Cstr(Server.MapPath(Folder_Name))) Then'判断文件夹存在

Fso.CreateFolder(Folder_Name)

End IF IF Fso.FileExists(server.mappath(Folder_Name &inFileName)) then

Set oFile = Fso.OpenTextFile(server.mappath(addfile &inFileName))

Content = oFile.ReadAll

oFile.Close : Set Fout = Nothing

Else

'Response.Write server.mappath(p_templates_dir &inFileName)

response.write "<b>ASPTemplate Error: File [" &inFileName &"] does not exists!</b><br>"

End IF

Content = "要生成的文件内容"

Set Fout = Fso.CreateTextFile(Server.Mappath(Folder_Name &FileName))

Fout.Write Content &VbCrLf '生成

Fout.Close : Set Fout = Nothing

Set Fso = Nothing

<%

UserName=request("UserName")

Password=request("Password")

PwdConfirm=request("PwdConfirm")

if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then

errmsg=errmsg &"<br><li>请输入用户名(不能大于14小于4)</li>"

end if

if Password="" or strLength(Password)>12 or strLength(Password)<6 then

errmsg=errmsg &"<br><li>请输入密码(不能大于12小于6)</li>"

end if

end if

if PwdConfirm="" then

founderr=true

errmsg=errmsg &"<br><li>请输入确认密码(不能大于12小于6)</li>"end if

if Password<>PwdConfirm then

errmsg=errmsg &"<br><li>密码和确认密码不一致</li>"

end if

%>大致就是这意思。自己研究一下吧

---