Regular
If you have not used regular expressions before, you may not be familiar with this term or concept. However, they are not as novel as you might think.Recall how you found the file on your hard disk. Are you sure you will use it? and *
Data | database | random "An example of a random reading of a record from a database
Set Rs1=server. CreateObject ("Adodb.recordset")
Set Rs=server. CreateObject ("ADODB.") RECORDSET ")
Sql= "Select ID from Article ORDER by id DESC"
Rs. Open
Data | Database ' Call method is:
function Safe (str) ' It is used to determine whether a variable passed over contains special characters and does not return true
Dim s_badstr, N, I
S_badstr = "' &<>?%,;:() ' ~!@#$^*{}[]|\/+-= ' CHR (CHR) (9) CHR (3
function | Function Article source: Viewpoint Design 8see.net
http://blog.8see.net/
REM---form hint function being-----------------------------
CODE Copy ...
Function Check_submit (STR,RESTR)
If str= "" Then
Response.Write ""
Response.End
Else
Check_
Sql| Program | function | function Rem # Long integer Conversion
Function Tonum (s, default)
If IsNumeric (s) and S <> "" Then
Tonum = CLng (s)
Else
Tonum = Default
End If
End Function
REM # SQL Statement conversions
Function Tosql (str)
If IsNull (
Serv-u applicable environment: The server disables the FSO, turns off the wscript.shelll, does not have the execution authority.
Restrictions: No change to the administrator's password or the password of the Serv-u administrator. Serv-u Default
Comparison | function
Function cpimages (countent) ' shows the picture in the articleBeginstr=instr (countent, "src=")Heodinstr=instr (Beginstr,countent, "")Countent=mid (countent,beginstr+4,heodinstr-beginstr-4)Cpimages=countentEnd Function
cookie| Script | solve | problem
The Self.window way to see the wings of lustIn fact, I've always had a way to never tell anyone:Played for a long time to announce the hehe:aspsky 3.0 Steal---c.z.y original Set send address: ▲ Send address form like:
Programming
1. Access to System time:
2. Access to the IP:
3. Access to the system, browser version:
4. Remove IE mixing strips:
5. Go to the website and jump out of the advertisement:
6. Random Number:
N is a number that
Upload | no components
Recently, some people have asked this kind of question, here to paste, content:1. database table Structure (Access):Userid:text (save uploaded file's user ID)Filecontenttype:text (used to save the type of upload file, eg:
Verification Code
Now you have to apply for a QQ number, you need to enter a very complex verification code: The verification code consists of a number of Chinese characters, plus the background of the Flower Mile Bluff, making some Chinese
Function
************************************' Get IP Address'************************************Function Userip ()Dim Getclientip' If the client uses a proxy server, you should use the ServerVariables (' Http_x_forwarded_for ') methodGetclientip =
Security | data | database | display
For example have styledesc this field, the data request is 50 bits, char shape, can limit him only 50 bits, other not limit, enter any character to be possible. As long as it's char, it's OK as long as the
Chinese Character | conversion
Conversion of ============= Chinese characters to utf-8==================
function Chinese2unicode (STR)For I=1 to Len (STR)Str_one=mid (str,i,1)STR_UNICODE=STR_UNICODECHR (38)STR_UNICODE=STR_UNICODECHR (35)STR_UNICODE=
No Components | no component Class Imgwhinfo ' Get a picture of the width and height of classes, support Jpg,gif,png,bmp
Dim ASO
Private Sub Class_Initialize
Set aso=server.createobject ("ADODB. Stream ")
ASO. Mode=3
ASO. Type=1
ASO. Open
End
GOOGLE|PR Value |GOOGLE|PR Value
google PR Value Query procedure
input URL, query Google PageRank value Input URLIf Trim (request.querystring ("act")) = "OK" thenDomain=trim (Request.Form ("domain"))If domain<> "" ThenResponse.Write ("" &domain& "
Procedures | anti-injection | anti-injection SQL injection is a taste of the novice-level so-called hacker masters, and finds that most hackers are now implemented based on SQL injection.
And, hey, who makes this easy to get started, well, don't
Menu | Menu Demo: http://goaler.xicp.net/demo/colspanmenu.asp
Class Menus
Public Title, ID, Image, Titlecolor, Target, Background, Headimage, Height, Width, bgcolor, Style
Private MenuItem, Menustr
Private Sub Class_Initialize
Title = ""
ID =
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.