<% Sub Index_Do_Djerror Response.Write "
" Response.Write "
" Response.Write "" Response.Write "

信息提示

" Response.Write "" Response.Write "

对不起，此功能正在开发中...

" Response.Write "
" Response.Write "
" End Sub '================================================= '过程名：Call Index_Do_Reg '作 用：注册页面 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Do_Reg If CD_UserY="no" Then Index_Do_Error "对不起，本站不开放新用户注册！","index.asp" Else %>

注册本站帐号

请完整填写以下信息进行注册。
注册完成后，该帐号将作为您在本站的通行帐号，您可以享受本站提供的各种服务。
登陆帐号 * 3-16 英文和数字组合
您的呢称 * 1-16 字符,可用中文
登陆密码 * 5-16 英文和数字组合
再次输入密码 * 确认上面输入的密码
密保问题 * 用于取回密码, 4-16 字符
密保答案 * 用于取回密码, 4-16 字符
您的性别 男 女 
所在地区  * 您的所在地区
出生年月 年 月 日  * 您的出生日期
邮箱地址 * 常用的邮箱地址
 
<% End IF End Sub '================================================= '过程名：Call Index_Do_LostPassWd '作 用：取回密码 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Do_LostPassWd %>

取回密码

如果您忘记密码，请使用本功能把密码重设，不需重复注册。
 

还没有注册吗？

如果还没有本站的通行帐号，请先注册一个属于自己的帐号吧。
立即注册
<% End Sub '================================================= '过程名：Call Index_Do_Fav '作 用：收藏音乐 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Do_Fav If UserLogined<>True Then Call Index_Do_Error("请登陆后再收藏，谢谢您的支持","do.asp?ac=login&gourl=do.asp?ac=fav%26id="&new_id) Response.End End If Set Rs=CmsDjPublic.GetRs("CD_ID",0,"CD_AA=2 and CD_BB="&id&" and CD_CC="&CmsDj_Com_UserID) If rs.EOF And rs.BOF Then Arr1=Array("CD_AA","CD_BB","CD_CC","CD_DD") Arr2=Array(2,id,CmsDj_Com_UserID,Now()) Call CmsDjPublic.add(Arr1,Arr2) Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',4,"&id&",0,0,'"&Now()&"')","exe" Conn.DB "update CmsDj_Dj set CD_FavHits=CD_FavHits+1 where CD_ID="&id,"exe" Call Index_Do_Error("收藏成功, 请到收藏夹查看","space.asp?do=music&view=fav") Else Call Index_Do_Error("这首歌曲你已经收藏过了，请到收藏夹查看","space.asp?do=music&view=fav") End If End Sub '================================================= '过程名：Call Index_Do_Login '作 用：登陆页面 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Do_Login %>

请登录

如果您在本站已拥有帐号，请使用已有的帐号信息直接进行登录即可，不需重复注册。
 
  "> 忘记密码?

还没有注册吗？

如果还没有本站的通行帐号，请先注册一个属于自己的帐号吧。
立即注册
<% End Sub '================================================= '过程名：Call Index_Do_Error '作 用：操作信息提示 '作 者: 花心萝卜 http://www.7xiwl.com '================================================= Sub Index_Do_Error(ErrMsg,ErrUrl) Response.Write "
" Response.Write "
" Response.Write "" Response.Write "

信息提示

" Response.Write "" Response.Write "

"&ErrMsg&"

" Response.Write "

" Response.Write "页面跳转中..." Response.Write "

" Response.Write "
" Response.Write "
" End Sub %>