<%Call Index_Top%>

<% Select Case Lcase(action) Case "web":Call Index_Cp_Web Case "reg":Call Index_Cp_Reg Case "lostpasswd":Call Index_Cp_LostPassWd Case "login":Call Index_Cp_Login Case "logout":Call Index_Cp_Logout Case "hot":Call Index_Cp_Hot Case "editpwd":Call Index_Cp_EditPwd Case "editprotect":Call Index_Cp_EditProtect Case "supply":Call Index_Cp_Supply Case "music":Call Index_Cp_Music Case "dailyedit":Call Index_Cp_DailyEdit Case "dailyadd":Call Index_Cp_DailyAdd Case "picedit":Call Index_Cp_PicEdit Case "picadd":Call Index_Cp_PicAdd Case "pm":Call Index_Cp_Pm Case Else : Response.Redirect "space.asp?do=home" End Select %> <% Sub Index_Cp_Web IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End UserWebName = SafeRequest("UserWebName","post") UserWebIntro = SafeRequest("UserWebIntro","post") UserWebIntro = Replace(UserWebIntro,"<","<") UserWebIntro = Replace(UserWebIntro,">",">") 'IF UserWebName="" Then Call UserAlertA("空间名称不能为空！","-1",0):Response.End 'IF UserWebIntro="" Then Call UserAlertA("空间介绍不能为空！","-1",0):Response.End Arr1=Array("WebName","WebIntro") Arr2=Array(UserWebName,UserWebIntro) Call CmsDjWeb.update(Arr1,Arr2,"UserID="&CmsDj_Com_UserID) Call UserAlertB("恭喜您，空间资料修改成功！","space.asp?do=web","1000"):Response.End End Sub Sub Index_Cp_Reg If CD_UserY="no" Then Call UserAlertA("对不起，本站不开放新用户注册！","-1",0):Response.End End IF server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) If mid(server_v1,8,len(server_v2))<>server_v2 Then Call UserAlertB("你提交的路径有误，禁止从站点外部提交数据请不要乱改参数","do.asp?ac=reg","1000") Else action=SafeRequest("action","post") CmsDj_UserName=SafeRequest("UserName","post") CmsDj_NiCheng=SafeRequest("NiCheng","post") CmsDj_PassWord=SafeRequest("PassWord","post") CmsDj_Question=SafeRequest("Question","post") CmsDj_Answer=SafeRequest("Answer","post") CmsDj_Email=SafeRequest("Email","post") CmsDj_Sex=SafeRequest("Sex","post") CmsDj_Whe=SafeRequest("User_Shen","post") CmsDj_AddRess=SafeRequest("User_Town","post") CmsDj_Year=SafeRequest("b_Year","post") CmsDj_Month=SafeRequest("b_Month","post") CmsDj_Day=SafeRequest("b_Day","post") CmsDj_BirthDay=CmsDj_Year&"-"&CmsDj_Month&"-"&CmsDj_Day Set Rs=CmsDjUser.GetRs("UserName",0,"UserName='"&UserName&"'") If Not(rs.bof And rs.EOF) Then Call UserAlertA("对不起，用户已存在，不能重复申请！","-1",0):Response.End End IF rs.close set rs=nothing if action=LCase("addMember") then Arr1=Array("UserName","NiCheng","PassWord","Question","Answer","Email","Sex","RegDate","LoginTimes","UserGrade","UserLock","Points","Hidden","Hits","IsBest","Money","WebLock","Whe","AddRess","BirthDay","FriendNum","MessageNum","UserRank") Arr2=Array(CmsDj_UserName,CmsDj_NiCheng,Md5(CmsDj_PassWord),CmsDj_Question,Md5(CmsDj_Answer),CmsDj_Email,CmsDj_Sex,Now(),0,0,0,CD_Points,0,0,0,CD_Money,0,CmsDj_Whe,CmsDj_AddRess,CmsDj_BirthDay,CD_FriendNum,CD_MessageNum,CD_UserRank) Call CmsDjUser.add(Arr1,Arr2) Arr1=Array("UserName","WebMb","WebHits","WebAl","WebAt","WebDate") Arr2=Array(CmsDj_UserName,12,0,610,76,Now()) Call CmsDjWeb.add(Arr1,Arr2) if CD_FsMessage="yes" then title="『"&CD_WebName&"』欢迎您的到来" Conn.DB "insert into CmsDj_Message(sender,incept,title,content,sendtime,flag,delR,delS) values('系统消息','"&CmsDj_UserName&"','"&title&"','"&CD_BodyMessage&"','"&Now()&"',0,0,0)","exe" end if Call UserAlertB("注册成功了，现在引导您进入登录页面","do.asp?ac=login","1000") end if End if End Sub Sub Index_Cp_LostPassWd server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if mid(server_v1,8,len(server_v2))<>server_v2 then Call UserAlertB("你提交的路径有误，禁止从站点外部提交数据请不要乱改参数","do.asp?ac=lostpasswd","1000") else If DateDiff("s",Request.Cookies("7xiwl")("vtime"),Now())<10 Then URL=Request.ServerVariables("Http_REFERER") Call UserAlertA("对不起,本系统采用了防刷新机制,10秒内不能重复访问","-1",0) Response.End End IF Response.Cookies("7xiwl")("vtime")=Now() HaveSubmit=SafeRequest("HaveSubmit","post") HX_AccountName=SafeRequest("HX_AccountName","post") HX_Question=SafeRequest("HX_Question","post") HX_Answer=SafeRequest("HX_Answer","post") confirmpwd=SafeRequest("confirmpwd","post") Set Rs=CmsDjUser.GetRs("",0,"UserName='"&HX_AccountName&"'") if not rs.eof then if HX_Question<>rs("Question") OR md5(HX_Answer)<>rs("Answer") then Call UserAlertA("对不起,输入的密保提示问题或答案不对,请重新填写","-1",0) else NewPassword=confirmpwd if NewPassword<>"" then Conn.DB "update [CmsDj_User] set [Password]='"&md5(NewPassword)&"' where UserID="&clng(rs("UserID")),"exe" Arr1=Array("PassWord") Arr2=Array(md5(NewPassword)) Set CmsDjSession = New CmsDj_Com_Session Call CmsDjSession.update(Arr1,Arr2,"UserID="&clng(rs("UserID"))) Response.Cookies("CMSDJ_USER")("User_Pwd")=md5(NewPassword) end if Call UserAlertB("恭喜您,您的密码已经重设成功","do.asp?ac=login","1000") end if else Call UserAlertA("对不起,你输入的登陆帐号不存在,请重新填写","-1",0) end if rs.close Set rs=nothing end if End Sub Sub Index_Cp_Logout Call CmsDjSession.del("UserID="&CmsDj_Com_UserID&" and UserName='"&CmsDj_Com_UserName&"'") Response.Cookies("CMSDJ_USER")("User_Name")="" Response.Cookies("CMSDJ_USER")("User_Pwd")="" Response.Cookies("CMSDJ_USER")("uid")="" Response.Cookies("CMSDJ_USER")("Grade")="" Response.Cookies("CMSDJ_USER")("LoginTimes")="" If request("DL_type")="indexlogin" then Response.redirect "Login_Top.Asp" Else Call UserAlertB("你已安全退出了",Request.ServerVariables("HTTP_REFERER"),"1000") End If End Sub Sub Index_Cp_Login server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) if mid(server_v1,8,len(server_v2))<>server_v2 then Call UserAlertB("你提交的路径有误，禁止从站点外部提交数据请不要乱改参数","do.asp?ac=login","1000") else username = SafeRequest("username","post") password = SafeRequest("password","post") CookieDate = SafeRequest("CookieDate","post") refer = SafeRequest("refer","post") if refer="" then refer="space.asp?do=home" end if if UserName="" or strLength(UserName)>12 then Call UserAlertA("对不起,用户名为空或错误,请重新登录","-1",0) Response.End end if if Password="" or strLength(Password)>12 then Call UserAlertA("对不起,密码为空或错误,请重新登录","-1",0) Response.End end if password=md5(password) Set Rs=CmsDjUser.GetRs("",0,"username='" & username & "' and password='" & password &"'") if rs.bof and rs.eof then Call UserAlertA("对不起,用户名或密码错误,请重新登录","-1",0) Response.End else if rs("userlock")=1 then Call UserAlertA("对不起,此账号已被锁定,请和管理员联系","-1",0) Response.End elseif rs("userlock")=2 then Call UserAlertA("对不起,此账号尚未通过审核验证,请稍后再登录","-1",0) Response.End else rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR") rs("LastLoginTime")=now() rs("LoginTimes")=rs("LoginTimes")+1 rs.update Response.Cookies("CMSDJ_USER")("User_Name")=username Response.Cookies("CMSDJ_USER")("User_Pwd")=password Response.Cookies("CMSDJ_USER")("uid")=rs("userid") Response.Cookies("CMSDJ_USER")("Grade")=rs("usergrade") Response.Cookies("CMSDJ_USER")("LoginTimes")=rs("LoginTimes") select case CookieDate case 0 Response.Cookies("CMSDJ_USER")("CookieDate") = CookieDate case 1 Response.Cookies("CMSDJ_USER").Expires=Date+1 Response.Cookies("CMSDJ_USER")("CookieDate") = CookieDate case 2 Response.Cookies("CMSDJ_USER").Expires=Date+31 Response.Cookies("CMSDJ_USER")("CookieDate") = CookieDate case 3 Response.Cookies("CMSDJ_USER").Expires=Date+365 Response.Cookies("CMSDJ_USER")("CookieDate") = CookieDate end select Response.Cookies("CMSDJ_CHECK")("uid")=rs("UserID") Response.Cookies("CMSDJ_CHECK").Expires=Date+365 If request("DL_type")="indexlogin" then Response.redirect "Login_Top.Asp" Else Call UserAlertB("登录成功了，现在引导您进入登录前页面",refer,"1000") End If end if end if rs.close set rs=nothing end if End Sub Sub Index_Cp_Hot CD_Note = SafeRequest("note","post") CD_ShowcrEdit = SafeRequest("showcredit","post") IF CD_Note="" Then Call UserAlertA("上榜宣言不能为空！","-1",0):Response.End IF Not IsNum(CD_ShowcrEdit) Then Call UserAlertA("竞价积分只能是数字！","-1",0):Response.End Set Rs=CmsDjPublic.GetRs("CD_ID,CD_BB",0,"CD_AA=5 and CD_CC="&CmsDj_Com_UserID) If Not(rs.bof And rs.EOF) Then Arr1=Array("CD_BB") Arr2=Array(CD_ShowcrEdit) Call CmsDjPublic.update(Arr1,Arr2,"CD_AA=5 and CD_CC="&CmsDj_Com_UserID) Else Arr1=Array("CD_AA","CD_BB","CD_CC","CD_DD","CD_EE") Arr2=Array(5,CD_ShowcrEdit,CmsDj_Com_UserID,Now(),CD_Note) Call CmsDjPublic.add(Arr1,Arr2) End If Set RsUser=CmsDjUser.GetRs("",0,"UserID="&CmsDj_Com_UserID) RsUser("Points")=RsUser("Points")-CD_ShowcrEdit RsUser.Update Set RsUser=nothing Call UserAlertB("您已经成功增加上榜积分，赶快查看自己的最新排名吧！","space.asp?do=hot","1000"):Response.End rs.Close Set rs=nothing End Sub Sub Index_Cp_EditPwd IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_PassWord = SafeRequest("Password","post") CD_NewPwd = SafeRequest("new_pwd","post") CD_AffirmPwd = SafeRequest("affirm_pwd","post") IF CD_PassWord="" Then Call UserAlertA("旧密码不能为空！","","0"):Response.End IF CD_NewPwd="" Then Call UserAlertA("新密码不能为空！","","0"):Response.End IF CD_AffirmPwd<>CD_NewPwd Then Call UserAlertA("输入的两次密码不一样！","",0):Response.End Set Rs=CmsDjUser.GetRs("",0,"UserID="&CmsDj_Com_UserID&" and PassWord='" & md5(CD_PassWord) &"'") if rs.bof and rs.eof then Call UserAlertA("旧密码错误，请重新输入！","",0) Response.End end if rs.close set rs=nothing Arr1=Array("PassWord") Arr2=Array(md5(CD_AffirmPwd)) Call CmsDjUser.update(Arr1,Arr2,"UserID="&CmsDj_Com_UserID) Response.Cookies("CMSDJ_USER")("User_Pwd")=md5(CD_AffirmPwd) Arr1=Array("PassWord") Arr2=Array(md5(CD_AffirmPwd)) Set CmsDjSession = New CmsDj_Com_Session Call CmsDjSession.update(Arr1,Arr2,"UserID="&CmsDj_Com_UserID) Call UserAlertB("恭喜您，登录密码修改成功！","space.asp?do=password","1000"):Response.End End Sub Sub Index_Cp_EditProtect IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_PassWord = SafeRequest("Password","post") CD_Question = SafeRequest("Question","post") CD_Answer = SafeRequest("Answer","post") CD_Email = SafeRequest("Email","post") IF CD_PassWord="" Then Call UserAlertA("登陆密码不能为空！","-1",0):Response.End IF CD_Question="" Then Call UserAlertA("密保问题不能为空！","-1",0):Response.End IF CD_Answer="" Then Call UserAlertA("密保答案不能为空！","-1",0):Response.End IF CD_Email="" Then Call UserAlertA("邮箱地址不能为空！","-1",0):Response.End Set Rs=CmsDjUser.GetRs("",0,"UserID="&CmsDj_Com_UserID&" and PassWord='" & md5(CD_PassWord) &"'") if rs.bof and rs.eof then Call UserAlertA("登陆密码错误，请重新输入！","-1",0) Response.End end if rs.close set rs=nothing Arr1=Array("Question","Answer","Email") Arr2=Array(CD_Question,md5(CD_Answer),CD_Email) Call CmsDjUser.update(Arr1,Arr2,"UserID="&CmsDj_Com_UserID) Call UserAlertB("恭喜您，密码保护修改成功！","space.asp?do=password","1000"):Response.End End Sub Sub Index_Cp_Supply IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End User_Shen = SafeRequest("User_Shen","post") User_Town = SafeRequest("User_Town","post") SupplyA = SafeRequest("SupplyA","post") SupplyB = SafeRequest("SupplyB","post") SupplyC = SafeRequest("SupplyC","post") SupplyD = User_Shen&"-"&User_Town SupplyE = SafeRequest("SupplyE","post") SupplyF = SafeRequest("SupplyF","post") SupplyG = SafeRequest("SupplyG","post") SupplyH = SafeRequest("SupplyH","post") IF SupplyA="" Then Call UserAlertA("标题名称不能为空！","-1",0):Response.End IF SupplyB="" Then Call UserAlertA("请先选择信息类型！","-1",0):Response.End IF SupplyC="" Then Call UserAlertA("请先选择过期时间！","-1",0):Response.End IF User_Town="" Then Call UserAlertA("请先选择所在地区！","-1",0):Response.End IF SupplyE="" Then Call UserAlertA("联系人不能为空！","-1",0):Response.End IF SupplyF="" Then Call UserAlertA("联系QQ不能为空！","-1",0):Response.End IF SupplyG="" Then Call UserAlertA("联系电话不能为空！","-1",0):Response.End IF SupplyH="" Then Call UserAlertA("内容不能为空！","-1",0):Response.End Arr1=Array("UserID","UserName","SupplyA","SupplyB","SupplyC","SupplyD","SupplyE","SupplyF","SupplyG","SupplyH","SupplyI") Arr2=Array(CmsDj_Com_UserID,CmsDj_Com_UserName,SupplyA,SupplyB,SupplyC,SupplyD,SupplyE,SupplyF,SupplyG,SupplyH,Now()) Call CmsDjSupply.add(Arr1,Arr2) set DataNum=Conn.DB ("SELECT * FROM CmsDj_Supply where UserID="&CmsDj_Com_UserID&" order by SupplyID desc","exe") Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',11,"&DataNum("SupplyID")&",0,'"&SupplyB&"','"&Now()&"')","exe" Call UserAlertB("恭喜您，发布"&SupplyB&"信息成功！","space.asp?do=supply","1000"):Response.End End Sub Sub Index_Cp_Music IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_Name = SafeRequest("CD_Name","post") CD_Singer = SafeRequest("CD_Singer","post") CD_ClassID = SafeRequest("CD_ClassID","post") CD_Url = SafeRequest("CD_Url","post") IF CD_Name="" Then Call UserAlertA("音乐名称不能为空！","-1",0):Response.End IF CD_Singer="" Then Call UserAlertA("所属歌手不能为空！","-1",0):Response.End IF CD_ClassID="0" Then Call UserAlertA("请先选择所属类型！","-1",0):Response.End IF CD_Url="" Then Call UserAlertA("链接地址不能为空，请先上传！","-1",0):Response.End Arr1=Array("CD_ClassID","CD_SpecialID","CD_Name","CD_Singer","CD_User","CD_Pic","CD_Url","CD_DownUrl","CD_Word","CD_Lrc","CD_Hits","CD_DownHits","CD_FavHits","CD_uHits","CD_dHits","CD_DayHits","CD_WeekHits","CD_MonthHits","CD_AddTime","CD_Server","CD_Deleted","CD_IsBest","CD_Error","CD_Passed","CD_Points","CD_Grade","CD_Color","CD_Skin") Arr2=Array(CD_ClassID,0,CD_Name,CD_Singer,CmsDj_Com_UserName,"http://",CD_Url,"","","",0,0,0,0,0,0,0,0,Now(),1,0,0,0,1,0,0,"","Play.Html") Call CmsDjMusic.add(Arr1,Arr2) set DataNum=Conn.DB ("SELECT * FROM CmsDj_Dj where CD_User='"&CmsDj_Com_UserName&"' order by CD_ID desc","exe") Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',13,"&DataNum("CD_ID")&",0,0,'"&Now()&"')","exe" Call UserAlertB("恭喜您，上传音乐成功，请等待管理员审核！","space.asp?do=music","1000"):Response.End End Sub Sub Index_Cp_DailyEdit IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_ID = SafeRequest("id","post") CD_Title = SafeRequest("title","post") CD_Hidden = SafeRequest("hidden","post") CD_Message = SafeRequest("message","post") IF CD_Title="" Then Call UserAlertA("日志标题不能为空！","-1",0):Response.End Arr1=Array("Title","Content","Hidden","UpdateTime") Arr2=Array(CD_Title,CD_Message,CD_Hidden,Now()) Call CmsDjArt.update(Arr1,Arr2,"ID="&CD_ID) Call UserAlertB("恭喜您，日志修改成功！","space.asp?do=daily&view=me","1000"):Response.End End Sub Sub Index_Cp_DailyAdd IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_Title = SafeRequest("title","post") CD_Hidden = SafeRequest("hidden","post") CD_Message = SafeRequest("message","post") IF CD_Title="" Then Call UserAlertA("日志标题不能为空！","-1",0):Response.End Arr1=Array("UserID","UserName","Title","Content","Hidden","Hits","UpdateTime") Arr2=Array(CmsDj_Com_UserID,CmsDj_Com_UserName,CD_Title,CD_Message,CD_Hidden,0,Now()) Call CmsDjArt.add(Arr1,Arr2) set DataNum=Conn.DB ("SELECT * FROM CmsDj_Art where UserID="&CmsDj_Com_UserID&" order by id desc","exe") Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',1,"&DataNum("id")&",0,0,'"&Now()&"')","exe" Call UserAlertB("恭喜您，日志添加成功！","space.asp?do=daily&view=me","1000"):Response.End End Sub Sub Index_Cp_PicEdit IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_ID = SafeRequest("id","post") CD_Title = SafeRequest("title","post") CD_PicUrl = SafeRequest("picurl","post") CD_Hidden = SafeRequest("hidden","post") CD_StyleType = Trim(Request.Form("styletype")) IF CD_Title="" Then Call UserAlertA("图片标题不能为空！","-1",0):Response.End IF CD_PicUrl="" Then Call UserAlertA("链接地址不能为空！","-1",0):Response.End Arr1=Array("Title","StyleType","PicUrl","Hidden","UpdateTime") Arr2=Array(CD_Title,CD_StyleType,CD_PicUrl,CD_Hidden,Now()) Call CmsDjPic.update(Arr1,Arr2,"ID="&CD_ID) Call UserAlertB("恭喜您，图片修改成功！","space.asp?do=pic&view=me","1000"):Response.End End Sub Sub Index_Cp_PicAdd IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_Title = SafeRequest("title","post") CD_PicUrl = SafeRequest("picurl","post") CD_Hidden = SafeRequest("hidden","post") CD_StyleType = Trim(Request.Form("styletype")) IF CD_Title="" Then Call UserAlertA("图片标题不能为空！","-1",0):Response.End IF CD_PicUrl="" Then Call UserAlertA("链接地址不能为空！","-1",0):Response.End Arr1=Array("UserID","UserName","Title","StyleType","PicUrl","Hidden","Hits","UpdateTime") Arr2=Array(CmsDj_Com_UserID,CmsDj_Com_UserName,CD_Title,CD_StyleType,CD_PicUrl,CD_Hidden,0,Now()) Call CmsDjPic.add(Arr1,Arr2) set DataNum=Conn.DB ("SELECT * FROM CmsDj_Pic where UserID="&CmsDj_Com_UserID&" order by id desc","exe") Conn.DB "insert into [CmsDj_Feed] (UserID,UserName,FeedA,FeedB,FeedC,FeedD,FeedE) values ("&CmsDj_Com_UserID&",'"&CmsDj_Com_UserName&"',2,"&DataNum("id")&",0,0,'"&Now()&"')","exe" Call UserAlertB("恭喜您，图片添加成功！","space.asp?do=pic&view=me","1000"):Response.End End Sub Sub Index_Cp_Pm IF UserLogined<>True Then Response.Redirect "do.asp?ac=login&refer="&GetUrl:Response.End CD_UserName = SafeRequest("username","post") CD_Title = SafeRequest("title","post") CD_Message = SafeRequest("message","post") IF CD_UserName="" Then Call UserAlertA("收件人不能为空！","-1",0):Response.End IF CD_Title="" Then Call UserAlertA("标题不能为空！","-1",0):Response.End IF CD_Message="" Then Call UserAlertA("内容不能为空！","-1",0):Response.End Arr1=Array("sender","incept","title","content","flag","sendtime","delR","delS") Arr2=Array(CmsDj_Com_UserName,CD_UserName,CD_Title,CD_Message,0,Now(),0,0) Call CmsDjMessage.add(Arr1,Arr2) Call UserAlertB("恭喜您，消息发送成功！","space.asp?do=inbox&view=privatepm","1000"):Response.End End Sub Sub UserAlertA(CD_Msg,CD_Url,CD_Type) If CD_Url="-1" Then CD_Url="javascript:history.go(-1);" End If If CD_Type=1 Then Response.Write "" Else Response.Write "" End If Call Index_Bottom Response.Write "

" Response.Write "" Response.Write "