Question

如何将asp代码转换成js标准可调用的代码

是ASP转为JS代码，然后用<script language="javascript" src="11.asp"></script>调到HTML页面上面

ASP页面代码代码如下：

<!--#include file="include/conn.asp"-->
<%
Dim Rs,sql
Set Rs=Server.CreateObject("adodb.recordset")
sql="select * from bigclass where bigclassid=1"
set rst=server.createobject("adodb.recordset")
Rs.open sql,conn,1,1
if Rs.eof then
Response.write("表没有数据")
else
bigclassid = rs("BigClassID")
bigclassname =rs("BigClassName")
Rs.close()
sql = "select top 6 * from news where BigClassName = '"&bigclassname&"'"
Rs.open sql,conn,1,1
do while not Rs.eof
response.Write("<a href='1.asp'>"&left(rs("Title"),13)&"...</a><br/>")
Rs.movenext
loop
end if
Rs.close()
Set Rs=nothing
%>
<!--#include file="include/conn.asp"-->
<%
Dim Rs,sql
Set Rs=Server.CreateObject("adodb.recordset")
sql="select * from bigclass where bigclassid=1"
set rst=server.createobject("adodb.recordset")
Rs.open sql,conn,1,1
if Rs.eof then
Response.write("表没有数据")
else
bigclassid = rs("BigClassID")
bigclassname =rs("BigClassName")
Rs.close()
sql = "select top 6 * from news where BigClassName = '"&bigclassname&"'"
Rs.open sql,conn,1,1
do while not Rs.eof
response.Write""&rs("infotime")&" <a href=onews.asp?id="&rs("id")&" target=_blank>"&left(rs("Title"),13)&"...</a><br/>"
Rs.movenext
loop
end if
Rs.close()
Set Rs=nothing
%>

Answer 1

<script language="javascript" src="11.asp"></script>
这里的11.asp页面返回来的是执行完的结果。用javascript这样引入会显示javascript语法错误的。

Answer 2

str=str&"<a href='1.asp'>"&left(rs("Title"),13)&"...</a><br/>"

%>后面
document.write('<%=str%>')

Answer 3

<script language="vbscript" src="11.asp" runat="server"></script>

Answer 4

http://www.7880.com/Info/Article-551a7fc0.html