如何把asp代码转换成可用js调用的代码 100
请高手帮忙改下以下代码,把代码改成可用<SCRIPTlanguage=javascriptsrc="link38.asp"></SCRIPT>调用的代码!悬赏100分,如...
请高手帮忙改下以下代码,把代码改成可用
<SCRIPT language=javascript src="link38.asp"></SCRIPT>
调用的代码!悬赏100分,如果解决再追加100分!谢谢
<!--#include file="mdb.asp"--><head>
<link type="text/css" rel="stylesheet" href="css/senlon_3.css" />
<link id="skintheme" href="css/senlon_4.css" type="text/css" rel="stylesheet" />
<%
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
%>
</head>
<table width=100% border=0 align="center" cellpadding=2 cellspacing=2>
<%
n=1
While Not rsDe.Eof and n<55
%>
<td height=22><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>
http://zhidao.baidu.com/question/76255955.html
请高手到这里回答 展开
<SCRIPT language=javascript src="link38.asp"></SCRIPT>
调用的代码!悬赏100分,如果解决再追加100分!谢谢
<!--#include file="mdb.asp"--><head>
<link type="text/css" rel="stylesheet" href="css/senlon_3.css" />
<link id="skintheme" href="css/senlon_4.css" type="text/css" rel="stylesheet" />
<%
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
%>
</head>
<table width=100% border=0 align="center" cellpadding=2 cellspacing=2>
<%
n=1
While Not rsDe.Eof and n<55
%>
<td height=22><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>
http://zhidao.baidu.com/question/76255955.html
请高手到这里回答 展开
展开全部
<!--#include file="mdb.asp"-->
<link type="text/css" rel="stylesheet" href="css/senlon_3.css" />
<link id="skintheme" href="css/senlon_4.css" type="text/css" rel="stylesheet" />
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 order by senlon_intime desc"
rsDe.open sql,conn,1,1
dim str : str="<table width=100% border=0 align='center' cellpadding=2 cellspacing=2>"
n=1
While Not rsDe.Eof and n<55
str=str&"<tr><td height=22><a href='"&rsDe("url")&"' title=近十分钟来路:"&rsDe("senlon_10in")&"次|今天来路:"&rsDe("senlon_dayin")&"次 target='_blank'>"
if rsDe("senlon_dayin")>29 then
str=str&"<b>"
str=str&rsDe("title")
if rsDe("senlon_dayin")>29 then
str=str&"</b>"
str=str&"</a></td>"
if n mod 9 =0 then
str=str&"</Tr>"
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
str=str&"</table>"
response.write "document.write ("&str&")"
%>
<link type="text/css" rel="stylesheet" href="css/senlon_3.css" />
<link id="skintheme" href="css/senlon_4.css" type="text/css" rel="stylesheet" />
<%
set rsDe=server.createobject("adodb.recordset")
sql= "select * from detail Where verity=1 order by senlon_intime desc"
rsDe.open sql,conn,1,1
dim str : str="<table width=100% border=0 align='center' cellpadding=2 cellspacing=2>"
n=1
While Not rsDe.Eof and n<55
str=str&"<tr><td height=22><a href='"&rsDe("url")&"' title=近十分钟来路:"&rsDe("senlon_10in")&"次|今天来路:"&rsDe("senlon_dayin")&"次 target='_blank'>"
if rsDe("senlon_dayin")>29 then
str=str&"<b>"
str=str&rsDe("title")
if rsDe("senlon_dayin")>29 then
str=str&"</b>"
str=str&"</a></td>"
if n mod 9 =0 then
str=str&"</Tr>"
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
str=str&"</table>"
response.write "document.write ("&str&")"
%>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你这是要做个访问统计的功能啊。
由于存在数据库的问题，没法把你的代码直接做成页面来给你看，所以只能和你说方法了，具体操作要你自己来进行。
JS是在客户端的IE执行的，所以方法很简单，你只要让这个link38.asp运行后能够生成符合JS要求的代码就行了。例如在你程序的最后有一个 </table> ，在ASP中只要直接写在<%%>之外就可以数出了。但是这个格式不符合JS的要求，你需要将它改成<%Response.Write("document.write('</table>');")%>
说白了就是用ASP输出一个JS代码。
由于存在数据库的问题，没法把你的代码直接做成页面来给你看，所以只能和你说方法了，具体操作要你自己来进行。
JS是在客户端的IE执行的，所以方法很简单，你只要让这个link38.asp运行后能够生成符合JS要求的代码就行了。例如在你程序的最后有一个 </table> ，在ASP中只要直接写在<%%>之外就可以数出了。但是这个格式不符合JS的要求，你需要将它改成<%Response.Write("document.write('</table>');")%>
说白了就是用ASP输出一个JS代码。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用ajax就可以啦，这么麻烦做什么呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
