First, create the database domain. mdb, create the table domain through the designer, and enter the following fields
Id automatic number
URL text
Tourl text
Name text
Hideurl yes/no
Create Database Connection file 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 ")
%>
Create the redirection file 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
%>
In IIS, point the default host to the directory where the two files are located. 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
