Re: P2 -> P3

sArutiun 26.12.2003 10:08

На Р2
^macro[redirect;adduser.asp?user=^form[user]&pass=^form[pass]&desc=^mangle[^form[desc]]&back=/info.html?user=^form[user]]
и сам макрос
@redirect[url]
^header[refresh;0^;url=$url]

На Р3
$response:location[/adduser.asp?user=$form:user&pass=$form:pass&desc=$form:desc&back=users.html]

И сам asp
<%
Dim Comp
Dim Group
Dim User

Set Comp = GetObject("WinNT://PALATA, computer")
Set Group = GetObject("WinNT://PALATA/GroupIn,group")
Set User = Comp.Create("User", Request.QueryString("user"))

User.Description = Request.QueryString("desc")
User.SetPassword(Request.QueryString("pass"))
User.setinfo

Response.Redirect(Request.QueryString("back"))
%>

---