网络软件 系统工具 应用软件 图形图像 多媒体类 免费游戏 安全相关 免费音乐 网页素材 电子书籍 考试考题 建站源码
教育教学 多媒体类 编程开发 操作系统 游戏天地 娱乐天地 简历求职 站长专区 网页设计 安全技术 图形图像 文学驿站
业界资讯 | 图形图像 | 操作系统 | 网络冲浪 | 工具软件 | 办公软件 | 媒体动画 | 精文荟萃 | 认证考试 | 网页设计 | 技术开发 | 专栏
当前位置:热点网络学院编程开发asp技术aASP编程常用的代码
精品推荐
热点TOP10
·如何在ASP.Net中取得环境变量的值
·ActiveX深入浅出(一)
·Asp中Global.asa的应用(二)
·ASP项目中的通用条件查询模块
·IIS使用10则
·ASP中一个用VBScript写的随机数类
·ASP通用数据库显示编辑程序
·利用XMLHTTP实现的二级连动Select.
·Caching in ASP.NET
·ASP常用的函数
·在Web项目开发中使用BasePage类的巧用(继承System.Web.UI.Page)
·Url ReWriting 示例
·写了一个求最大值与最小值的函数
·网站设计中配色技巧
·ADO编程应用
·ADO API 参考(Parameter 对象&Property 对象&Recordset 对象)
·用XMLHTTP Post/Get HTML页面时的中文乱码问题之完全Script解决方案
·用ASP备份数据库
·6行代码实现无组件上传
·ASP.NET应用程序的安全方案(三)—安全通信
ASP编程常用的代码
日期:2005年11月9日 作者: 查看:[大字体 中字体 小字体]

大多都是平时在网上找的,请大家笑纳!

 

sql中的保留字

action  add  aggregate  all  
alter  after  and  as  
asc  avg  avg_row_length  auto_increment  
between  bigint  bit  binary  
blob  bool  both  by  
cascade  case  char  character  
change  check  checksum  column  
columns  comment  constraint  create  
cross  current_date  current_time  current_timestamp  
data  database  databases  date  
datetime  day  day_hour  day_minute  
day_second  dayofmonth  dayofweek  dayofyear  
dec  decimal  default  delayed  
delay_key_write  delete  desc  describe  
distinct  distinctrow  double  drop  
end  else  escape  escaped  
enclosed  enum  explain  exists  
fields  file  first  float  
float4  float8  flush  foreign  
from  for  full  function  
global  grant  grants  group  
having  heap  high_priority  hour  
hour_minute  hour_second  hosts  identified  
ignore  in  index  infile  
inner  insert  insert_id  int  
integer  interval  int1  int2  
int3  int4  int8  into  
if  is  isam  join  
key  keys  kill  last_insert_id  
leading  left  length  like  
lines  limit  load  local  
lock  logs  long  longblob  
longtext  low_priority  max  max_rows  
match  mediumblob  mediumtext  mediumint  
middleint  min_rows  minute  minute_second  
modify  month  monthname  myisam  
natural  numeric  no  not  
null  on  optimize  option  
optionally  or  order  outer  
outfile  pack_keys  partial  password  
precision  primary  procedure  process  
processlist  privileges  read  real  
references  reload  regexp  rename  
replace  restrict  returns  revoke  
rlike  row  rows  second  
select  set  show  shutdown  
smallint  soname  sql_big_tables  sql_big_selects  
sql_low_priority_updates  sql_log_off  sql_log_update  sql_select_limit  
sql_small_result  sql_big_result  sql_warnings  straight_join  
starting  status  string  table  
tables  temporary  terminated  text  
then  time  timestamp  tinyblob  
tinytext  tinyint  trailing  to  
type  use  using  unique  
unlock  unsigned  update  usage  
values  varchar  variables  varying  
varbinary  with  write  when  
where  year  year_month  zerofill  


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("字段名称")) then 
response.write "不是数字" 
else 
response.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,1 
If RS.RecordCount=0 then 
response.write "<P><center>对不起,数据库中没有相关信息!</center></P>" 
else 
RS.PageSize = Cint(PgSz) '设定PageSize属性的值 
Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数 
PageNo=Request("pageno") 
if PageNo="" Then 
PageNo = 1 
else 
PageNo=PageNo+1 
PageNo=PageNo-1 
end if 
ScrollAction = Request("ScrollAction") 
if ScrollAction = " 上一页 " Then 
PageNo=PageNo-1 
end if 
if ScrollAction = " 下一页 " Then 
PageNo=PageNo+1 
end if 
if PageNo <1 Then 
PageNo = 1 
end if 
n=1 
RS.AbsolutePage = PageNo 
Response.Write "<CENTER>" 
position=RS.PageSize*PageNo 
pagebegin=position-RS.PageSize+1 
if position <RS.RecordCount then 
pagend=position 
else 
pagend= RS.RecordCount 
end if 
Response.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.PageSize 
Do While Not RS.EOF and rowcount > 0 
If n=1 then 
Response.Write "<TR BGCOLOR=#FFFFFF>" 
ELSE 
Response.Write "<TR BGCOLOR=#EEEEEE>" 
End If 
n=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 - 1 
RS.MoveNext 
Loop 
set RS = RS.NextRecordSet 
Loop 
Conn.Close 
set rs = nothing 
set Conn = nothing 
%> 
</TABLE> 
<FORM METHOD=GET ACTION="list.asp"> 
<INPUT TYPE="HIDDEN" NAME="pageno" value="<% =PageNo %>"> 
<% 
if PageNo > 1 Then 
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' value=' 上一页 '>" 
end if 
if RowCount = 0 and PageNo <>Total then 
response.write "<INPUT TYPE=SUBMIT NAME='ScrollAction' value=' 下一页 '>" 
end if 
response.write "</FORM>" 
End if 
%> 
<% End Sub %> 

 

翻页代码:

 <p><%MaxPerPage=8 '定义页面最大的记录数为8<br>
if not isempty(request("page")) then <br>
currentPage=cint(request("page")) 'currentpage我们作为当前页面的变量,获得当前页的数值<br>
else<br>
currentPage=1 '如果为空就设为1<br>
end if<br>
sql="select * from article order by id desc" 'sql语句,查询article表中的所有数据<br>
Set rs= Server.CreateObject("ADODB.Recordset") <br>
rs.open sql,conn,1,1 '执行sql语句<br>
if rs.eof and rs.bof then <br>
response.write "<p align='center'> 还 没 有 任 何 文 章</p>" <br>
else <br>
totalPut=rs.recordcount '把查询到文章总数的值付给totalput变量(设置第一页)<br>
if currentpage<1 then '如果小于1<br>
currentpage=1 <br>
end if <br>
if (currentpage-1)*MaxPerPage>totalput then '设置最后一页,如果有溢出,计算页值<br>
if (totalPut mod MaxPerPage)=0 then <br>
currentpage= totalPut \ MaxPerPage <br>
else <br>
currentpage= totalPut \ MaxPerPage + 1 <br>
end if <br>
end if<br>
if currentPage=1 then '如果是第一页<br>
showpage totalput,MaxPerPage,"index.asp" '执行showpage函数,显示分页<br>
showContent '执行showContent函数,显示内容<br>
showpage totalput,MaxPerPage,"index.asp" '执行showpage函数,显示分页<br>
else '如果不是<br>
if (currentPage-1)*MaxPerPage<totalPut then '当前页*页面最大的记录数是否大于实际总记录数<br>
rs.move (currentPage-1)*MaxPerPage '把记录指针移到当前页的开头<br>
dim bookmark <br>
bookmark=rs.bookmark <br>
showpage totalput,MaxPerPage,"index.asp" <br>
showContent <br>
showpage totalput,MaxPerPage,"index.asp" <br>
else <br>
currentPage=1 <br>
showpage totalput,MaxPerPage,"index.asp" <br>
showContent <br>
showpage totalput,MaxPerPage,"index.asp" <br>
end if <br>
end if <br>
rs.close <br>
end if <br>
set rs=nothing <br>
%></p>
<p><%function showpage(totalnumber,maxperpage,filename) <br>
<br>
dim n <br>
if totalnumber mod maxperpage=0 then <br>
n= totalnumber \ maxperpage <br>
else <br>
n= totalnumber \ maxperpage+1 <br>
end if <br>
response.write "<form method=Post action="&filename&"?typeid="&typeid&">" <br>
response.write "<p align='center'>&gt;&gt;分页 " <br>
if CurrentPage<2 then <br>
response.write "<font color='999966'>首页 上一页</font> " <br>
else <br>
response.write "<a href="&filename&"?typeid="&typeid&"&page=1&>首页</a> " <br>
response.write "<a
href="&filename&"?typeid="&typeid&"&page="&CurrentPage-1&">上一页</a> " <br>
end if <br>
if n-currentpage<1 then <br>
response.write "<font color='999966'>下一页 尾页</font>" <br>
else <br>
response.write "<a href="&filename&"?typeid="&typeid&"&page="&(CurrentPage+1)
<br>
response.write ">下一页</a> <a
href="&filename&"?typeid="&typeid&"&page="&n&">尾页</a>" <br>
end if <br>
response.write " 页次:<strong><font
color=red>"&CurrentPage&"</font>/"&n&"</strong>页 " <br>
response.write " 共<b>"&totalnumber&"</b>个flash<b>"&maxperpage&"</b>个软件/页 "
<br>
response.write " 转到:<input type='text' name='page' size=4 maxlength=10
class=smallInput value="&currentpage&">" <br>
response.write "<input class=buttonface type='submit' value=' 确定 '
name='cndok'></span></p></form>" <br>
end function %></p>

(出处:http://down.vipcn.com/)

关于我们 | 帮助(?) | 版权声明 | 友情连接 
Copyright 2005-2005 viphot.com All Rights Reserved.
Powered by:mesky