")
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)
'�����ں�̨ ��ҳ��ʾ �����ģ�ɾ���ij���
'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�����ӵĵ�ַ��Ҫ���IJ����� eg: shopping_News.asp?ID=
'openFileName 18�������һ����ҳ--��ҳ�ļ�������
'haveOpen 19�Ƿ���Open һ����ҳ�Ĺ���
'LineLength 20ÿһ����ʾ������
'OpenLinkLogo 21��ʾ�����б�ǰ���С��ʶ
'haveDateAndClass 22������Ƿ���ʾ���� ���������ﴫclass������ ����˲���Ϊ������ʾ����
'haveTarget 23�ڵ����ʱ�Ƿ���TARGET
'ActionUrl 24���ܵIJ�����
%>
<%
dim strSql,rs,i,j
dim Arr_TitHeadName,Arr_TitBodyName
dim CurrPage
dim inDateSpaceLeng,titLength,titleCon
dim UrlP_Name,UrlPval
'Response.Write "