本站提供最佳于源码头服务,欢迎转载和分享。

【防红api源码】【web书城源码】【会员专用源码】asp通讯录源码

2024-11-08 09:30:51 来源:码农网源码 分类:综合

1.aspͨѶ¼Դ?讯录?
2.我是ASP新手,请问怎样实现站内搜索啊,源码
3.求漂亮的讯录asp同学录程序

asp通讯录源码

aspͨѶ¼Դ??

       这是一个分页显示的问题。

       <%''*建立数据库连接,源码这里是讯录Oracle8.数据库 Set conn=Server.CreateObject("ADODB.Connection") conn.Open "Provider=msdaora.1;Data Source=YourSrcName;User ID=YourUserID;Password=YourPassword;"

        Set rs=Server.CreateObject("ADODB.Recordset") ''创建Recordset对象 rs.CursorLocation=adUseClient

       ''设定记录集指针属性

       ''*设定一页内的记录总数,可根据需要进行调整 rs.PageSize=

       ''*设置查询语句

       StrSQL="Select ID,源码防红api源码姓名,住址,电话 from 通讯录 Order By ID"

       rs.Open StrSQL,conn,adOpenStatic,adLockReadOnly,adCmdText%>

       <HTML><

       HEAD>

       <title>分页示例</title>

       <script language=javascript> //点击"[第一页]"时响应: function PageFirst() { document.MyForm.CurrentPage.selectedIndex=0; document.MyForm.CurrentPage.onchange(); } //点击"[上一页]"时响应: function PagePrior() { document.MyForm.CurrentPage.selectedIndex--; document.MyForm.CurrentPage.onchange(); } //点击"[下一页]"时响应: function PageNext() { document.MyForm.CurrentPage.selectedIndex++; document.MyForm.CurrentPage.onchange();}

       //点击"[最后一页]"时响应: function PageLast() {

       document.MyForm.CurrentPage.selectedIndex

       =document.MyForm.CurrentPage.length-1;

       document.MyForm.CurrentPage.onchange(); }

       //选择"第?页"时响应: function PageCurrent() {

       //Pages.asp是本程序的文件名 document.MyForm.action='Pages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)

       document.MyForm.submit(); } </Script>

       </HEAD>

       <BODY bgcolor="#ffffcc" link="#" vlink="#" alink="#FF"">

       <%IF rs.Eof THEN

       Response.Write("<font size=2 color=#>[数据库中没有记录!]</font>")

       ELSE

       ''指定当前页码 If Request("CurrentPage")="" The讯录n

       AbsolutePage=1

       Else

       rs.AbsolutePage=CLng(Request("CurrentPage"))

       End If

       ''创建表单MyForm,方法为Get

       Response.Write("<form method=Get name=MyForm>")

       Response.Write("<p align=center><font size=2 color=#>")

       ''设置翻页超链接

       if rs.PageCount=1 then

       Response.Write("[第一页] [上一页] [下一页] [最后一页] ")

       else

       if rs.AbsolutePage=1 then

       Response.Write("[第一页] [上一页] ")

       Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")

       else

       if rs.AbsolutePage=rs.PageCount then

       Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") Response.Write("[下一页] [最后一页] ")

       else

       Response.Write("[<a href=javascript:PageFirst()>第一页</a>] ") Response.Write("[<a href=javascript:PagePrior()>上一页</a>] ") Response.Write("[<a href=javascript:PageNext()>下一页</a>] ") Response.Write("[<a href=javascript:PageLast()>最后一页</a>] ")

       end if

       end if

       end if

       ''创建下拉列表框,用于选择浏览页码

       Response.Write("第<select size=1 name=CurrentPage onchange=PageCurrent()>")

       For i=1 to rs.PageCount

       if rs.AbsolutePage=i then

       Response.Write("<option selected>"&i&"</option>") ''当前页码

       else

       Response.Write("<option>"&i&"</option>")

       end if

       Next

       Response.Write("</select>页/共"&rs.PageCount&"页 共"&rs.RecordCount&"

       条记录</font>")

       Response.Write("</form>")

       ''创建表格,源码用于显示

       Response.Write("<table align=center cellspacing=1 cellpadding=1 border=1")

       Response.Write(" bordercolor=#CCFF bordercolordark=#b0e0e6 bordercolorlight=#>")

       Response.Write("<tr bgcolor=#ccccff bordercolor=#>")

       Set Columns=rs.Fields

       ''显示表头

       For i=0 to Columns.Count-1

       Response.Write("<td align=center width= height=>")

       Response.Write("<font size=2><b>"&Columns(i).name&"</b></font></td>") Next

       Response.Write("</tr>")

       ''显示内容

       For i=1 to rs.PageSize

       Response.Write("<tr bgcolor=#ccff bordercolor=#>")

       For j=0 to Columns.Count-1

       Response.Write("<td><font size=2>"&Columns(j)&"</font></td>")

       Next

       Response.Write("</tr>")

       rs.movenext

       if rs.EOF then exit for

       Next

       Response.Write("</table>")

       END IF%>

       </BODY>

       </HTML>

我是讯录ASP新手,请问怎样实现站内搜索啊,源码

       对于初学的讯录话,实际上ASP和ASP.NET不会差太多,而且ASP比较简单,学好ASP后转ASP.NET会很轻松的.分页功能上网找一下你就明白了.

       基于ASP的站内多值搜索

       运行环境:IIS

       脚本语言:VBScript

       数据库:Access/SQL Server

       数据库语言:SQL

       1.概要:

       不论是在论坛,还是源码web书城源码新闻系统,或是讯录下载系统等动态网站中,大家经常会看到搜索功能:搜索帖子,源码搜索用户,讯录搜索软件(总之搜索关键字)等,本文则是介绍如何建立一个高效实用的,基于ASP的站内多值搜索。

       本文面对的是“多条件模糊匹配搜索”,理解了多条件的,单一条件搜索也不过小菜一碟了。一般来讲,有两种方法进行多条件搜索:枚举法和递进法。会员专用源码搜索条件不太多时(n<=3),可使用枚举法,其语句频度为2的n次方,成指数增长,n为条件数。很明显,当条件增多以后,无论从程序的效率还是可实现性考虑都应采用递进法,其语句频度为n,成线性增长。需要指出的是,枚举法思路非常简单,apache源码转发一一判断条件是否为空,再按非空条件搜索,同时可以利用真值表技术来对付条件极多的情况(相信没人去干这种事,4条件时就已经要写组语句了);递进法的思想方法较为巧妙,重在理解,其巧就巧在一是使用了标志位(flag),二是妙用SQL中字符串连接符&。下面以实例来讲解引擎的建立。

       2.实例:

       我们建立一通讯录查询引擎,数据库名为addressbook.mdb,表名为address,字段如下:

       ID Name Tel School

       1 张 三 电子科技大学计算机系

       2 李 四 四川大学生物系

       3 王 二 西南交通大学建筑系

       … … … …

       Web搜索界面如下:

       姓名: 电话: 学校: 搜索按钮

       采用枚举法的源程序如下:

       <%@ CODEPAGE = "" %>

       '连接数据库

       <%

       dim conn

       dim DBOath

       dim rs

       dim sql

       Set conn=Server.CreateObject("ADODB.Connection")

       DBPath = Server.MapPath("addressbook.mdb")

       conn.Open "driver={ Microsoft Access Driver (*.mdb)};dbq=" & DBPath

       Set rs=Server.CreateObject("ADODB.Recordset")

       '从Web页获取姓名、电话、学校的slb源码分析

       dim Name

       dim Tel

       dim School

       Name=request("Name")

       Tel=request("Tel")

       School=request("School")

       '枚举法的搜索核心,因为有3个条件所以要写8组If判断语句

       if trim(Name)="" and trim(Tel)="" and trim(School)="" then

       sql="select * from address order by ID asc"

       end if

       if trim(Name)="" and trim(Tel)="" and trim(School)<>"" then

       sql="select * from address where School like '%"&trim(School)&"%' order by ID asc"

       end if

       if trim(Name)="" and trim(Tel)<>"" and trim(School)="" then

       sql="select * from address where Tel like '%"&trim(Tel)&"%' order by ID asc"

       end if

       if trim(Name)="" and trim(Tel)<>"" and trim(School)<>"" then

       sql="select * from address where Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc"

       end if

       if trim(Name)<>"" and trim(Tel)="" and trim(School)="" then

       sql="select * from address where Name like '%"&trim(Name)&"%' order by ID asc"

       end if

       if trim(Name)<>"" and trim(Tel)="" and trim(School)<>"" then

       sql="select * from address where Name like '%"&trim(Name)&"%' and School like '%"&trim(School)&"%' order by ID asc"

       end if

       if trim(Name)<>"" and trim(Tel)<>"" and trim(School)="" then

       sql="select * from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' order by ID asc"

       end if

       if trim(Name)<>"" and trim(Tel)<>"" and trim(School)<>"" then

       sql="select * from address where Name like '%"&trim(Name)&"%' and Tel like '%"&trim(Tel)&"%' and School like '%"&trim(School)&"%' order by ID asc"

       end if

       rs.open sql,conn,1,1

       '显示搜索结果

       if rs.eof and rs.bof then

       response.write "目前通讯录中没有记录"

       else

       do while not rs.eof

       response.write "姓名:"&rs("Name")&"电话:"&rs("Tel")&"学校:"&rs("School")&"<br>"

       rs.movenext

       loop

       end if

       '断开数据库

       set rs=nothing

       conn.close

       set conn=nothing

       %>

       理解上述程序时,着重琢磨核心部分,8组语句一一对应了3个搜索框中的8种状态

       Name Tel School

       空 空 空

       空 空 非空

       空 非空 空

       空 非空 非空

       非空 空 空

       非空 空 非空

       非空 非空 空

       非空 非空 非空

       另外trim()是VB的函数,将输入的字符串前后的空格去掉;%是SQL语言中的多字符通配符(_是单字符通配符),由此可见%"&trim()&"%对搜索框中输入的关键字是分别向左向右匹配的;SQL语言中用and连接说明非空条件之间是“与”关系。

       再来看看递进法,与枚举法相比它们只有核心部分不同:

       '递进法的搜索核心,依次判断条件为空否,非空则将其加入搜索条件

       sql="select * from address where"

       if Name<>"" then

       sql=sql&" Name like '%"&Name&"%' "

       flag=1

       end if

       if Tel<>"" and flag=1 then

       sql=sql&" and Tel like '%"&Tel&"%'"

       flag=1

       elseif Tel<>"" then

       sql=sql&" Tel like '%"&Tel&"%'"

       flag=1

       end if

       if Company<>"" and flag=1 then

       sql=sql&" and Company like '%"&Company&"%'"

       flag=1

       elseif Company <>"" then

       sql=sql&" Company like '%"&Company&"%'"

       flag=1

       end if

       if flag=0 then

       sql="select * from address order by ID asc"

       end if

       rs.open sql,conn,1,1

       递进法是一个明智的算法,单从语句的长短就可以看出来了。这个算法的难点和精髓就在flag和&上。首先你应该清楚&在SQL中就是一个字符串连接符,把该符号左右的字符拼接在一起。再回到程序,当Name不为空时sql="select * from address where Name like '%"&Name&"%' "同时flag=1;接下来当Name不为空时且Tel不为空时,即Tel<>"" and flag=1时,sql="select * from address where Name like '%"&Name&"%' and Tel like '%"&Tel&"%' "同时flag=1,否则当Name为空Tel不为空,sql="select * from address where Tel like '%"&Tel&"%' "同时flag=1;以此类推就可以推广到n个条件的搜索。当然条件皆为空时,即flag=0将选择所有表中所有项。

       3.验证:

       至此,一个搜索引擎就建立起来了。以下是一些使用示例:

       姓名:张 电话: 学校: 搜索按钮

       搜索结果为:

       姓名: 张三 电话: 单位:电子科技大学计算机系

       姓名: 电话: 学校:大学 搜索按钮

       搜索结果为:

       姓名:张三 电话: 单位:电子科技大学计算机系

       姓名 李 四 电话: 单位:四川大学生物系

       姓名:王二 电话: 单位:西南交通大学建筑系

       姓名: 电话: 学校:四川 搜索按钮

       搜索结果为:

       姓名 李 四 电话: 单位:四川大学生物系

       姓名: 电话: 学校:交%大 搜索按钮

       搜索结果为:

       姓名:王二 电话: 单位:西南交通大学建筑系

       4.改进:

       其实这个引擎还有些缺陷,问题主要在于通配符%。一方面是因为人们平时习惯把*作为通配符,另一方面%若出现在超链接中,通过request获取时%将被“吃”掉,如下:

       --test.htm--

       …

       <a href=test.asp?content=test%the%sign>click here</a>

       …

       --test.asp--

       <%

       content=request(“content”)

       response.write content

       %>

       在IE中浏览test.htm时点击超链接,显示为:

       testthesign

       可见%直接被超链接忽略掉了。怎么才能解决这个问题呢?很简单,我们做点小小的手脚--偷梁换柱。

       将以下代码加在搜索核心之前:

       Name=replace(Name,"*","%")

       Tel=replace(Tel,"*","%")

       Company=replace(Company,"*","%")

       将以下代码加在搜索核心之后:

       Name=replace(Name,"%","*")

       Tel=replace(Tel,"%","*")

       Company=replace(Company,"%","*")

       在我们来分析一下这些语句。replace()是VB中字符串替换函数,replace(Name,"*","%") 就是将Name中所有的*换成%。也就是说,我们把3个条件中凡是出现的*都替换为%,这样一来前3句就将通配符改成*了。而后3句就可以防止%被“吃”掉。所有问题就迎刃而解了吧。

       姓名: 电话: 学校:交%大 搜索按钮

       搜索结果为:

       姓名:王 二 电话: 单位:西南交通大学建筑系

       将上面的语句再改一改,把*用空格代替,不就成了我们在Google、BaiDu中常用的用空格来分开搜索条件的搜索引擎了吗?

求漂亮的asp同学录程序

       『夏朗』同学录 v3.0 单班级版

       /soft/.htm

       1)增加了特有的加密功能,只有注册成员才能看通讯录相册等信息,要想而注册前必须回答正确管理员设的两个问题,这样就可保证自有自己班同学才能注册。

       2)增加了独特的个人短信功能,使同学之间可以点对点的联系;

       3)改善了班级相册的功能,使每个成员都可以上传自己的照片;

       4)拥有班级留言版和班级通讯录,可以随时修改个人资料;

       5)有积分功能,每登录一次加分,留言一次加5分,达到分升级为管理员,当然可以自己规定;

       6)首页中调用了个winxp自带的老头,可以轻松设定他的动作和说话内容。

【本文网址:http://5o.net.cn/html/56c54099403.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap