e? ‘删除该条数据
7、标准Sql语句写法
包括取全部记录
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句,把数据提出到rs对象中
选取几条数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select top 6 * from news"
Rs.Open SqlStr,conn,1,1 ‘运行sql语句,把6条数据提出到rs对象中
选取一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="select * from news where id="&;request("id")
Rs.Open SqlStr,conn,1,1 ‘运行sql语句,把6条数据提出到rs对象中
添加一条表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="insert into news(title,neirong) values(request("title"), request("neirong"))
修改一条指定表中id字段数值的数据,用表单传过来的数据替换
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="update news set title=’"&;request("title")&;"’,neirong=’"&;request("内容")&;"’ where id="&;request("id")
Rs.Open SqlStr,conn,1,3 ‘运行
sql语句,把数据提出到rs对象中
删除一条指定表中id字段数值的数据
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="delete from news where id="&;request("id")
Rs.Open SqlStr,conn,1,3 ‘运行sql语句,把数据提出到rs对象中
8、当点击按钮时候表单带着的数据传送到哪个文件,在哪里指定?
< form? method="post" action="addsave.asp">
? < input type="text" name="title">
? < input type="text" name="neirong">
? < input type="submit" name="Submit" value="提交">
< /form>
9、表单提交来的数据接收并显示到屏幕上的代码
response.write request("name")
response.write now()
response.write trim(request("name"))
10、利用Application对象作计数器的语法
在网页的头部加入
Application.Lock
Application("counter") = Application("counter") + 1
Application.UnLock
在需要显示计数内容的网页的地方,加入下面的语句
response.write Application("counter")
11、利用Session对象保护后台管理页面admin.asp,防止未登陆
用户进入
在网站后台网页admin.asp的头部加入下面的代码,
??????? if session(admin)< >"ok" then
????????? response.redirect"login.asp"
????????? response.end
??????? end if
在网站后台
登陆页的密码验证部分标准写法
AdmName=Request.Form("Name")
AdmPass=Request.Form("Pass")?
Set Rs=Server.CreateObject("ADODB.RecordSet")
SqlStr="Select * from Admin where name='"&;AdmName&;"' and pass='"&;AdmPass&;"'"
Rs.Open SqlStr,conn,1,3
if Rs.EOF AND RS.BOF then
? Response.Redirect("login.asp")
? response.end
else
? session("admin")="ok"
? Response.Redirect("admin.asp")
? response.end
end if
12、分页代码
sql = "select……………………省略了sql语句
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 30 '定义每页显示的记录数
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount '计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
’if语句属于基本的排错处理
if isEmpty(page) or Cint(page) 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages?
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0?
'这里输出你要的内容………………
??? pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容!")
End if
rs.Close
Set rs = Nothing
分页页码连接和跳转页码
程序 < form Action="v3.asp" Method="GET">
< %?
?? If Page < > 1 Then
????? Response.