- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
中文虛擬域名實現(2) (環境:中文NT)
中文虛擬域名實現(2) (環境:中文NT)

關鍵詞:ASP

MODIFY。ASP
*******************************
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="dbdb/connmm.inc"-->

<html>
<head>
<title>domain forword</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.MMS { font-size: 11pt; text-decoration: none}
.MMS1 { font-size: 10pt; text-decoration: none}
-->
</style></head>

<body topmargin="10" leftmargin="0" >
<div align="center">

<% 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 "<br><br><br><font color=black>此域名(<br><br><br>" " target="_blank">http://msstudio.net/"&request("domain2")&")不存在或密碼錯誤!</font><br><br><br>"
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="<html><head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<title>domain forword</title>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<meta http-equiv=""refresh"" content=""0;URL="+chr(13)+CHR(10) " target="_blank">http://"+request("target2")+""">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<script language=""JavaScript"" src=""../mss.js""></script></head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<body bgcolor=""#FFFFFF"">loading...</body></html>"



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 "<br><br><br><font color=black>恭喜!域名(<a href=""http://msstudio.net/"&request("domain2")&"</a>)修改成功!</font><br><br><br>" " target="_blank">http://msstudio.net/"&request("domain2")&""">http://msstudio.net/"&request("domain2")&"</a>)修改成功!</font><br><br><br>"




else
response.write "<br><br><br><font color=black>密碼錯誤!</font><br><br><br>"
end if
end if
%>
</div>
</body>
</html>

ADD。ASP
*****************************************************

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="dbdb/connmm.inc"-->

<html>
<head>
<title>domain forword</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.MMS { font-size: 11pt; text-decoration: none}
.MMS1 { font-size: 10pt; text-decoration: none}
-->
</style></head>

<body topmargin="10" leftmargin="0" >
<div align="center">

<% 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 "<br><br><br><font color=black>此域名(<br><br><br>" " target="_blank">http://msstudio.net/"&request("domain")&")已經被佔用!</font><br><br><br>"
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="<html><head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<title>domain forword</title>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<meta http-equiv=""refresh"" content=""0;URL="+chr(13)+CHR(10) " target="_blank">http://"+request("target")+""">"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<script language=""JavaScript"" src=""../mss.js""></script></head>"+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<body bgcolor=""#FFFFFF"">loading...</body></html>"



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 "<br><br><br><font color=black>恭喜!域名(<a href=""http://msstudio.net/"&request("domain")&"</a>)已經開始起用!</font><br><br><br>" " target="_blank">http://msstudio.net/"&request("domain")&""">http://msstudio.net/"&request("domain")&"</a>)已經開始起用!</font><br><br><br>"




else
response.write "<br><br><br><font color=black>密碼錯誤!</font><br><br><br>"
end if
end if
%>
</div>
</body>
</html>




頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2020 COOLASP All Rights Reserved