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

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

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

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


欢迎分享,转载请注明来源:夏雨云

原文地址:https://www.xiayuyun.com/zonghe/53576.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-02-25
下一篇2023-02-25

发表评论

登录后才能评论

评论列表(0条)

    保存