Question

100分！asp 将vbscript转换成基于javascript的代码

原问题提问地址：http://zhidao.baidu.com/question/200554805.html
因为比较穷，能否在上面回答，从此酬谢100分！

某asp文件主要内容有如下，请将其转换为基于javascript的代码。
对于高手来说改起来应该不是难事……

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../abc.asp"-->

<%
set rst=server.CreateObject("ADODB.RecordSet")
set fs=server.CreateObject("scripting.FileSystemObject")
set rutgz=fs.createtextfile(Server.MapPath("../aaa/bcb") & session("uid") & session("user") & ".txt")
rutgz.write( request.form("textfield_1") )
set ruzg=fs.opentextfile(Server.MapPath("../aaa/bcb") & session("uid") & session("user") & ".txt")
ruzat=ruzg.readall
rutgz.close
set fs=nothing
%>
<%
ruzat=Replace(ruzat,"!","#")
b=Split(ruzat,"@")
For i=0 To UBound(b) sql="select * from bab" & session("uid") & " where z='"&b(i)&"'"
rst.open sql,conn_uedb,1,1
if rst.recordcount<>0 then
response.Write(b(i) & " ")
else
response.Write(" <font color=red><u><code>"& b(i) & "</code></u></font> ")
end if
rst.close
Next
%>

另外，abc.asp的内容：
<%
set conn_uwdb=Server.CreateObject("ADODB.Connection")
conn_uedb.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("../db/ue.mdb")
%>

Answer 1

JS版的。
查
<%var conn = Server.CreateObject("ADODB.Connection");
conn.Open("driver=;dbq="+Server.MapPath("data.mdb"));
var rs= Server.CreateObject("ADODB.Recordset");
sql="Select * From T_STUDENT";
rs.open(sql,conn,1,1);%>
增：
<%var conn = Server.CreateObject("ADODB.Connection");
conn.Open("driver=;dbq="+Server.MapPath("data.mdb"));
var rs= Server.CreateObject("ADODB.Recordset");
sql="insert into tbl(a) values(1)";
rs.execute(sql);%>
删，改：直接修改那个SQL语句即可以达到你想要的效果了。用JS做，最终还是调用了ACTIVEX控件！

Answer 2

楼上的转码纯粹胡扯。。。

asp的不可能转化成js的，asp是动态服务器端脚本，而js是客户端脚本，两个的职责都不同，楼主不要混为一谈。如果真的要把上边你的代码转化成js调用的，也最多只是把 response.write的那部分改了而已，如
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../abc.asp"-->

<%
set rst=server.CreateObject("ADODB.RecordSet")
set fs=server.CreateObject("scripting.FileSystemObject")
set rutgz=fs.createtextfile(Server.MapPath("../aaa/bcb") & session("uid") & session("user") & ".txt")
rutgz.write( request.form("textfield_1") )
set ruzg=fs.opentextfile(Server.MapPath("../aaa/bcb") & session("uid") & session("user") & ".txt")
ruzat=ruzg.readall
rutgz.close
set fs=nothing
%>
<%
ruzat=Replace(ruzat,"!","#")
b=Split(ruzat,"@")
For i=0 To UBound(b) sql="select * from bab" & session("uid") & " where z='"&b(i)&"'"
rst.open sql,conn_uedb,1,1
if rst.recordcount<>0 then
%>
document.write("<%=b(i) & " "%>");
<% else %>
document.write('<font color=red><u><code><%=b(i)%></code></u></font>');
<% end if
rst.close
Next
%>
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
至于 abc.asp 根本都不需要修改。归根结底说明楼主还不理解asp和js到底是做什么的，以及其原理导致的。如果需要更多的帮助，可以hi我。