' 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/articlechar.inc Input Handler
./css/style Sheet
./images/Picture Catalogue
Inc/articlechar.inc
<%
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+ ""
Else
Result=result+ ""
End If
Else
Result=result+ ""
End If
Case Chr (9)
Result=result+ ""
Case Else
Result=result+mid (str,i,1)
End Select
Next
Htmlencode2=result
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 http://asp.on.net.cn/download/!
Hey! No money, double fly, Heart has change a little pain!
Author: o Source: <asp Dynamic Online > http://asp.on.net.cn/
Finish