Question

求教，asp 将vbscript转换成基于javascript的代码

某asp文件主要内容有如下，请将其转换为基于javascript的代码。
对于高手来说改起来应该不是难事……
若成功改过来，没有问题，100分双手献上……

<%@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")
%>
晕……那位9级的仁兄没看清问题啊……上面的代码是含VBScript的asp代码，我想将它改成基于JavaScript的asp代码……没说把asp改成JavaScript代码。。。
起码的abc.asp的连接数据库还是要改成var什么的吧……

哪位高手帮改一下~~~！！

Answer 1

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我。

--------------------------------------------------------------------------------------------------------
楼上的，和推荐的答案一点也不具有说服性。asp,jsp,php,.net都是动态服务器端脚本语言。
js是客户端执行的脚本语言（js是javascript的缩写销兄，不要总是看到些js就和java挂一起，根本就是两码事，不懂的希望自己去百科一下再来回答别人的问题。）。两个可以相互结合使用，感觉还是楼主对js,和asp的工作原理理解不深刻。

----------------------------------------------------------------------
麻烦楼主去理解一下vbscript

VBScript是Visual Basic Script的简称，即 Visual Basic 脚本语言，有时也被缩写为VBS。是asp动态网页默认的编程语言，配合asp内建对象和ADO对象，用户很快就能掌握访问数据库的asp动态网页开发技术。
http://baike.baidu.com/view/24920.htm

Answer 2

唉，楼主，回答这个问题的时候，心情真是说不出的感觉。

首先，回答一下你最关心的，视频比较全而好的是马士兵的，还有孙鑫的也不错，要说发并轮，不可能，太大了，有10多个G，自已下载吧。在电驴上有，而且比较全。

其次，如果楼主是新手的话，劝楼主摆好心态。java这种东东消蔽友是不拿槐那么好弄的。要用熟练，看出效果，起码要两年以上的时间。想一两个月就能怎么样，是不大可能的。（学了五年的一个师兄最后的一句名言：“关爱生命，远离java”）

说来惭愧，本人也下过决心学java，最后放弃了。那些视频，要看安，也要几个月吧，还不要说你对比着上面做。java给我一种浑身起鸡皮疙瘩的感觉。内容多而庞杂，各种框框架架，实在是让人受不了。

如果楼主是牛人，那我就多虑了。

祝心想事成。

Answer 3

楼上的误人子弟啊
ASP是支坦蚂中持多脚本语言编写的
<%@LANGUAGE="JSCRIPT" CODEPAGE="65001"%>
<让山!--#include file="../abc.asp"-->
<%
var rst=server.CreateObject("ADODB.RecordSet");
var fs=server.CreateObject("scripting.FileSystemObject");
var rutgz=fs.createtextfile(Server.MapPath("../aaa/bcb") + session("uid") + session("user") + ".txt");
rutgz.write( request.form("textfield_1") );
var ruzg=fs.opentextfile(Server.MapPath("../aaa/bcb") + session("uid") + session("user") + ".txt");
ruzat=ruzg.readall();
rutgz.close();
fs=null;
ruzat=ruzat.replace("!","#");
b=ruzat.split("@");
for (var i=0; i<b.length; i++)
{
var sql="select * from bab" + session("uid") + " where z='" +b[i] + "'物含";
rst.open(sql,conn_uedb,1,1);
if(rst.recordcount!=0)
response.Write(b[i] + " ");
else
response.Write(" <font color=red><u><code>" + b[i] + "</code></u></font> ");

rst.close();
}
%>

<!-- abc.asp -->

<%
var 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 4

转成jscript的脚本？ 汗我强烈建议你不要这燃敬烂样转因为我觉得皮漏下来这样子反而执行速度降低毕竟vbscript是亲生的 当然你一定要转可以Hi我下我给你转一稿樱下

Answer 5

还真没这样干过，不知道为什么要改成js的，那样的话，你还不如直接用jsp算了