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=文件名 -->
调用表
打开数据库之后固定修改某个字段
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%>
<tr> <td colspan="6" align=right height=30> 共有<font color=red><%=rs.recordcount%></font>个关键词，<font color=red><%=page%></font>/<%=TotalPages%>页 【<a href="http://www.68design.net/art/<%=request.ServerVariables("URL")%>?page=1">首页</a>】 <% if page>1 then %> 【<a href="http://www.68design.net/art/<%=request.ServerVariables("URL")%>?page=<%=StartPageNum-1%>">上一页</a>】 <%else%> <%end if%> <% For I=StartPageNum to EndPageNum if I<>page then %><A href="http://www.68design.net/art/?page=<%=I%>/"><u><%=I%></u> </A><% else %><font color=red><%=I%></font> <% end if %><% Next %><% if EndPageNum<RS.Pagecount then %> 【<a href="http://www.68design.net/art/<%=request.ServerVariables("URL")%>?page=<%=EndcPageNum+i%>">下一页</a>】 <%end if%> 【<a href="http://www.68design.net/art/<%=request.ServerVariables("URL")%>?page=<%=TotalPages%>">尾页</a>】
<% 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
