你搜索一下这方的帖子。在客户段和服务器端分别处理,但客户端不用刷新。用的是xmlHttp协议传输的xml文件,吧你想要的数据存到一个新建的xml文当中,。
手头没现成的例子!
手头没现成的例子!
解决方案 »
- 为什么IE中运行的Javascript获取Flash文件会失败?服务端是Asp.net
- 函数的apply方法问题
- 急急急:从JS中取值,在火狐中显示乱码,在IE9是好的,有人遇到过类似的问题吗?
- javascript关于Firefox的兼容问题
- 在Firefox中如何添加触发事件
- 有一组ID 字符串,类似下面这样:
- 用deleteRow删除表格中的行,怎么才能得到当前行的行号?
- javaScript等脚本语言的帮助文件
- 如何在一张图片上做标记?
- 如何动态设定font size 的值?在线等待
- 请看:javascript代码,打开Office Word
- 实现当用户点击一个链接后打开一个新的没有菜单没有地址拦的IE窗口,遇到了问题
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻</title>
<!--#include file="inc/conn.asp"-->
<script language="vbscript">
'数据外理'
Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bstr = strReturn
End Function
</script>
<script language=javascript>
var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
function show(id){
var sid=eval("content"+id);
var pid=eval("plus" + id);
if (sid.style.display=="none"){
sid.style.display="";
pid.src="image/del.gif";
xmlhttp.open("get","news_content.asp",false);//news_content.asp中可执行删除操作,用request("id")接受变量
xmlhttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
xmlhttp.send("id="+id);
sid.innerHTML="正在读取数据....";
setTimeout("disp("+id+")",1000);
}else
{
//sid.innerHTML="";
sid.style.display = "none";
var pid=eval("plus" + id);
pid.src="image/plus.gif";
}
}function disp(id){
var sid=eval("content"+id);
sid.innerHTML = bstr(xmlhttp.responseBody);
}
</script><link href="style/style.css" rel="stylesheet" type="text/css">
</head><body bgcolor="#FFFFFF">
<%
set rs = server.CreateObject("adodb.recordset")
sql="select distinct kind from [news]"
rs.open sql,conn,1,1
dim kind
str=""
do while not rs.eof
str =str + rs("kind")+","
rs.movenext
loop
response.write left(str,len(str)-1)
'response.End()
kind=split(left(str,len(str)-1),",")
rs.close
'response.end
%><table width="52%" height="46" border="1" cellpadding="0" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#0099FF">
<%
sql="select * from [news] where kind = '" & kind(0)&"'"
rs.open sql,conn,1,1
%>
<tr>
<td height="20"> <%=kind(0)%></td>
</tr>
<%
do while not rs.eof
%>
<!--<tr background="image/line.gif">
<td height="1" colspan="2"><img src="image/line.gif" width="1" height="3"></td>
</tr>
-->
<tr>
<td title="<%response.write rs("title") & " 阅读次数" & rs("times")%>"><a href="javascript:show(<%=rs("id")%>)" ><img src="image/plus.gif" width="15" height="15" border="0" id=<%response.write "plus" & rs("id")%>></a>
<%response.write "<a href=news_detail.asp?id=" &rs("id")&" target='_self'>" & rs("title") & "</a> 阅读次数 "&rs("times")%></td>
</tr>
<tr>
<td width="7%" height=0 id="content<%=rs("id")%>" style="display:none"></td>
</tr>
<%rs.movenext
loop%>
<tr><td align=right><a href=morenews.asp?kind=<%=kind(0)%>>更多...</a></td></tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>