中文虚拟域名实现(2) (环境:中文NT)

2016-01-29 17:18 11 1 收藏

中文虚拟域名实现(2) (环境:中文NT),中文虚拟域名实现(2) (环境:中文NT)

【 tulaoshi.com - ASP 】

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

<html
<head
<titledomain 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此域名(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+"<titledomain 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=http://"+request("target2")+""""+chr(13)+CHR(10)
m_mailinfo=m_mailinfo+"<script language=""JavaScript"" src="http://img.jcwcn.com/attachment/portal"

来源:http://www.tulaoshi.com/n/20160129/1500945.html

延伸阅读
标签: ASP
       找到了这遍很好的东东哦,奉献给大家。大家以后不用花钱注册域名了,呵呵!          很多网友可能发现,现在在一些网站中,特别是个人网站中发现有使用youname@xxx.com的虚拟域名。当我告诉我朋友的时候他们都说这不是电子邮件的地址吗?其实本来确实是的,不过...
标签: 电脑入门
Excel电子表格中的数字形式,有多种格式,常见的有阿拉伯数字、中文小写数字和中文大写数字! 下面,就给你介绍一下,如何将Excel中的阿拉伯数字形式,转换为中文小写和中文大写。 首先我们先看下面的图。 上图中,第一列是阿拉伯数字,第二列是中文小写数字,第三列是中文大写数字。 如果你想转换,就请选选择有阿拉伯数字的数据区域,...
《刺客信条2》中文攻略解说 《刺客信条2》中文攻略解说 《刺客信条2》很溅的一个玩法 看见巡逻的士兵往地上扔一把钱士兵就站在那了周围的人就过来捡 这时悄悄的给每个士兵打一针毒箭 这时再扔一把钱     然后站在边上看 《刺客信条2》官方网站: http://assassinscreed.uk.ubi.com/assassins-creed-2/ &n...
标签: 电脑入门
①启动WPS文字2013,输入要进行繁简转换的简体中文。 ②选中这些文字,单击下拉箭头--工具--中文繁简转换。 ③按要求勾选转换方向和转换单位。 ④单击确定按钮之后即完成了字体的转换。
标签: InDesign
Adobe InDesign CS2在软件功能上改进了不少,更好的提升了对双字节的支持。最让人兴奋的是软件内置了各种常规的本土化语言代码,有英文、德文、法文、简体中文、繁体中文、韩文、日文等。但软件默认的语言还是英文的,必须自己动手修改几个字母,才能让简体中文重见天日。下面简单介绍一下修改步骤:     首先打开Adobe InDesi...

经验教程

408

收藏

52
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部