FoosunCMSv3.2SP1(v3.2.1)

所属分类:Web服务器
开发工具:ASP
文件大小:6505KB
下载次数:4
上传日期:2007-03-30 10:15:12
上 传 者albigenses
说明:  这个比较有意思,作了多次,到最后,我都要疯了,另外就是很想在
(the more interesting, made repeatedly, in the end, I must be crazy, the other is the hope that in bits and pieces)

文件列表:
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\Read.asp (3612, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\CheckContent.asp (4609, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ClassAdd.asp (20740, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ClassEdit.asp (20088, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ClassInit.asp (4586, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContentSearch.asp (5176, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionAdd.asp (7261, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionBatchCheck.asp (5684, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionCheck.asp (27227, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionDell.asp (3317, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionList.asp (16058, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionModify.asp (7117, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ContributionTrash.asp (2715, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ConvertClass.asp (4481, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\DelContent.asp (24729, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\DownLoad.asp (35714, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\DownloadList.asp (39936, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\Frame.asp (1051, 2005-06-14)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\MergeClass.asp (7581, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\MergeSpecial.asp (5290, 2006-06-01)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\MoveNewsToFile.asp (3180, 2006-04-25)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\MoveOrCopyNewsClass.asp (9533, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsList.asp (44466, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsPic.asp (40776, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsRefresh.asp (5873, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsTitle.asp (20859, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsToJs.asp (10138, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsToSpecial.asp (5087, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\NewsWords.asp (37593, 2006-04-28)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryDelete.asp (3539, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryEdit.asp (6733, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryFriendLink.asp (15440, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryFriendLinkAdd.asp (7247, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryFriendLinkDel.asp (2816, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryFriendLinkModify.asp (7756, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\OrdinaryList.asp (14762, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ProductList.asp (29413, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ProductToSpecial.asp (4983, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\Review.asp (18080, 2006-05-31)
风讯FoosunCMS v3.2 SP1(v3.2.1)完整版\Foosun\Admin\Info\ReviewEdit.asp (5626, 2006-04-25)
... ...

<% Option Explicit %> <% '============================================================================== '软件名称:风讯网站信息管理系统 '当前版本:Foosun Content Manager System(FoosunCMS V3.2SP1) '最新更新:2006.50 '============================================================================== 'Copyright (C) 2002-2004 Foosun.Net All rights reserved. '商业注册联系:028-850******0-601,项目开发:028-850******0-606、609,客户支持:608 '产品咨询QQ:394226379,159410,125114015 '技术支持QQ:315485710,66252421 '项目开发QQ:415637671,655071 '程序开发:四川风讯科技发展有限公司(Foosun Inc.) 'Email:service@Foosun.cn 'MSN:skoolls@hotmail.com '论坛支持:风讯在线论坛(http://bbs.foosun.net) '官方网站:www.Foosun.cn 演示站点:test.cooin.com '网站通系列(智能快速建站系列):www.ewebs.cn '============================================================================== '免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接 '风讯公司保留此程序的法律追究权利 '如需进行2次开发,必须经过风讯公司书面允许。否则将追究法律责任 '============================================================================== If Request.Form("action")="ReSend" Then If Request.Form("MeTitle")="" Or Request.Form("MeFrom")="" Or Request.Form("MeContent")="" Then Response.Write("") Response.End End If If len(Request.Form("MeContent"))>300 Then Response.Write("") Response.End End If If Trim(Request.Form("MeFrom"))=Fs_User.EName Then Response.Write("") Response.End End if Dim t_return t_return = Fs_User.UserExist(replace(Request.Form("MeFrom"),"'","")) If t_return=False then Response.Write("") Response.End End if Dim Fs_Message,t_NumLenContent Set Fs_Message = new Cls_Message t_NumLenContent = Fs_Message.LenContent(replace(Request.Form("MeFrom"),"'","")) If t_NumLenContent+Len(Request.Form("MeContent")) > 50*1024 then Response.Write("") Response.End End If Dim t_fields,t_values,t_Send,t_Content if Request.Form("isSend")<>"" then t_Send=1 Else t_Send=0 End if t_Content = Request.Form("MeContent") t_fields = "MeTitle,MeFrom,MeRead,MeContent,FromDate,ReadTF,IsRecyle,IsDels,IsDelR,isSend,LenContent" t_values = "'"&Replace(Request.Form("MeTitle"),"'","")&"','"&Fs_User.EName&"','"&Replace(Request.Form("MeFrom"),"'","")&"','"&t_Content&"','"&Now()&"',0,0,0,0,"&t_Send&","&Len(t_Content) t_return = FS_Message.update(t_fields,t_values,"_new_") If t_return Then Response.Write("") Response.End Else Response.Write("") Response.End End If End If If Request("id")="" Then Response.Write("") Response.End End If Dim RsReadMessageObj Set RsReadMessageObj = UserConn.execute("Select * from FS_Message where MeId="& clng(Replace(Request("id"),"'",""))) If RsReadMessageObj.Eof Then Response.Write("") Response.End End If If RsReadMessageObj("MeRead")<> Fs_User.EName Then Response.Write("") Response.End End If UserConn.execute("Update FS_Message Set ReadTF=1 where MeId="& clng(Replace(Request("id"),"'",""))) %> <%=Fs_ConfigCache.FindNeedRecord("1")%> >> 会员中心
读取短消息

标题:
" size="50">
发信人:
" size="50"> 回复只能回复单个用户!
内容正文:
最多300个字符。
发送时间:
<% = RsReadMessageObj("FromDate")%>
 

<% = Fs_ConfigCache.FindNeedRecord("11") %>
<% Set Conn=Nothing Set UserConn=Nothing Set Fs_User = Nothing Set Fs_ConfigCache=Nothing %>

近期下载者

相关文件


收藏者