unction.asp、 top1.asp、 top2.asp、 rewrite.asp 、 、 、 、 、 、 、
<% set conn=server.CreateObject("adodb.connection") conn.open"driver={Microsoft Access driver (*.mdb)};"&;"db
q="&;server.MapPath("data/data.mdb") set rs=server.CreateObject("ADODB.RecordSet") %>
分页技术核心代码 2. 分页技术核心代码 核心 这段代码在网页中所有分页页面都用到过, 包括: 主页面, 这段代码在网页中所有分页页面都用到过 , 包括 : index.asp 主页面 , guanli.asp、 guanli.asp、guanli2.asp 两个管理页面 sql2="select * from liuyan where lock='false' order by id desc " rs.open
sql2,conn,3,2 rs.pagesize=5 '设置每 5 条记录为一页 page=clng(request("page")) if page<1 then page=1 if page>rs.pagecount then page=rs.pagecount if rs.pagecount>0 then rs.absolutepage=page '初始化第一页为 page 的值 myself=request.ServerVariables("PATH_INFO") '获取本页的网络地址 for i=1 to rs.pagesize if rs.eof then exit for end if %> . . . 数据库提取留言者的信息… .
. . <% rs.movenext next %> <% if rs.pagecount>1 then %>
<%'显示上一页 if page=1 then %>
上一页 <% else %>
上一页 <%end if%> &;nbsp; &;nbsp; <% for i=1 to rs.pagecount if i=page then color="red" response.Write "
"&;cstr(i)&;" &;nbsp;" else color="black" response.Write"
"&;cstr(i)&;"&;nbsp;" end if next %> &;nbsp; &;nbsp;
<%'显示下一页 if page=rs.pagecount then %>
下一页
<% else %>
下一页
<% end if %> <% elseif rs.pagecount<1 then response.Write "
无相关内容!
" end if %> 3. 处理表单代码 文件中, 这段代码在 deal.asp 文件中,用来处理留言着留言的表单 <% uid=request.Form("uid") qq=request.Form("qq") email=request.Form("email") biaoq=request.Form("biaoq") face=request.Form("face") text=request.Form("text") datetime=now locks=request.Form("lock") f_ip=trim(request.ServerVariables("REMOTE_ADDR")) ip=trim(Look_Ip(f_ip)) if ip="本机地址" or ip="局域网" then ip="
软件调试人员" set conn=server.CreateObject("adodb.connection") conn.open "driver={Microsoft Access Driver (*.mdb)};"&;"dbq="&;server.MapPath("../data/data.mdb") sql="insert into liuyan (name,QQ,[text],[datetime],face,ip,email,biaoq,lock) values('" &; uid &;"','" &; qq &; "','"&;text&;"','"&;datetime&;"','"&;face&;"','"&;ip&;"','"&;email&;"','"&;bi aoq&;"','"&;locks&;"')" '检测表单是否为空 If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce_ValidateCode"))<>Trim(Request.Form("vali datecode")) Then response.write"
-
相关文章
-
最新文件