CE=服务器;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
====================================================包含页========================================================
=====================================================调用表=======================================================
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("ing.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
======================================================分页=====================================================
id&;nbsp; |
关 键 词; |
价&;nbsp;&;nbsp;格 |
修&;nbsp;&;nbsp;改 |
删&;nbsp;&;nbsp;除 |
<%
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 orde
r 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%>
暂时没有记录!! |
<%
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 p=p+1%>