ASP FAQs and Answers (5)

1. ' Function: misplaced HTML characters
' Input: String
' Output: Formatted string
function HTMLEncode (fstring)
If not IsNull (fstring) Then
fstring = replace (fstring, ">", ">")
fstring = replace (fstring, "<", "&lt;")
fstring = Replace (fstring, CHR (&AMP;CHR), "&nbsp;&nbsp;")
fstring = Replace (fstring, CHR (9), "&nbsp;")
fstring = Replace (fstring, CHR (), "&quot;")
fstring = Replace (fstring, CHR (), "& #39;")
fstring = Replace (fstring, CHR (13), "")
fstring = Replace (fstring, CHR (a) & CHR (a), "</P><P>")
fstring = Replace (fstring, CHR (), "<BR>")
HTMLEncode = fstring
End If
End Function
2. Page-type
' Parameters: System (such as: product,article), condition (if it is numeric, default to CategoryID value), sorted,
' Show number of records per page, mode (more: Show more words, page: Show page navigation),
' Page navigation mode (number: Show numbers, page: Show previous page, next page), record display template name (the procedure name that displays the record)
Class List
Dim P_system ' system tables, such as Tblproduct,tblarticle
Dim P_where ' Condition
Dim P_orderby ' Sort
Dim P_recordcount ' shows the number of records per page
Dim P_horizontal ' shows the number of records per line
Dim P_mode ' list Mode, parameters: More (more mode, show more words), page (list mode, show page navigation)
Dim p_moreurl ' More Mode URL
Dim p_paginationmode ' page Navigation mode, Parameters: number (digital navigation, display such as: 1,2,3,4), page (page navigation, display such as: previous page, next page)
Dim p_models ' list template process
Table Label for Dim p_table ' list
Dim P_page ' Page Number
Dim P_member ' Show Member Products
Dim p_groupwhere

Private Sub Class_Initialize
P_system= ""
P_where= ""
p_orderby= "ORDER by Categoryid,orderby,postdate"
P_recordcount=15
P_horizontal=4
P_mode= ""
P_moreurl= ""
P_paginationmode= "Page"