Cada vez que escribo el sistema, necesito iniciar sesión en el programa, lo que lo hace extremadamente problemático. De hecho, podemos hacer varios módulos funcionales de uso común en las funciones de verificación de inicio de sesión. Entonces, ¿cuáles son los varios módulos funcionales de uso común en ASP? Ahora echemos un vistazo a la introducción de módulos funcionales de ASP comúnmente utilizados.
[código]
<%
Function chk_regist (requestName, requestPwd, tableName, namefield, pwdfield, reurl) dim cn_name, cn_pwdcn_name = trim (request.form ("" & requestName & "")) cn_pwd = trim (request.form ("" & requestpwd & "")) si cn_name = "o cn_pwd =" entoncesResponse.Write ("<script language = javaScript> alert (" "Complete la contraseña de la cuenta en su totalidad, gracias por su cooperación." "); History.go (-1) </script>") end ifset rs = server.createObject ("ADODB.Recordset") sql = "Select * de" y Tablename & "Where Where" Where Where WhereS "& namefield &" = '' "& cn_name &" '' "rs.open sql, conn, 1,1if rs.eof entoncesResponse.write (" <script language = javascript> alert ("" No este miembro ID, confirme si ha sido aplicado. ""); History.go (-1) </script> ") Elseif (" "& Pwdfield &" ")") ")") ") session ("cn_name") = rs ("" & namefield & "") respuesta.redirect (reurl) elseraSponse.write ("<script language = javascript> alert (" "recordatorio, su cuenta y contraseña no coinciden. Preste atención a los números y la upcase y minúsculas."); History.go (-1) </script> ") End if Eend ifrs. Clin.
[código]
Descripción del parámetro:
chk_regist (requestName, requestPwd, tableName, namefield, pwdfield, reurl)
RequestName es el nombre de control de entrada que acepta el nombre ingresado en la página HTML.
RequestPWD es el nombre del control de entrada que acepta la contraseña ingresada en la página HTML.
TableName es el nombre de la tabla que guarda la información de registro en la base de datos
namefield es el nombre de campo que almacena el nombre de usuario en esta tabla de información
Pwdfield es el nombre de campo de la contraseña del usuario en esta tabla de información
Reurl es la página que salta después de iniciar sesión correctamente
Los ejemplos de citas son los siguientes:
<%call chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. A menudo es posible juzgar el estado actual de algo, generalmente un campo (tipo numérico, el valor predeterminado es 0)
El efecto de la conmutación de estado se logra modificando el valor de este campo. Entonces, hice otra función para facilitarme.
<%Function pVouch (tableName, FILDNAME, AutoidName, indexId) Dim FILTRYVALUSET RS = Server.CreateObject ("ADODB.RecordSet") sql = "SELECT * de" & TableName & "Where" & AutidName & "=" & indexidrs.open sql, Conn, 2,3fildValue = rs ("" "") filtreValue = 0 entoncesfildValue = 1ElseFildValue = 0end iFrs ("" & FildName & "") = FildValuers.Updaters.Close Set RS = Nothing Function%>
Descripción del parámetro:
PVOUCH (Tablename, FildName, AutoidName, IndexID)
Nombre de la tabla Tablename en la base de datos donde se encuentra la cosa
Filmname Esta cosa se usa para indicar el nombre de campo del estado (el tipo de campo es numérico)
Nombre de numeración automática de AutoidName en esta tabla
indexID se utiliza para modificar el valor automático numerado correspondiente del estado
Los ejemplos de citas son los siguientes:
<%dowhat = request.queryString ("dowhat") p_id = cint (request.queryString ("p_id")) si dowhat = "tj" y p_id <> "" thencall pVouch ("cn_products", "p_Vouch", "p_id", p_id) end if%> <%rs ("p_) luego%>> recomendado <%else%>> Cancelar recomendación <%final si%>
3. Escriba sitios web para muchas pequeñas y medianas empresas. En general, la pantalla del producto es un gran proyecto, por lo que las páginas realizadas son diferentes.
O, algunos están dispuestos horizontalmente, o algunos están dispuestos verticalmente, o incluso una estación completa tiene que lanzar y girar varias veces, lo cual es muy problemático y agotador.
Simplemente escriba una función para aliviarla, por lo que se convirtió en lo siguiente
<%function showpros(tablename,topnum,fildname,loopnum,typepenum)Set rs = Server.CreateObject ("ADODB.Recordset")sql = "Select top "&topnum&" * from "&tablenames.Open sql,conn,1,1if rs.eof and rs.bof thenresponse.Write("No record at the Momento ") ElSeresponse.Write (" ") para i = 1 a Rs.RecordCountif (i mod loopnum = 1) luego -sesponse.write" "end Ifselect Case typenumcase" 1 "Response.write (" ") Respuesta. Visualización (RS (" "& Fildname & Name &" ") Response.write (" """""endo "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ") Response.Write (" ") End Selectif (i mod loopnum = 0) entoncesResponse.write" "End ifrs.movinextNexTResponse.write (" ") end ifrs.close set rs = no nothing función%>
Descripción del parámetro: showPros (Tablename, Topnum, Filmname, Loopnum, Typepenum)
Que profesional elige el tipo de producto
topnum significa cuántos registros se extraen
FildName representa el campo que se muestra mediante la depuración. Este parámetro se puede omitir al aplicarlo en detalle y usarse directamente dentro de la función
Loopnum representa el número de registros por fila del bucle mostrado
Typenum representa el método de pantalla circular: actualmente hay dos categorías, horizontalmente paralelas y visualizan verticalmente diferentes registros de la misma fila de registro de datos.
Los ejemplos de citas son los siguientes:
<%if request.form ("enviar") <> "" thentopnum = request.form ("topnum") loopnum = request.form ("loopnum") typenum = request.form ("typenum") elsetOpnum = 8loopNum = 2Typenum = 1end if%> <%llamado showPros ("cn_products", topnum, "p_name", loopnum, typenum)%>
Lo anterior es todo el contenido de este artículo. Espero que el contenido de este artículo sea de ayuda para su estudio o trabajo. Si tiene alguna pregunta, puede dejar un mensaje para comunicarse. ¡Gracias por su apoyo del nuevo canal de tecnología bien o incorrecto!