Recentemente, fiquei obcecado em fazer sites. Usei ASP para desenvolver e descobri que o ASP tem muitas lacunas, e há muitos códigos que são reutilizados em um site, então verifiquei algumas informações e descobri que a ideia era. classes podem ser usadas em ASP, então escrevi esta classe. Ela não está bem escrita, mas é bastante prática.
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Const Btn_First="<font face='webdings'>9</font>" 'Definir o estilo de exibição do botão da primeira página
Const Btn_Prev="<font face='webdings'>3</font>" 'Definir o estilo de exibição do botão da página anterior
Const Btn_Next="<font face='webdings'>4</font>" 'Definir o estilo de exibição do botão da próxima página
Const Btn_Last="<font face='webdings'>:</font>" 'Definir o estilo de exibição do botão da última página
Classe clsDSJ
Privado p_Error,p_IpAdd,p_Debug,Errs
P_InvaildWords privadas
TmpStr privado
ObjConnDivPage privado,rsDivPage,p_GetSQL,p_nPage
Privado p_rsPageSize,p_intCurPage,p_strURL,p_intTotalPage,p_intTotalRecords
Privado p_dbType,p_dbFolder,p_DataBase,dbPath,p_dbUserID,p_dbPassword,p_sqlDataSource
Privado param_DataBase,param_dbUserID,param_dbPassword,param_dbType
'Propriedade
ObjConn público,ConnStr,SQLQueryNum
LogDB público,WebURL
SaveLog público
Códigos de erro públicos, Código de erro, Mensagem de erro
Pasta Script Pública, ScriptName
Subclasse Privada_Initialize
p_Debug = Verdadeiro
Cliente conectado
SaveLog = Verdadeiro
Mensagem de erro=""
p_Erro=0
SQLQueryNum=0
Inicialização da conexão com o banco de dados Rem
dbType=12 'Pegue 1x——Acesso, 2x——SQL;
dbFolder="Dados"
DataBase="zhubizidadatabase.MDB"
dbUserID=""
dbSenha=""
sqlDataSource=""
p_rsPageSize=10
'p_nPágina=2
If request("página")="" Então
p_intCurPage=1
ElseIf NOT IsNumeric(request("página")) Then
p_intCurPage=1
ElseIf CInt(Trim(request("página")))<1 Then
p_intCurPage=1
Outro
p_intCurPage=CInt(Trim(request("página")))
Terminar se
URL da Web=" http://blog.csdn.net/alonesword/ "
tmpStr=Request.ServerVariables("PATH_INFO")
tmpStr=Dividir(tmpStr,"/",-1)
ScriptName=Lcase(tmpStr(UBound(tmpStr)))
ScriptFolder=LCase(tmpStr(UBound(tmpStr)-1)) & "/"
p_InvaildWords=" selecione|atualizar|excluir|inserir|@|--|;|'|#|%|xp|cmd|shell "
Finalizar sub
Subclasse Privada_terminate()
Se IsObject(rsDivPage) Então rsDivPage.Close:Set rsDivPage=Nothing
Se IsObject(objConn) Então objConn.Close:Set objConn=Nothing
End Sub
Propriedade Pública Obter Versão
Versão = "DSJ 1.1.0 Beta"
Fim da propriedade
Erro de obtenção de propriedade pública
Erro=p_Erro
Fim da propriedade
Propriedade pública, obter depuração
Depurar=p_Debug
Fim da propriedade
Propriedade pública Let Debug(BoolDebug)
Se BoolDebug então
p_Debug = Verdadeiro
Outro
p_Debug=Falso
Terminar se
Fim da propriedade
Propriedade pública Obter dbType
dbType=p_dbType
Fim da propriedade
Propriedade pública Let dbType(lngdbType)
Se IsNumeric(lngdbType) então
p_dbType=lngdbType
Outro
p_dbType=12
Terminar se
Fim da propriedade
Propriedade pública Obter dbFolder
dbFolder=p_dbFolder
Fim da propriedade
Propriedade pública Let dbFolder(strFolder)
If Right(strFolder,1)="" OR Right(strFolder,1)="/" Então
p_dbFolder=strFolder
Outro
Se (NÃO IsNull(strFolder)) OR (strFolder<>"") Então
p_dbFolder=strFolder & ""
Outro
p_dbFoler=""
Terminar se
Terminar se
Fim da propriedade
Propriedade pública obter banco de dados
Banco de dados=p_dataBase
Fim da propriedade
Propriedade pública Let Database (strDataBase)
p_dataBase=strBancoDeDados
Fim da propriedade
Propriedade pública Obter dbUserID
dbUserID=p_dbUserID
Fim da propriedade
Propriedade pública Let dbUserID(strDataBaseUserID)
p_dbUserID=strDataBaseUserID
Fim da propriedade
Propriedade pública Obtenha dbPassword
dbPassword=p_dbPassword
Fim da propriedade
Propriedade pública Let dbPassword(strDataBasePassword)
p_dbPassword=strDataBasePassword
Fim da propriedade
Propriedade pública Obter SQLDataSource
SQLDataSource=p_sqlDataSource
Fim da propriedade
Propriedade pública Let SQLDataSource(strSQLDataSource)
Se strsqlDataSource<>"" Então
Se Esquerda(p_dbType,1)=2 Então
p_sqlDataSource=strSQLDataSource
Outro
AdicionarErrorCode(110)
p_sqlDataSource=""
Terminar se
Terminar se
Fim da propriedade
Propriedade pública Let PageSize(int_PageSize)
Se IsNumeric(Int_Pagesize) Então
p_rsPageSize=CLng(int_PageSize)
Terminar se
Fim da propriedade
Propriedade pública Obtenha PageSize
Se p_rsPageSize="" ou NÃO IsNumeric(p_rsPageSize) Então
Tamanho da página = 8
Outro
PageSize=p_rsPageSize
Terminar se
Propriedade final
Propriedade pública Obter GetRs()
Se NÃO depurar, em caso de erro, retome a seguir
Se NÃO for IsObject (objConn), então ConnectionDataBase dbDataBase, dbUserID, dbPassword, dbType
Se NÃO for IsObject (rsDivPage) então
Definir rsDivPage=Server.createobject("adodb.recordset")
rsDivPage.Open GetSQL,objConn,1,1
rsDivPage.PageSize=Tamanho da página
Se não (rsDivPage.eof e rsDivPage.BOF) Então
Se p_intCurPage>rsDivPage.PageCount então
p_intCurPage=rsDivPage.PageCount
Terminar se
rsDivPage.AbsolutePage=p_intCurPage
Terminar se
Se errar então
Err.Limpar
rsDivPage.Fechar
Definir rsDivPage=Nada
Se SaveLog então
tmpMsg="Erro ao conectar-se ao banco de dados, verifique se seu código de consulta está correto.<br>Por motivos de segurança, apenas esta mensagem é exibida. Para visualizar mensagens de erro detalhadas, defina dsj.Debug=True"
Resposta.Write SaveSQLLog(cmd,tmpMsg)
Outro
Response.Write "Erro ao conectar ao banco de dados, verifique se o código de consulta está correto."
Terminar se
Resposta.End()
Terminar se
SQLQueryNum=SQLQueryNum+1
Definir GetRs=rsDivPage
Terminar se
Fim da propriedade
Propriedade pública Let GetSQL(str_sql)
Se str_sql<>"" Então
p_GetSQL=str_sql
Outro
AdicionarErrorCode(111)
Se depurar, então ShowErrMsg()
p_GetSQL="A propriedade do GetSQL é NULL."
Terminar se
Fim da propriedade
Propriedade Pública Obter GetSQL()
GetSQL=p_GetSQL
Fim da propriedade
'******************************
'Nome: gotTopic
'Parâmetros: str, strlen
'Valor de retorno: string restrita
'Tempo de criação: 3 de março de 2005
'Função: limitar a string restrita
'******************************
Função Pública GotToPic(str,strlen)
Rem limita o comprimento de exibição da string a um determinado intervalo
Dim i,StringLen,CharSize,EchoCharType
StringLen=len(str)
Tamanho do caractere = 0
Para i=1 para StringLen
EchoCharType=Abs(Asc(Mid(str,i,1)))
Se EchoCharType>255 então
CharSize=CharSize+2
Outro
TamanhoCaracter=TamanhoCara+1
Terminar se
Se CharSize>strlen Então
gotTopic=Left(str,i) & "..."
Sair para
Outro
gotTopic=str & ""
Terminar se
Próximo
Função final
'******************************
'Nome: ChkInvStr
'Parâmetro: Str
'Valor de retorno: Verdadeiro/Falso
'Tempo de criação: 2 de maio de 2005
'Função: Verifica se os parâmetros possuem caracteres ilegais
'******************************
Função Pública ChkInvStr(Str)
Rem define caracteres ilegais que precisam ser filtrados
Dim InvaildWord,inWords,i
Str=CStr(Str)
ChkInvStr=Falso
Se Len(Replace(p_InvaildWords,Chr(0),""))<1 Então
AddErrorCode(103) 'palavrasinválidas são nulas
Função de saída
Outro
Se Instr(1,p_Invaildwords,"|")>0 Então
InvaildWord=Dividir(p_InvaildWords,"|")
inWords=LCase(Trim(Str))
Para i=LBound(InvaildWord) Para UBound(InvaildWord)
Se Instr(inWords,InvaildWord(i))>0 Então
p_Erro=1982
AdicionarErrorCode(105)
ChkInvStr = Verdadeiro
Função de saída
Terminar se
Próximo
Outro
AddErrorCode(104) '"|" é necessário.
Função de saída
Terminar se
Terminar se
Função final
'******************************
'Nome: GetIP
'Parâmetro: NULO
'Valor de retorno: NULO
'Tempo de criação: 3 de maio de 2005
'Função: Obtenha o endereço IP do usuário
'******************************
Função Pública GetIP()
p_IpAdd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Se IsNull(p_IpAdd) OR p_IpAdd="" Então
p_IpAdd=Request.ServerVariables("REMOTE_ADDR")
Terminar se
GetIp=p_IpAdd
Função final
'******************************
'Nome: Endereço IP
'Parâmetro: gole
'Valor de retorno: Condado, Cidade
'Função: composição tipográfica e conversão de conteúdo de dados
'Tempo de criação: 6 de maio de 2005
'Fonte: www.downcodes.com
'******************************
Endereço IP de função pública (sip)
Dim IPConnStr,IPConn,IPAddressDB
Diminuir str1,str2,str3,str4
Dim número
Escurecer país, cidade, endereço
Diminuir DPIs, SQL
endereço = "desconhecido"
Se IsNumeric(Left(sip,2)) Então
Se sip="127.0.0.1" Então sip="192.168.0.1"
str1=Esquerda(sip,InStr(sip,".")-1)
gole=mid(gole,instr(gole,".")+1)
str2=Esquerda(sip,instr(sip,".")-1)
gole=Mid(gole,InStr(gole,".")+1)
str3=Esquerda(sip,instr(sip,".")-1)
str4=Médio(gole,instr(gole,".")+1)
Se isNumeric(str1)=0 ou isNumeric(str2)=0 ou isNumeric(str3)=0 ou isNumeric(str4)=0 Então
Outro
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
IPAddressDB = "DSJ_Ipaddress.mdb"
IPConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Fonte de dados = " & Server.MapPath(p_dbFolder & IPAddressDB)
Definir IPConn = Server.CreateObject("ADODB.Connection")
IPConn.Open IpConnStr
país = "Ásia"
cidade=""
sql="selecione o primeiro país, cidade de DSJ_IPAddress onde ip1 <="&num&" e ip2 >="&num&""
Definir IPRs=IPConn.execute(sql)
Se não (IPRs.EOF e IPRs.bof) então
país=DPIs(0)
cidade=DPIs(1)
Terminar se
IpRs.Close:Definir IPRs=Nada
IPConn.CLose: Definir IPConn = Nada
NumSqlQuery = NumSqlQuery+1
Terminar se
Endereço IP=país e cidade
Terminar se
Função final
'******************************
'Nome: ClienteConectado
'Parâmetro: NULO
'Valor de retorno: NULO
'Tempo de criação: 5 de maio de 2005
'Função: Verifica se o usuário está conectado ao servidor
'******************************
Subcliente público conectado()
Se Response.IsClientConnected então
Resposta.Flush()
Outro
Resposta.End()
Terminar se
Finalizar sub
'******************************
'Nome: ChkPost
'Parâmetro: NULO
'Valor de retorno: Verdadeiro/Falso
'Tempo de criação: 5 de maio de 2005
'Função: Verifique a fonte dos dados enviados
'******************************
Função Pública ChkPost()
Escurecer Servidor_v1, Servidor_v2
ChkPost=Falso
Servidor_v1=CStr(Request.ServerVariables("HTTP_REFERER"))
Servidor_v2=CStr(Request.ServerVariables("SERVER_NAME"))
Se Mid(Server_v1,8,Len(Server_v2))=Server_v2 Então ChkPost=True
Função final
'******************************
'Nome: AddErrorCode
'Parâmetro:ErrCode
'Valor de retorno: ErrCodes
'Tempo de criação: 3 de maio de 2005
'Função: Adicionar códigos de erro aos ErrCodes
'******************************
Sub AddErrorCode público (ErrCode)
Se ErrCodes="" Então
ErrCodes = ErrCode
Outro
ErrCodes=ErrCodes & "," & ErrCode
Terminar se
Finalizar sub
'******************************
'Nome: ShowErrMsg
'Parâmetro: NULO
'Valor de retorno: NULO
'Tempo de criação: 3 de maio de 2005
'Função: Exibe informações detalhadas sobre erros
'******************************
Função Pública ShowErrMsg()
Se NÃO for p_Debug, em caso de erro, retome o próximo
Se ErrCodes<>"" Então
iErrCodes=Dividir(ErrCodes,",",-1,Binário)
Para i=LBound(iErrCodes) Para UBound(iErrCodes)
tmpErrCode=CLng(iErrCodes(i))
Se IsNumeric(tmpErrCode) então
Mensagem de erro = Mensagem de erro e detalhes de erro (tmpErrCode)
Terminar se
Próximo
Terminar se
ShowErrMsg = Mensagem de Err
Função final
'******************************
'Nome: ConnectionDataBase
'Parâmetros:DataBase,p_dbUserID,p_dbPassword,p_dbType
'Valor de retorno: NULO
'Função: conectar ao banco de dados
'Tempo de criação: 6 de maio de 2005
'******************************
Função pública ConnectionDataBase(param_DataBase,param_dbUserID,param_dbPassword,param_dbType)
Se não for p_Debug, em caso de erro, retome o próximo
Cliente conectado
Se IsNumeric(param_dbType) Então
Definir objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionTimeOut=10 'Defina o tempo limite da conexão para 10 segundos
dbPath=Server.MapPath(p_dbFolder¶m_DataBase)
'Resposta.Write dbPath
Selecione Caso param_dbType
Caso 11: 'Base de dados de acesso (OLEDB)
ConnStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source="&dbPath&";User ID="¶m_dbUserID&";Password="¶m_dbPassword&""
Caso 21: 'SQL Server (OLEDB)
ConnStr="Provider=SQLOLEDB;Initial Catalog="¶m_DataBase&";Data Source="&p_sqlDataSource&";User ID="¶m_dbUserID&";Password="¶m_dbPassword&""
Caso 12: 'Base de dados de acesso (ODBC)
ConnStr="Driver={Driver Microsoft Access (*.mdb)};DBQ="&dbPath&";User ID="¶m_dbUserID&";Password="¶m_dbPassword
Caso 22: 'SQL Server (ODBC)
ConnStr="Driver={SQL Server};DataBase="¶m_DataBase&";Server="&p_sqlDataSource&";User ID="¶m_dbUserID&";Password="¶m_dbPassword&""
Outro caso:
AdicionarErrorCode(100)
Se p_Debug então Response.Write ShowErrMsg()
'Função de saída
Finalizar seleção
objConn.ConnectionString=ConnStr
objConn.Open
Definir ConnectionDataBase=objConn
Se errar então
Err.Limpar
Se SaveLog então
tmpMsg="Ocorreu um erro durante a conexão com o banco de dados, verifique se seu código de consulta está correto.<br>Por motivos de segurança, apenas esta informação é exibida. Para visualizar informações detalhadas sobre o erro, defina dsj.Debug=True"
cmd="Execute o comando de :"¶m_dbtype
Resposta.Write SaveSQLLog(cmd,tmpMsg)
Outro
Response.Write "Ocorreu um erro ao conectar-se ao banco de dados. Verifique se o seu código de consulta está correto."
Terminar se
AdicionarErrorCode(101)
Definir objConn=Nada
Resposta.End()
Terminar se
Terminar se
Função final
'******************************
'Nome: SaveSQLLog
'Parâmetros:sCommand,Msg
'Valor de retorno: mensagem
'Função: armazenar logs
'Tempo de criação: 6 de maio de 2005
'******************************
Função pública SaveSQLLog(sCommand,Msg)
Se não for p_Debug, em caso de erro, retome o próximo
logDB="DSJ_SQLLog.mdb"
'LogDB de ConnectionDataBase,p_dbUserID,p_dbPassword,12
logConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Fonte de dados = " & Server.MapPath(p_dbFolder & logDB)
Definir logConn = Server.CreateObject("ADODB.Connection")
logConn.Open logConnStr
Se SaveLog então
Dim logCmd
logCmd="INSERT INTO DSJ_SQL_Log (Command,ScriptName,logUser,IP) VALORES"
logCmd=logCmd & "('" & Replace(Left(sCommand,255),"'","''") &"','" & (ScriptFolder & ScriptName) &"','" & Session("Usuário ") & "','"& GetIP & "')"
'Response.Write "O comando necessário para executar é:<br><font color=red>" & logCmd & "</font><BR>"
logConn.Execute(logCmd)
Terminar se
logConn.Fechar
Definir logConn=Nada
SaveSQLLog=msg
SQLQueryNum=SQLQueryNum+1
Função final
'******************************
'Nome: ExecuteCmd
'Parâmetro: cmd
'Valor de retorno: RecordSet
'Função: Retorna o recordset criado pelo cmd
'Tempo de criação: 6 de maio de 2005
'******************************
Função Pública ExecuteCmd(cmd)
Se NÃO for IsObject (objConn), então ConnectionDataBase p_DataBase,p_dbUserID,p_dbPassword,p_dbType
Se NÃO for p_Debug, em caso de erro, retome o próximo
Cliente conectado
Definir ExecuteCmd=objConn.Execute(cmd)
Se errar então
Err.Limpar
objConn.Fechar
Definir objConn=Nada
Se SaveLog então
tmpMsg="Foi encontrado um erro ao consultar os dados, verifique se o seu código de consulta está correto.<br>Por motivos de segurança, apenas esta informação é exibida. Para visualizar informações detalhadas do erro, defina dsj.Debug=True"
Resposta.Write SaveSQLLog(cmd,tmpMsg)
Outro
Response.Write "Foi encontrado um erro ao consultar os dados. Verifique se o seu código de consulta está correto."
Terminar se
Resposta.End()
Terminar se
SQLQueryNum=SQLQueryNum+1
Função final
'******************************
'Nome: HTMLEncode
'Parâmetro:fString
'Valor de retorno: HTMLEncode
'Função: composição tipográfica e conversão de conteúdo de dados
'Tempo de criação: 6 de maio de 2005
'******************************
Função Pública HTMLEncode(fString)
Se não for IsNull(fString) ou fString<>"" Então
fString=Substituir(fString,"<","<")
fString=Substituir(fString,">",">")
fString=Replace(fString,Chr(9)," ") 'Fonte em itálico
fString=Substituir(fString,Chr(13),"")
fString=Replace(fString,Chr(32)," ") 'Converter espaços
fString=Replace(fString,Chr(34),""") 'Converte aspas duplas
fString=Replace(fString,Chr(39),"'") 'Converte aspas simples
fString=Replace(fString,Chr(10),"</p><p>") 'Converter para formato de parágrafo
fString=Replace(fString,Chr(10),"<BR> ") 'Converter para a próxima linha
fString=Substituir(fString,Chr(13),"<BR>")
fString=Substituir(fSting,vbCrlf,"<BR>")
'fString=LinkAmigo(fString)
'fString=ChkBadWords(fString)
HTMLEncode=fString
Terminar se
Função final
'******************************
'Nome: LinkFriend
'Parâmetro:fContent
'Valor de retorno: LinkFriend
'Função: Substitui conexões amigáveis
'Tempo de criação: 6 de maio de 2005
'******************************
Função Pública LinkFriend(fContent)
Se NÃO for p_Debug, em caso de erro, retome o próximo
Se NÃO for IsObject (objConn), então ConnectionDataBase DataBase,dbUserID,dbPassword,dbType
Definir rsFriend=ExecuteCmd("Selecionar título, URL de dsj_FriendLink")
Se rsFriend.Eof e rsFriend.Bof então
Outro
Faça enquanto NÃO rsFriend.Eof
strTitle=rsFriend.Fields.Item("Título")
URL=rsFriend.Fields.Item("URL")
Se LCase(Left(URL,1))<>"h" Então URL=Replace(URl,Left(URL,1),"")
strLink="<a target='_blank' title='" & strTitle &"' href='" & URL & "'>"
strLink=strLink&strTitle&"</a>"
Se Instr(fContent,strTitle)>0 Então fContent=Replace(fContent,strTitle,strLink)
rsFriend.MoveNext
Laço
LinkFriend=fConteúdo
Terminar se
rsAmigo.Fechar
Definir rsFriend=Nada
SQLQueryNum=SQLQueryNum+1
Função final
'********************************************** *****************
'Nome: ShowPage
'Parâmetro: NULO
'Valor de retorno: NULO
'Função: Exibir a navegação do registro de paginação
'ilustrar:
'Trabalho original: site zykj2000: http://bbs.513soft.net
' Modificação: Site Alonesword: http://blog.csdn.net/alonesword/
'Hora: 7 de maio de 2005
'********************************************** ****************
Sub ShowPage pública()
Escurecer str_tmp
p_intTotalRecords=rsDivPage.RecordCount
Se p_intTotalRecords<=0 Então
p_Error=p_Error & "O número total de registros é zero, insira os dados"
Chame ShowError()
Terminar se
Se p_intTotalRecords <=PageSize ENTÃO
p_intTotalPage=1
Outro
Se p_intTotalRecords mod PageSize = 0 Então
p_intTotalPage = CLng(p_intTotalRecords / PageSize * -1)*-1
Outro
p_intTotalPage = CLng(p_intTotalRecords / PageSize * -1)*-1+1
Terminar se
Terminar se
Se p_intCurPage>p_intTotalPage Então
p_intCurPage=p_intTotalPage
Terminar se
Resposta.Write ShowFirstPrv
mostrarNumBtn
Resposta.Escrever ShowNextLast&" "
Response.Write ShowPageInfo
resposta.write str_tmp
Finalizar
função subprivada ShowFirstPrv()
Dim Str_tmp,int_prvpage
int_prvpage=p_intCurPage-1
Se int_prvpage<1 Então int_prvpage=1
Btn_FirstLink="<a title='Página 1' href='"&AddnPageURL&"1'>"&Btn_First
Btn_PrevLink="<a title='Page"&int_prvpage&" href='"&AddnPageURL&p_intCurPage-1&"'>"&Btn_Prev
Se p_intCurPage=1 então
str_tmp=Btn_FirstLink&"</a> "&Btn_PrevLink&"</a> "
Outro
int_prvpage=p_intCurPage-1
str_tmp=""&Btn_FirstLink&"</a> "& Btn_PrevLink&"</a> "
Terminar se
ShowFirstPrv=str_tmp
Função Final
Função Privada ShowNextLast()
Dim str_tmp,int_Nextpage
int_NextPage=p_intCurPage+1
Se p_intCurPage+1>p_intTotalPage Então 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
Se p_intCurPage>=p_intTotalPage Então
str_tmp=Btn_NextLink & "</a> " & Btn_LastLink&"</a>"
Outro
Int_NextPage=p_intCurPage+1
str_tmp=""&Btn_NextLink&"</a> "& Btn_LastLink&"</a>"
Terminar se
ShowNextLast=str_tmp
Função final
Função privada showNumBtn()
Diminuir eu,str_tmp
Escurecer PageLink
str_tmp=""
Para i=1 para p_intTotalPage Etapa 1
PageLink=" <a title='Page"&i&" href='"&AddnPageURL&i&"'>"&i&"</a> "
Se i=p_intCurPage Then PageLink=" <a title='Page"&i&" href='"&AddnPageURL&i&"'><font color=red>"&i&"</font></a> "
Response.Write PageLink
Próximo
showNumBtn=str_tmp
Função Final
Função Privada ShowPageInfo()
Escurecer str_tmp
str_tmp="Página:"&p_intCurPage&"/"&p_intTotalPage&"Total de páginas"&p_intTotalRecords&"records"&p_rsPageSize&"registros/por página"
ShowPageInfo=str_tmp
Função Final
Função Privada AddnPageURL()
Dim i,j,search_str,result_url
search_str="página="
str_params=Request.ServerVariables("QUERY_STRING")
Se str_params="" Então
result_url=NomedoScript & "?page="
Outro
Se InstrRev(str_params,search_str)=0 Então
result_url=Nome do script & "?" & str_params &"&page="
Outro
j=InstrRev(str_params,search_str)-2
Se j=-1 Então
result_url=NomedoScript & "?page="
Outro
str_params=Esquerda(str_params,j)
result_url=Nome do script & "?" & str_params &"&page="
Terminar se
Terminar se
Terminar se
AddnPageURL=result_url
Função final
'********************************************** ****************
Função pública GetName (Opções)
Dim tmpName
tmpName=Request.ServerVariables("PATH_INFO")
arrTmpName=Dividir(tmpName,"/")
Se Opções=0 Então GetName=Server.Mappath(".")&GetName(1)
Se Opções=1 Então GetName=LCase(arrTmpName(UBound(arrTmpName)))
Se Opções=2 Então GetName=LCase(arrTmpName(UBound(arrTmpName)-1))&"/"
Função final
Fim da aula
%>