这个获取当前域名的代码? 错在哪里?
来源:百度知道 编辑:UC知道 时间:2024/05/23 16:23:23
<BODY>
<DIV id=wrap>
<DIV id=header>
<DIV id=spacename>
<DIV id=xspace-spacename><STRONG>
<tr>
<td>
<%
REF=Request.ServerVariables("server_name")
REF=replace(REF,"http://www.","",1,-1,1)
REF=replace(REF,"http://","",1,-1,1)
REF=replace(REF,"www.","",1,-1,1)
if then
REF=left(REF,Instr(REF,"/")-1)
end if
%>
</td>
</tr>
</STRONG>
</DIV></DIV>
提示:
Microsoft JScript 编译错误 错误 '800a03ed'
缺少 '('
/domain.asp,行 13
if Instr(REF,"/") > 0 then
---^
也就是域名AAA.COM隐藏转发到BBB.COM/DOMAIN.ASP
这个代码主要是为了要在BBB.COM/DOMAIN.ASP页面里要显示AAA.COM域名?? 这个代码该如何写,请高手教教我,谢谢!!
<DIV id=wrap>
<DIV id=header>
<DIV id=spacename>
<DIV id=xspace-spacename><STRONG>
<tr>
<td>
<%
REF=Request.ServerVariables("server_name")
REF=replace(REF,"http://www.","",1,-1,1)
REF=replace(REF,"http://","",1,-1,1)
REF=replace(REF,"www.","",1,-1,1)
if then
REF=left(REF,Instr(REF,"/")-1)
end if
%>
</td>
</tr>
</STRONG>
</DIV></DIV>
提示:
Microsoft JScript 编译错误 错误 '800a03ed'
缺少 '('
/domain.asp,行 13
if Instr(REF,"/") > 0 then
---^
也就是域名AAA.COM隐藏转发到BBB.COM/DOMAIN.ASP
这个代码主要是为了要在BBB.COM/DOMAIN.ASP页面里要显示AAA.COM域名?? 这个代码该如何写,请高手教教我,谢谢!!
Microsoft JScript 编译错误
你看好了,文件的第一行定义的脚本语言是不是jscript,可是你的脚本语言明明是vbscript。把jscript修改为vbscript试试。
不是那一段的问题。是这个文件第一行的预定义部分不正确。
欢迎访问我的论坛:)
http://www.chinesebloger.com
期待您的支持:)
修正
<%
REF=replace(REF,"http://www.","",1,-1,1)
REF=replace(REF,"http://","",1,-1,1)
REF=replace(REF,"www.","",1,-1,1)
If Instr(REF,"/")<>0 then
REF=left(REF,Instr(REF,"/")-1)
end if
%>
nafen