求指教：vbscript转换成javascript

你的这一行代码不用转啊
只要把<SCRIPT LANGUAGE=vbscript>
改成<SCRIPT LANGUAGE=javascript>就行

这是页面的全部代码，在IE下面正常，就是到firefox下不能跳转执行。<%@ Language=VBScript %>
<%
Dim rs,CurrDate
Session("uID")=""
Session("uDeptID")=""
Session("uName")=""
Session("uNC")=""
Session("uDeptName")=""
Session("uYGBH")=""
Session("uKL")=""
session("bbsYname")=""
session("bbsPasswd")=""
set rs=server.CreateObject("ADODB.recordset")
CurrDate=now
rs.Open "Select @@Version",conn,1,1
  dim sVer
  sVer=rs(0) & ""
  rs.close
  sver=ucase(sver)
  if instr(sver,"DESKTOP") then
%>
<SCRIPT LANGUAGE=vbscript>

</SCRIPT>
<%else%>
<SCRIPT LANGUAGE=vbscript>

</SCRIPT><%
  end if
%>
<HTML>
<head>
<link rel="stylesheet" href="../putong_1t.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY><%
function checkpass(pass1,pass2)
if pass1=pass2 then
checkpass=true
else
checkpass=false
end if
end function
Dim uID,uKL,ssql,rs1
uID=trim(Request.Form("txtYHM"))
uKL=trim(Request.Form("txtKL"))
set rs=server.CreateObject("ADODB.recordset")
set rs1=server.CreateObject("ADODB.recordset")
rs.Open "Select * from rs_YGB Where (RYZT='0' or RYZT='2') " _
& "And ltrim(rtrim(BM))='" & replace(uID,"'","''") & "' " ,conn
if rs.EOF then
rs.close
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox "该用户不存在！",vbInformation,"提示"
window.location="../oaindex.asp"
</script>
<%
Response.End
else
if not checkpass(uKL,Decrypt(rs("KL"),false)) then
conn.close
set conn=nothing
%>
<script language="vbscript">
msgbox "口令输入错误！",vbInformation,"提示"
window.location="../oaindex.asp"
</script>
<%
Response.End
else
Session("uID")=uID
Session("uYGBH")=rs("YGBH")
Session("uName")=rs("YGXM")
Session("uKL")=trim(rs("KL"))
Session("uDeptID")=rs("SSBM")
rs1.Open "select bmmc from rs_bmb where bmbh='" & rs("ssbm") & "'",Conn,adOpenStatic
if not rs1.EOF then
Session("uDeptName")=rs1("bmmc")
end if
rs1.Close
set rs1=nothing
Session("uNC")=uID
application.Lock
application("whoson")=application("whoson")+1
application.UnLock
'------------------
'此段不知为何
'dim birdb,dirday
'dirday=year(now()) & "-" & month(now()) & "-" & day(now())
'set birdb=server.CreateObject("adodb.recordset")
'birdb.Open "select * from rs_ygb where ygbh=" & session("uYGBH"),conn
'---------------------
'增加签到数据
dim rskq,srq,rsxxr,xxdate
set rskq=server.CreateObject("adodb.recordset")
set rsxxr=server.CreateObject("adodb.recordset")
'xxdate=datevalue(year(now())&"-"&month(now())&"-"&day(now()))
xxdate=year(now())&"-"&month(now())&"-"&day(now())
set rsxxr=conn.execute("select * from kq_xxrb where xxr='" & xxdate &"'")
if rsxxr.EOF then
srq=formatdatetime_activenew(now,"yyyy-mm-dd")
rskq.Open "Select * from kq_kqb where kqrq='" & srq & "' and YGBH=" & Session("uYGBH"),conn,3,2
if rskq.EOF then
rskq.AddNew
rskq("ygbh")=Session("uYGBH")
rskq("kqrq")=srq
rskq("qdsj")=formatdatetime_activenew(now,"hh:nn:ss")
rskq("qtsj")=""
rskq.Update
end if
rskq.close
end if
rsxxr.Close
set rsxxr=nothing
set rskq = nothing

'on error resume next
%>
<%
'记录用户登录信息
Dim sRomteIp , sDate ,sTime ,sDateMonth ,sDateDay
sRomteIp = Request.ServerVariables("REMOTE_ADDR")
sDateMonth = month(date())
if cint(sDateMonth)<10 and len(sDateMonth)<2 then
sDateMonth = "0" & sDateMonth
end if
sDateDay = Day(date())
if cint(sDateDay)<10 and len(sDateDay)<2 then
sDateDay = "0" & sDateDay
end if
sDate = year(date()) & "-" & sDateMonth & "-" & sDateDay
sTime = time()
dim rsLog,sIdNum
set rslog=server.CreateObject("ADODB.recordset")
sidnum=1
rsLog.Open "select max(idnum) from logrecord ",conn,1,1
if not rsLog.Eof then
if rsLog(0) & ""<>"" then
sIdNum=clng(rsLog(0))+1
end if
end if
rsLog.Close
set rslog=nothing

sSql = "insert into LogRecord (IDNUM,DLZIP,DLRQ,DLSJ,DLYHM) values (" & sidnum & ",'" & sRomteIp & "','" & sDate & "','" & sTime & "','" & Session("uID") & "')"
Conn.Execute sSql
dim rsZT
set rsZT=server.CreateObject("ADODB.recordset")
rsZT.Open "Select * from OA_YGDQZT Where ygbh=" & Session("uYGBH") ,conn,3,2
if rsZT.EOF then
rsZT.AddNew
rsZT("ygbh")=Session("uYGBH")
end if
rsZT("dqzt")="1"
rsZT("sjlxsj")=""
rsZT.Update
rsZT.Close
set rsZT=nothing

%>

<%
Response.Write "<SCRIPT LANGUAGE=vbscript>" & vbcrlf
Response.Write "window.parent.location.href=""..\dlh\index.asp?id=001&path=../dlh/lkoa_grzm_index.asp""" & vbcrlf
Response.Write "</SCRIPT>" & vbcrlf
%>

<div id="proc" name="proc">
<p> 
<table width="300" height="40" align="center" cellpadding="10" class="tableframe">
<tr align="center" class="listtitle"><td valign="center" class="listcelltitle">
登录成功，正在装载个人信息，请稍候... ...
</td></tr>
</table>
<br>
</div>

<%
end if
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%> </BODY>
</HTML>

不要你的asp的，只要输出的html的。

这个得行不
<%
Response.Write "<SCRIPT LANGUAGE=javascript>window.parent.location.href='..\dlh\index.asp?id=001&path=../dlh/lkoa_grzm_index.asp'</SCRIPT>"
%>

去掉LANGUAGE=vbscript默认就是js的了还有js没有msgbox，改为alert

调试易

求指教：vbscript转换成javascript

解决方案 »