I hope you support click Ads!
A few days ago, a friend in the group asked how to implement the Mailbox Access feature on the Web page, which is now being downloaded from the Web site. This is HTML code. Do you see this feature on some pages when you
'******************************
' Function Checkip (CINPUT_IP,CBOUND_IP)
' Created by Qqdao, Qqdao@263.net 2001/11/28
' Description: First you need to be based on the number loop, and then determine if there is a "-", if there is a split processing,
Recently on the Internet a number of collection procedures, more people holding these things online, many people who do not know how to look at those procedures to envy, in fact, if you understand some ASP, understand the principle of automatic
1.MS SCRIPT ENCODE
Basically no use, a section of JS can be cracked
2. Encapsulated as DLL
A more feasible method, there is a VB encapsulated into a DLL example, and no need to change a lot of code, easy to modify, the call is also very simple.
Online Registration Demo
Dim smessage
If Request.Form ("Cmdadduser") <> "" Then
Dim Omduser
Dim Omduserinfo
Dim Nresult
Dim Sfullname
Dim sUserName
Dim Spassword
Sfullname = Request.Form ("Txtfullname")
sUserName = Request.Form
So I landed the management panel of the host, restarted the website service, the ldb file disappears, the website opens also normal, but after a few hours, the website again appeared above situation, this kind of situation lasted for a long time,
In this configuration we want to implement keyword case-insensitive search and highlight to use the ASP's regular processing, see the following code:
Copy Code code as follows:
Function Takeout (patrn,string1,colors)
' Extract search
Class Topicmodel
Public Onview
Public Function Load (ID)
IF Not (Isevent (Onview)) Then
Onview (1)
End IF
End Function
Function isevent (evnet)
Isevent = IsEmpty (evnet)
End Function
End Class
Sub Updateviewcounter (value)
Response.Write ("Counter
Copy Code code as follows:
'==============================
' Feature Description: Remove HTML tags with regular
' Cannot keep and so on and user-defined
'==============================
Function Removehtmltag (fstring)
Dim RE
Set re =
Write a generic ASP anti-injection program select from Ph4studio Blog
Generic ASP anti-injection program for keyword writing
Source
SQL injection was played by the novice-level so-called hacker masters, and found that most hacking is now done based
ASP Operation Excel Technology Summary
Directory
First, the Environment configuration
The basic operation of ASP to Excel
ASP operation Excel to generate datasheet
Iv. ASP operation Excel generates chart diagram
Five, server-side Excel file
A few days ago, when I was doing a project, I encountered a problem and wanted to see the name attribute displayed by the server control on the client in asp.net. At first, the feeling is not very difficult to find, but is not found, after several
QQ mailbox POP3 and SMTP server address settings are as follows: Mailbox POP3 Server (port) SMTP server (port) Qq.compop.qq.comsmtp.qq.comSMTP server requires authentication.
If you are setting up SSL encryption for POP3 and SMTP, the ports are as
The common processing method is, in the user login, judge whether this user has already existed in the application, if exists on the error, does not exist then adds to the application (application is all session common, A unique object for the
I.. Net Framework
1. How to obtain a system folder
Use the GetFolderPath method of the System.envioment class, for example:
Environment.getfolderpath (Environment.SpecialFolder.Personal)
2. How to get the path of an EXE file being executed
1
' ###### #以下是一个类文件, the following annotation is the method of calling the class ################################################' # Note: If the system does not support the creation of Scripting.FileSystemObject objects, then the database
'******************************
' Function: Userip ()
' Parameters: None
' Author: Arisisi
' Date: 2007/7/12
' Description: Get client IP Address
' Example:
'******************************
Function Userip ()
Dim Getclientip
' If the client uses a
Look directly at the code:
Copy Code code as follows:
Class Googletranslator
Sub Class_Initialize ()
Ruri= "Http://translate.google.com/translate_t?langpair={0}&text={1}"
End Sub
Private Opt_ '
Property Get Opt
Opt=opt_
End
The following is the code, if you do not understand, we suggest that the form of some of the table principles are clear, you can
Copy Code code as follows:
Dim Rs,sqltext
Set rs = Server.CreateObject ("Adodb.recordset")
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.
A Free Trial That Lets You Build Big!
Start building with 50+ products and up to 12 months usage for Elastic Compute Service