近日从网络上看到一个令人眼花的域名名单，所以就有了这样的疑问。

　　中国互联网传奇人物、原265.COM创始人蔡文胜几年间经手卖出的域名不计其数，从g.cn、520.COM到自己一手创办的265.COM，虽然都不曾公布价格，但是据网络传言，仅其经营的265.COM就至少套现了2000万美元。

　　那么，蔡文胜拥有的域名总共卖了多少钱呢？

　　这就得先知道蔡文胜都拥有过那些域名，卖出过那些域名。据网络传闻，中国2112个县名的80%以上的相关域名都在蔡文胜手里，另外他手里还握着几千个非常牛叉的域名，无数个商业公司或国外公司的CN域名。

　　到底有多牛叉？先不说265，看看下面这些公司和域名你是不是很熟悉：

　　谷歌g.cn、安全卫士360.cn、暴风影音baofeng.com、网际快车kuaiche.com、大旗daqi.com、我爱你520.com、百姓baixing.com……

　　至于还有多少这么牛叉的域名、蔡文胜到底有多少域名，恐怕蔡文胜自己都不清楚，他自己统计的时候肯定会先去看Excel，所以我也不知道。但能肯定的是，这些已经曝光的域名都是非常非常的值钱，但值多少也只有蔡文胜自己清楚。

　　08年6月，酷讯启用了经手蔡文胜的50万买下的KUXUN.CN，发布会上世纪佳缘CEO龚海燕庆祝酷讯启用新域名时爆料：花40多万买了JiaYuan.com。后来证实，JiaYuan.com出自蔡文胜，也就是说这个JiaYuan蔡文胜卖了40多万。

　　而另外坊间风传价值千万的daqi.com、价值不菲却传是忠实粉丝免费赠送的360.CN、以女友酷爱百合花为名义被“骗取”的baihe.com、宝洁公司曾经花180万美元买的romantic.com、抢注后却又送还的FM365.COM等等，都是蔡文胜所有，具体是怎么交易的，他知、它知，我们不知。在我们现在看来，这些已经成为了蔡文胜的传奇故事。如果我们足够细心，还会从互联网上发现更多蔡文胜和一些知名域名的故事。

　　囤积域名曾经是蔡文胜最大的快乐，也是最大的成功，所以当有人称他是“域名投资获利大王”时，中国绝对没有人能望其项背。而蔡文胜如今一转身，已经成了小站长VC天使大王。所以当蔡文胜在某IT界的活动上透露，其目前投资了100多家网站时，我们并不惊讶，不过相信这100多家网站里，肯定会有很多域名是和蔡文胜有过故事的。

　　在蔡文胜的域名里，最令他陶醉的应数265.COM了。据蔡文胜在搜狐博客的一次活动中爆料：当年看到HAO123竟然那么火，就问一个手下“我花100万把HAO123买下来值不值？”手下看了看回答：我一会就能给你做出来一个。然后他就注册了265.COM，再然后就成功了。

　　既然都是故事，所以当我们想来统计蔡文胜到底卖域名卖了多少钱时，基本无据可依，因为一些域名和蔡文胜的过往一样早已经成为了传奇。如果你有兴趣，你可以慢慢的去了解那个留着标志性经典“汉奸头”、说普通话大舌头、高一就辍学去卖服装的Pizi蔡(pizicai.com非其官网，也是其域名而已)。

将asp页面转换成html页面
Sub GenFile(id)

dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET","http://www.xxx.com/product.asp?id=" & id ,false
objXmlHttp.send()

Dim binFileData
binFileData = objXmlHttp.responseBody

Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile Server.MapPath("/product") & "\" & id & ".htm",2
objAdoStream.Close()



dim sI,sA
sI=""
sA=""
dim objFSO,objFile
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(Server.MapPath("/product") & "\" & id & ".htm")

while not objFile.AtEndOfStream
sI = objFile.readline()
sA = sA & sI
wend
objFile.close
set objFile = nothing


''处理过程
dim sR
sR = replace(sA,"images/","../images/")
sR = replace(sR,"admin/../","../admin/")
sR = replace(sR,"class.asp","../class.asp")
sR = replace(sR,"cat.asp","../cat.asp")
sR = replace(sR,"research.asp","../research.asp")
sR = replace(sR,"help","../help")
sR = replace(sR,"mess.asp","../mess.asp")
sR = replace(sR,"index.asp","../index.asp")
sR = replace(sR,"addto.asp","../addto.asp")


''重新写入
dim objFileW
set objFileW = objFSO.CreateTextFile(Server.MapPath("/product") & "\" & id & ".htm",true)
objFileW.WriteLine sR
objFileW.close
set objFileW = nothing
set objFSO = nothing

end sub