Question

如果把这个asp文件转换成JS可以调用的标准格式？

希望大侠给转换一下，高分送上！

<!--#include file="Start.asp"-->
<link href='/Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>
<%
Dim ShowType, LoginNum
If CheckUserLogined() = False Then
Response.Write "<table align='center' width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>" & vbCrLf
Response.Write "<a href='" & strInstallDir & "Reg/User_Reg1.asp' target='_blank' class='hui12'>用户注册</a><span class='top8'> | </span><a href='" & strInstallDir & "User/User_Login.asp' target='_parent' class='hui12'>登录</a><span class='top8'> | </span><a href='" & strInstallDir & "User/User_GetPassword.asp' target='_blank' class='hui12'>找回密码</a></tr></td>" & vbCrLf
Response.Write "</tr></table>" & vbCrLf

Else
Call GetUser(UserName)
Response.Write "<table align='center' width='100%' border='0' cellspacing='0' cellpadding='2' ><tr><td>  <font color=green><b><a href='" & strInstallDir & "User/index.asp' target='_blank' class='hui12'>" & UserName & "</a></b></font> "
Response.Write "<a href='" & strInstallDir & "User/User_Logout.asp' target='_top' class='hui12'>[退出]</a>"
Response.Write "</td></tr></table>" & vbCrLf
End If
Call CloseConn
%>

Answer 1

你把css文件移到调用js的文件里去，这个文件里只需要输出登录的代码即可。同时将输出的字符串中的换行改为JS的换行符"\n"或者干脆不用换行。将输出的所有内容用document.write()包住，调用的时候直接:
<script type="text/javascript" src="login.asp"></script>

根据你的代码修改后如下，未验证，请自行测试：

<!--#include file="Start.asp"-->
<%
Dim ShowType, LoginNum, strResult
If CheckUserLogined() = False Then
strResult = "<table align=""center"" width=""100%"" " &_
"border=""0"" cellspacing=""0"" cellpadding=""0""><tr><td>" &_
"<a href=""" & strInstallDir & "Reg/User_Reg1.asp"" target=""_blank"" " &_
"class=""hui12"">用户注册</a><span class=""top8""> | </span>" &_
"<a href=""" & strInstallDir & "User/User_Login.asp"" target=""_parent"" " &_
"class=""hui12"">登录</a><span class=""top8""> | </span>" &_
"<a href=""" & strInstallDir & "User/User_GetPassword.asp"" " &_
"target=""_blank"" class=""hui12"">找回密码</a></tr></td>" &_
"</tr></table>"
Else
Call GetUser(UserName)
strResult = "<table align=""center"" width=""100%"" " &_
"border=""0"" cellspacing=""0"" cellpadding=""2"" ><tr><td> " &_
"<font color=green><b><a href=""" & strInstallDir & "User/index.asp"" " &_
"target=""_blank"" class=""hui12"">" & UserName & "</a></b></font> " &_
"<a href=""" & strInstallDir & "User/User_Logout.asp"" target=""_top"" " &_
"class=""hui12"">[退出]</a></td></tr></table>"
End If
Call CloseConn

Response.Write( "document.write('" & strResult & "');" )
%>

Answer 2

<iframe id="baiduframe" marginwidth="0" marginheight="0" scrolling="no"
framespacing="0" vspace="0" hspace="0" frameborder="0" width="930" height="120" style="border:1px"
src="调用的地址">
</iframe>
这样即可实现你所要的功能啦，祝福你，朋友！

追问

不好意思朋友，我是想要JS可以调用的标准格式。
frame调用不考虑用！谢谢

Answer 3

你的问题描述的不是很清楚

这段NET代码是VB的 主要是输出一段HTML代码
期间穿插了很多变量

如果你是想吧这段HTML代码输出用JS来实现的话
我想问 你期间的变量如何传递
比如说 strInstallDir 这个变量 我看不到赋值的地方
肯定是在其它地方赋值的 后台代码 赋值的变量你如何传递到前台JS里你考虑过吗