中文虚拟域名实现(2) (环境：中文NT)
关键词：ASP
MODIFY。ASP
*******************************
<%@ LANGUAGE="VBSCRIPT" %>
<% set rs=server.createobject("adodb.recordset")
sql="select * from info where user='"&request("domain2")&"' and password='"&request("pass2")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "
此域名（http://msstudio.net/"&request("domain2")&"）不存在或密码错误！
"
rs.close
else
if request("newpass2")=request("newpassagain2") then
if request("newpass2")="" and request("email2")="" then
conn.execute("update info set target='"&request("target2")&"' where user ='"&request("domain2")&"'")
end if
if request("newpass2")="" and request("email2")<>"" then
conn.execute("update info set target='"&request("target2")&"',email='"&request("email2")&"' where user ='"&request("domain2")&"'")
end if
if request("newpass2")<>"" and request("email2")<>"" then
conn.execute("update info set target='"&request("target2")&"',email='"&request("email2")&"',password='"&request("newpass2")&"' where user ='"&request("domain2")&"'")
end if
if request("newpass2")<>"" and request("email2")="" then
conn.execute("update info set target='"&request("target2")&"',password='"&request("newpass2")&"' where user ='"&request("domain2")&"'")
end if
'foldername="d:\domain\" & request("domain2")
'Set fs = CreateObject("Scripting.FileSystemObject")
'fs.CreateFolder(foldername)
'set fs = nothing
m_mailinfo="
"+chr(13)+CHR(10)m_mailinfo=m_mailinfo+"
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"
loading..."whichfile="d:\domain\" & request("domain2")& "\default.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.createTextFile(whichfile, True)
thisfile.Write m_mailinfo
thisfile.Close
response.write "
恭喜！域名（http://msstudio.net/"&request("domain2")&"）修改成功！
"
else
response.write "
密码错误！
"
end if
end if
%>
ADD。ASP
*****************************************************
<%@ LANGUAGE="VBSCRIPT" %>
<% set rs=server.createobject("adodb.recordset")
sql="select * from info where user='"&request("domain")&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
response.write "
此域名（http://msstudio.net/"&request("domain")&"）已经被占用！
"
rs.close
else
if request("pass")=request("passagain") then
conn.execute("insert into info values('"&request("domain")&"','"&request("email")&"','"&request("pass")&"','"&request("target")&"')")
foldername="d:\domain\" & request("domain")
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder(foldername)
set fs = nothing
m_mailinfo="
"+chr(13)+CHR(10)m_mailinfo=m_mailinfo+"
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"
loading..."whichfile="d:\domain\" & request("domain")& "\default.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.createTextFile(whichfile, True)
thisfile.Write m_mailinfo
thisfile.Close
response.write "
恭喜！域名（http://msstudio.net/"&request("domain")&"）已经开始起用！
"
else
response.write "
密码错误！
"
end if
end if
%>