文件列表:

5Admin\Info\Read.asp (2483, 2006-02-27)
5Admin\FileManage\Read.asp (3422, 2002-02-08)
Users\Images\Read.gif (350, 2005-08-09)
整合动网_Oblog\整合及接口说明.doc (36352, 2006-02-09)
使用说明.txt (72, 2006-03-08)
Users\Editer\Abort.htm (1085, 2005-06-14)
5Admin\Editer\Abort.htm (1115, 2002-02-15)
Users\Editer\AttributeWindow.htm (2104, 2002-01-18)
5Admin\Editer\AttributeWindow.htm (2110, 2006-01-04)
Templets\NewsClass\Class.htm (7657, 2005-10-15)
Templets\file.htm (160, 2005-10-15)
5Admin\Editer\Frame.htm (3027, 2005-12-23)
Templets\Index.htm (21800, 2006-03-08)
5Admin\Editer\InsertTable.htm (3321, 2006-01-04)
Users\Editer\InsertTable.htm (3331, 2002-01-18)
Users\Editer\Marquee.htm (2469, 2002-01-18)
5Admin\Editer\Marquee.htm (2472, 2005-12-23)
Templets\NewsClass\News.htm (6296, 2006-03-08)
5Admin\Editer\Page.htm (3236, 2005-12-23)
5Admin\Editer\Search.htm (4285, 2005-06-14)
5Admin\selcolor.htm (25814, 2005-12-28)
5Admin\Editer\SelectColor.htm (4200, 2005-12-01)
Users\Editer\SelectColor.htm (4203, 2005-06-14)
FS_Inc\SelectDate.htm (11067, 2002-02-20)
Users\Editer\SelectPicStyle.htm (3067, 2005-06-14)
5Admin\Editer\SelectPicStyle.htm (3133, 2005-06-14)
Templets\NewsClass\Special.htm (7657, 2005-10-15)
5Admin\Editer\SpecialHR.htm (2540, 2006-01-04)
5Admin\TplManage\SetPage.html (2418, 2002-01-17)
5Admin\Css\ContentMenu.css (550, 2005-06-14)
FS_Inc\ContentMenu.css (550, 2005-06-14)
Users\Editer\Editer.css (3075, 2005-06-14)
5Admin\Editer\Editer.css (3938, 2005-06-14)
5Admin\Css\FS_css.css (6889, 2002-01-13)
5Admin\Editer\MenuCSS.css (566, 2005-06-14)
Users\Editer\MenuCSS.css (566, 2005-06-14)
5Admin\Css\ModeWindow.css (199, 2005-06-14)
5Admin\Css\style.css (1195, 2005-12-19)
Users\CSS\UserCSS.css (1919, 2005-08-09)
FS_Inc\_notes\dwsync.xml (523, 2002-02-17)
... ...

<% Option Explicit %> <% '============================================================================== '============================================================================== Dim DBC,conn,sConn Set DBC = new databaseclass Set Conn = DBC.openconnection() Dim I,RsConfigObj Set RsConfigObj = Conn.Execute("Select SiteName,CopyrightInfo from FS_Config") Set DBC = Nothing %> <% '============================ '登录判断 Dim cls_Purview_Obj Set cls_Purview_Obj = New cls_Purview Call cls_Purview_Obj.UserIsLogined Set cls_Purview_Obj = Nothing '============================= 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"))=session("MemName") Then Response.Write("") Response.End End if Dim GetTFobj Set GetTFobj=Conn.execute("select id from FS_Users where UserName ='"& replace(Trim(Request.Form("MeFrom")),"'","")&"'") If GetTFobj.eof then Response.Write("") Response.End End if Set GetTFobj=Nothing Dim SendRsObj,SendSQL Set SendRsObj = Server.CreateObject(G_FS_RS) SendSQL = "Select * from FS_Message where 1=0" SendRsObj.Open SendSQL,Conn,3,3 SendRsObj.addnew SendRsObj("MsgTitle")=Replace(Request.Form("MeTitle"),"'","") SendRsObj("SendUser")=Request.Cookies("Foosun")("UserName") SendRsObj("RevUser")=Replace(Request.Form("MeFrom"),"'","") SendRsObj("MsgContent")=Request.Form("MeContent") SendRsObj("SendTime")=now SendRsObj("MsgFlagBit")="0001" SendRsObj.Update SendRsObj.Close Set SendRsObj=nothing Response.Write("") Response.End End If If Request("id")="" Then Response.Write("") Response.End End If Dim RsReadMessageObj,StrMsgFlagBit Set RsReadMessageObj = Server.CreateObject(G_FS_RS) RsReadMessageObj.open "Select SendUser,RevUser,MsgTitle,MsgContent,SendTime,MsgFlagBit from FS_Message where Id="& clng(Request("id")),Conn,3,3 If RsReadMessageObj.Eof Or RsReadMessageObj.BOF Then Response.Write("") Response.End End If If RsReadMessageObj("RevUser")<> Request.Cookies("Foosun")("UserName") Then Response.Write("") Response.End End If StrMsgFlagBit = RsReadMessageObj("MsgFlagBit") RsReadMessageObj("MsgFlagBit") = setStrLoc(StrMsgFlagBit,1,1,"1") RsReadMessageObj.update Dim RsUserObj Set RsUserObj = Conn.Execute("Select RegTime,UserNo,UserPoint,UserFlagBit From FS_Users where UserName='"&NoSqlHack(Request.Cookies("Foosun")("UserName"),2)&"' and UserPass='"& NoSqlHack(Request.Cookies("Foosun")("UserPass"),2) &"'") Dim TotleMessage TotleMessage = Conn.Execute("Select count(id) from FS_Message Where RevUser='"& NoSqlHack(Request.Cookies("Foosun")("UserName"),2)&"' and MsgFlagBit like '00%'")(0) Call UserTop() %>

读取短消息 标题： " size="50"> 发信人： " size="50"> 回复只能回复单个用户！ 内容正文： =====<% = RsReadMessageObj("SendUser")%> 于<% = RsReadMessageObj("SendTime")%>说道：=================== <% = RsReadMessageObj("MsgContent")%> 最多300个字符。 发送时间： <% = RsReadMessageObj("SendTime")%>

<%Call UserBottom()%>

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：