SQL常用命令使用方法:(1) 数据记录筛选:sql="select * from 数据表where 字段名=字段值order by 字段名"sql="select * from 数据表where 字段名like ‘%字段值%‘order by 字段名"sql="select top 10 * from 数据表where 字段名order by 字段名"sql="select * from 数据表where 字段名in (‘值1‘,‘值2‘,‘值3‘)"sql="select * from 数据表where 字段名between 值1 and 值2"(2) 更新数据记录:sql="update 数据表set 字段名=字段值where 条件表达式"sql="update 数据表set 字段1=值1,字段2=值2 ……字段n=值n where 条件表达式" (3) 删除数据记录:sql="delete from 数据表where 条件表达式"sql="delete from 数据表" (将数据表所有记录删除)(4) 添加数据记录:sql="insert into 数据表(字段1,字段2,字段3 …)valuess (值1,值2,值3 …)"sql="insert into 目标数据表select * from 源数据表" (把源数据表的记录添加到目标数据表)(5) 数据记录统计函数:AVG(字段名) 得出一个表格栏平均值COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计MAX(字段名) 取得一个表格栏最大的值MIN(字段名) 取得一个表格栏最小的值SUM(字段名) 把数据栏的值相加引用以上函数的方法:sql="select sum(字段名) as 别名from 数据表where 条件表达式"set rs=conn.excute(sql)用rs("别名") 获取统的计值,其它函数运用同上。
(5) 数据表的建立和删除:CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) ……)例:CREATE TABLE tab01(name varchar(50),datetime default now())DROP TABLE 数据表名称(永久性删除一个数据表)4. 记录集对象的方法:rs.movenext 将记录指针从当前的位置向下移一行rs.moveprevious 将记录指针从当前的位置向上移一行rs.movefirst 将记录指针移到数据表第一行rs.movelast 将记录指针移到数据表最后一行rs.absoluteposition=N 将记录指针移到数据表第N行rs.absolutepage=N 将记录指针移到第N页的第一行rs.pagesize=N 设置每页为N条记录rs.pagecount 根据pagesize 的设置返回总页数rs.recordcount 返回记录总数rs.bof 返回记录指针是否超出数据表首端,true表示是,false为否rs.eof 返回记录指针是否超出数据表末端,true表示是,false为否rs.delete 删除当前记录,但记录指针不会向下移动rs.addnew 添加记录到数据表末端rs.update 更新数据表记录判断所填数据是数字型if not isNumeric(request("字段名称")) thenresponse.write "不是数字"elseresponse.write "数字"end if--------------------------------------------------------------------------------simpleli 于2002-03-23 15:08:45 加贴在ASP论坛上--------------------------------------------------------------------------------内容(3469bytes):這是論壇的分頁顯示﹐你改一下就行了。
<% Sub ShowList() %><%PgSz=20 '设定开关,指定每一页所显示的貼子數,默认为20貼子一页Set Conn = Server.CreateObject("ADODB.Connection")Set RS = Server.CreateObject("ADODB.RecordSet")sql = "SELECT * FROM message order by ID DESC"'查询所有帖子,并按帖子的ID倒序排列Conn.Open "bbs"RS.open sql,Conn,1,1If RS.RecordCount=0 thenresponse.write "<P><center>对不起,数据库中没有相关信息!</center></P>"elseRS.PageSize = Cint(PgSz) '设定PageSize属性的值Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数PageNo=Request("pageno")if PageNo="" ThenPageNo = 1elsePageNo=PageNo+1PageNo=PageNo-1end ifScrollAction = Request("ScrollAction")if ScrollAction = " 上一页" ThenPageNo=PageNo-1end ifif ScrollAction = " 下一页" ThenPageNo=PageNo+1end ifif PageNo <1 ThenPageNo = 1end ifn=1RS.AbsolutePage = PageNoResponse.Write "<CENTER>"position=RS.PageSize*PageNopagebegin=position-RS.PageSize+1if position <RS.RecordCount thenpagend=positionelsepagend= RS.RecordCountend ifResponse.Write "<P><font color='Navy'><B>数据库查询结果:</B>"Response.Write "(共有"&RS.RecordCount &"条符合条件的信息,显示"&pagebegin&"-"&pagend&")</font></p>"Response.Write "<TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF> "Response.Write "<TR BGCOLOR=#5FB5E2><FONT SIZE=2><TD><B>主题</B></TD><TD><B>用户</B></TD><TD><B>Email</B></TD><TD><B>发布日期</B></TD></FONT><TR BGCOLOR=#FFFFFF>"Do while not (RS is nothing)RowCount = RS.PageSizeDo While Not RS.EOF and rowcount > 0If n=1 thenResponse.Write "<TR BGCOLOR=#FFFFFF>"ELSEResponse.Write "<TR BGCOLOR=#EEEEEE>"End Ifn=1-n %><TD><span style="font-size:9pt"><A href='view.asp?key=<% =RS("ID")%>'><% =RS("subject")% ></A></span></td><TD><span style="font-size:9pt"><% =RS("name")%></A></span></td><TD><span style="font-size:9pt"><a href="mailto:<% =RS("email")%>"><% =RS("email")%></a> </span> </TD><TD><span style="font-size:9pt"><% =RS("postdate")%></span> </td></TR><%RowCount = RowCount - 1RS.MoveNextLoopset RS = RS.NextRecordSetLoopConn.Closeset rs = nothingset Conn = nothing%></TABLE><FORM METHOD=GET ACTION="list.asp"><INPUT TYPE="HIDDEN" NAME="pageno" value="<% =PageNo %>"><%if PageNo > 1 Thenresponse.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' value=' 上一页'>"end ifif RowCount = 0 and PageNo <>Total thenresponse.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' value=' 下一页'>"end ifresponse.write "</FORM>"End if%><% End Sub %>ASP 编程中 20 个非常有用的例子责任编辑:fuxing [网人帝国] 添加时间:2002-9-23 0:00:00 人气:258901.如何用Asp判断你的网站的虚拟物理路径答:使用Mappath方法< p align="center" >< font size="4" face="Arial" >< b >The Physical path to this virtual website is:< /b >< /font >< font color="#FF0000" size="6" face="Arial" >< %= Server.MapPath("\")% >< /font >< /p >2.我如何知道使用者所用的浏览器?答:使用the Request object方法strBrowser=Request.ServerVariables("HTTP_USER_AGENT")If Instr(strBrowser,"MSIE") < > 0 ThenResponse.redirect("ForMSIEOnly.htm")ElseResponse.redirect("ForAll.htm")End If3.如何计算每天的平均反复访问人数答:解决方法< % startdate=DateDiff("d",Now,"01/01/1990")if strdate< 0 then startdate=startdate*-1avgvpd=Int((usercnt)/startdate) % >显示结果< % response.write(avgvpd) % >that is it.this page have been viewed since November 10,19984.如何显示随机图象< % dim p,ppic,dpicppic=12randomizep=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=0strimagename="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 是服务器运行的,如果可以在服务器显示一个对话框,那么你只好等有人按了确定之后,你的程序才能继续执行,而一般服务器不会有人守着,所以微软不得不禁止这个函数,并胡乱告诉你(:) 呵呵) 没有权限。