ASP

Copy Code code as follows: Name: School Number: 。。。 : 。。。 : Verification code: ASP code: Copy Code code as follows: C = Request.Form ("c") ' if you can enter a lowercase number, please

In fact, the static page here is not a true sense of static, but can reach the static page parsing efficiency, but also without project testing, to share. Copy Code code as follows: Const devjs_index= "Index.html" Const

Now there is an XML that has the following format: 1 ABC 2 CDE 3 EFG I use ASP query id=2, enter the value of the corresponding name, how can I write? Using ASP's Dim id Id= "2" Set objxml = Server.CreateObject

Dim Adata Adata = Array (3,2,4,1,6,0) Call Responsearray (Adata, "original order") Call Responsearray (Selectsort (adata), "select Sort") Call Responsearray (QuickSort (adata), "quick sort") Call Responsearray (Insertsort (adata), "insert

Get site User IP public static string Getuserip () { return httpcontext.current.request.servervariables["REMOTE_ADDR"]. ToString (); } Remove the last ', ' number of a string returns the processed string public static string Lost (String chr)

In ASP (VBScript as language), the ASC function returns a value less than 0 and can be judged as a Chinese character. The ASC function returns the ANSI character code corresponding to the first letter of the string. Copy Code code as follows:

'****************************** ' Function: Makepassword (ByVal maxlen) ' Parameter: maxlen, the length of the number of password digits to be generated ' Author: Arisisi ' Date: 2007/7/12 ' Description: Generate arbitrary digits of random passwords

'****************************** ' Function: removehref_a (HTMLSTR) ' Parameters: Htmlstr, string to remove link ' Author: Arisisi ' Date: 2007/7/12 ' Description: Remove all hyperlinks in the string ' Example: test ")%> '****************************

method One: CreateTextFile generate File Method Copy Code code as follows: Set Fso=server.createobject ("Scripting.FileSystemObject") Set Fp=fso.createtextfile (Server.MapPath (FileName), True) Fp.write (filecontent) End

Function procedure: Copy Code code as follows: ' Del.asp Dim fso,tmpfolder,tmpsubfolder,tmpfile,tmpfiles Set Fso=server. CreateObject ("Scripting.FileSystemObject") Sub Delfolder (spath) If (FSO). FolderExists (server. MapPath (spath)

These days is really a hole in the SQL injection to hurt God, online code a lot of not very esoteric is trouble. Finally found a universal anti-note code, sharing, hehe. Easy to operate, as long as a included or put into the conn.asp, to fix.

To use the ServerVariables property of the Request object, it is used to obtain the value of the environment variable. The syntax used is: request.servervariables (variable), "variable" means the name of the environment variable, such as server host

1. Enter backstage, style interface template Total Management, page_login,template.html (13) Password issues : forgotten password hints Questions Add the following code to these two sentences anti-forum mass must fill: to prevent the

by macro limit, the file must exist and will be precompiled (regardless of whether the preceding conditions are preceded) Often there are requirements to include different files according to different requirements, such as individual settings, so

Copy Code code as follows: Td=date () ' This is to set the current date, mainly for debugging convenience, the actual application can use the day date. Str= "123456 Days" ' Generate a specific number of weeks, depending on the location of

'//Data Processing Section Dim Content,num,i,strcodea I=request ("I") If Len (I) =0 then i=0 Response.Write " The program has now been looping through the" &I& "secondary data " Strcodea= ' uploadfiles/news '//need to query for strings

When the address bar has no parameter "id": Copy Code code as follows: request.querystring["ID"] = = NULL Convert.ToString (request.querystring["ID"]) = = NULL Note that this can be an error: request.querystring["ID"]. ToString

Because the code is relatively short, there is no comment here Copy Code code as follows: ' When the target page contains the file that is the #include page, there is response. End () There is a problem with this procedure ' NOTE: This

Program code: The following are the referenced contents: Copy Code code as follows: ' Search for keywords Str= "SELECT * FROM tablename where id>4" If srhkey<> "" Then Keyarr=split (Srhkey, "") J=ubound (Keyarr) T=0 Dim Keystrarr ()

Friday wrote a classified information of the small dongdong! Only IP addresses in the database, The average visitor is not sure which city the IP address originated from. If there is one more column in the table, there is no truth to it. It would be