Modificação geral do ASP e adição de código de função

Autor：Eve Cole Data da Última Atualização：2025-03-17 19:48:02

De modo geral, os principais problemas a serem resolvidos ao escrever programas de banco de dados nada mais são do que adicionar, excluir, modificar e consultar. Este tipo de programação é muito simples. A seguir, usarei algum tempo livre para criar uma função que contenha as funções de adição e exclusão. A arquitetura experimental pode usar o banco de dados ACCESS do servidor IIS.5WEB. Na verdade, não preciso entrar em detalhes sobre isso, porque todos deveriam saber disso. Vou apenas postar a função diretamente. Todos podem usá-lo com apenas pequenas modificações.

Copie o código do código da seguinte forma:

subAdminEdit()

dim Ação,rsCheckAdd,rs,sql

Ação=request.QueryString(Ação)

if Action=SaveEdit then 'Salvar as informações editadas do administrador

definir rs = server.createobject(adodb.recordset)

if Result=Adicionar então 'Criar administrador do site

set rsCheckAdd = conn.execute(selecione AdminName de Ameav_Admin onde AdminName=' & trim(Request.Form(AdminName)) & ')

se não (rsCheckAdd.bof e rsCheckAdd.eof) então 'Determine se este nome de administrador existe

resposta.write <script linguagem=javascript><!--

alert(' & trim(Request.Form(AdminName)) & O administrador já existe, tente novamente com um nome de login diferente!');history.back(-1);

// --></script>

resposta.fim

terminar se

sql=selecione * de Ameav_Admin

rs.open sql,conn,1,3

rs.addnew

se len(trim(Request.Form(AdminName)))<3 ou len(trim(Request.Form(Password)))>10 então

resposta.write <script linguagem=javascript><!--

alert('O nome de login do administrador é obrigatório e o número de caracteres deve ser de 3 a 10 caracteres!');history.back(-1);

// --></script>

resposta.fim

terminar se

se len(trim(Request.Form(Password)))<6 ou len(trim(Request.Form(Password)))>16 então

resposta.write <script linguagem=javascript><!--

alert('A senha do administrador é necessária e o número de caracteres deve ser de 6 a 16 caracteres!');history.back(-1);

// --></script>

resposta.fim

terminar se

se Request.Form(Password)<>Request.Form(vPassword) então

resposta.write <script linguagem=javascript><!--

alert('As senhas digitadas duas vezes são diferentes!');history.back(-1);

// --></script>

resposta.fim

terminar se

rs(AdminName)=trim(Request.Form(AdminName))

se Request.Form(Trabalhando)=1 então

rs(Trabalhando)=Request.Form(Trabalhando)

outro

rs(Trabalhando)=0

terminar se

rs(Senha)=Md5(Request.Form(Senha))

rs (Nome do usuário) = trim (Solicitação.Formulário (Nome do usuário))

rs(AdminPurview)=Request.Form(Purview111) & Request.Form(Purview112) & Request.Form(Purview113) &_

Request.Form(Purview114) & Request.Form(Purview115) & Request.Form(Purview116) &_

Request.Form(Purview117) & Request.Form(Purview118) & Request.Form(Purview119) &_

Request.Form(Purview120) & Request.Form(Purview121) & Request.Form(Purview122) &_

Request.Form(Purview123) & Request.Form(Purview124) & Request.Form(Purview125) &_

Request.Form(Purview126) & Request.Form(Purview127) & Request.Form(Purview128) &_

Request.Form(Purview129) & Request.Form(Purview130) & Request.Form(Purview131) &_

Request.Form(Purview132) & Request.Form(Purview133) & Request.Form(Purview134) &_

Request.Form(Purview135) & Request.Form(Purview136) & Request.Form(Purview137) &_

Request.Form(Purview138) & Request.Form(Purview139) & Request.Form(Purview140) &_

Request.Form(Purview141) & Request.Form(Purview142) & Request.Form(Purview143) &_

Request.Form(Purview144) & Request.Form(Purview145) & Request.Form(Purview146) &_

Request.Form(Purview147) & Request.Form(Purview148) & Request.Form(Purview149) &_

Request.Form(Purview150) & Request.Form(Purview151) & Request.Form(Purview152) &_

Solicitação.Formulário(Purview153)

rs(Explicar)=trim(Request.Form(Explicar))

rs(AddTime)=agora()

terminar se

if Result=Modify then 'Modificar administrador do site

sql=select * de Ameav_Admin onde ID=&ID

rs.open sql,conn,1,3

rs(AdminName)=trim(Request.Form(AdminName))

se Request.Form(Trabalhando)=1 então

rs(Trabalhando)=Request.Form(Trabalhando)

outro

rs(Trabalhando)=0

terminar se

se trim(Request.Form(Senha))<> então

se len(trim(Request.Form(Password)))<6 ou len(trim(Request.Form(Password)))>20 então

resposta.write <script linguagem=javascript><!--

alert('A senha do administrador é obrigatória e deve ter de 6 a 20 caracteres!');

// --></script>

resposta.fim

terminar se

se Request.Form(Password)<>Request.Form(vPassword) então

resposta.write <script linguagem=javascript><!--

alert('As senhas inseridas duas vezes são diferentes!');history.back(-1);