Set Fso = Server.CreateObject("Scripting.FileSystemObject") '///打开文件
Set FileAll = Fso.OpenTextFile(server.mappath("Mail_Register.htm"), 1)
HtmlStr = FileAll.ReadAll
HtmlStr = Replace(HtmlStr,"Html_Username",Username)
HtmlStr = Replace(HtmlStr,"Html_Password",Password2)
Set Fso = Nothing