ASP Introduction Supplementary article

Source: Internet
Author: User
Tags chr root directory
' Program table
'/represented as root directory

'/default.asp Home program, like the homepage of this site
./new/index.asp more Announcements
./new/addarticle.asp Add Announcements
./new/articleconn.asp Database Links
./new/chklogin.asp Administrator Authentication
./new/login.asp Admin Portal
./new/delete.asp Remove Programs
./new/manage.asp Administration Page
./new/savearticle.asp Save page
./new/inc/ Input Handler
./css/style Sheet
./images/Picture Catalogue

function Htmlencode2 (str)
Dim result
Dim l
If IsNULL (str) Then
Htmlencode2= ""
Exit function
End If
L=len (str)
Result= ""
Dim i
For i = 1 to L
Select Case Mid (str,i,1)
Case "<"
Result=result+ "<"
Case ">"
result=result+ ">"
Case Chr (13)
result=result+ "<br>"
Case Chr (34)
result=result+ "" "
Case "&"
result=result+ "&"
Case Chr (32)
' Result=result+ ' "
If I+1<=l and i-1>0 then
If Mid (str,i+1,1) =CHR or mid (str,i+1,1) =CHR (9) or mid (str,i-1,1) =CHR (?) or mid (str,i-1,1) =CHR (9) Then
Result=result+ ""
Result=result+ ""
End If
Result=result+ ""
End If
Case Chr (9)
Result=result+ ""
Case Else
Result=result+mid (str,i,1)
End Select
End Function

Ahan's saliva is dry, I do not know you understand no! Xi...xi ...
Home Update source program can be downloaded in this site!
Hey! No money, double fly, Heart has change a little pain!

Author: o Source: <asp Dynamic Online >


Related Article

Contact Us

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: 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

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.