より実用的な ASP 関数コレクション クラス

最近Webサイト作りにはまっていて、ASPを使って開発をしているのですが、ASPには抜け穴が多く、Webサイト内で使い回されているコードが多いことに気づきました。クラスは ASP で使用できるので、このクラスを作成しました。うまく書かれていませんが、非常に実用的です。

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Const Btn_First="<font face='webdings'>9</font>" '最初のページ ボタンの表示スタイルを定義します
Const Btn_Prev="<font face='webdings'>3</font>" '前ページ ボタンの表示スタイルを定義します
Const Btn_Next="<font face='webdings'>4</font>" '次のページ ボタンの表示スタイルを定義します
Const Btn_Last="<font face='webdings'>:</font>" '最後のページ ボタンの表示スタイルを定義します。

Class clsDSJ
プライベート p_Error、p_IpAdd、p_Debug、Errs
プライベート p_InvaildWords
プライベート tmpStr
プライベート objConnDivPage、rsDivPage、p_GetSQL、p_nPage
プライベート p_rsPageSize、p_intCurPage、p_strURL、p_intTotalPage、p_intTotalRecords
プライベート p_dbType、p_dbFolder、p_DataBase、dbPath、p_dbUserID、p_dbPassword、p_sqlDataSource
プライベート param_DataBase、param_dbUserID、param_dbPassword、param_dbType
'財産
パブリック objConn、ConnStr、SQLQueryNum
公開ログDB、WebURL
公開保存ログ
パブリック ErrCode、ErrCode、ErrMsg
パブリック スクリプト フォルダ、スクリプト名

プライベートサブクラス_初期化
p_Debug=True
クライアント接続済み
ログ保存=True
ErrMsg=""
p_エラー=0
SQLQueryNum=0
Rem データベース接続の初期化
dbType=12 '1x—Access、2x—SQL、x1—OLEDB、x2—ODBC を取得します。
dbFolder="データ"
DataBase="zhubizidatabase.MDB"
dbUserID=""
dbパスワード=""
sqlDataSource=""
p_rsPageSize=10
'p_nページ=2
request("page")="" の場合
p_intCurPage=1
ElseIf NOT IsNumeric(request("page")) then
p_intCurPage=1
ElseIf CInt(Trim(request("page")))<1 then
p_intCurPage=1
それ以外
p_intCurPage=CInt(Trim(request("ページ")))
終了の場合
WebURL=" http://blog.csdn.net/alonesword/ "
tmpStr=Request.ServerVariables("PATH_INFO")
tmpStr=Split(tmpStr,"/",-1)
ScriptName=Lcase(tmpStr(UBound(tmpStr)))
ScriptFolder=LCase(tmpStr(UBound(tmpStr)-1)) & "/"
p_InvaildWords=" select|update|delete|insert|@|--|;|'|#|%|xp|cmd|shell "
エンドサブ

プライベートサブクラス_terminate()
IsObject(rsDivPage) の場合、rsDivPage.Close:Set rsDivPage=Nothing
IsObject(objConn) then objConn.Close:Set objConn=Nothing
End Sub

パブリック プロパティ バージョンの取得
バージョン = "DSJ 1.1.0 ベータ版"
終了プロパティ

パブリックプロパティ取得エラー
エラー=p_エラー
終了プロパティ

Public プロパティ デバッグの取得
デバッグ=p_Debug
終了プロパティ
Public プロパティ Let Debug(BoolDebug)
If BoolDebug then
p_Debug=True
それ以外
p_Debug=False
終了の場合
終了プロパティ

Public プロパティ Get dbType
dbType=p_dbType
終了プロパティ
Public プロパティ Let dbType(lngdbType)
IsNumeric(lngdbType) の場合
p_dbType=lngdbType
それ以外
p_dbType=12
終了の場合
終了プロパティ

Public プロパティ Get dbFolder
dbFolder=p_dbFolder
終了プロパティ
Public プロパティ Let dbFolder(strFolder)
Right(strFolder,1)="" または Right(strFolder,1)="/" の場合
p_dbFolder=strフォルダー
それ以外
(NOT IsNull(strFolder)) または (strFolder<>"") の場合
p_dbFolder=strFolder & ""
それ以外
p_dbFoler=""
終了の場合
終了の場合
終了プロパティ

パブリック プロパティのデータベースの取得
データベース=p_dataBase
終了プロパティ
Public プロパティ Let Database(strDataBase)
p_dataBase=strDatabase
終了プロパティ

Public プロパティ Get dbUserID
dbUserID=p_dbUserID
終了プロパティ
Public プロパティ Let dbUserID(strDataBaseUserID)
p_dbUserID=strDataBaseUserID
終了プロパティ

Public プロパティ Get dbPassword
dbPassword=p_dbPassword
終了プロパティ
Public プロパティ Let dbPassword(strDataBasePassword)
p_dbPassword=strDataBasePassword
終了プロパティ

Public プロパティ Get SQLDataSource
SQLDataSource=p_sqlDataSource
終了プロパティ
Public プロパティ Let SQLDataSource(strSQLDataSource)
strsqlDataSource<>"" の場合、次に
Left(p_dbType,1)=2 の場合
p_sqlDataSource=strSQLDataSource
それ以外
エラーコードの追加(110)
p_sqlDataSource=""
終了の場合
終了の場合
終了プロパティ

Public プロパティ Let PageSize(int_PageSize)
IsNumeric(Int_Pagesize) の場合
p_rsPageSize=CLng(int_PageSize)
終了の場合
終了プロパティ
Public プロパティ Get PageSize
p_rsPageSize="" または NOT IsNumeric(p_rsPageSize) の場合
ページサイズ=8
それ以外
PageSize=p_rsPageSize
終了の場合
End プロパティ

Public プロパティ Get GetRs()
デバッグしない場合は、エラーが発生したら次を再開します
IsObject(objConn) でない場合は、ConnectionDataBase dbDataBase、dbUserID、dbPassword、dbType
IsObject(rsDivPage) ではない場合
Set rsDivPage=Server.createobject("adodb.recordset")
rsDivPage.Open GetSQL,objConn,1,1
rsDivPage.PageSize=ページサイズ
そうでない場合 (rsDivPage.eof および rsDivPage.BOF)
p_intCurPage>rsDivPage.PageCount の場合
p_intCurPage=rsDivPage.PageCount
終了の場合
rsDivPage.AbsolutePage=p_intCurPage
終了の場合
エラーの場合はその後
エラークリア
rsDivPage.Close
rsDivPage=Nothing を設定します
ログを保存する場合は、
tmpMsg="データベースへの接続エラー。クエリ コードが正しいか確認してください。<br>セキュリティ上の理由から、このメッセージのみが表示されます。詳細なエラー メッセージを表示するには、dsj.Debug=True を設定してください。"
Response.Write SaveSQLLog(cmd,tmpMsg)
それ以外
Response.Write "データベースへの接続エラー。クエリ コードが正しいかどうかを確認してください。"
終了の場合
Response.End()
終了の場合
SQLQueryNum=SQLQueryNum+1
GetRs=rsDivPage を設定します
終了の場合
終了プロパティ

Public プロパティ Let GetSQL(str_sql)
str_sql<>"" の場合、次に
p_GetSQL=str_sql
それ以外
エラーコードの追加(111)
デバッグの場合は ShowErrMsg()
p_GetSQL="GetSQL のプロパティが NULL です。"
終了の場合
終了プロパティ
パブリック プロパティ Get GetSQl()
GetSQL=p_GetSQL
終了プロパティ

「******************************」
'名前: gotTopic
'パラメータ: str、strlen
'戻り値: 制限された文字列
'作成時期：2005年3月3日
'機能: 制限された文字列を制限します
「******************************」
パブリック関数 GotToPic(str,strlen)
Rem は文字列の表示長を特定の範囲に制限します
Dim i、StringLen、CharSize、EchoCharType
StringLen=len(str)
文字サイズ=0
i=1 の場合は StringLen まで
EchoCharType=Abs(Asc(Mid(str,i,1)))
EchoCharType>255 の場合
文字サイズ=文字サイズ+2
それ以外
文字サイズ=文字サイズ+1
終了の場合
CharSize>strlen の場合
gotTopic=Left(str,i) & "..."
出口
それ以外
gotTopic=str & ""
終了の場合
次
終了機能

「******************************」
'名前: ChkInvStr
'パラメータ: Str
'戻り値: True/False
'作成日時: 2005 年 5 月 2 日
'機能: パラメータに不正な文字が含まれているかどうかを確認します
「******************************」
パブリック関数 ChkInvStr(Str)
Rem はフィルタリングが必要な不正な文字を定義しています
Dim InvaildWord、inWords、i
Str=CStr(Str)
ChkInvStr=False
If Len(Replace(p_InvaildWords,Chr(0),""))<1 then
AddErrorCode(103) 'invaildwords が null です
終了関数
それ以外
Instr(1,p_Invaildwords,"|")>0 の場合
InvaildWord=Split(p_InvaildWords,"|")
inWords=LCase(Trim(Str))
i=LBound(InvaildWord) から UBound(InvaildWord) の場合
Instr(inWords,InvaildWord(i))>0 の場合
p_Error=1982
エラーコードの追加(105)
ChkInvStr=True
終了関数
終了の場合
次
それ以外
AddErrorCode(104) '"|" は必須です。
終了関数
終了の場合
終了の場合
終了機能

「******************************」
'名前: GetIP
'パラメータ: NULL
'戻り値: NULL
'作成日時: 2005 年 5 月 3 日
'機能: ユーザーの IP アドレスを取得します
「******************************」
パブリック関数 GetIP()
p_IpAdd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IsNull(p_IpAdd) OR p_IpAdd="" の場合
p_IpAdd=Request.ServerVariables("REMOTE_ADDR")
終了の場合
GetIp=p_IpAdd
終了機能

「******************************」
'名前: IPアドレス
'パラメータ: 一口
'戻り値: 郡、市
'機能: データ内容の植字と変換
'作成日時: 2005 年 5 月 6 日
出典: www.downcodes.com
「******************************」
パブリック関数IPアドレス(sip)
ディム IPConnStr、IPConn、IPAddressDB
薄暗い str1、str2、str3、str4
ディムナム
薄暗い国、都市、住所
ディム IPR、SQL
アドレス=「不明」
If IsNumeric(Left(sip,2)) then
sip="127.0.0.1" の場合、sip="192.168.0.1"
str1=Left(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=Left(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=Left(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
isNumeric(str1)=0 または isNumeric(str2)=0 または isNumeric(str3)=0 または isNumeric(str4)=0 の場合
それ以外
数値=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
IPAddressDB = "DSJ_Ipaddress.mdb"
IPConnStr = "プロバイダ = Microsoft.Jet.OLEDB.4.0;データ ソース = " & Server.MapPath(p_dbFolder & IPAddressDB)
IPConn = Server.CreateObject("ADODB.Connection") を設定します。
IPConn.Open IpConnStr
国=「アジア」
都市 = "
sql="DSJ_IPAddress から上位 1 位の国、都市を選択します。ここで、ip1 <="&num&" および ip2 >="&num&""
IPRs=IPConn.execute(sql) を設定します。
そうでない場合 (IPRs.EOF および IPRs.bof)
国=知的財産権(0)
都市=IPR(1)
終了の場合
IpRs.Close:IPRs=Nothing を設定します
IPConn.CLose:IPConn = なしを設定します
SqlQueryNum = SqlQueryNum+1
終了の場合
IPアドレス=国&都市
終了の場合
終了機能

「******************************」
'名前: クライアント接続
'パラメータ: NULL
'戻り値: NULL
'作成日時: 2005 年 5 月 5 日
'機能: ユーザーがサーバーに接続しているかどうかを取得します
「******************************」
Public Sub ClientConnected()
Response.IsClientConnected の場合
Response.Flush()
それ以外
Response.End()
終了の場合
エンドサブ

「******************************」
'名前: ChkPost
'パラメータ: NULL
'戻り値: True/False
'作成日時: 2005 年 5 月 5 日
'機能: 送信されたデータのソースを確認します
「******************************」
パブリック関数 ChkPost()
薄暗いサーバー_v1、サーバー_v2
ChkPost=False
Server_v1=CStr(Request.ServerVariables("HTTP_REFERER"))
Server_v2=CStr(Request.ServerVariables("SERVER_NAME"))
Mid(Server_v1,8,Len(Server_v2))=Server_v2 の場合、ChkPost=True
終了機能

「******************************」
'名前: AddErrorCode
'パラメータ:エラーコード
'戻り値: ErrCodes
'作成日時: 2005 年 5 月 3 日
'機能: ErrCodes にエラーコードを追加します。
「******************************」
パブリックサブAddErrorCode(ErrCode)
ErrCodes="" の場合
エラーコード=エラーコード
それ以外
ErrCodes=エラーコード & "," & エラーコード
終了の場合
エンドサブ

「******************************」
'名前: ShowErrMsg
'パラメータ: NULL
'戻り値: NULL
'作成日時: 2005 年 5 月 3 日
'機能: 詳細なエラー情報を表示します
「******************************」
パブリック関数 ShowErrMsg()
p_Debug でない場合は、エラーが発生したら次を再開します
ErrCodes<>"" の場合、
iErrCodes=Split(ErrCodes,",",-1,バイナリ)
i=LBound(iErrCodes) から UBound(iErrCodes) の場合
tmpErrCode=CLng(iErrCodes(i))
IsNumeric(tmpErrCode) の場合
ErrMsg=ErrMsg & ErrDetails(tmpErrCode)
終了の場合
次
終了の場合
ShowErrMsg=ErrMsg
終了機能

「******************************」
'名前: 接続データベース
'パラメータ:DataBase、p_dbUserID、p_dbPassword、p_dbType
'戻り値: NULL
'機能: データベースに接続します
'作成日時: 2005 年 5 月 6 日
「******************************」
パブリック関数 ConnectionDataBase(param_DataBase,param_dbUserID,param_dbPassword,param_dbType)
p_Debug でない場合は、エラーが発生したら次を再開します
クライアント接続済み
IsNumeric(param_dbType) の場合
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionTimeOut=10 '接続タイムアウトを 10 秒に設定します
dbPath=Server.MapPath(p_dbFolder&param_DataBase)
'応答.dbPath の書き込み
大文字と小文字の選択 param_dbType
ケース 11: 「データベースへのアクセス(OLEDB)」
ConnStr="Provider=Microsoft.Jet.Oledb.4.0;データ ソース="&dbPath&";ユーザー ID="&param_dbUserID&";パスワード="&param_dbPassword&""
ケース 21: 「SQL サーバー (OLEDB)」
ConnStr="Provider=SQLOLEDB;初期カタログ="&param_DataBase&";データ ソース="&p_sqlDataSource&";ユーザー ID="&param_dbUserID&";パスワード="&param_dbPassword&""
ケース 12: 「データベースへのアクセス(ODBC)」
ConnStr="Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbPath&";ユーザー ID="&param_dbUserID&";Password="&param_dbPassword
ケース 22: 「SQL サーバー (ODBC)」
ConnStr="Driver={SQL Server};DataBase="&param_DataBase&";Server="&p_sqlDataSource&";ユーザー ID="&param_dbUserID&";Password="&param_dbPassword&""
それ以外の場合:
エラーコードの追加(100)
p_Debug の場合、Response.Write ShowErrMsg()
'終了関数
エンドセレクト
objConn.ConnectionString=ConnStr
objConn.Open
ConnectionDataBase=objConn を設定します
エラーの場合はその後
エラークリア

ログを保存する場合は、
tmpMsg="データベース接続中にエラーが発生しました。クエリ コードが正しいか確認してください。<br>セキュリティ上の理由から、この情報のみが表示されます。詳細なエラー情報を表示するには、dsj.Debug=True を設定してください"
cmd="次のコマンドを実行します:"&param_dbtype
Response.Write SaveSQLLog(cmd,tmpMsg)
それ以外
Response.Write 「データベースへの接続中にエラーが発生しました。クエリコードが正しいかどうか確認してください。」
終了の場合
エラーコードの追加(101)
objConn=Nothing を設定します
Response.End()
終了の場合
終了の場合
終了機能

「******************************」
'名前: SaveSQLLog
'パラメータ:sコマンド、メッセージ
'戻り値: メッセージ
'機能: ログを保存する
'作成日時: 2005 年 5 月 6 日
「******************************」
パブリック関数 SaveSQLLog(sCommand,Msg)
p_Debug でない場合は、エラーが発生したら次を再開します
logDB="DSJ_SQLLog.mdb"
'ConnectionDataBase logDB、p_dbUserID、p_dbPassword、12
logConnStr = "プロバイダ = Microsoft.Jet.OLEDB.4.0;データ ソース = " & Server.MapPath(p_dbFolder & logDB)
logConn = Server.CreateObject("ADODB.Connection") を設定します
logConn.Open logConnStr
ログを保存する場合は、
ディムログコマンド
logCmd="DSJ_SQL_Log (コマンド、スクリプト名、ログユーザー、IP) の値に挿入 "
logCmd=logCmd & "('" & Replace(Left(sCommand,255),"'","''") &"','" & (ScriptFolder & ScriptName) &"','" & Session("User ") & "','"& GetIP & "')"
'Response.Write "次のコマンドを実行する必要があります:<br><font color=red>" & logCmd & "</font><BR>"
logConn.Execute(logCmd)
終了の場合
logConn.Close
logConn=何も設定しない
SaveSQLLog=msg
SQLQueryNum=SQLQueryNum+1
終了機能

「******************************」
'名前: ExecuteCmd
'パラメータ: cmd
'戻り値: RecordSet
'機能: cmd によって作成されたレコードセットを返します
'作成日時: 2005 年 5 月 6 日
「******************************」
パブリック関数 ExecuteCmd(cmd)
IsObject(objConn) でない場合は、ConnectionDataBase p_DataBase、p_dbUserID、p_dbPassword、p_dbType
p_Debug でない場合は、エラーが発生したら次を再開します
クライアント接続済み
ExecuteCmd=objConn.Execute(cmd) を設定します。
エラーの場合はその後
エラークリア
objConn.Close
objConn=Nothing を設定します
ログを保存する場合は、
tmpMsg="データのクエリ中にエラーが見つかりました。クエリ コードが正しいかどうかを確認してください。<br>セキュリティ上の理由から、この情報のみが表示されます。詳細なエラー情報を表示するには、dsj.Debug=True を設定してください。"
Response.Write SaveSQLLog(cmd,tmpMsg)
それ以外
Response.Write "データのクエリ中にエラーが見つかりました。クエリ コードが正しいかどうかを確認してください。"
終了の場合
Response.End()
終了の場合
SQLQueryNum=SQLQueryNum+1
終了機能

「******************************」
'名前: HTMLエンコード
'パラメータ:fString
'戻り値: HTMLEncode
'機能: データ内容の植字と変換
'作成日時: 2005 年 5 月 6 日
「******************************」
パブリック関数 HTMLEncode(fString)
IsNull(fString) または fString<>"" でない場合は、
fString=Replace(fString,"<","&lt;")
fString=Replace(fString,">",">")
fString=Replace(fString,Chr(9)," ") '斜体フォント
fString=Replace(fString,Chr(13),"")
fString=Replace(fString,Chr(32)," ") 'スペースを変換
fString=Replace(fString,Chr(34),""") '二重引用符を変換します
fString=Replace(fString,Chr(39),"&#39;") '一重引用符を変換します
fString=Replace(fString,Chr(10),"</p><p>") '段落形式に変換
fString=Replace(fString,Chr(10),"<BR>&nbsp;&nbsp;&nbsp;&nbsp;") '次の行に変換
fString=Replace(fString,Chr(13),"<BR>")
fString=Replace(fSting,vbCrlf,"<BR>")
'fString=リンクフレンド(fString)
'fString=ChkBadWords(fString)
HTMLEncode=fString
終了の場合
終了機能

「******************************」
'名前: リンクフレンド
'パラメータ:fContent
'戻り値: リンクフレンド
'機能: 友好的な接続を置き換えます
'作成日時: 2005 年 5 月 6 日
「******************************」
パブリック関数 LinkFriend(fContent)
p_Debug でない場合は、エラーが発生したら次を再開します
IsObject(objConn) でない場合は、ConnectionDataBase DataBase、dbUserID、dbPassword、dbType
Set rsFriend=ExecuteCmd("dsj_FriendLink からタイトル、URL を選択")
rsFriend.Eof と rsFriend.Bof の場合
それ以外
rsFriend.Eof ではないときに実行してください
strTitle=rsFriend.Fields.Item("タイトル")
URl=rsFriend.Fields.Item("URL")
If LCase(Left(URL,1))<>"h" then URL=Replace(URl,Left(URL,1),"")
strLink="<a target='_blank' title='" & strTitle &"' href='" & URL & ''>"
strLink=strLink&strTitle&"</a>"
Instr(fContent,strTitle)>0 の場合、fContent=Replace(fContent,strTitle,strLink)
rsFriend.MoveNext
ループ
LinkFriend=fContent
終了の場合
rsFriend.Close
rsFriend=何も設定しない
SQLQueryNum=SQLQueryNum+1
終了機能

'************************************************ * *****************
'名前: 表示ページ
'パラメータ: NULL
'戻り値: NULL
'機能: ページングレコードナビゲーションを表示します
'例:
原作：zykj2000 サイト：http: //bbs.513soft.net
' 変更: アローンソード Web サイト: http://blog.csdn.net/alonesword/
日時: 2005 年 5 月 7 日
'************************************************ * ****************
パブリックサブ ShowPage()
ディム str_tmp
p_intTotalRecords=rsDivPage.RecordCount
p_intTotalRecords<=0 の場合
p_Error=p_Error & "レコードの総数はゼロです。データを入力してください。"
ShowError() を呼び出す
終了の場合
p_intTotalRecords <=PageSize の場合 THEn
p_intTotalPage=1
それ以外
p_intTotalRecords mod PageSize =0 の場合
p_intTotalPage = CLng(p_intTotalRecords / PageSize * -1)*-1
それ以外
p_intTotalPage = CLng(p_intTotalRecords / PageSize * -1)*-1+1
終了の場合
終了の場合
p_intCurPage>p_intTotalPage の場合
p_intCurPage=p_intTotalPage
終了の場合
Response.Write ShowFirstPrv
showNumBtn
Response.Write ShowNextLast&" "
Response.ShowPageInfo の書き込み
応答.書き込み str_tmp
End Sub

プライベート関数 ShowFirstPrv()
Dim Str_tmp,int_prvpage
int_prvpage=p_intCurPage-1
int_prvpage<1 の場合、int_prvpage=1
Btn_FirstLink="<a title='Page 1' href='"&AddnPageURL&"1'>"&Btn_First
Btn_PrevLink="<a title='Page"&int_prvpage&" href='"&AddnPageURL&p_intCurPage-1&"'>"&Btn_Prev
p_intCurPage=1 の場合
str_tmp=Btn_FirstLink&"</a> "&Btn_PrevLink&"</a> "
それ以外
int_prvpage=p_intCurPage-1
str_tmp=""&Btn_FirstLink&"</a> "&Btn_PrevLink&"</a> "
終了の場合
ShowFirstPrv=str_tmp
終了関数

プライベート関数 ShowNextLast()
Dim str_tmp,int_Nextpage
int_NextPage=p_intCurPage+1
p_intCurPage+1>p_intTotalPage の場合、 int_NextPage=p_intTotalPage
Btn_NextLink="<a title='Page"&int_NextPage&"' href='"&AddnPageURL&p_intCurPage+1&"'>"&Btn_Next
Btn_LastLink="<a title='Page"&p_intTotalPage&" href='"&AddnPageURL&p_intTotalPage&"'>"&Btn_Last
p_intCurPage>=p_intTotalPage の場合
str_tmp=Btn_NextLink & "</a> " & Btn_LastLink&"</a>"
それ以外
Int_NextPage=p_intCurPage+1
str_tmp=""&Btn_NextLink&"</a> "&Btn_LastLink&"</a>"
終了の場合
ShowNextLast=str_tmp
終了関数

プライベート関数 showNumBtn()
ディム i,str_tmp
薄暗いページリンク
str_tmp=""
i=1 の場合、p_intTotalPage ステップ 1
PageLink="&nbsp;<a title='Page"&i&" href='"&AddnPageURL&i&"'>"&i&"</a>&nbsp;"
i=p_intCurPage の場合、PageLink=" <a title='Page"&i&" href='"&AddnPageURL&i&"'><font color=red>"&i&"</font></a> "
Response.Write PageLink
次
showNumBtn=str_tmp
終了関数

プライベート関数 ShowPageInfo()
ディム str_tmp
str_tmp="ページ:"&p_intCurPage&"/"&p_intTotalPage&"ページ合計"&p_intTotalRecords&"レコード"&p_rsPageSize&"レコード数/ページ"
ShowPageInfo=str_tmp
終了関数

プライベート関数 AddnPageURL()
Dim i,j,search_str,result_url
search_str="ページ="
str_params=Request.ServerVariables("QUERY_STRING")
str_params="" の場合
result_url=スクリプト名 & "?page=
それ以外
InstrRev(str_params,search_str)=0 の場合
result_url=スクリプト名 & "? & str_params &"&page="
それ以外
j=InstrRev(str_params,search_str)-2
j=-1 の場合
result_url=スクリプト名 & "?page=
それ以外
str_params=左(str_params,j)
result_url=スクリプト名 & "? & str_params &"&page="
終了の場合
終了の場合
終了の場合
AddnPageURL=結果_url
終了機能
'************************************************ * ****************
パブリック関数 GetName(オプション)
ディム tmpName
tmpName=Request.ServerVariables("PATH_INFO")
arrTmpName=Split(tmpName,"/")
Options=0 の場合、GetName=Server.Mappath(".")&GetName(1)
Options=1 の場合、GetName=LCase(arrTmpName(UBound(arrTmpName)))
Options=2 の場合、GetName=LCase(arrTmpName(UBound(arrTmpName)-1))&"/"
終了機能

終了クラス
%>