qiyedianzsw
所属分类:WEB开发
开发工具:ASP
文件大小:2815KB
下载次数:69
上传日期:2008-04-09 10:34:09
上 传 者:
lyp0229
说明: 企业电子商务, 企业电子商务
(Enterprise e-business, enterprise e-commerce)
文件列表:
174f\Admin\Bottom.asp (3953, 2004-09-30)
174f\Admin\CheckLogin.asp (5860, 2004-09-30)
174f\Admin\Class_Save.asp (1646, 2004-09-07)
174f\Admin\Color.htm (4086, 2004-09-06)
174f\Admin\Count_Index.asp (34116, 2004-09-10)
174f\Admin\Count_Tongcode.asp (4954, 2004-08-31)
174f\Admin\Editer-New\Block.asp (12375, 2004-09-02)
174f\Admin\Editer-New\CSS\Dialog.CSS (984, 2004-09-01)
174f\Admin\Editer-New\CSS\Editor.css (2943, 2004-09-07)
174f\Admin\Editer-New\CSS (0, 2004-12-17)
174f\Admin\Editer-New\File.asp (12374, 2004-09-13)
174f\Admin\Editer-New\FunPage\Abort.htm (1097, 2004-09-01)
174f\Admin\Editer-New\FunPage\Calculator.htm (4173, 2004-09-01)
174f\Admin\Editer-New\FunPage\Face.htm (3075, 2004-09-01)
174f\Admin\Editer-New\FunPage\Flash.htm (3510, 2004-09-02)
174f\Admin\Editer-New\FunPage\Frame.htm (2681, 2004-09-01)
174f\Admin\Editer-New\FunPage\Marquee.htm (2072, 2004-08-11)
174f\Admin\Editer-New\FunPage\Media.htm (4855, 2004-09-01)
174f\Admin\Editer-New\FunPage\Page.htm (2516, 2004-09-09)
174f\Admin\Editer-New\FunPage\Picture.asp (7093, 2004-09-12)
174f\Admin\Editer-New\FunPage\RM.htm (3635, 2004-09-02)
174f\Admin\Editer-New\FunPage\Search.htm (4285, 2004-08-14)
174f\Admin\Editer-New\FunPage\SelectColor.htm (4086, 2004-08-11)
174f\Admin\Editer-New\FunPage\SpecialHR.htm (2419, 2004-09-01)
174f\Admin\Editer-New\FunPage\Symbol.htm (37840, 2004-09-01)
174f\Admin\Editer-New\FunPage\Table.htm (4080, 2004-09-01)
174f\Admin\Editer-New\FunPage\Video.htm (3359, 2004-09-02)
174f\Admin\Editer-New\FunPage (0, 2004-12-17)
174f\Admin\Editer-New\Image\Abort.gif (212, 2004-09-02)
174f\Admin\Editer-New\Image\abspos.gif (90, 2004-09-02)
174f\Admin\Editer-New\Image\Acenter.gif (88, 2004-08-11)
174f\Admin\Editer-New\Image\Aleft.gif (88, 2004-08-11)
174f\Admin\Editer-New\Image\Aright.gif (88, 2004-08-11)
174f\Admin\Editer-New\Image\bold.gif (94, 2004-08-11)
174f\Admin\Editer-New\Image\calculator.gif (624, 2004-08-11)
174f\Admin\Editer-New\Image\chars.gif (107, 2004-08-11)
174f\Admin\Editer-New\Image\clear.gif (146, 2004-08-11)
174f\Admin\Editer-New\Image\CodeMode.GIF (705, 2004-02-13)
174f\Admin\Editer-New\Image\copy.gif (377, 2004-08-11)
174f\Admin\Editer-New\Image\cut.gif (83, 2004-08-11)
... ...
<% Option Explicit %>
<%
if request("MemName")="" then
Response.Redirect("../Inc/Error.asp?ErrDescription=错误的参数&ErrID=FSU0022&Locationback=javascript:history.back(1)")
Response.End
end if
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<%
dim Password,RsmessageObj,Messages,rs1,RssendObj,Sqlsend
MemName = Session("MemName")
PassWord = Session("MemPassWord")
MemID = Session("MemID")
if request("action")="del" then
conn.execute("update Message set IsRecyle=true where MeID="&Cint(trim(Request("Meid"))))
Response.Redirect("../Inc/Success.asp?ErrDescription=删除成功到回收站&Locationback=../User/Message.asp?MemName="&session("MemName")&"")
Response.End
end if
if request.Form("action")="addto" then
set Rs1 = Conn.Execute("select * from Members where MemName='"& Replace(Trim(Request.Form("MeFrom")),"'","''") &"'")
if rs1.eof then
Response.Redirect("../Inc/Error.asp?ErrDescription=不存在此用户&Locationback=Javascript:history.back(1)&ErrID=FSU0103")
Response.End
end if
set RssendObj = server.CreateObject ("ADODB.RecordSet")
Sqlsend = "select * from message"
RssendObj.Open Sqlsend,Conn,1,3
RssendObj.addnew
RssendObj("MeRead")=Replace(Trim(Request.Form("MeFrom")),"'","''")
RssendObj("MeFrom")=Replace(Trim(Request.Form("MeRead")),"'","''")
RssendObj("MeTiTle")=Replace(Trim(Request.Form("MeTiTle")),"'","''")
RssendObj("MeContent")=request.Form("MeContent")
RssendObj("FromDate")=now()
RssendObj("ReadTF")=false
RssendObj("IsRecyle")=false
RssendObj.update
RssendObj.close
set RssendObj=nothing
Response.Redirect("../Inc/Success.asp?ErrDescription=发送成功&Locationback=../User/Message.asp?MemName="&session("MemName")&"")
Response.End
end if
set RsMessageObj = Conn.Execute("select * from Message where MeID="&Cint(trim(Request("Meid"))))
conn.execute("update Message set ReadTF=true where MeID="&Cint(trim(Request("Meid"))))
if rsmessageobj.eof then
Response.Redirect("../Inc/Error.asp?ErrDescription=错误参数,错误原因:此消息不存在&Locationback=../User/Message.asp?MemName="&Request(MemName)&"")
Response.End
end if
%>
登陆成功_短信中心
近期下载者:
相关文件:
收藏者: