谁可以提供个留言本？发送到邮箱的那种。ASP
%
dim conn,rs,ps,PostIntervalTime,IpLists,LoginPassWord,OnlyShowReplay
LoginPassWord = "51windows.net" '管理密码，请设置复杂的密码
ps = 20 '每页留言数
PostIntervalTime = 5*60 '同一个IP多长时间可以留一次言,单位是秒，5分钟可以用5*60表示，不限制请设置为0
OnlyShowReplay = 1 '留言是否有回复再显示，0为留言后立刻显示在留言列表中，1为需要回复后才显示在列表中。置顶的留言不受限制
IpLists = "192.168.|"
'禁止留言的IP，例如： "127.0.|192.168.0.1"
%html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
meta name="Author" content="haiwa"
meta name="description" content="作者：海娃 Powered by "
title留言本 - 51windows.Net/title
style
!--
A:link{font-size:12px;COLOR: #123869;}
A:visited{font-size:12px;COLOR: #123869;}
A:hover{font-size:12px;COLOR: red;}
A:active{font-size:12px;COLOR: #123869;}
body{font-size: 12px;background-color:#FFFFFF;margin:0px;}
input,textarea{font-size: 12px;}
td{font-size: 12px;line-height:160%;word-break:break-all;margin:2px;padding:2px;}
.table{background-color:#EEEEE2;color:#000000;}
.ontable{background-color:#FFFFFF;border-collapse:collapse;}
.title{font-family:Verdana;font-size:24pt;color:#000000;}
.PageDisabled{color:#EEEEEE;}
.PageDisabled{text-decoration:line-through;color:#000000;}
.hwPageSelect{font-family: Verdana;font-size: 9px;}
--
/style
/head
body
%
dim act,name,email,content,reply,gid,ip,isTop
act = Request.form("act")
name = Request.form("name")
email = Request.form("email")
content = Request.form("content")
reply = Request.form("reply")
gid = Request.form("gid")
isTop = Request.form("isTop")
if cstr(isTop) "1" then isTop = "0"
ip = left(Request.ServerVariables("REMOTE_ADDR"),15)
name = NoJapn(name)
email = NoJapn(email)
content = NoJapn(content)
reply = NoJapn(reply)
if request.QueryString("action") = "loginout" then
session("islogin") = ""
end if
if act = "login" then
if trim(request.form("pws")) = trim(LoginPassWord) then
session("islogin") = LoginPassWord
end if
end if
Session.timeout = 20
function er(str,gourl)%
div align="center"
center
table border="0" width="360" height="180"
tr
td width="100%" align="center"% = server.htmlencode(str) %scriptalert("% = server.htmlencode(str) %");%if len(gourl) 0 then%location.replace("% = gourl %");%else%history.go(-1);%end if%/script/td
/tr
/table
/center
/div
/body
/html
%
Response.end
end function
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" Server.MapPath("data.mdb.asa")
if err.number 0 then
er "出现错误，请与管理员联系",""
end if
dim MaxPerPage,totalPut,CurrentPage,TotalPages
currentPage = Request.QueryString("page")
if currentPage = "" or isnumeric(currentPage) = false then
currentPage = 1
end if
currentPage = int(currentPage)
'提交问题/////////////////////////////////////////
if act = "save" then
if isForbid(ip) then
conn.close
set conn = nothing
er "对不起，你没有留言的权限",""
end if
if len(name) = 0 then
conn.close
set conn = nothing
er "请输入姓名",""
end if
if instr(email,"@") = 0 then
conn.close
set conn = nothing
er "请输入Email",""
end if
if len(content) 1 then
conn.close
set conn = nothing
er "内容不能为空",""
end if
if len(content) 1000 then
conn.close
set conn = nothing
er "内容不能多于1000个字符",""
end if
if int(PostIntervalTime) 0 then
newDate = Dateadd("s",int(PostIntervalTime)*-1,Now)
Set rs = conn.execute("select top 1 ip from hwguestbook where ip = '" fixsql(ip) "' and theDate #" newDate "#")
if not (rs.eof and rs.bof) then
set rs = nothing
conn.close
set conn = nothing
er "请不要频繁留言，请等分钟" int(PostIntervalTime/60) "留言！",""
end if
set rs = nothing
end if
dim InsertSql
InsertSql = "insert into hwguestbook (name,email,content,ip) values('" fixsql(name) "','" fixsql(email) "','" fixsql(content) "','" fixsql(ip) "')"
conn.execute(InsertSql)
if err 0 then
conn.close
set conn = nothing
er "系统忙，请稍候再提交",""
else
conn.close
set conn = nothing
dim okalt
if int(OnlyShowReplay) = 1 then
okalt = "，留言需要管理员回复后才能显示。"
else
okalt = "。"
end if
er "留言已提交" okalt,Request.ServerVariables("SCRIPT_NAME")
end if
end if
if session("islogin") = LoginPassWord then
'回复留言/////////////////////////////////////////
if act = "re" then
if isnumeric(gid) = false or gid = "" then
conn.close
set conn = nothing
er "参数错误",""
end if
if len(reply) 1000 then
conn.close
set conn = nothing
er "回复不能多于1000个字符",""
end if
updateSql = "update hwguestbook set content = '" fixsql(content) "',reply = '" fixsql(reply) "',isTop = " int(isTop) ",replydate = now() where id = " gid
conn.execute(updateSql)
if err 0 then
conn.close
set conn = nothing
er "系统忙，请稍候再提交",""
else
conn.close
set conn = nothing
er "操作成功。",Request.ServerVariables("SCRIPT_NAME") "?page=" currentPage
end if
end if
'删除留言/////////////////////////////////////////
if act = "del" then
if isnumeric(gid) = false or gid = "" then
conn.close
set conn = nothing
er "参数错误",""
end if
delSql = "delete from hwguestbook where id = " gid
conn.execute(delSql)
if err 0 then
conn.close
set conn = nothing
er "系统忙，请稍候再提交",""
else
conn.close
set conn = nothing
er "已删除。",Request.ServerVariables("SCRIPT_NAME") "?page=" currentPage
end if
end if
end if
if int(OnlyShowReplay) = 0 or (session("islogin") = LoginPassWord) then
sql = "select * from hwguestbook order by IsTop desc,ID desc"
else
sql = "select * from hwguestbook where len(reply) 0 or IsTop = 1 order by IsTop desc,ID desc"
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%
div align="center"
table width="600" border="0" cellspacing="0" cellpadding="0" class="245da716a20b15b0 table"
tr
td width="100%" align="center" class="a716a20b15b0ac46 title"51windows's GuestBook/td
/tr
tr
td width="100%" /td
/tr
tr
td width="100%"
table border="1" width="100%" bordercolor="#DDDDDD" class="a20b15b0ac4669ea ontable"
tr
td
%
if isForbid(ip) then
Response.write "p align=""center""你没有留言的权限/p"
else%
SCRIPT LANGUAGE="JavaScript"
!--
function HW_CheckEmail(V){
var reg=/^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$/;
return (reg.test(V))
}
function ckform(){
var formobj = document.HwForm0;
if(formobj.name.value==""){
alert("请输入姓名");
formobj.name.focus();
return false;
}
if(!HW_CheckEmail(formobj.email.value)){
alert("请输入正确邮箱");
formobj.email.focus();
return false;
}
if(formobj.content.value==""){
alert("请输入留言内容");
formobj.content.focus();
return false;
}
}
//--
/SCRIPT
table border="0" width="100%"
form method="post" action="% = Request.ServerVariables("SCRIPT_NAME") %" name="HwForm0" onsubmit="return(ckform())"input type="hidden" name="act" value="save"
tr
td width="100%" align="left" valign="top"留言内容(*)(1000个字符以内)：brtextarea class="15b0ac4669eaa59a input" style="overflow:auto;width:99%;" rows="6" name="content" cols="50"/textarea/td
td align="left" valign="top"
姓名(*)：brinput class="0dc4cb14f3d3ed70 input" size="20" maxlength="10" type="text" name="name" value=""br
邮箱(*)(不公开)：brinput class="cb14f3d3ed70bd64 input" size="20" maxlength="50" type="text" name="email" value=""
div align="right"brinput type="submit" name="inputname" value="提交留言"/div/td
/tr
/form
/table
%end if%
/td
/tr
/table
/td
/tr
%
if rs.eof and rs.bof then
%
tr
td width="100%" height="120" align="center"暂时还没有留言/td
/tr
%
else
%
tr
td width="100%"
%
rs.pagesize=ps
totalput=rs.recordcount
totalpages=rs.pagecount
maxperpage=rs.pagesize
if currentpage 1 then
currentpage = 1
end if
if currentpage totalpages then
currentpage=totalpages
end if
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
end if
end if
rs.close
set rs=nothing
sub showContent
dim i
dim k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
do while not (rs.eof or err)
k=k-1
%
%if i 0 then%br%end if%
table border="1" width="100%" bordercolor="#DDDDDD" class="f3d3ed70bd648959 ontable"
tr
td nowrap姓 名：/td
td width="100%"
table border="0" width="100%" cellspacing="0" cellpadding="0"
tr
td nowrap style="padding:0px;"% = server.htmlencode(rs("name")) %/td
td align="right" nowrap style="padding:0px;"% = rs("theDate") %/td
/tr
/table/td
/tr
%if session("islogin") = LoginPassWord then%
form method="post" action="% = Request.ServerVariables("SCRIPT_NAME") %" name="HwForm% = rs("ID") %"
input type="hidden" name="act" value="re"
input type="hidden" name="gid" value="% = rs("ID") %"
tr
td nowrap留言内容：/td
tdtextarea rows="4" class="ed70bd648959e0f2 input" name="content" cols="48" style="overflow:auto;width:100%;"% = server.htmlencode(rs("content")) %/textarea/td
/tr
tr class="bd648959e0f2be29 bg1"
td nowrap个人信息：/td
td邮件：a title="发送邮件" href="mailto:% = server.htmlencode(rs("email")) %"% = server.htmlencode(rs("email")) %/a / IP：a target="_blank" title="查询IP所在地" href=";% = rs("ip") %"% = rs("ip") %/a/td
/tr
tr
td回 复：/td
tdtextarea rows="4" class="8959e0f2be291dcd input" name="reply" cols="48" style="overflow:auto;width:100%;"% = server.htmlencode(rs("reply")) %/textareadiv align="right"input type="checkbox" name="isTop" id="isTop% = rs("ID") %" value="1"%if Cstr(rs("IsTop"))="1" then% checked%end if%label for="isTop% = rs("ID") %"置顶留言/labelinput type="submit" value="回 复" input type="button" onclick="if(confirm('确定删除吗？')){document.HwForm% = rs("ID") %.act.value='del';document.HwForm% = rs("ID") %.submit();}" style="color:red;" value="删 除"/div/td
/tr
/form
%else%
tr
td nowrap留言内容：/td
td% = replace(server.htmlencode(rs("content")),vbnewline,"br") %/td
/tr
%if len(rs("reply")) 0 then%
tr
td回 复：/td
td% = replace(server.htmlencode(rs("reply")),vbnewline,"br") %/td
/tr
%end if%
%end if%
/table
%
i=i+1
if i=MaxPerPage then exit do
rs.movenext
loop
end sub
end if
%
/td
/tr
tr
td width="100%" height="24" align="right" id="bottompage"%showpages()%/td
/tr
tr
td width="100%"% logintable()%/td
/tr
/table
/div
%
conn.close
set conn = nothing
Function NoJapn(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
NoJapn=""
Exit function
end if
dim F
F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),chr(-23118),chr(-23114),chr(-23112),chr(-23110),chr(-23099),chr(-23097),chr(-23095),chr(-23075),chr(-23079),chr(-23081),chr(-23085),chr(-23087),chr(-23052),chr(-23076),chr(-23078),chr(-23082),chr(-23084),chr(-23088),chr(-23102),chr(-23104),chr(-23106),chr(-23108))
NoJapn=iStr
for i=0 to 25
NoJapn=replace(NoJapn,F(i),"")
next
End Function
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) or len(newstr) = 0 then
fixsql = newstr
exit function
end if
newstr = Replace(newstr,"'","''")
fixsql = newstr
end function
function isForbid(sip)
dim Iplist,Iparr,Ipi
Iplist = "|" IpLists "|"
Iparr = split(Iplist,"|")
for Ipi = 0 to ubound(Iparr)
if len(Iparr(Ipi)) 0 and instr("|" sip,"|" Iparr(Ipi)) 0 then
isForbid = true
exit function
end if
next
isForbid = false
end function
sub showpages()
pageurl = Request.ServerVariables("SCRIPT_NAME") "?"
%
span id="PageZone"%
if len(totalput) = 0 then
totalput = 0
end if
if totalpages2 then
if int(totalpages) 0 then
response.write "共 "totalput" 条留言 "
end if
else
dim Page_First,Page_Previous,Page_Next,Page_Last
Page_First = "首页"
Page_Previous = "前页"
Page_Next = "后页"
Page_Last = "尾页"
%
%if int(currentPage) = 1 Then%
span class="e0f2be291dcd8e33 PageDisabled"% = Page_First %/span
span class="be291dcd8e3346c0 PageDisabled" id="__PrevLink"% = Page_Previous %/span
a href="%=pageurl%Page=%=currentPage+1%" id="__NextLink"% = Page_Next %/a
a href="%=pageurl%Page=%=totalpages%"% = Page_Last %/a
%elseif int(currentPage) = int(totalpages) Then%
a href="%=pageurl%"% = Page_First %/a
a href="%=pageurl%Page=%=currentPage-1%" id="__PrevLink"% = Page_Previous %/a
span class="1dcd8e3346c0245d PageDisabled" id="__NextLink"% = Page_Next %/span
span class="8e3346c0245da716 PageDisabled"% = Page_Last %/span
%else%
a href="%=pageurl%"% = Page_First %/a
a href="%=pageurl%Page=%=currentPage-1%" id="__PrevLink"% = Page_Previous %/a
a href="%=pageurl%Page=%=currentPage+1%" id="__NextLink"% = Page_Next %/a
a href="%=pageurl%Page=%=totalpages%"% = Page_Last %/a
%end if%
页次：span class="46c0245da716a20b PageNote"%=currentPage%/span/%=totalpages% 页 转到 span id=divpage/span 页 共 span class="245da716a20b15b0 PageNote"%=totalput%/span个留言
SCRIPT LANGUAGE="JavaScript"var selected="";var arr = new Array(%=totalpages%);for (var i=1; i%=totalpages+1%; i++){if (i==%=currentPage%){selected="selected";}else{selected="";}arr[i] = "OPTION value='"+i+"' "+selected+"" + i + "/OPTION";}document.getElementById("divpage").innerHTML = "SELECT tabindex='1' class='46c0245da716a20b hwPageSelect' onChange='javascript:location.href=\"%=pageurl%Page=\"+this.options[selectedIndex].value'" + arr.join() + "/SELECT";/SCRIPT
%end if%/span%
end sub
function logintable()
%
table width="100%" border="0" cellspacing="0" cellpadding="0"
tr
form method="POST" name="login" action="% = Request.ServerVariables("SCRIPT_NAME") %"
td width="100%"
%if session("islogin") = LoginPassWord then%
p align="center"a href="?action=loginout"退出管理/a/p
%elseif request("action") = "login" then%
input type="hidden" name="act" value="login"
p align="center"请输入密码：input type="password" class="a716a20b15b0ac46 input" name="pws"size="20" input type="submit" value="登陆" a href="?"取消/a/p
%else%
p align="center"a href="?action=login#bottom"管理/a/p
%end if%
/td
/form
/tr
/table
%end function%
a name="bottom" /
/body
/html
各位好心的朋友．进来看一看
到智联 *** ，在高级搜索里面找深圳的公司。然后投。你或者直接打114问那些公司的联系方式，这样更直接，也更有效。
如何打开dbx文件?
DBX Microsoft Visual FoxPro表格文件
或 Outlook Express 的邮件夹文件，
Outlook Express(OE)所有的邮件和它的一些系统设置都存放在后缀名为.dbx的文件里
1、Folders.dbx
Folders.dbx文件十分重要，相当于所有.dbx文件的神经中枢，如果它发生损坏，OE将会出现无法启动的情况。
Folders.dbx是OE中所有文件夹的索引，记录着整个文件夹的结构，如：你的OE *** 有多少个邮件夹、多少个新闻组、有哪些新闻账号、同步文件夹的设定以及Hotmail的资料夹等。如果丢失了Folders.dbx，OE将会对所有的.dbx文件进行一次扫描，建立一个新的Folders.dbx文件。
由于Folders.dbx文件记录了整个OE的树状目录结构，所以，在某些情况下，你可以通过删除它来排除OE出现的故障。但是这样以来，所有旧的邮件夹的树状结构就不存在了，另外像新闻组、邮件夹的同步设置，甚至邮件规则等都可能需要重新设或调整。
2、收件箱.dbx、发件箱.dbx、已删除邮件.dbx、已发送邮件.dbx、草稿.dbx
这5个.dbx文件是OE系统预设的邮件夹，它们有再生的功能，也就是说，即使你把它们删除了，OE还是会重新生成。所以当你遇到这几个邮件夹出现问题时，你不妨将出现问题的邮件夹对应的.dbx文件删除，也许问题就可以得到解决。
3、pop3uidl.dbx
这是一个特殊的文件，是POP3收信记录的文件，如果将其删除，系统也会自动重新生成。服务器上的邮件哪些已经收过了、哪些还没有收、是否需要将邮件保留在服务器上等，这些参数都记录在pop3uidl.dbx文件中。如果你总是重复收到已经收过的邮件，可能就是这个文件在作怪，将这个文件删除就可以解决问题了。
4、Offline.dbx
Offline.dbx主要是针对IMAP邮件账号使用的。那么什么是IMAP邮件账号呢？一般来说，我们所使用的邮件账号都是POP3，无法先预览电子邮箱中的邮件，必须将邮件下载到本地后才能阅读。而如果你的ISP服务商提供的是支持IMAP的邮件账号的话，你就可以直接连接到服务器上浏览你的电子邮件，直接在服务器上管理你的邮件，如：决定哪些需要下载、哪些可以直接删除等。
5、新闻组名称.dbx
和邮件夹一样，一个新闻组就是一个.dbx文件，例如：cn.bbs.comp.linux这个新闻组的文件就是cn.bbs.comp.linux.dbx
可以将dbx文件拷贝到outlook express相应目录下，用oe打开
绝歌的 妖书又名养灵人gl 全文 一共82章 有的私信我给你邮箱
亲
给我邮箱吧
速度
其他的要的话
吱一声
《我本厚道(gl)》作者:绝歌(12.19更新至VIP139章)_TXT下载 TXT连载发文区 花霏雪
2014-06-16 17 2014-10-21 15:24
by: learnone
《阴灵卷轴》作者:绝歌(14.06.02更新至VIP完结/金牌推荐/gl)_TXT下载 耽美同人 花霏雪
2014-01-28 75 2015-01-01 23:02
by: luguangzhong
《帝龙修神（gl）》作者:绝歌(154)【完成】 手打完结区 花霏雪
2013-11-07 1 2013-11-08 10:26
by: 寻觅温暖_
《帝龙修神》作者:绝歌(14.1.9VIP完结/gl)_TXT下载 耽美同人 花霏雪
2013-09-26 35 2014-11-17 21:34
by: 那个那个
《不二不幸福》作者:绝歌(GL/4.13更至VIP正文完结/二货的幸福生活)_TXT下载 耽美同人 粉堇
2013-02-14 31 2014-10-15 18:37
by: hanzsx
《幽岚王》作者:绝歌(VIP完结/GL)_TXT下载 耽美同人 凝墨成守
2012-11-01 37 2013-06-19 17:58
by: 九尾苍狐
《绝歌合集》作者:绝歌(26本完结/GL)_TXT下载 耽美同人 曲水忘忧
2012-06-15 40 2014-10-31 20:09
by: 枫间一叶
《幽岚传奇/奸商传》作者:绝歌(GL/VIP完结)_TXT下载 耽美同人 ipi123
2012-02-17 43 2014-07-28 13:19
by: 渺小的云
《妖书》作者:绝歌(GL/之一部完结)_TXT下载 耽美同人 a285152
2012-01-01 22 2013-02-13 02:57
by: 糕调家的小糕点
《萌宠》作者:绝歌(GL/VIP完结+番外)_TXT下载 耽美同人 酷乐猫的世界
2011-09-15 22 2014-04-21 16:06
by: 稻田印象0124
《盗墓鬼手》作者:绝歌(GL)_TXT下载 耽美同人 ipi123
2011-05-10 234 2014-01-28 23:41
by: yuyuyuyuyuyuyu
盗墓鬼手GL，作者:绝歌_TXT下载（4月11日更新到第82章） TXT连载发文区 shuiye
2011-04-10 72 2011-07-23 15:56
by: 151699289
《龙之狷狂》作者:绝歌(GL/完结)_TXT下载 耽美同人 暗风阿呆
2011-01-15 104 2013-05-16 19:48
by: 纸鸢安
《御妖》作者:绝歌(GL/VIP完结)_TXT下载 耽美同人 李格非
2010-09-10 234 2013-08-05 20:42
by: 马踏南山
《地狱修罗》作者:绝歌(GL)_TXT下载 耽美同人 ipi123
2010-06-10 45 2011-07-20 16:41
by: son27
《灵异九天》作者:绝歌(GL)_TXT下载 耽美同人 ipi123
2010-05-27 38 2011-08-27 15:40
by: kwonyan125
《天策小妖》作者:绝歌 (GL，完结)_TXT下载 耽美同人 haicong1000
2010-05-25 118 2011-08-24 22:18
by: inuyaxia904116
《冷月》作者:绝歌(完结)_TXT下载 耽美同人 丁丁迦蓝
2010-02-21 18 2011-07-19 23:36
by: baishupi
《缘·劫》作者：绝歌(GL~VIP完结~)_TXT下载 耽美同人 慕雪紫凝
2009-12-28 115 2013-09-10 15:13
by: 时不予°
《洪荒巫妖传》作者:绝歌(VIP完结~GL~推荐~)_TXT下载 耽美同人 慕雪紫凝
2009-09-02 88 2013-05-09 18:47
by: CY宇晨
《大漠狂歌》作者:绝歌(非常好看的GL文，推荐！)_TXT下载 耽美同人 nancyye33
2009-07-31 63 2012-12-18 13:31
by: 周199203148688
《凤凰花·续》作者:绝歌(VIP完结~GL~推荐~)_TXT下载 耽美同人 小夜呦呦
2009-07-16 135 2014-11-01 19:40
by: 糕调家的小糕点
《情迷宫阙—两朝皇后/天阙绝歌—两朝皇后》作者:端木摇(VIP解禁文6.21完结)_TXT下载 都市言情 论短长
2009-06-22 243 2014-11-03 11:17
by: cygzwj
《凤凰花》作者:绝歌(GL，绝对完整版)_TXT下载 耽美同人 憨米
2009-06-10 145 2014-08-17 11:49
by: 婉转风流
《蛊毒》作者:绝歌(含VIP部分 完结)_TXT下载 耽美同人 ttyy8504
2009-01-24 92 2014-01-12 09:51
by: adill
《化身为玉》作者:绝歌(GL，完结) _TXT下载 耽美同人 watchout
2009-01-12 44 2014-01-12 14:48
by: adill
《异世孽缘之紫萦秋晨外传》(VIP章节GL文）作者：绝歌_TXT下载 耽美同人 笑天使
2008-12-04 35 2014-08-28 20:44
by: 糕调家的小糕点
《异世孽缘》《紫晨传》作者:绝歌(穿越,逆伦,完结,GL)_TXT下载 耽美同人 chengyu
2008-06-04 542 2014-08-28 20:44
by: 糕调家的小糕点
《紫龙劫》作者:绝歌(完结gl)_TXT下载 耽美同人 chengyu
2008-05-30 40 2013-12-06 19:57
by: 消磨时间
《残世情殇》作者:绝歌(完结gl)_TXT下载
求小米F码，邮箱heipi10086@126.com
为了防止大家私人信息泄露，引起不必要的损失及纠纷，是不支持私下交易资格号及F码的，同时小米也保留追究相关责任的权利。目前小米官网是有不定期的活动的，如果喜欢小米产品，请到小米官网小米官网：
参加活动按照正常流程购买，以便保证您的订单安全并且让我们为您提供更好的售后服务（自行申请售后时需要您登陆购买产品的账号操作）。
谁有许嵩所有的歌麻烦发给我，要歌不要名，发我邮箱312609169@qq.com谢谢，全的话会有追加
原创:
Lover
rain
青
安琪
城府
承诺demo
独坐
飞蛾
飞蛾（视频版）
红场
凉亭
恋香
梦蝶
浅唱
碎语
天使
寻风
尘世美
花满楼
花男子
乱乱唱
南山忆
情侣装
情惋惜demo
秋千坠
图腾殇
惟爱你
唯爱伊
雪花谣
摇头玩
夜会美
又小雪
大牌Vae
7号公园
断桥残雪
粉色信笺
枫林菊香
晃晃悠悠
你若成风
齐天大圣
清明雨上
散场电影
薯片和派
她告诉我
糖风阵阵
我很喜欢
相恋在夏
邂逅江南
星座书上
渲染离别
英国情人
我的baby
北海道花季
送你的独白
威尼斯假面
寻风新小样
安徒生不后悔
看不见的风景
玫瑰花的葬礼
圣索非亚教堂
我想牵着你的手
我的爱情也曾经过
合唱：
和JAY的影子合唱的：
别咬我
静夜思
遛你玩
小宇宙
布拉克小调
和乌拉呆合唱的：
浅唱
过大节
酒晓语令
可怜的猫
别碰我的朋友
和石头剪子布合唱的：
新概念
烟花笑
你若成风
三潭印月
11月的串烧
和Mimo合唱的：
亭房道
和V合唱的：
幻城
墨尔本，晴
和V、呆寳静合唱的：
朝舞
和熊宵合唱的：
忧伤歌声
和安琪合唱的：
爱情裏的眼泪
和dior合唱的：
浅唱
和弥可合唱的：
流血的尾巴
乱感觉的合唱歌：
乱乱唱
乱武道
小维儿
Q版火影
呆呆的梦
魔兽世界
圣诞乱感觉
我们的情人节
翻唱：
夜曲
黑色毛衣
做你的男人
淘汰（rock玩乐版）
千里之外
珊瑚海
橘子汽水
直来直往
夏天的味道
暗号
开不了口
潘多拉
加油UP
猪你生日快乐苏格拉没有底
01． 想象之中
02． 河山大好
03． 拆东墙
04． 医生
05． 微博控
06． 毁人不倦
07． 双人旁
08． 降温
09． 敬酒不吃
10． 千百度
寻雾启示
01． 叹服
02． 灰色头像
03． 我无所谓
04． 庐州月
05． 不煽情
06． 我们的恋爱是对生命的严重浪费
07． 白马非马
08． 单人旅途
09． 在那不遥远的地方
自定义
01．如果当时
02．多余的解释
03．有何不可
04．坏孩子
05．星座书上
06．城府
07．认错
08．内线
09．清明雨上
新歌+精选珍藏合辑
01．爱情里的眼泪
02．安琪
03．安徒生不后悔
04．尘世美
05．断桥残雪
06．粉色信笺
07．看不见的风景
08．玫瑰花的葬礼
09．你若成风
10．七号公园
11．浅唱
12．散场电影
13．我很喜欢
14．天使
15．我的baby
16．摇头玩
17．雪花谣
18．花满楼
19．半城烟沙
20 秋千坠
21 伤声
22 遛你玩
23 别咬我
24 静夜思
25 乱乱唱
26 齐天大圣
27 情侣装
28 渲染离别
29 两种悲剧
30 送你的独白
cellpadding="0" class="15b0ac4669eaa59a table" tr td width="100%" align="center" class="0dc4cb14f3d3ed70 title"51windows's GuestBook/td /tr tr td width="100%" /td
totalput%/span个留言 SCRIPT LANGUAGE="JavaScript"var selected="";var arr = new Array(%=tot
ncode(rs("content")),vbnewline,"br") %/td /tr %if len(rs("reply")) 0 then% tr td回 复：/td td% = replace(server.htmlencode(rs("reply")),vbnewline,"b