UC知道谁能帮我把这个ASP转成JS的~！代码不多！
来源：百度知道 编辑：UC知道 时间：2024/06/28 02:25:49
谁能帮我把这个ASP转成JS，谢谢了~！
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 12 id,username,area_one,area_two,company,verify from company where verify=0 order by id desc",conn,1,1
if rs.eof and rs.bof then
'
else
do while not rs.eof
%>
<span>·<a href="company/<%=rs("username")%>.html" target="_blank"><%=rs("company")%></a></span><br>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
CONN.ASP是这样的，谁帮我改下
<%
dim conn
dim connstr
dim db
db="database/database.asp"
on error resume next
connstr="DBQ="+server.mappath(""&
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 12 id,username,area_one,area_two,company,verify from company where verify=0 order by id desc",conn,1,1
if rs.eof and rs.bof then
'
else
do while not rs.eof
%>
<span>·<a href="company/<%=rs("username")%>.html" target="_blank"><%=rs("company")%></a></span><br>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
CONN.ASP是这样的，谁帮我改下
<%
dim conn
dim connstr
dim db
db="database/database.asp"
on error resume next
connstr="DBQ="+server.mappath(""&
你没有把你的CONN.ASP贴出来 所以不好帮你改
贴个JS连接数据库例子给你
<script language="javascript">
//用 JavaScript 写服务器端连接数据库的代码示例
var conn = new ActiveXObject("ADODB.Connection");
conn.Open("Provider=SQLOLEDB.1; Data Source=localhost; User ID=sa; "
+"Password=; Initial Catalog=pubs");
var rs = new ActiveXObject("ADODB.Recordset");
var sql="select * from authors";
rs.open(sql, conn);
shtml = "<table width='100%' border=1>";
shtml +="<tr bgcolor='#f4f4f4'><td>au_id</td><td>au_lname</td><td>au_fname</td><td>phone</td><td>address</td><td> city</td><td>state</td><td>zip</td></tr>";
while(!rs.EOF)
{
shtml += "<tr><td>" + rs("au_id") + "</td><td>" + rs(&