联系站长 加入收藏 设为首页 繁體中文 RSS
  首页 | 生活百科 | 电脑网络 | 高手学堂 | 语录名言 | 读书文学 | 极品软件 | 奇趣图片 | 站长微博  
 您的位置: 精品百字节网 >> 电脑网络 >> 网络编程 >> 编程问题 >> 正文 当前没有通告!
   □  asp 基础知识点整理    3星级
asp 基础知识点整理
[ 作者:作者不详     来源:互连网     点击数:     更新时间:2006-10-06     文章录入:Admin
【字体:
[内容提要]
暂无简介

sql常用命令方法
(1) 数据记录筛选:  

sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]"  

sql="select * from 数据表 where 字段名 like ’’%字段值%’’ order by 字段名 [desc]"  

sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]"  

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 数据表名称 (永久性删除一个数据表) 


select distinct * into yjkc2 from yjkc 
drop table yjkc 
select * into yjkc from yjkc2 
drop table yjkc2 







===================================================SQL连接方式================================================== 

dim conn  
set conn=server.createobject("ADODB.connection")  
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=服务器;UID=用户名;PWD=密码;DATABASE=表名;" 



================================================access连接方式================================================= 

dim conn  
dim connstr 
on error resume next 
connstr="DBQ="+server.mappath("数据库路径")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 
set conn=server.createobject("ADODB.CONNECTION") 
conn.open connstr  




====================================================包含页======================================================== 
<!--#include file=文件名 --> 


=====================================================调用表======================================================= 
set rs=server.createobject("adodb.recordset") 
sql="select * from 表名 where 字段=变量 order by 字段 desc" 
rs.open sql,conn,1,1 

打开数据库之后固定修改某个字段 
conn.execute("Update 表名 Set 字段=字段+1 Where 字段=变量" 


=====================================================删除内容====================================================== 
set rs=server.createobject("adodb.recordset") 
sql="select * from 表名 where 字段=变量" 
rs.open sql,conn,1,3 
有图片就删除图片 
Picture=rs("newspic")  
set fs=server.CreateObject("scripting.filesystemobject")  
Picture=server.MapPath(Picture)  
if fs.FileExists(Picture) then  
fs.DeleteFile Picture,true  
end if  
rs.delete 
rs.update 
response.redirect request.servervariables("http_referer") 
end if 

======================================================分页===================================================== 

<table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="cccccc"> 
<tr bgcolor="f5f5f5"> 
<td width=10% align=center> 
<font color="">id  
</td> 
<td width=40% align=center>关 键 词;</td> 
<td width=10% align=center>价  格</td> 
<td width=20% align=center>修  改</td> 
<td width=20% align=center>删  除</td> 
</tr> 
<% 
If Request.QueryString("page") = "" or Request.QueryString("page") = 0 then 
page = 1 
Else 
page = CINT(Request.QueryString("page")) 
End If 
if request("pm")="" then 
set rs=server.CreateObject("adodb.recordset") 
sql="select * from p_words order by id desc" 
rs.open sql,conn,1,1 
else 
set rs=server.CreateObject("adodb.recordset") 
sql="select * from p_words where pm_name like ’%"&request("pm")&"%’" 
rs.open sql,conn,1,1 
end if 
if rs.eof and rs.bof then%> 
<tr > 
<td width=10% align=center colspan="6" > 
暂时没有记录!!<br> 
</td> 
</tr> 
<% 
else 
%> 
<% 
RS.PageSize=10’设置每页记录数            
Dim TotalPages               
TotalPages = RS.PageCount               
               
If page>RS.Pagecount Then                
page=RS.Pagecount               
end if               
               
RS.AbsolutePage=page 
rs.CacheSize = RS.PageSize’设置最大记录数   
Dim Totalcount               
Totalcount =INT(RS.recordcount)               
               
StartPageNum=1               
do while StartPageNum+10<=page               
StartPageNum=StartPageNum+10               
Loop               
                   
EndPageNum=StartPageNum+9               
               
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount %> 
<%I=0 
p=RS.PageSize*(page-1)               
do while (Not RS.Eof) and (I<RS.PageSize)               
p=p+1%> 

<form action="?act=move&id=<%=rs("id")%>" method=post name=form1> 
<tr bgcolor="#FFFFFF"> 
<td align=center><%=rs("id")%></td> 
<td><input type=text name="pm_name" size=12 value="<%=rs("pm_name")%>"></td> 
<td align=center><input type=text name="pm_p" size=8 value="<%=rs("pm_p")%>"></td> 
<td align=center><input type=’submit’ class=’button’ value=’修改’></td> 
<td align=center><input type="button" name="Submit" value="删除" class="button" onclick="location=’biglist.asp?act=del&id=<%=rs("id")%>’"></td> 
</tr> 
</form> 

<%I=I+1               
RS.MoveNext               
Loop%>  
               
   

<tr> <td colspan="6" align=right height=30> 
  共有<font color=red><%=rs.recordcount%></font>个关键词,<font color=red><%=page%></font>/<%=TotalPages%>页 
【<a href="<%=request.ServerVariables("URL")%>?page=1">首页</a>】  
<% if page>1 then %> 
【<a href="<%=request.ServerVariables("URL")%>?page=<%=StartPageNum-1%>">上一页</a>】 
<%else%> 
<%end if%> 
<% For I=StartPageNum to EndPageNum                           
      if I<>page then %><A href="?page=<%=I%>"><u><%=I%></u> </A><% else %><font color=red><%=I%></font> <% end if %><% Next %><% if EndPageNum<RS.Pagecount then %> 
【<a href="<%=request.ServerVariables("URL")%>?page=<%=EndcPageNum+i%>">下一页</a>】 
<%end if%> 
【<a href="<%=request.ServerVariables("URL")%>?page=<%=TotalPages%>">尾页</a>】 

</td></tr> 


<% 
end if 
rs.close 
%>   

</table> 



===============================================常用JAVA=========================================================== 
response.write"<SCRIPT language=JavaScript>alert(’该关键词已经存在。’);" 
response.write"javascript:history.go(-1)</SCRIPT>" 
’response.redirect "biglist.asp" 
’response.write"this.location.href=’index.asp’;</SCRIPT>"  
’response.redirect request.servervariables("http_referer") 

response.end 



=================================================常用命令============================================================= 

两个表循环 
<% 
dim crs1 
dim csql1 
Set crs1= Server.CreateObject("ADODB.Recordset")  
csql1="select * from commercetype"  
crs1.open csql1,conn,1,1 
%> 
<%do while not crs1.eof%> 
<% 
Set all= Server.CreateObject("ADODB.Recordset") 
csql1="select * from Commerce where Typeid="&crs1("Typeid") 
all.open csql1,conn,1,1 

%> 
<td width="20%" height=17 bgcolor="#E4F4FC" valign=middle> 
<font color=red> 
<%if not all.eof then%> 
<%=all.recordcount%> 
<%else%> 

<%end if%> 
</font> 
</td> 
<% 
crs1.movenext 
loop 
%> 

去掉太长的录入文字: 
<td style="word-wrap:break-word;word-break:break-all;"> 

<%=ltrim(arr(j))%> 
去掉左空格 
instr(request.form("t"),",")>0 
查验是否有,号 
arr=split(request.form("t"),",")  
去掉,并付值给arr 
ubound(arr)  
个数 

[1] [2] [3] [4]  下一页

上一篇文章:屏蔽flash右键菜单方法全攻略 下一篇文章:flash与asp编程(1)
发表评论 □告诉好友 □打印此文 □收藏此页 □关闭窗口 □返回顶部
 最新热点文章
 精品医院类网站网址大收集
 如何删除windows 2003或xp系统隐藏的...
 DedeCms管理员后台登陆经常自动退出的...
 知道IP如何用dos命令查出电脑名称
 WORD出错老是要求以安全模式打开文件...
 如何设置首页不显示页眉页脚?
 如何利用inurl命令查询网站外链及栏目...
 
 最新推荐文章
 精品医院类网站网址大收集
 如何利用宽带路由器控制局域网内电脑上...
 CSS圆角代码的实现方法
 带停顿的单行文字滚动代码
 实用的新网站免费收录提交地址精选
 Left join , Right Join, Inner Join用...
 趣话淘宝网衍生的多种新型职业
 
 最新图文
  ◇  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!)
关于本站 | 免责申明 | 网站地图 | 联系站长 | 友情链接 | 与我同在
冀ICP备06032589号【虚拟化精英群虚拟化精英群续
  Copyright© 2006-2009 100byte.Com All Rights Reserved
网站声明:本网站是公益性质网站,部分内容来源于网络,如有侵犯您权利的地方,请与精品百字节站长联系,尽快修正.
Powered By CreateLive CMS 本站法律顾问:(冀港)武镇海律师
点击这里给我发消息