Каждый раз, когда я пишу систему, мне нужно войти в программу, что делает ее чрезвычайно неприятным. На самом деле, мы можем сделать несколько обычно используемых функциональных модулей в функции проверки входа в систему. Так каковы несколько обычно используемых функциональных модулей в ASP? Теперь давайте посмотрим на введение обычно используемых функциональных модулей ASP.
[код]
<%
Функция chk_regist (requestName, requestPwd, tableName, namefield, pwdfield, reurl) dim cn_name, cn_pwdcn_name = trim (request.form ("" & requestname & "")) cn_pwd = trim (request.form ("& requestpwd &") if_name = "или" или "или" "" "" & requestPwd & ")), если cn_name =" или "или" "или" "" "& requestPwd &") If cn_name = "или" или "" или "" "" & requestPwd & ") If cn_name =" или "или" "или" "" & requestPwd & ") If CN_NAME =" или "или" ThenResponse.write ("<<script language = javascript> alert (" ", пожалуйста, заполните пароль учетной записи, спасибо за сотрудничество. "& namefield &" = '' "& cn_name &" '' 'rs.open sql, conn, 1,1if rs.eof thenresponse.write ("<script language = javaScript> alert (" no ID этого участника, пожалуйста, подтвердите, были ли вы применили. "); затем Session ("cn_name") = rs ("" "& namefield &" ") response.redirect (Reurl) elserestonse.write (" <script language = javascript> alert ("" напоминание, ваша учетная запись и пароль не совпадают. Обратите внимание на числа и верхний и нижний регистр. ");
[код]
Описание параметра:
chk_regist (requestName, requestPwd, tableName, namefield, pwdfield, reurl)
requestName - это имя управления вводом, которое принимает имя, введенное на странице HTML.
requestPwd - это имя элемента управления вводом, которое принимает пароль, введенный на странице HTML.
Имя таблицы - это имя таблицы, которая сохраняет регистрационную информацию в базе данных
namefield - это имя поля, в котором хранится имя пользователя в этой информационной таблице
Pwdfield - это имя поля пароля пользователя в этой информационной таблице
Reurl - это страница, которая прыгает после правильного входа в систему
Примеры цитирования следующие:
<%call chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. Часто можно судить о текущем состоянии чего -либо, обычно поле (числовое тип, значение по умолчанию равно 0)
Эффект переключения состояния достигается путем изменения значения этого поля. Итак, я сделал еще одну функцию, чтобы сделать это легко для себя.
<%Функция PVouch (TableName, FildName, AutoidName, Indexid) Dim FilterValueueSet RS = Server.CreateObject ("AdoDB.RecordSet") SQL = "SELECT * FROM" & TableName & "где" & autidName & "=" & indexidrs.open sql, conn, 2,3fild = rsname и "" & indexidrs. FilterValue = 0 ThenFildValue = 1ElseFildValue = 0end IFRS ("" & FildName & "") = FildValuers.Updaters.close SET RS = Nothorend Function%>
Описание параметра:
Pvouch (TableName, FildName, AutoidName, Indexid)
Имя таблицы таблицы в базе данных, где находится вещь
FilmName Эта вещь используется для указания названия поля состояния (тип поля числовой)
Автоматическая нумерация AutoidName в этой таблице
IndexID используется для изменения соответствующего автоматического пронумерованного значения состояния
Примеры цитирования следующие:
<%dowhat = request.queryString ("dowhat") p_id = cint (request.querystring ("p_id")), если dowhat = "tj" и p_id <> "" thencall pvouch ("cn_products", "p_vouch", "p_id", p_id) конец, если%> <%rs ("), если rs ("), если rs (") (p_). Тогда%>> Рекомендуется <%Else%>> Отменить рекомендацию <%end, если%>
3. Напишите веб-сайты для многих малых и средних предприятий. Как правило, дисплей продукта - это большой проект, поэтому сделанные страницы разные.
Либо несколько расположены горизонтально, либо несколько расположены вертикально, либо даже целая станция должна бросить и поворачиваться несколько раз, что очень хлопотно и утомительно.
Просто напишите функцию, чтобы облегчить его, так что она стала следующим
<%функция Showpros (TableName, TopNum, FildName, Loopnum, TypePenum) SET RS = Server.CreateObject ("AdoDB.Recordset") SQL = "SELECT TOP" & TopNum & " * From" & TableNames.Open SQL, CONN, 1,1F RS.E и RSBOF. Момент ") elseresponse.write (" "") для i = 1 до rs.recordcountif (i mod loopnum = 1) then response.write "" end ifsect case typenumcase "1" response.write (" «Ответ». Phrite (RS ("" "" & fildname & "")). "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""Му ") response.write (" "") end selectif (i mod loopnum = 0) thenResponse.write "" end ifrs.movenextnextresponse.write ("" ") end ifrs.close Установка rs = funtend function%>
Описание параметра: ShowPros (TableName, Topnum, File Entername, Loopnum, Typepenum)
Который Pro выбирает тип продукта
Topnum означает, сколько записей извлечено
FildName представляет поле, отображаемое отладкой. Этот параметр может быть опущен при его подробном применении и используется непосредственно в функции
Loopnum представляет количество записей на строку отображаемого цикла
Typenum представляет метод круговой дисплея: в настоящее время существует две категории, горизонтально параллельные и вертикально параллельные отображения различных записей одной и той же строки записи данных.
Примеры цитирования следующие:
<%if refce.form ("postic") <> "" thentopnum = request.form ("topnum") loopnum = request.form ("loopnum") typeNum = request.form ("typeNum") elsetOpnum = 8loopnum = 2typenum = 1end, если%> <% ShowPros ("cn_products", topnum, "p_name", loopnum, typenum)%>
Вышеуказанное - все содержание этой статьи. Я надеюсь, что содержание этой статьи поможет вашему обучению или работе. Если у вас есть какие -либо вопросы, вы можете оставить сообщение для общения. Спасибо за поддержку от нового технологического канала правильно или неправильно!