DZone Snippets: asp code

jquery using asp server page to create xml file

excalibur (C Richards) — Tue, 15 Jul 2008 20:42:23 GMT

// jquery using asp server page to create xml file



labels.htm

   "http://www.w3.org/TR/html4/strict.dtd">;

 

   

     

     Address book

     

     

   

   

     

       


         Click here to load addresses

         

       

     

   

 



labels.asp

<%

Response.contenttype = "application/vnd.xml" 

Response.AddHeader "Content-Disposition", "filename=labels.xml" 

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write("The name"&vbcrlf)

response.write(""&vbcrlf)

response.write("45 Bryn Lane"&vbcrlf)

response.write("Hailey"&vbcrlf)

response.write("ID"&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write("Thomas Eliot"&vbcrlf)

response.write(""&vbcrlf)

response.write("3 Prufrock Lane"&vbcrlf)

response.write("Stamford"&vbcrlf)

response.write("CT"&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write("Langston Hughes"&vbcrlf)

response.write(""&vbcrlf)

response.write("10 Bridge Tunnel"&vbcrlf)

response.write("Harlem"&vbcrlf)

response.write("NY"&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write("Christopher Okigbo"&vbcrlf)

response.write(""&vbcrlf)

response.write("7 Heaven's Gate"&vbcrlf)

response.write("Idoto"&vbcrlf)

response.write("Anambra"&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

response.write(""&vbcrlf)

%>

Strip HTML tags from strings using Classic ASP and regular expressions

jeffreybarke (Jeffrey Barke) — Fri, 06 Jun 2008 19:23:20 GMT

From http://www.bpsdesigns.co.uk/tutorials/using-regular-expressions-with-classic-asp/



Function stripTags(HTMLstring)

	Set RegularExpressionObject = New RegExp

	With RegularExpressionObject

		.Pattern = "<[^>]+>"

		.IgnoreCase = True

		.Global = True

	End With

	stripTags = RegularExpressionObject.Replace(HTMLstring, "")

	Set RegularExpressionObject = nothing

End Function

ASP Page listing and making changes to AD accounts

bouffon69 (Sylvain Le Courtois) — Thu, 20 Sep 2007 07:02:54 GMT

// Used for automated AD account migration



Workstation User Account migration

href="files/v2006.css" type=text/css rel=stylesheet>





<%

' ------------------------------------------------------------------------

Const ADS_PROPERTY_CLEAR = 1



Const SOURCE_OU="ou=NT Users,ou=NT,dc=fr,dc=erm,dc=int"

Const TARGET_OU="ou=SUPPORT SERVICES,dc=fr,dc=erm,dc=int"



Const HOMES_PATH="\\frsrvfil0001\USERS\"

Const PROFILES_PATH="\\frsrvfil0001\PROFILES\"



Const ADMIN_HOMES_PATH_SOURCE="\\frsrvfil0001\U$\NT\"

Const ADMIN_PROFILES_PATH_SOURCE="\\frsrvfil0001\P$\NT\"

Const ADMIN_HOMES_PATH_DEST="\\frsrvfil0001\U$\"

Const ADMIN_PROFILES_PATH_DEST="\\frsrvfil0001\P$\"



Const SCRIPT_NAME="ntuser_to_xp.asp"



Dim State

State="Init"

Dim OU, Member

 

If Request.QueryString("login") <> "" Then

		' Affichage formulaire pour modif du compte

		State="Info"

End If

If Request.Form("login") <> "" Then

		' On a cliqué sur OK pour valider le formulaire

		State="Modify"

End If

' ------------------------------------------------------------------------

%>

border=0>






  
  
    

      






        
        
                      width=160> 
          



<%

	If State="Init" Then

	'-----------------------------------------------------------------------------------

	' Listing of the NT Users

	'-----------------------------------------------------------------------------------

%>          



                        border=0>









              
              
                

                    <%

                    'Response.Write(SOURCE_OU & "
") 

                    %>

					Please select the NT 4.0 Workstation user account to migrate

                
                
              
                

                                  <%

                  Set OU = GetObject("LDAP://" & SOURCE_OU)

                  OU.Filter = Array("user")

    	          For Each Member In OU

    	          		' Bug with the SMS Account ??

    	          		If Member.Name <> "CN=SMSService" Then 

    	          		If Member.AccountDisabled = 0 Then

	    	                Response.Write("" & Member.FullName & "
")

	    	            End If

	    	            End If 

            	  Next      

                  

                  %>



                
                
                
                



<%

End If

%>                

                

<%

	If State="Info" Then

	'-----------------------------------------------------------------------------------

	' Information page about the NT Users

	'-----------------------------------------------------------------------------------

%>          

			



                        border=0>





                  <%

                  Sub TabRow(v1,v2)

                  		Response.Write("")

                  		Response.Write("")

                  End Sub

                  Set Member = GetObject("LDAP://" & Request.QueryString("login") & "," & SOURCE_OU)


                  TabRow "User Name",Member.FullName

                  TabRow "NT Login",Member.sAMAccountName

				  TabRow "Login Script", Member.LoginScript & " (to delete)"

				  TabRow "Profile Path", Member.Profile

				  TabRow "New Path",PROFILES_PATH & Member.sAMAccountName

				  TabRow "Home Folder", Member.HomeDirectory

				  TabRow "New Path",HOMES_PATH & Member.sAMAccountName


				  ' Liste des OU dans SUPPORT SERVICES

 				  Dim OUSuppServices, Entity, BoxList

 				  Set OUSuppServices=GetObject("LDAP://" & TARGET_OU)

				  OUSuppServices.Filter = Array("organizationalUnit")

				  BoxList=""

				  TabRow "Organizational Unit",BoxList


                  %>



              
              
                

                 	<%

                 	Response.Write("Windows NT 4.0 User Account Migration")

                    %>

					

                
               
" & v1 & "")

                  		Response.Write(" " & v2 & "
				  
                                    

                
                

                


                 >

                

                 Cliquer ici pour migrer ce compte.



                ATTENTION, l'utilisateur ne doit pas être connecté ! 

                <% Response.Write("

" & "Cliquer ICI pour annuler" & "
") %>

                



<%

End If

%>                



<%



	If State="Modify" Then

	'-----------------------------------------------------------------------------------

	' Migration of the NT Users

	'-----------------------------------------------------------------------------------

Sub dirMoveTree(source, dest)

	Response.Write "Deplacement de " & source & " vers " & dest & "
"

	Dim Folder,File,SubFolder

	set Folder=fso.GetFolder(source)

	For Each File In Folder.Files

	      Response.Write File.Name & " File -> " & dest & "
"

	      file.move dest & "\"

	Next

	For Each SubFolder In Folder.SubFolders

	      Response.Write SubFolder.Name & " Folder -> " & dest & "
"

	      SubFolder.move dest & "\"

	Next

End Sub



%>          



Windows NT 4.0 User Account Migration



<%



' Modification des proprietes l'utilisateur dans AD

Set Member = GetObject("LDAP://" & Request.QueryString("login") & "," & SOURCE_OU)



' ADS_PROPERTY_CLEAR

Member.PutEx 1, "scriptPath", 0

Member.SetInfo



Member.Put "profilePath", PROFILES_PATH & Member.sAMAccountName

Member.Put "homeDirectory", HOMES_PATH & Member.sAMAccountName

' 

Member.SetInfo

' 

Response.Write("Utilisateur " & Member.sAMAccountName & " Modifié dans AD

")



' Deplacement dans le bon conteneur

Set OU = GetObject("LDAP://" & "OU=Users," & Request.Form("entity") & "," & TARGET_OU)

OU.MoveHere "LDAP://" & Request.QueryString("login") & "," & SOURCE_OU, Request.QueryString("login")

Response.Write("Utilisateur " & "LDAP://" & Request.QueryString("login") & "," & SOURCE_OU & " Deplacé dans " & "LDAP://" & "OU=Users," & Request.Form("entity") & "," & TARGET_OU & "

")



DIM fso, File, Folder, SubFolder

Set fso = CreateObject("Scripting.FileSystemObject")



' Creation des repertoires cible



fso.CreateFolder(ADMIN_HOMES_PATH_DEST & Request.Form("login"))

fso.CreateFolder(ADMIN_PROFILES_PATH_DEST & Request.Form("login"))



' Deplacement des données



dirMoveTree ADMIN_HOMES_PATH_SOURCE & Request.Form("login"),ADMIN_HOMES_PATH_DEST & Request.Form("login")

dirMoveTree ADMIN_PROFILES_PATH_SOURCE & Request.Form("login"),ADMIN_PROFILES_PATH_DEST & Request.Form("login")



' Applications des ACLs, en arriere plan car ca peut etre long !

Response.Write("
Creation du script d'application des ACLs C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd

")

Set server_shell = Server.CreateObject("wscript.shell")



server_shell.Run "cmd /c echo echo Excecution Cacls >C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1

server_shell.Run "cmd /c echo xcacls.exe """ & ADMIN_HOMES_PATH_DEST & Request.Form("login") & """ /T /C /G SYSTEM:F ADMINISTRATORS:F FR-ERM\" & Request.Form("login") & ":C /Y >>C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1

server_shell.Run "cmd /c echo xcacls.exe """ & ADMIN_PROFILES_PATH_DEST & Request.Form("login") & """ /T /C /G SYSTEM:F ADMINISTRATORS:F FR-ERM\" & Request.Form("login") & ":F /Y >>C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1



' server_shell.Run "C:\Inetpub\wwwroot\techcity\xcacls.cmd >C:\Inetpub\wwwroot\techcity\xcacls.log 2>&1",,1

Response.Write("
Les ACLs seront appliquee dans 5 min (scheduled)...

")

Response.Write("Attendre egalement la fin de replication de AD ...

")



Response.Write("
Terminé !
")



%>

<% Response.Write("

" & "Cliquer ICI pour quitter" & "
") %>



<%

End If

%>

Simple ASP page to reset passwords

bouffon69 (Sylvain Le Courtois) — Thu, 20 Sep 2007 07:01:29 GMT

// This page allows to reset an AD account password.



Reinitialisation de mot de passe

href="files/v2006.css" type=text/css rel=stylesheet>







border=0>



  
  
    

      




        
        
                      width=160> 
          

                        border=0>










              
              
                

                <%

                If Request.Form("login") = "" Then

                	Response.Write("Saisir le compte à reinitialiser")

                Else

                    Dim Group, Member, Domain, UserFound

                    ' 

                    Domain ="FR-ERM"

                    '

                    UserFound=0

                    

	                Set Group = GetObject("WinNT://" & Domain & "/Domain Users")

    	            For Each Member In Group.Members

    	            	' Response.Write(Member.Name & "
")

        	        	If UCase(Member.Name) = UCase(Request.Form("login")) Then

        	        		UserFound=1

        	        		If Member.AccountDisabled Then 

        	        			Response.Write(" " & Request.Form("login") &" est un compte desactive")

        	        			Exit For

        	        		Else

        	        			' Essai de reinit de mot de passe

        	        			Dim res

        	        			res=Member.SetPassword(Request.Form("pass"))

        	        			'Member.Put "pwdLastSet", CLng(0)

        	        			Member.Put "PasswordExpired", 1

								Member.SetInfo

        	        			Response.Write("L'utilisateur "& Request.Form("login") & " a changé de mot de passe !

Il devra changer de mot de passe au prochain login.")

        	        			Exit For

        	        		End If

        	        	End If 

            	    Next      

       	        	If UserFound = 0 Then

       	        		Response.Write(Request.Form("login") &" non trouvé dans le domaine "& Domain)

       	        	End If           	            	

                	

                End If

                %>

              

                
              
                Identifiant

               

                
                Nouveau mot de passe
              
                

 

                
                                  name=pass> 
                                  src="files/submit.gif" value=login border=0 name=ok>

Vbscript Array sort in alphabetical order

spearmahj (j) — Wed, 03 Jan 2007 09:59:03 GMT

// sort vbscript array



<%

dim arrSortOut(8)

arrSortOut(0)="xCount"

arrSortOut(1)="zExec"

arrSortOut(2)="yFinance"

arrSortOut(3)="HR"

arrSortOut(4)="IT "

arrSortOut(5)="!aaaLegal"

arrSortOut(6)="Liberman"

arrSortOut(7)="Martha"

arrSortOut(8)="Regis"



for x=0 to 8

response.write arrSortOut(x)&"
"

next



response.write "
"



for i = UBound(arrSortOut) - 1 To 0 Step -1

    for j= 0 to i

        if arrSortOut(j)>arrSortOut(j+1) then

            temp=arrSortOut(j+1)

            arrSortOut(j+1)=arrSortOut(j)

            arrSortOut(j)=temp

        end if

    next

next 





for x=0 to 8

response.write arrSortOut(x)&"
"

next



%>

Write all ASP page variables

spearmahj (j) — Tue, 02 Jan 2007 04:38:18 GMT

// description of your code here



<%

  Response.Write "Server Variables" & "

"

For Each strName in Request.ServerVariables

  Response.Write strName & " - " & Request.ServerVariables(strName) & "
"

Next



  Response.Write "Session Variables" & "

"

For Each strName in Session.Contents

  Response.Write strName & " - " & Session.Contents(strName) & "
"

Next



  Response.Write "Form Variables" & "

"

For Each strName in request.form

  Response.Write strName & " - " & request.form(strName) & "
"

Next



  Response.Write "String Variables" & "

"

For Each strName in request.querystring

  Response.Write strName & " - " & request.querystring(strName) & "
"

Next

%>

Simple FSO directory file listing

spearmahj (j) — Tue, 02 Jan 2007 04:28:41 GMT

// simple browsing tool



<%



dim aryURL, URLvar

aryURL = Split(Request.ServerVariables("SCRIPT_NAME"), "/", -1, 1)

URLvar = aryURL(ubound(aryURL))



if request.querystring("sPP")<>"" then 

	

	sPP=request.querystring("sPP") & "\"

	ParentVar="Parent Directory

" & vbCrLF

else

	sPP = "\\serverlocation\"

end if



	

	Set fso = CreateObject("Scripting.FileSystemObject")

	Set f = fso.GetFolder(sPP)  

	Set fc = f.Files 

	Set ff = f.SubFolders 

	For Each f1 in ff	

	  HeaderVar=HeaderVar& "" & f1.name & "  | " & vbCrLF

	Next  

	For Each f1 in fc

	  SubHeaderVar=SubHeaderVar& "" & f1.name & " 
" & vbCrLF

	Next  

	Set ff = nothing

	Set fso = nothing

	Set f = nothing

	Set fc = nothing





response.write ParentVar

if HeaderVar<>"" then response.write "Folders" & vbCrLF & "

 | " & vbCrLF & HeaderVar & "

" & vbCrLF

if SubHeaderVar<>"" then response.write "Files" & vbCrLF & "

" & vbCrLF & SubHeaderVar & vbCrLF



%>

SQL server ASP database test

spearmahj (j) — Tue, 02 Jan 2007 03:55:42 GMT

// basic sql server database asp code test



<%

str_ConnectionString = "Provider=SQLOLEDB;Data Source=servername;Initial Catalog=database;User Id=user;Password=pwd;"

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open str_ConnectionString



set rs = Server.CreateObject("ADODB.recordset")

strSQL="select * from tablename"



rs.Open strSQL, oConn



do until rs.EOF

	for each x in rs.Fields

		response.write x.value & "|"

	next

	rs.MoveNext

	response.write "
"

loop	



rs.Close



oConn.Close

set oConn = Nothing

%>

Auto-store all request variables

tonyenkiducx (Tony Cheetham) — Mon, 31 Jul 2006 21:04:08 GMT

// Puts all request variables into local variables. Never type request.querystring again. Easily modified to work with option explicit.



<%

	For each item in Request.querystring

		If not len(item) <= 0 Then

			Execute("[" & item & "] = Request(""" & item & """)")

		End If

	Next



	For each item in Request.form

		If not len(item) <= 0 Then

			Execute("[" & item & "] = Request(""" & item & """)")

		End If

	Next

%>

Find the count of a given character in a text string

Deane () — Thu, 23 Mar 2006 22:34:18 GMT

ASP / VBScript offers no built-in functionality for this.



CharacterCount = Len(MyString) - Len(Replace(MyString, TargetCharacter, ""))