网站建设制作网页设计常见问题连载之：ASP技术总结（asp基础）

来源：WWW.E68CN.COM 作者：君泽君东莞网络公司 2008-07-13 点击：

【内容摘要】：网站建设 １、第一句话定义了一个adodb数据库连接组件，第二句连接了数据库。 % set conn=server.createobject(adodb.connection) conn.open driver={microsoft access driver (*.mdb)};dbq=server.mappath(example3.mdb) % ２、第一句：设置查询数据库的命令，第二句：..

本文关键词：网站建设制作 网页设计 网站建设 网站 asp 网页

君泽君东莞网络公司运营项目（网站建设制作，SEO网站优化推广，网页设计制作，东莞网站推广等），为了更好的服务大家，创一条共赢的道路，特意为各位新老客户朋友，网友收集或原创以下文章，希望能对你有所帮助，也希望大家都能支持我们君泽君公司，支持我们的东莞网站建设网，谢谢大家。

网站建设 １、第一句话定义了一个adodb数据库连接组件，第二句连接了数据库。
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%>
２、第一句：设置查询数据库的命令，第二句：定义一个记录集组件，所有搜索到的记录都放在这里面，第三句是打开这个记录集，exec就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3。
<%
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
总结：先打开数据库，再打开记录集。关闭记录集，关闭数据库。
３、读取记录
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
４、添加记录
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft　access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
name=request.form("name")
tel=request.form("tel")
message=request.form("message") 
exec="insert into guestbook(name,tel,message)values(&#146;"+name+"&#146;,"+tel+",&#146;"+message+"&#146;)"
conn.execute exec
conn.close
set conn=nothing
response.write "记录添加成功!"
%>
网站建设 说明："insert into guestbook(name,tel,message)values(&#146;"是第一段，在ASP里面不能嵌双引号，所以可以用&#146;代替双引号，放在双引号里面，连接两个变量用+或者&所以"&#146;,"又是一段，中间夹了一个name就是表单传来的变量，这样就可以在这个变量外面加两个&#146;&#146;，表示是字符串了，后面的tel是数字型变量所以不需要外面包围&#146;&#146;。"insert into guestbook(name,tel,message)values(&#146;aaa&#146;,111,&#146;bbb&#146;)"。
５、删除记录
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft
ccess driver (*.mdb)};dbq="&server.mappath("example3.mdb")
exec="delete * from guestbook where 编号="&request.form("id")
conn.execute exec
%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("test.mdb")
exec="select * from test where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("aa")=request.form("aa")
rs("bb")=request.form("bb")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
６、检测是不是用户已经登陆
<%
session("islogin")="yes"
%>
说明：意思就是在session里面定义一个islogin字符串变量，值为"yes"，直接可以赋值，不需要声明。
７、检测是不是管理员
if 是 then 
session("isadmin")=yes"
else 
session("isadmin")="no"
end if
<%
if not session("isaadmin")="yes"then
response.redirect "login.htm"
%>
rsquest和response的用法：
response组件基本就是用到response.write ()，response.redirect() 分别是写字符串和转向的作用
request基本就是request.form()，request.querystring() 分别是接受post,get方法传来的信息
分页技术总结：简单的分页代码。
<%
exec="select * from test"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
rs.PageSize=3　　　　　　　&#146;rs.pagesize设置一个页面里面显示的记录数
pagecount=rs.PageCount 　　&#146;pagecount是自己定义的变量，rs.pagecount是记录的个数。
page=int(request.QueryString ("page"))　　&#146;page是自己定义的一个变量，从地址栏里读取。
if page<=0 then page=1　　
if request.QueryString("page")="" then page=1　&#146;没有page变量时自动设置为page=1，防止出错，还有当我们if....then...放在一行的时候end if可以省略。
rs.AbsolutePage=page 
%>
下面说一种特殊情况：
if page=1 and not page=pagecount，这个时候没有上一页，但是有下一页
elseif page=pagecount and not page=1，这个时候没有下一页，但是有上一页
elseif page<1，这个时候没有任何记录
elseif page>pagecount then，这个时候没有任何记录
br>elseif page=1 and page=pagecount，这个时候没有上一页，没有下一页
else，这个时候有上一页，也有下一页。
创建文件并写入内容
<%
voteincdir = server.mappath("peizhi.asp")&#146;返回与Web服务器上的指定虚拟路径相对应的物理文件路径
Const ForWriting = 2&#146;设置OpenTextFile的属性值，ForReading = 1以只读模式打开文件。不能对此文件进行写操作,ForWriting = 2：覆盖性写入。ForAppending=8 在文件尾写入。
set fs = CreateObject("Scripting.FileSystemObject")&#146;创建一个文件对象
set ts = fs.OpenTextFile(voteincdir,ForWriting, True)&#146;允许创建新文件时为 True
ts.Write "<"
ts.write "%"& vbCrLf&#146;代表回车换行，就是vbcrlf后边的内容会换到另外一行显示
ts.write "B=123"& vbCrLf
ts.write "C="&"""你好啊"""& vbCrLf
ts.write "D=""谢谢"""& vbCrLf
ts.write "%"& vbCrLf
ts.write ">"
ts.close
    %>
批量删除记录代码：
方法一： conn.execute("delete from yourtable where id in (" & Request.Form("ID") & ")")
方法二：
for i=1 to request.form("id").count
        conn.Execute ("Delete from yourtable where ID="&trim(Request.Form("ID")(i))&"")
     next
方法三：<%
dim i
       for i=trim(request.form("IdStart"))      to trim(request.form("IdEnd"))
           conn.Execute ("Delete from p_info where p_id="&(i)&"")
        next

response.write"<script>alert(&#146;恭喜你，批量删除成功！&#146;);{window.location=&#146;product_list.asp&#146;}</script>"

 

东莞网站建设 东莞网站设计联系方式： 

QQ：290971567(网络营销顾问)
E-mail：290971567＃qq.com SEO＃DGSEO.COM.CN
MSN:DGSEO@LIVE.CN
Skype:LFG290971567
电话：0769-89046712 89046713 81607352　81763536　22329222
传真：0769-81763536
24小时服务热线：13728246800 13416954808 13480451743
项目咨询：290971567(网络营销顾问)
君泽君文化传媒机构（君泽君东莞网络公司）
地址：广东省东莞市长安镇上沙社区顺景丽庭大厦

 

看过本文的朋友还点击了：东莞 网站 网页 东莞网站建设 网站设计 东莞网页制作 君泽君 网页设计 长安 东莞网络公司 东莞网站制作　东莞网页设计　网站推广　网络营销

上一篇：网站建设制作网页设计常见问题连载之：优化提高电脑的运行速度[两个方案]　下一篇：