【防红api源码】【web书城源码】【会员专用源码】asp通讯录源码
1.aspͨѶ¼Դ?讯录?
2.我是ASP新手，请问怎样实现站内搜索啊，源码
3.求漂亮的讯录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自带的老头，可以轻松设定他的动作和说话内容。