站长建站常用的SQL和ASP技巧集合

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" 

sql="update 数据表 set 字段名=字段值 where 条件表达式" 

sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" 

sql="delete from 数据表 where 条件表达式" 

sql="delete from 数据表" (将数据表所有记录删除) 

sql="insert into 数据表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" 

sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) 

sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" 
set rs=conn.excute(sql) 

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

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

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=文件名 -->

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" 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>

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%>
0
<%end if%>
</font>
</td>
<%
crs1.movenext
loop
%>

<td style="word-wrap:break-word;word-break:break-all;">
<%=ltrim(arr(j))%>