")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString
End If
End Function
Function unHTMLEncode(fString)
If Not IsNull(fString) Then
Dim bwords,ii
'fString = replace(fString, ">", ">")
'fString = replace(fString, "<", "<")
fString = Replace(fString, " ", CHR(32))
fString = Replace(fString, " ", CHR(9))
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "
", CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
unHTMLEncode = fString
End If
End Function
'******************************************************************************************************************
function funPage(haveOrder,fstClass,secClass,strSqlPar,TitCount,TitNameArr,fileNameArr,PageSize,tabWidth,PreviousMark,NextMart,FirstMart,LastMart,borderWidth,hrefDelFilName,idName,hrefUpdFilName,haveDel,openFileName,haveOpen,LineLength,OpenLinkLogo,haveDateAndClass,haveTarget,ActionUrl)
'适用于后台 分页显示 具有修改，删除的超连
'haveOrder 1是否有排序
'fstClass 2一类名称
'secClass 3二类名称
'strSqlPar 4要传进来的SQl语句
'TitCount 5共有表头的个数
'TitNameArr 6表头的名 各名之间用全角“，”分隔
'fileNameArr 7要显示的字段名 各字段名之前用全角“，”分隔
'PageSize 8每页显示数据的数目
'tabWidth 9表格的宽度
'PreviousMark 10前一页的标记 就是前一页用什么表示
'NextMart 11后一页的标记 就是后一页用什么表示
'FirstMart 12首一页的标记 就是前一页用什么表示
'LastMart 13尾一页的标记 就是前一页用什么表示
'borderWidth 14表格边框的宽度
'hrefDelFilName 15删除时所提交的页 eg:FL_login_action.asp?ID
'idName 16超连接时要传的ID所对应的数据库中的字段名
'hrefUpdFilName 17超连接的地址和要传的参数名 eg: shopping_News.asp?ID=
'openFileName 18点标标题打开一个新页--新页文件的名字
'haveOpen 19是否有Open 一个新页的功能
'LineLength 20每一行显示的字数
'OpenLinkLogo 21显示出来列表前面的小标识
'haveDateAndClass 22标题后是否显示日期 可以向这里传class的名子 如果此参数为空则不显示日期
'haveTarget 23在点击修改时是否由TARGET
'ActionUrl 24接受的参数与
%>
<%
dim strSql,rs,i,j
dim Arr_TitHeadName,Arr_TitBodyName
dim CurrPage
dim inDateSpaceLeng,titLength,titleCon
dim UrlP_Name,UrlPval
'Response.Write "