ASP function Library
<%
"' Function directory '"
''''-----------------------------------------------''''
"' function id:0001[truncated string] '"
"' function id:0002[filter HTML] '"
"' function id:0003[open any data table and display the table structure and content] '
"' function id:0004[read both paths] '"
"' function id:0005[test whether a file exists" '
' Function id:0006[Delete a file '
"' function id:0007[to determine whether a directory exists] '
"' function id:0008[Create directory] '"
"' function id:0009[Delete directory] '"
' Function id:0010[the list of files in the specified directory] '
' function id:0011[the directory list of the specified directory] '
"' function id:0012[create text file] '"
"' function id:0013[read text file] '"
"' function id:0014[detect ID is a number type] '
"' function id:0015[regular expression test] '
"' function id:0016[get the name of the executing program] '
"' function id:0017[read User IP address information] '
"' function id:0018[upload file to specified directory and change file name] '
' Function id:0019[filter HTML script '
"' function id:0020[create msaccess database] '"
"' function id:0021[create MSSQLSERVER database] '"
"' function id:0022[through JMail letter '"
"' Function id:0023[test component Installation] '
"' Function id:0024[upload file window] '"
"' Function id:0025[get database link string] '
"' Function id:0026[get multipart/form-data form upload file]
"' Function id:0027[Save or view data uploaded to the database, with call to upload window]
"' Function id:0028[get the type of image | wide | high] '
' function id:0029[the local file into binary parsing and saving it to the server's specified directory.
' function id:0030[the local datasheet or library to the table in the server database.
"' Function id:0031[return server information] '"
"' function id:0032[a unique ID of 20-bit length" '
' function id:0033[for left padding of specified number of characters] '
' Function id:0034[for right padding of specified number of characters] '
' Function id:0035[format time (show)] '
' function id:0036[test database exists] '
"' function id:0037[test whether the table in the database exists] '
' Function id:0038[online HTML editor '
"' function id:0039[to determine whether an odd number] '"
"' function id:0040[generate CAPTCHA image bmp] '
"' function id:0041[generate random password] '
"' function id:0042[character alphanumeric decryption] '
"' function id:0043[decryption word alphanumeric decryption] '
"' function id:0044[Create datasheet] '"
"' Function id:0045[Insert field value in database] '
"' function Id:0046[cookie against garbled writing"
"' Function Id:0047[cookie anti-garbled read out use] '
"' function id:0048[detect if username and password are correct]
"' function id:0049[an integer that generates time] '
"" Function id:0050[to get all the columns of the column string and use "," separated]
'''' ''''
'''' ''''
'''' ''''
'**************************************************''''
' function id:0001[truncated string]
' Function name: SUBSTZFC
' function: truncated string, Chinese character one count two characters, English count a character
' Argument: str----Original string
' strlen----intercept length
' Return value: After the intercepted string
'**************************************************
Public Function SUBSTZFC (ByVal str, ByVal strlen)
If str = "" Then
SUBSTZFC = ""
Exit Function
End If
Dim L, T, C, I, strtemp
str = replace (replace (replace (str, "", ""), "", Chr (), ">", ">"), "<", "<")
L = Len (str)
t = 0
strtemp = str
strlen = CLng (strlen)
For i = 1 to L
c = Abs (ASC (Mid (str, I, 1))
If C > 255 Then
t = t + 2
Else
t = t + 1
End If
If T >= strlen Then
strtemp = left (str, i)
Exit for
End If
Next
SUBSTZFC = replace (replace (replace (strtemp, "", "), CHR (+)," ""), ">", ">"), "<", "<")
End Function
Current 1/8 page
12345678 Next read the full text
