菜头粿

标题: 常用数据库语句 [打印本页]

---

作者: hello    时间: 2009-8-29 12:14
标题: 常用数据库语句（凤城社区）



  
   
常用数据库语句
以下内容含脚本,或可能导致页面不正常的代码
常用数据库语句



　　1.select 语句：命令数据库引擎从数据库里返回信息，作为一组记录。
　　2.insert into 语句：添加一个或多个记录至一个表。
　　3.update 语句：创建更新查询来改变基于特定准则的指定表中的字段值。
　　4.delete 语句：创建一个删除查询把记录从 from 子句列出并符合 where 子句的一个或更多的表中清除。
　　5.execute 语句：用于激活 procedure（过程）



用 asp 来做一个自己的通讯录练练手吧……



一、建立数据库：



　　用 microsoft access 建立一个名为 data.mdb 的空数据库，使用设计器创建一个新表。输入以下几个字段：



　　字段名称　　数据类型　　说明　　　　　　其它
　　id　　　　　自动编号　　数据标识　　　　字段大小：长整型　新值：递增　索引：有（无重复）
　　username　　文本　　　　姓名　　　　　　缺省值
　　usermail　　文本　　　　e-mail　　　　　缺省值
　　view　　　　数字　　　　查看次数　　　　字段大小：长整型　默认值：0　索引：无
　　indate　　　时间日期　　加入时间　　　　缺省值



　　保存为 data.mdb 文件，为了便于说明，只是做了一个比较简单的库。



二、连接数据库



　　方*1：
　　set conn = server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")



　　方*2：
　　set conn = server.createobject("adodb.connection")
　　conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("data.mdb")



　　注意：一个页面中，只要连接一次就可以了，数据库使用完后要及时关闭连接。
　　conn.close
　　set conn = nothing



三、添加新记录到数据库



　　set conn = server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")



　　username = "风云突变"
　　usermail = "[email protected]"
　　indate = now()



　　sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"','"&indate&"')"
　　conn.execute(sql)



　　conn.close
　　set conn = nothing



　　说明：建立数据库连接；通过表单获取姓名、e-mail 字符串，now()获取当前时间日期；使用 insert into 语句添加新记录；conn.execute 来执行；最后关闭。



四、选择数据库里的记录



　　1.选择所有记录的字段（按记录倒序排序）：sql = "select * from data order by id desc"
　　2.选择所有记录的姓名和e-mail字段（不排序）：sql = "select username,usermail from data"
　　3.选择姓名为“风云突变”的所有记录：sql = "select * from data where username='"风云突变"'"
　　4.选择使用 163 信箱的所有记录（按查看次数排序）：sql = "select * from data where usermail like '%"@163.com"%' order by view desc"
　　5.选择最新的10个记录：sql = "select top 10 * from data order by id desc"



　　sql 语句已经知道了，不过在web应用时，还得创建一个 recordset 对象得到记录集，才能把从数据库里取出的值应用在网页上，如果现在将所有的记录显示在网页上就这样：



　　set conn = server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")



　　sql = "select * from data"
　　set rs = server.createobject("adodb.recordset")
　　rs.open sql,conn,1,1



　　do while not rs.eof
　　　　response.write "姓名："& rs("username") &"　e-mail："& rs("usermail") &"　查看："& rs("view") &"次　"& rs("indate") &"加入
"
　　　　rs.movenext
　　loop



　　rs.close
　　set rs = nothing
　　conn.close
　　set conn = nothing



　　说明：建立数据库连接；创建 rs 得到记录集；循环显示记录，rs.eof 表示记录末，rs.movenext 表示移到下一个记录；最后关闭。



五、修改（更新）数据库记录



　　修改记录的e-mail：



　　set conn = server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")



　　id = 1
　　usermail = "[email protected]"



　　sql = "update data set usermail='"&usermail&"' where id="&cint(id)
　　conn.execute(sql)



　　conn.close
　　set conn = nothing



　　说明：建立数据库连接；获取记录id、新 e-mail 字符串；使用 update 语句修改记录；conn.execute 来执行；最后关闭。
　　如果使记录的查看值加1，则：sql = "update data set view=view+1 where id="&cint(id)



六、删除数据库记录



　　删除某一条记录：



　　set conn = server.createobject("adodb.connection")
　　conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")



　　id = 1



　　sql = "delete from data where id="&cint(id)
　　conn.execute(sql)



　　conn.close
　　set conn = nothing



　　说明：建立数据库连接；获取记录id；使用 delete 语句删除记录；conn.execute 来执行；最后关闭。
　　删除多条记录为：sql = "delete from data where id in (id1,id2,id3)"
　　删除所有记录为：sql = "delete from data"




1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方*
<%= Server.MapPath("\")%>



2.我如何知道使用者所用的浏览器？
答：使用the Request object方*
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE") <> 0 Then
　　Response.redirect("ForMSIEOnly.htm")
Else
　　Response.redirect("ForAll.htm")
End If



3.如何计算每天的平均反复访问人数
答：解决方*
<% startdate=DateDiff("d",Now,"01/01/1990")
if strdate<0 then startdate=startdate*-1
avgvpd=Int((usercnt)/startdate) %>
显示结果
<% response.write(avgvpd) %>
that is it.this page have been viewed since November 10,1998



4.如何显示随机图象
<% dim p,ppic,dpic
ppic=12
randomize
p=Int((ppic*rnd)+1)
dpic="graphix/randompics/"&p&".gif"
%>
显示
<img src="<%=dpic%>">



5.如何回到先前的页面
答：<a href="<%=request.serverVariables("Http_REFERER")%>">preivous page</a>
或用图片如：<img src="arrowback.gif" alt="<%=request.serverVariables("HTTP_REFERER")%>">



6.如何确定对方的IP地址
答：<%=Request.serverVariables("REMOTE_ADDR)%>



7.如何链结到一副图片上
答：<% @Languages=vbs cript %>
<% response.expires=0
strimagename="graphix/errors/erroriamge.gif"
response.redirect(strimagename)
%>



8.强迫输入密码对话框
答：把这句话放载页面的开头
<% response.status="401 not Authorized"
response.end
%>



9.如何传递变量从一页到另一页
答：用 HIDDEN 类型来传递变量
<% form method="post" action="mynextpage.asp">
<% for each item in request.form %>
<input namee="<%=item%>" type="HIDDEN"
value="<%=server.HTMLEncode(Request.form(item)) %>">
<% next %>
</form>



10.为何我在 asp 程序内使用 msgbox，程序出错说没有权限
答：由于 asp 是服务器运行的，如果可以在服务器显示一个对话框，那么你只好等有人按了确定之后，你的程序才能继续执行，而一般服务器不会有人守着，所以微软不得不禁止这个函数，并胡乱告诉你 ( 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框，as follows:
<% yourVar="测试对话框"%>
<% script language=javas cript>
alert("<%=yourvar%>")
</script>



11.有没有办*保护自己的源代码，不给人看到
答：可以去下载一个微软的Windows s cript Encoder，它可以对asp的脚本和客户端javas cript/vbs cript脚本进行加密。。。不过客户端加密后，只有ie5才能执行，服务器端脚本加密后，只有服务器上安装有s cript engine 5（装一个ie5就有了）才能执行。



12.怎样才能将 query string 从一个 asp 文件传送到另一个？
答：前者文件加入下句： Response.Redirect("second.asp?" & Request.ServerVariables("QUERY_STRING"))



13.global.asa文件总是不起作用?
答：只有web目录设置为web application, global.asa才有效，并且一个web application的根目录下 global.asa才有效。IIS4可以使用Internet Service Manager设置application setting 怎样才能使得htm文件如同asp文件一样可以执行脚本代码？



14.怎样才能使得htm文件如同asp文件一样可以执行脚本代码？
答：Internet Sevices Manager -> 选择default web site ->右鼠键->菜单属性-〉主目录-> 应用程序设置（Application Setting）-> 点击按钮 "配置"-> app mapping ->点击按钮"Add" -> executable browse选择 \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION 输入 htm method exclusions 输入PUT.DELETE 全部确定即可。但是值得注意的是这样对htm也要由asp.dll处理，效率将降低。



15.如何注册组件
答：有两种方*。
第一种方*：手工注册 DLL 这种方*从IIs 3.0一直使用到IIs 4.0和其它的Web Server。它需要你在命令行方式下来执行，进入到包含有DLL的目录，并输入：regsvr32 component_name.dll 例如 c:\temp\regsvr32 AspEmail.dll 它会把dll的特定信息注册入服务器中的注册表中。然后这个组件就可以在服务器上使用了，但是这个方*有一个缺陷。当使用这种方*注册完毕组件后，该组件必须要相应的设置NT的匿名帐号有权限执行这个dll。特别是一些组件需要读取注册表，所以，这个注册组件的方*仅仅是使用在服务器上没有MTS的情况下，要取消注册这个dll，使用：regsvr32 /u aspobject.dll example c:\temp\regsvr32 /u aneiodbc.dll



第二种方*：使用MTS(Microsoft Transaction Server) MTS是IIS 4新增特色，但是它提供了巨大的改进。MTS允许你指定只有有特权的用户才能够访问组件，大大提高了网站服务器上的安全性设置。在MTS上注册组件的步骤如下：
1) 打开IIS管理控制台。
2) 展开transaction server，右键单击"pkgs installed"然后选择"new package"。
3) 单击"create an empty package"。
4) 给该包命名。
5) 指定administrator帐号或则使用"interactive"（如果服务器经常是使用administrator 登陆的话）。
6) 现在使用右键单击你刚建立的那个包下面展开后的"components"。选择 "new then component"。
7) 选择 "install new component" 。
8) 找到你的.dll文件然后选择next到完成。
要删除这个对象，只要选择它的图标，然后选择delete。
附注：特别要注意第二种方*，它是用来调试自己编写组件的最好方*，而不必每次都需要重新启动机器了。



16. ASP与Access数据库连接：



<%@ language=VBs cript%>
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>



17. ASP与SQL数据库连接：



<%@ language=VBs cript%>
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "ROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=saWD=数据库密码;DATABASE=数据库名称
%>
说明：上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.

---

欢迎光临 菜头粿 (https://cn.521000.cn/)

Powered by Discuz! X3