如何把asp代码转换成可用js调用的代码 100

请高手帮忙改下以下代码,把代码改成可用<SCRIPTlanguage=javascriptsrc="link38.asp"></SCRIPT>调用的代码!悬赏100分,如... 请高手帮忙改下以下代码,把代码改成可用
<SCRIPT language=javascript src="link38.asp"></SCRIPT>
调用的代码!悬赏100分,如果解决再追加100分!谢谢

<link rel="stylesheet" href="/css/style11.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>友情链接首页调用有来路即排名第一位</title><BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 order by senlon_intime desc"
'response.write sql
rsDe.open sql,conn,1,1
%>
<table width=950 border=0 align="center" cellpadding=1 cellspacing=1>
<%
n=1
While Not rsDe.Eof and n<55
%>
<td height=20><a href='<%=rsDe("url")%>' title=近十分钟来路:<%=rsDe("senlon_10in")%>次|今天来路:<%=rsDe("senlon_dayin")%>次 target='_blank'>
<%if rsDe("senlon_dayin")>4 then%><%end if%>
<%if rsDe("senlon_dayin")>9 then%><%end if%>
<%if rsDe("senlon_dayin")>19 then%><%end if%>
<%if rsDe("senlon_dayin")>29 then%><b><%end if%>
<%if rsDe("senlon_dayin")>49 then%><b><%end if%>
<%=rsDe("title")%><%if rsDe("senlon_dayin")>4 then%></b><%end if%></a></td>
<%
if n mod 9 =0 then
Response.Write("</Tr>")
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%></table>
<% set rs=server.createobject("adodb.recordset")
rs.open "select * from title",conn,1,3
rs.close
set rs=nothing
if auto<>1 then
Response.Write ""
Else
set rsDe=server.createobject("adodb.recordset")
sql=" select * from detail where verity=0 order by id desc"
rsDe.open sql,conn,1,3
do while not rsDe.eof
if rsDe("senlon_in")>0 then
rsDe("verity")=1
rsDe.update
end if
rsDe.movenext
loop
rsDe.close
set rsDe=nothing
Response.End
end if
%> 展开

 我来答

2个回答

#热议# 上班途中天气原因受伤算工伤吗？

果建翼
2008-11-20 · TA获得超过7923个赞

知道大有可为答主

回答量：1684

采纳率：0%

帮助的人：2428万

我也去答题访问个人页

关注

展开全部

楼主没有搞清server端和client端各自该做什么。

这是我这几天第二次看到这种问题了。前几天有人问如何把调用document对象的js转换成asp，一样是不可能的。

asp是服务器脚本，而像“<SCRIPT language=javascript src="link38.asp"></SCRIPT> ”这种调用方式是客户浏览器端的脚本，根本不能互相转化。客户端根本不存在server对象，况且就算创建了ADO也不见得能连上服务器的数据库。

楼主需要重新考虑你的想法，你为什么要在客户端访问数据库？为何不在server端处理好后直接返回结果？

如果你想让浏览器端的JS能够在某时刻访问服务器的数据的话，请用AJAX。

已赞过 已踩过<

评论收起

百度网友c2b998e
2008-11-20 · TA获得超过115个赞

知道小有建树答主

回答量：486

采纳率：0%

帮助的人：302万

我也去答题访问个人页

关注

展开全部

其实把输出改成js的输出方式即可...

<!--#include file="mdb.asp"--> 
document.writeln('<link rel="stylesheet" href="/css/style11.css"> ');
<% 
set rsDe=server.createobject("adodb.recordset") 
sql= "select * from detail Where verity=1 order by senlon_intime desc" 
'response.write sql 
rsDe.open sql,conn,1,1 
%> 
document.writeln('<table width=950 border=0 align="center" cellpadding=1 cellspacing=1>');
<% 
n=1 
While Not rsDe.Eof and n<55 
%> 
document.writeln('<td height=20><a href="<%=rsDe("url")%>" title=近十分钟来路:<%=rsDe("senlon_10in")%>次|今天来路:<%=rsDe("senlon_dayin")%>次 target="_blank"> 
<%if rsDe("senlon_dayin")>4 then%><%end if%> 
<%if rsDe("senlon_dayin")>9 then%><%end if%> 
<%if rsDe("senlon_dayin")>19 then%><%end if%> 
<%if rsDe("senlon_dayin")>29 then%><b><%end if%> 
<%if rsDe("senlon_dayin")>49 then%><b><%end if%> 
<%=rsDe("title")%><%if rsDe("senlon_dayin")>4 then%></b><%end if%></a></td> 
<% 
if n mod 9 =0 then 
Response.Write("</Tr>") 
end if 
%>
');
<%
rsDe.MoveNext 
n=n+1 
Wend 
rsDe.close 
set rsDe=nothing 
%>
document.writeln('</table>');
<% set rs=server.createobject("adodb.recordset") 
rs.open "select * from title",conn,1,3 
rs.close 
set rs=nothing 
if auto<>1 then 
Response.Write "" 
Else 
set rsDe=server.createobject("adodb.recordset") 
sql=" select * from detail where verity=0 order by id desc" 
rsDe.open sql,conn,1,3 
do while not rsDe.eof 
if rsDe("senlon_in")>0 then 
rsDe("verity")=1 
rsDe.update 
end if 
rsDe.movenext 
loop 
rsDe.close 
set rsDe=nothing 
Response.End 
end if 
%>


本回答被网友采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

如何把asp代码转换成可用js调用的代码 100

其他类似问题

为你推荐：