最近自己用asp+ajax写的仿clickeye效果

最新推荐文章于 2024-09-15 19:20:58 发布

置顶 xpnh123

最新推荐文章于 2024-09-15 19:20:58 发布

阅读量455

点赞数

文章标签： ajax asp function xmlhttprequest blog vbscript

本文链接：https://blog.csdn.net/xpnh123/article/details/2357676

版权

绍:所用数据库

keyword.mdb

表名:content

字段名:title content

表名:keyword

字段名:keyword sex englishname birthday star nationality

文件源码:

conn.asp

<%
'连接数据库开始
dim conn,rs,sql
dbpath=server.mappath("keyword.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'创建记录对象

index.asp

<style>
.mode{
      display:inline;
      color:blue;
      cursor:nw-resize;
     }
a:hover {color: #bc2931; text-decoration:none;}
</style>
<script language="javascript" src="xmlhttp.js"></script>
<script language="vbscript">
Function str2asc(strstr)
str2asc = hex(asc(strstr))
End Function
Function asc2str(ascasc)
asc2str = chr(ascasc)
End Function
</script>
<%
Function search(text)
set rs=server.createobject("adodb.recordset")
sql="select * from keyword"
rs.open sql,conn
do while not rs.eof
ww=replace(text,rs("keyword"),"<a href=# class='mode' οnmοusemοve=showtxt('content','"&rs("keyword")&"') onMouseOut=hidetxt('content') >"&rs("keyword")&"</a><img src='images/albumcd.gif'/>")
text=ww
rs.movenext
loop
rs.close
set rs=nothing
search=ww
End Function
%>
<%
set rs1=server.createobject("adodb.recordset")
sql="select * from content"
rs1.open sql,conn
do while not rs1.eof
%>
<%=rs1("title")%>:<br>
<%=search(rs1("content"))%>
<br><br>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<div id="content" style="position:absolute;z-index:999;background-color:white;" ></div>

xmlhttp.js

var xmlHttp ;
function createxmlhttp()
{
try {
xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
} catch (e2) {
xmlHttp = false;
}
}
if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {
xmlHttp = new XMLHttpRequest();
}
}
function callServer(u_name) {
var url = "get.asp?which=" + escape(u_name);
createxmlhttp();
xmlHttp.open("get", url, true);
xmlHttp.onreadystatechange = updatePage;
xmlHttp.send(null);
}

function showtxt(id,u_name)
{
var f=document.getElementById(id);
f.style.left=event.clientX;
f.style.top=event.clientY;
f.style.visibility="visible";
callServer(u_name);
}
function hidetxt(id)
{
var f=document.getElementById(id);
f.style.visibility="hidden";
}

get.asp

<%
'进行Url加码，加码后回传
Function URLEncoding(vstrIn)
     strReturn = ""
     For i = 1 To Len(vstrIn)
         ThisChr = Mid(vStrIn,i,1)
         If Abs(Asc(ThisChr)) < &HFF Then
             strReturn = strReturn & ThisChr
         Else
             innerCode = Asc(ThisChr)
             If innerCode < 0 Then
                 innerCode = innerCode + &H10000
             End If
             Hight8 = (innerCode   And &HFF00)/ &HFF
             Low8 = innerCode And &HFF
             strReturn = strReturn & "%" & Hex(Hight8) &   "%" & Hex(Low8)
         End If
     Next
     URLEncoding = strReturn
End Function
set rs2=server.createobject("adodb.recordset")
word=trim(request.querystring("which"))
sql="select * from keyword "&" where keyword='"&word&"'"
rs2.open sql,conn
%>
<html>
<head>
</head>
<body>
<table style="width:200px;border:1px solid blue;color:blue;font-size:15px;">
<tr>
<td width="40"><%=URLEncoding("姓名:")%></td><td ><%=URLEncoding(rs2("keyword"))%></td>
</tr>
<tr>
<td ><%=URLEncoding("性别:")%></td><td ><%=URLEncoding(rs2("sex"))%></td>
</tr>
<tr>
<td ><%=URLEncoding("英名:")%></td><td ><%=URLEncoding(rs2("englishname"))%></td>
</tr>
<tr>
<td ><%=URLEncoding("生日:")%></td><td ><%=URLEncoding(rs2("birthday"))%></td>
</tr>
<tr>
<td ><%=URLEncoding("星座:")%></td><td ><%=URLEncoding(rs2("star"))%></td>
</tr>
<tr>
<td ><%=URLEncoding("国藉:")%></td><td ><%=URLEncoding(rs2("nationality"))%></td>
</tr>
</table>
<%
rs2.close
set rs2=nothing %>
</body>
</html>

images/ loading.gif albumcd.gif