Coleção de funções comumente usadas como usadas

Autor：Eve Cole Data da Última Atualização：2025-03-01 01:16:01

OLEDB maneira de abrir a conexão de dados SQL

Sub -OpenSqlbyoledB

Em erro de erro em seguida

Definir Conn = Server.CreateObject (Adodb.Connection)

Conn.Open provedor = sqloledb.1;

Se err.number <> 0 então

err.clear

Response.Write (<div align = 'Center'> O banco de dados está conectado a um erro, entre em contato com o administrador! </div>)

Response.end ()

Final se

Final sub

'Operação do banco de dados -Funções relacionadas

'***************************************************** **************************************************** **************************************************** **************************************************** **************************************************** **************, ***************

'[Sub] OpenReadrs RS, SQL, OTYPE

'Função: abra o tipo correspondente de conjunto de dados e leia apenas a operação

'parâmetro:

A coleção RS Open RS

'Declaração SQL executada

Sub OpenReadrs (RS, SQL)

Se não o isobject (rs) então

Set rs = server.createObject (adodb.oldset)

Rs.ooopen SQL, Conn, 1,1

Final se

Final sub

'[SUB] OpenWriters RS, SQL

'Função: Abra o tipo de conjunto de dados correspondente, você pode escrever a operação

'parâmetro:

A coleção RS Open RS

'Declaração SQL executada

Sub -OpenWriters (RS, SQL)

Se não o isobject (rs) então

Set rs = server.createObject (adodb.oldset)

Rs.ooopen SQL, Conn, 1,3

Final se

Final sub

'[Sub] endrs Rs

'Função: Feche o tipo correspondente de conjunto de dados

'parâmetro:

A coleção RS Open RS

Sub -endrs (rs)

Se Isobject (RS) então

Rs.close: defina rs = nada

Final se

Final sub

'[Sub] endconn

'Função: feche a conexão do banco de dados

Parâmetro: Nenhum

Sub -endnn

Se Isobject (Conn) então

Conn.Close: Set Conn = Nada

Final se

Final sub

'[Sub] execsql sql

'Função: Execute a instrução SQL

'parâmetro:

'Declaração SQL executada

Sub -execsql (SQL)

Conn.Execute (SQL)

Final sub

'[] SQL SELECALONE

'Função: consulta de campo único

'parâmetro:

'Declaração SQL executada

'Retorno: Valor do campo de consulta

Selectone (SQL)

Dim Selectaloners

Definir selectaloners = const.execute (SQL)

Selectalone = Selectaloners (0)

Endrs Selectaloners

Fim

'Funções relacionadas a operação de string

'[] ISSAFEST STR

'Função: determine se é uma string segura, use em campos especiais, como registro e login

'parâmetro:

Str string para detectar

'Return: true = segurança, false = inseguro

ISSAFEST (STR)

Dim s_badstr, n, eu

s_badstr = '& <>?%;: () ~!@#$^*{} [] |+-= & ch (34) & chr (9) & chr (32)

n = len (s_badstr)

IsSafeST = true

Para i = 1 a n

Se Instr (STR, MID (S_BADSTR, I, 1))> 0 Então

ISSAFEST = FALSE

Saída

Final se

Fim

'[] HtmltoEncode str

'Função: código html

'parâmetro:

'Str precisa codificar uma string

'Retorno: string de código

HtmltoEncode (str) '

se não é isnull (str) e str <> então

str = substituir (str, &, & amp;)

str = substituir (str,>, & gt;)

str = substituir (str, <, & lt;)

Str = substituir (str, chr (32),)

str = substituir (str, chr (9), & nbsp;)

str = substituir (str, chr (34), & quot;)

Str = substituir (str, chr (39), ')

str = substituir (str, chr (13),)

Str = substituir (str ,, s CRIP)

Str = substituir (str, s, s)

HtmltoEncode = str

final se

Fim

'[] Codetohtml str

'Função: código HTML Código

'parâmetro:

'Str precisa ser codificado string

'Retorno: string codificada reversa

Codetohtml (str)

se não é isnull (str) e str <> então

str = substituir (str, & amp; ,, &)

str = substituir (str, & gt;,>)

str = substituir (str, & lt ;, <)

Str = substituir (str ,, ch (32))

str = substituir (str, & nbsp;, Chr (9))

Str = substituir (str, ", Chr (34)))

str = substituir (str, ', Chr (39))

Str = substituir (str ,, chr (13))

str = substituir (str, s CRIP,)

Str = substituir (str, s, s)

Codetohtml = str

final se

Fim

'[] Gottopic str, strlen

'Função: Teste o comprimento do stroln Stroln, os caracteres chineses são calculados 2 comprimento

'parâmetro:

'Str precisa ser interceptado

'Strlen Intercept Comprimento

'Retorno: a corda após o comprimento do comprimento de Strlen

Gettopic (str, strlen)

se str = então

Gottopic =

saída

final se

Dim L, T, C, I

l = len (str)

T = 0

para i = 1 a l

C = ABS (ASC (MID (STR, I, 1))))))

Se c> 255 então

t = t+2

outro

t = t+1

final se

se t> = strlen então

Gottopic = esquerda (str, i) e ...

saída para

outro

Gottopic = str

final se

Fim

'[] DateFormattime tgar, estilo

'Função: Formatação de tempo

'parâmetro:

'TVAR precisa de formatação de string de tempo

'Tipo de formatação de Stype

'Retorno: Formating Time String

DateFormattime (TVAR, estilo)

Dim TT, Syear, Smnon, Sday, Shour, Sminute, Ssecond

Se não o iSdate (TVAR), então DateFormattime =: Sair

TT = TVAR

Syear = ano (tt)

Smonth = direita (0 e mês (tt), 2)

Sday = direita (0 e dia (tt), 2)

Shour = direita (0 & Hour (TT), 2)

Sminute = Right (0 e minuto (TT), 2)

SSECOND = Right (0 & Sex (TT), 2)

Selecione estilo de caixa

Caso 1'2006-3-13

DateFormattime = syear & -& smonth & -& sday

Caso 2 '13 de março de 2006

DateFormattime = Syear & Year & Smnth & Monthly & Sday & Day

Caso 3 '2006031313120123

DateFormattime = Syear & Smonth & Sday & Shour & Sminute & Ssecond

Caso mais

DateFormattime = TT

Final Selecione

Fim

'[] Isnum str

'Função: seja um número

'parâmetro:

'STR precisa julgar a corda

'Return: true = número, false = não -numbers

Isnum (str) '

se str <> e isnumeric (str) então

Isnum = true

outro

Isnum = false

final se

Fim

'Funções relacionadas à depuração de saída

'[Sub] Mesgoback str

'Função: pop -up informações e retorne

'parâmetro:

'STR precisa julgar a corda

Sub Mesgoback (STR)

Response.Write (<idioma = 'java'> alert ('& str &'); history.back (); </>)

Response.end ()

Final sub

'[Sub] Mesgourl Str, URL

'Função: pop -up informações e retorne

'parâmetro:

'STR precisa julgar a corda

Endereço de salto de URL

Subsgourl (STR, URL)

Response.Write (<idioma = 'java'> alert ('& str &'); local.href = '& url &'; </>)

Response.end ()

Final sub

'[SUB] Debug errado

'Função: saída de depuração

'parâmetro:

'Errado quer informações de saída

'Retorno: sem valor de retorno

Saída de depuração submbug (Ingrong)

Response.write (ing)

Response.end ()

Final sub

'Funções relacionadas à função

'[] Getip

'Função: Obtenha IP do usuário

'parâmetro:

' nenhum

'Retorno: IP atual do usuário

Getip ()

UserIP escuro

userip = request.servervariables (http_x_forwarded_for)

Se userip = então userip = request.Servervariables (remote_addr)

Getip = userip

Fim

'[] geturl

'Função: obtenha o nome de domínio atual

'parâmetro:

' nenhum

'Retorno: o nome de domínio atual

geturl ()

getUrl = request.ServerVariables (server_name)

Fim