asp语法教程_如何编程

大家好，又见面了，我是你们的朋友全栈君。

ASP编程基本语句（一）

Access asp编制网站是属于动态网站，是通过把要编制的内容写入数据库里，在通过读取数据库的内容显示出来，学习目的：学会数据库的基本操作。数据库的基本操作无非是：查询记录，写入记录，删除记录，修改记录。

数据库名称：data.mdb

数据表名称：lmnr

字段： id （主键） bt （文本） name （文本） content （备注）

一，掌握ACCESS数据库的连接

set conn=server.createobject(“adodb.connection”) ‘adodb数据库连接组件

conn.open “driver={microsoft access driver (*.mdb)};dbq=”&server.mappath(“data.mdb”)

大家只要修改后面的data.mdb数据库名字和路径就可以了，例如数据库放在一个data文件夹里，那么就把 data.mdb 改成 data/data.mdb 如果你页面是放在文件夹里，那么就把data.mdb 改成 ../ data/data.mdb

可以把上述代码放在 conn.asp 里使用时用服务器端包括连接就可以了

二，记录集查询

1，用于筛选无，排序 id 降序，限制重复10条信息记录集查询

Set rs= Server.CreateObject (“ADODB.Recordset”)

sql = “Select top 10 * from lmnr ORDER BY id DESC “

rs.Open sql,conn,1,1

其中： rs 是记录集名称，在一个页面有多个记录集查询，记录集名称不要一样

top 10 是限制重复显示10条信息，取消 top 10 就是不限制

lmnr 是数据表名称

DESC 是排列降序，升序把 DESC 改为 ASC

2，用于筛选id，排序无的记录集查询

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn

其中： rs 是记录集名称，在一个页面有多个记录集查询，记录集名称不要一样

lmnr 是数据表名称

3，用于显示用户级别，用户名称的记录集查询（筛选 name 阶段变量Username）

Dim ColParam

ColParam = “未登录”

If (Session(“Username”) <> “”) Then

ColParam = Session(“Username”)

End If

set rs =server.CreateObject(“adodb.recordset”)

sql=”select * from lmnr WHERE name = ‘” Replace(ColParam, “‘”, “””) “‘”

rs.open sql,conn,1,1

其中： rs 是记录集名称，在一个页面有多个记录集查询，记录集名称不要一样

lmnr 是数据表名称

4，用于筛选id_id，排序 id 降序，的记录集查询

Dim ColParam

ColParam = “1”

If (Request.QueryString(“id_id”) <> “”) Then

ColParam = Request.QueryString(“id_id”)

End If

Set rs = Server.CreateObject(“ADODB.Recordset”)

sql= “SELECT * FROM lmnr WHERE id_id = ” Replace(ColParam, “‘”, “””) ” ORDER BY id DESC”

rs.open sql,conn,1,3

其中： rs 是记录集名称，在一个页面有多个记录集查询，记录集名称不要一样

lmnr 是数据表名称

三，写入记录。

写入记录由2个文件组成，，htj.ap 和 htjzx.asp。

htj.ap 是通过表单，把你要写入数据库里内容，传递给htjzx.asp 做法如下：

name：<input name=”name” type=”text” id=”name”>

bt：<input name=”bt” type=”text” id=”bt”>

content：<textarea name=”content” id=”content”></textarea>

</form>

htjzx.asp 是接受htj.ap 表单传递过来的内容，添加到数据库里。做法如下：

<!–#include file=”conn.asp” –>

If (CStr(Request(“insert”)) = “form1”) Then

name=request.form(“name”)

bt=request.form(“bt”)

content=request.form(“content”)

exec=”insert into lmnr(name,bt,content)values(‘” name ”‘,'” bt ”‘,'” content ”‘)”

conn.execute exec

conn.close

set conn=nothing

End If

response.write(“<script>alert(‘添加成功!’);location.href=’qfz.asp'</script>”)

四，读取记录（读取10条记录，用于首页分装目录）

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

Set rs= Server.CreateObject (“ADODB.Recordset”)

sql = “Select top 10 * from lmnr ORDER BY id DESC “

rs.Open sql,conn,1,1

插入1行3列表格

在每列里依次写入调取数据表字段 name:<%= rs(“name”) %> bt:<%= rs(“bt”) %> content:<%= rs(“content”) %>

在行标签 <tr> 前写入重复开始语句

<% ‘重复开始

if rs.EOF and rs.BOF then

response.write (“暂时还没有文章”)

else

Do Until rs.EOF %>

在行标签 </tr> 后写入重复结束语句

<% ‘重复结束

rs.MoveNext

Loop

end if

在代码最下面写入关闭连接语句

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

完成后如下面

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>

<!–#include file=”conn.asp” –>

Set rs= Server.CreateObject (“ADODB.Recordset”)

sql = “Select top 10 * from lmnr ORDER BY id DESC “

rs.Open sql,conn,1,1

<html>

<head>

<title>无标题文档</title>

</head>

<body>

<% ‘重复开始

if rs.EOF and rs.BOF then

response.write (“暂时还没有文章”)

else

Do Until rs.EOF %>

<tr>

<td>content:<%= rs(“content”) %></td>

</tr><% ‘重复结束

rs.MoveNext

Loop

end if

</table>

</body>

</html>

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

ASP编程基本语句（二）

一，后台管理

后台管理实质是一个读取全部记录的目录页，主要是为了有针对性的修改删除记录，一个内容表里可能有很多条记录，要显示在一个页面中，这个页面就很长，不利于浏览，因此要限制一个页面显示几条，利用翻页来实现查看全部。

建立一个 hbj.asp 文件

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

set rs = server.CreateObject(“adodb.recordset”)

sql=”select * from lmnr order by id desc”

rs.CursorLocation = 3

rs.Open sql,conn,0,2,1 ‘ //（Yoko:’这里执行你查询SQL并获得结果记录集

写入翻页脚本语句

rs.PageSize = 1 ‘//（Yoko:这里设定每页显示的记录数

pre = true

last = true

page = trim(Request.QueryString(“page”))

if len(page) = 0 then

intpage = 1

pre = false

else

if cint(page) =< 1 then

intpage = 1

pre = false

else

if cint(page) >= rs.PageCount then

intpage = rs.PageCount

last = false

else

intpage = cint(page)

end if

if not rs.eof then

rs.AbsolutePage = intpage

end if

插入1行6列宽100%的表格，在1 2 3列里写入调取数据表字段 name:<%= rs(“name”) %> bt:<%= rs(“bt”) %> content:<%= rs(“content”) %>，在4列里写入连接添加语句<a href=”htj.asp”>添加</a>，在5列写入连接修改语句

<a href=”hxg.asp?id=<%= rs(“id”) %>”>修改</a>，在6列写入连接删除语句<a href=”hsc.asp?id=<%= rs(“id”) %>”>删除</a>

在行标签 <tr> 前写入重复开始语句

<!–循环开始–>

for i=1 to rs.PageSize

if rs.EOF or rs.BOF then exit for

在行标签 </tr> 后写入重复结束语句

<!–循环体结束–>

rs.movenext

在</table> 下面写入翻页语句

<!–分页部分：–>

<tr>

<%if rs.pagecount > 0 then%>

<%else%>

<td width=”46%” align=”right”> <a href=”hbj.asp?page=1″>首页</a>|

<%if pre=true then%>

<%if last then%>

<a href=”hbj.asp?page=<%=rs.PageCount%>”>尾页</a>|转到第

for i = 1 to rs.PageCount

if i = intpage then%>

<option value=”hbj.asp?page=<%=i%>” selected><%=i%></option>

<%else%>

end if

</select>页</font>

</td>

</tr>

</table>

在代码最下面写入关闭连接语句

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

二．写入记录。

写入记录由2个文件组成，，htj.asp 和 htjzx.asp。

1，htj.ap 是通过表单，把你要写入数据库里内容，传递给htjzx.asp 做法如下：

插入表单后连续插入连续插入2个文本字段，1个文本区域和1个按钮。分别在文本域里输入 name，bt ，content，在按钮后插入隐藏域，隐藏区域输入insert 值里输入form1 在form 的动作里输入htjzx.asp 完成后代码如下

name：<input name=”name” type=”text” id=”name”>

bt：<input name=”bt” type=”text” id=”bt”>

content：<textarea name=”content” id=”content”></textarea>

</form>

2，htjzx.asp 是接受htj.ap 表单传递过来的内容，添加到数据库里。做法如下：

<!–#include file=”conn.asp” –>

If (CStr(Request(“insert”)) = “form1”) Then

name=request.form(“name”)

bt=request.form(“bt”)

content=request.form(“content”)

exec=”insert into lmnr(name,bt,content)values(‘” name ”‘,'” bt ”‘,'” content ”‘)”

conn.execute exec

conn.close

set conn=nothing

End If

response.write(“<script>alert(‘添加成功!’);location.href=’hbj.asp'</script>”)

三，修改记录

修改记录由2个文件组成，，hxg.asp 和 hxgzx.asp。

1，hxg.asp是通过表单，把你要修改数据库里内容，传递给hxgzx.asp 做法如下：

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn

插入表单后连续插入连续插入2个文本字段，1个文本区域和1个按钮。分别在第1个文本字段的文本域里输入 name，初始值里输入<%= rs(“name”) %> ，在第2个文本字段的文本域里输入bt ，初始值里输入<%= rs(“bt”) %>，在第3个文本区域的文本域里输入content，初始值里输入<%= rs(“content”) %>，在按钮后插入隐藏域，隐藏区域输入id 值里输入<%=request.querystring(“id”)%> 在form 的动作里输入hxgzx.asp 完成后代码如下

<!–#include file=”conn.asp” –>

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn

</form>

2，hxgzx.asp 是接受hxg.ap 表单传递过来的内容，修改数据库里的数据。做法如下：

连接数据库

<!–#include file=”conn.asp” –>

写入修改语句

exec=”select * from lmnr where id=”&request.form(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn,1,3

rs(“name”)=request.form(“name”)

rs(“bt”)=request.form(“bt”)

rs(“content”)=request.form(“content”)

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing

response.write(“<script>alert(‘修改成功!’);location.href=’hbj.asp'</script>”)

四，删除记录

删除记录由2个文件组成，，hsc.asp 和 hsczx.asp。

1，hsc.asp是通过表单，把你要删除数据库里id，传递给hsczx.asp 做法如下：

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn

插入表单，在表单里输入“您确定要删除<%=rs(“bt”) %>吗？”后插入按钮，在按钮后插入隐藏域，隐藏区域输入id 值里输入<%=request.querystring(“id”)%> 在form 的动作里输入hsczx.asp 代码最下面输入释放语句

rs.Close()

Set rs = Nothing

完成后代码如下

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>

<!–#include file=”conn.asp” –>

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs=server.createobject(“adodb.recordset”)

rs.open exec,conn

<html>

<head>

<title>无标题文档</title>

</head>

<body>

您确定要删除<%=rs(“bt”) %>吗？

</form>

</body>

</html>

rs.Close()

Set rs = Nothing

2，hsczx.asp 是接受hsc.asp 表单传递过来的id，删除数据库里的id项。做法如下：

连接数据库

<!–#include file=”conn.asp” –>

写入删除语句

exec=”delete * from lmnr where id=”&request.form(“id”)

set rs=server.createobject(“adodb.recordset”)

rs.open exec,conn,1,3

response.write(“<script>alert(‘删除成功!’);location.href=’hbj.asp'</script>”)

conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源。

ASP编程基本语句（三）

一．目录页面

目录页面是查看一个数据表里的全部信息，和后台管理一面一样做法，不过不用连接添加，修改，删除了，改为在标题上连接查看显示内容就可以了。

建立一个 qml.asp 文件

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

set rs = server.CreateObject(“adodb.recordset”)

sql=”select * from lmnr order by id desc”

rs.CursorLocation = 3

rs.Open sql,conn,0,2,1 ‘ //（Yoko:’这里执行你查询SQL并获得结果记录集

写入翻页脚本语句

rs.PageSize = 1 ‘//（Yoko:这里设定每页显示的记录数

pre = true

last = true

page = trim(Request.QueryString(“page”))

if len(page) = 0 then

intpage = 1

pre = false

else

if cint(page) =< 1 then

intpage = 1

pre = false

else

if cint(page) >= rs.PageCount then

intpage = rs.PageCount

last = false

else

intpage = cint(page)

end if

if not rs.eof then

rs.AbsolutePage = intpage

end if

插入1行3列宽100%的表格，在1列里写入调取数据表字段语句 name:<%= rs(“name”) %>

在2列里写入调取数据表字段和连接查看内容页面的

在3列里写入调取数据表字段content:<%= rs(“content”) %>，

在行标签 <tr> 前写入重复开始语句

<!–循环开始–>

for i=1 to rs.PageSize

if rs.EOF or rs.BOF then exit for

在行标签 </tr> 后写入重复结束语句

<!–循环体结束–>

rs.movenext

在</table> 下面写入翻页语句

<!–分页部分：–>

<tr>

<%if rs.pagecount > 0 then%>

<%else%>

<td width=”46%” align=”right”> <a href=”qml.asp?page=1″>首页</a>|

<%if pre=true then%>

<%if last then%>

<a href=”qml.asp?page=<%=rs.PageCount%>”>尾页</a>|转到第

for i = 1 to rs.PageCount

if i = intpage then%>

<option value=”qml.asp?page=<%=i%>” selected><%=i%></option>

<%else%>

end if

</select>页</font>

</td>

</tr>

</table>在代码最下面写入关闭连接语句

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

二，分装页面（读取10条记录，用于首页分装目录）

分装页面也是目录页，用于首页中，因为只要读取几条最新的，不做翻页，就简单了

建立 qfz.asp 文件

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

Set rs= Server.CreateObject (“ADODB.Recordset”)

sql = “Select top 10 * from lmnr ORDER BY id DESC “

rs.Open sql,conn,1,1

插入1行3列表格

在每列里依次写入调取数据表字段

name:<%= rs(“name”) %>

content:<%= rs(“content”) %>

在行标签 <tr> 前写入重复开始语句

<% ‘重复开始

if rs.EOF and rs.BOF then

response.write (“暂时还没有文章”)

else

Do Until rs.EOF %>

在行标签 </tr> 后写入重复结束语句

<% ‘重复结束

rs.MoveNext

Loop

end if

在代码最下面写入关闭连接语句

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

完成后如下面

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>

<!–#include file=”conn.asp” –>

Set rs= Server.CreateObject (“ADODB.Recordset”)

sql = “Select top 10 * from lmnr ORDER BY id DESC “

rs.Open sql,conn,1,1

<html>

<head>

<title>无标题文档</title>

</head>

<body>

<% ‘重复开始

if rs.EOF and rs.BOF then

response.write (“暂时还没有文章”)

else

Do Until rs.EOF %>

<tr>

<td>content:<%= rs(“content”) %></td>

</tr><% ‘重复结束

rs.MoveNext

Loop

end if

</table>

</body>

</html>

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

三，读取内容页面

目录页面或分装页面都是显示很简单，要显示一个内容很多文字，或多媒体图片等，在目录页显示就会破坏页面完整性，要具体查看某一条详细信息，就用显示内容页，接受目录页传递来的 id 来显示这个id 项的全部内容

建立 qck.asp 文件

连接数据库

<!–#include file=”conn.asp” –>

建立查询记录

exec=”select * from lmnr where id=”&request.querystring(“id”)

set rs =server.createobject(“adodb.recordset”)

rs.open exec,conn

插入表格后把数据表中读取字段语句写入单元格里就可以了

插入3行一列表格

第1行写入name:<%= rs(“name”) %>，

第2行写入bt:<%= rs(“bt”) %>

第3行写入content:<%= rs(“content”) %>

在代码最下面写入关闭连接语句

<% conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

ASP编程基本语句（四）

一，用户注册

用户注册由传递和执行2个页面组成

1，在数据库里编制数据库用户表

2， yhzc.asp 实质就是写入页面，和添加一样，就是多一个检查用户存在和密码语句

建立yhzc.asp 文件

插入表单后，插入4行1列宽 300的表格，

第1行输入 “用户名：”在后面插入文本字段文本域输入 name

第2行输入“用户密码：”在后面插入文本字段文本域输入 pwd，类型改为密码

第3行输入“密码确认：”在后面插入文本字段文本域输入 pwd2，类型改为密码

第4行插入按钮在form 的动作里输入yhzczx.asp 完成后代码如下

<%@LANGUAGE=”VBSCRIPT” CODEPAGE=”936″%>

<html>

<head>

<title>无标题文档</title>

</head>

<body>

<tr>

<td>用户名：

</tr>

<tr>

<td>用户密码：

</tr>

<tr>

<td>密码确认：

</tr>

<tr>

</tr>

</table>

</form>

</body>

</html>

3，注册执行页面

建立yhzczx.asp文件、

连接数据库

写入执行代码

name=request(“name”)

pwd=request(“pwd”)

pwd2= request (“pwd2”)

xx=request(“xx”)

sex=request(“sex”)

if pwd<>pwd2 then

response.write(“<script>alert(‘两次输入的密码不对’);window.history.back();</script>”)

response.end() ‘结束运行

end if

set rs=server.CreateObject(“adodb.recordset”)

sql=”select count(0) from yhgl where name='”&name&”‘”

rs.open sql,conn,1,1

if rs(0)>0 then ‘判断用户名是否已经注册

response.write(“<script>alert(‘用户名已经存在’);window.history.back();</script>”)

response.end() ‘结束运行

else

conn.execute(“insert into yhgl([name],[pwd]) values(‘”&name&”‘,'”&pwd&”‘)”) ‘添加到数据库注册完成,yhgl_pwd是 ACCESS中的保留关键字。

response.write(“<script>alert(‘注册成功!’);location.href=’yhdl.asp'</script>”)

end if

conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源。

二，用户登录

用户登录由传递和执行2个页面组成

1，yhdl.asp

建立yhdl.asp 文件

插入表单后，插入3行1列宽 300的表格，

第1行输入 “用户名：”在后面插入文本字段文本域输入 name

第2行输入“用户密码：”在后面插入文本字段文本域输入 pwd，类型改为密码

第3行插入按钮在form 的动作里输入yhdlzx.asp 完成后代码如下

<tr>

<td>用户名：

</tr>

<tr>

<td>用户密码：

</tr>

<tr>

</tr>

</table>

</form>

2，登录执行页面

建立 yhdlzx.asp 文件

写入执行语句

<!–#include file=”conn.asp”–>

Session(“name”)=request.form(“name”)’在 Session中保存用户名

dim username,password

name=request.form(“name”)’从表单传递的用户名

pwd=request.form(“pwd”)

‘查询记录

set rs=server.CreateObject(“adodb.recordset”)

sql=”select * from yhgl where name='”&name&”‘”

rs.open sql,conn,1,1

if rs.eof then

response.write “<script>alert(‘登录失败，用户名不对’);history.back();</script>”

response.end

else

Session(“Username”) = valUsername

if rs(“pwd”)<>pwd then

response.write “<script>alert(‘登录失败，密码不对’);history.back();</script>”

response.end

end if

‘ *** Validate request to log in to this site.

LoginAction = Request.ServerVariables(“URL”)

If Request.QueryString<>”” Then LoginAction = LoginAction “?” Server.HTMLEncode(Request.QueryString)

valUsername=CStr(Request.Form(“name”))

If valUsername <> “” Then

fldUserAuthorization=”yhjb”

redirectLoginSuccess=”qml.asp”

redirectLoginFailed=”hydl.asp”

flag=”ADODB.Recordset”

set rsUser = Server.CreateObject(flag)

rsUser.Source = “SELECT name, pwd”

If fldUserAuthorization <> “” Then rsUser.Source = rsUser.Source & “,” & fldUserAuthorization

rsUser.Source =rsUser.Source & ” FROM yhgl WHERE name='” & Replace(valUsername,”‘”,”””) &”‘ AND pwd='” & Replace(Request.Form(“pwd”),”‘”,”””) & “‘”

‘ username and password match-this is a valid user

Session(“Username”) = valUsername

Session.Timeout =120

If (fldUserAuthorization <> “”) Then

Else

Session(“UserAuthorization”) = “”

End If

if CStr(Request.QueryString(“accessdenied”)) <> “” And false Then

redirectLoginSuccess = Request.QueryString(“accessdenied”)

End If

Response.Redirect(redirectLoginSuccess)

End If

rsUser.Close

Response.Redirect(redirectLoginFailed)

session(“admin”)=username

response.write”<script>alert(‘登录成功’);location.href=’qml.asp'</script>”

end if

conn.close ‘关闭连接，

set conn=nothing ‘释放内存这两句很重要，不然会占用大量服务器资源

几个特殊语句的应用

一，只有会员登录才能显示的语句放在要隐藏文字或图片前面的语句 <% If ad1(“name”).Value <> “未登录” Then %> （这句话的意思是：如果as1这个记录集查询表里文本字段 name 不等于未登录时你隐藏的内容才显示放在要隐藏文字或图片后面的语句 <% End If %> 注意ad1 是记录集查询的名称，一定要和记录集查询的名称一样加入这个功能时，这个页面一定要有用户管理的记录集查询，把显示用户级别，用户名称的记录集查询（筛选 name 阶段变量Username）语句加入页面上。 <% Dim ColParam ColParam = “未登录” If (Session(“Username”) <> “”) Then ColParam = Session(“Username”) End If set ad1 =server.CreateObject(“adodb.recordset”) sql=”select * from yhgl WHERE name = ‘” Replace(ColParam, “‘”, “””) “‘” ad1.open sql,conn,1,1 %> 用户管理数据表的名是yhgl 记录集查询名是ad1 二，只有是管理员才能显示的语句放在要隐藏文字或图片前面的语句 <% If ad1(“yhjb”).Value = “管理员” Then %> （这句话的意思是：如果ad1这个记录集查询表里文本字段 yhjb 等于管理员时你隐藏的内容才显示放在要隐藏文字或图片后面的语句 <% End If %> 同样也得有用户管理的记录集查询，语句和什么一样，这条语句一般用于后台管理显示上。三，有二个条件显示隐藏文字或图片的语句放在要隐藏文字或图片前面的语句 <% If rs (“xzxz”).Value = “0” or ad1(“name”).Value <> “未登录” Then （这句话的意思是：如果rs 这个记录集查询表里文本字段 xzxz 等于0 或 ad1这个记录集查询表里文本字段 name 不等于未登录时满足一个条件你隐藏的内容才显示）放在要隐藏文字或图片后面的语句 <% End If %> 当然使用这个功能，这个页面一定要有名为ad1用户管理的记录集查询和一个名为rs带有 xzxz 字段的记录集查询语句加入页面上。这个功能多数用在随时改变“限制只有登录”才能看见你隐藏的文字或图片或随时改变“不限制”任何人都能看见你隐藏的文字或图片四，只有是管理员才能打开页面的语句后台页面为了防止被人打开，要在代码里的<html>标签前写入下面语句 <% ‘ *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers=”管理员” MM_authFailedURL=”../ts.asp” MM_grantAccess=false If Session(“MM_Username”) <> “” Then If (false Or CStr(Session(“MM_UserAuthorization”))=””) Or _ (InStr(1,MM_authorizedUsers,Session(“MM_UserAuthorization”))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = “?” If (InStr(1,MM_authFailedURL,”?”) >= 1) Then MM_qsChar = “&” MM_referrer = Request.ServerVariables(“URL”) if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & “?” & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & “accessdenied=” & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> 其中 ts.asp 是一个提示页面一般用于后台管理，添加，修改，删除页面中

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/166433.html原文链接：https://javaforall.cn

actionscript css php 编程算法 http

0 人点赞