首先建立資料庫Domain.mdb，通過設計器建立表domain，輸入以下欄位
ID 自動編號
URL 文本
toURL 文本
Name 文本
hideURL 是/否
建立資料庫連接檔案conn.asp
<%
Dim Conn,Connstr,Rs
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Domain.mdb")
Conn.Open Connstr
Set Rs = Server.CreateObject("ADODB.RecordSet")
%>
建立轉向檔案default.asp
<!--#include file="conn.asp"-->
<%
url = Request.ServerVariables("HTTP_HOST")
'url = Replace(url,"www.","")
Sql = "Select * from domain where URL='"&url&"'"
Rs.Open Sql,Conn,1,3
If NOT Rs.EOF And NOT Rs.BOF Then
tourl = Rs("tourl")
title = Rs("Name")
hideurl = Rs("hideURL")
Else
tourl = "http://www.xun.cc"
End If
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
If hideurl = True Then
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=title%></title>
</head>
<frameset cols="*" frameborder="no" border="0" framespacing="0">
<frame src="<%=tourl%>" />
</frameset>
</html>
<%
Else
Response.Redirect(tourl)
End If
%>
在IIS裡將預設主控件指向這兩個檔案所在目錄，ok!
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
