UC知道如何将asp代码转换成js标准可调用的代码
来源：百度知道 编辑：UC知道 时间：2024/05/21 20:42:12
是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
%>
&l
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
%>
&l
str=str&"<a href='1.asp'>"&left(rs("Title"),13)&"...</a><br/>"
%>后面
document.write('<%=str%>')
<script language="vbscript" src="11.asp" runat="server"></script>
<script language="javascript" src="11.asp"></script>
这里的11.asp页面返回来的是执行完的结果。用javascript这样引入会显示javascript语法错误的。