shopmesg.asp

诚信商店系统源代码

<!--#include file="title.asp"--><meta name=keywords content="诚信商店,血饮狂刀,Clanboo,lanboo,金统联,[e-mail],jsbuy.com,cebuy.com,王星亮,完美商店,超级商店,商城,冷面">
<%
if MyId="" then 
	response.write "<p align='center'>请先登录!</p>"
	response.end
end if

wxl=request("wxl")
if wxl="" then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="5" background="images/btl2.gif"><img src="images/btl1.gif" width="5" height="66"></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="29" colspan="2" background="images/btm.gif"style="font-size: 11pt;"><div align="center"><strong>消息列表</div></td>
        </tr>
      </table></td>
    <td width="5" background="images/btr.gif"><img src="images/btr1.gif" width="5" height="67"></td>
  </tr>
  <tr> 
    <td width="5" rowspan="4"  background="images/btl2.gif"></td>
    <td>
	<div align=right><a href='<%=UrlFile%>?wxl=Send'>发送消息</a></div>
	 <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
     <tr align=middle height=25>
       <td width=66>发信人</td>
       <td width=66>时　间 </td>
       <td>内　容</td></tr>
<%
  Query="select top 50 * from web_MemerCallMesg where ToMen="&MyID&" and CallType=2 order by CallTime desc"
  sql.open Query,conn,1,1
  while not sql.eof
    response.write "<tr bgcolor=#ffffff height=25><td width=66 nowrap align=center><a href='callmng.asp?ToMen="&sql("FromMem")&"'>"&GetName("select str_sOperName  from web_SysOperators where int_sOperID="&sql("FromMem"))&"</a></td><td width=110 align=center>"&sql("CallTime")&"</td><td>&nbsp;"&sql("Mesg")&"</td></tr>"
    sql.movenext
  wend
  sql.close
%>
 </table>
</td>
    <td width="5" rowspan="4" background="images/btr.gif"> </td>
  </tr>
  <tr> 
    <td height="8"></td>
  </tr>
  <tr> 
    <td> 
      <div align="right">
        <table width="100" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="64"><div align="center"><a href='javascript:window.close();'>关闭窗口</a></div></td>
            <td width="36">&nbsp;</td>
          </tr>
        </table>
      </div></td>
  </tr>
  <tr> 
    <td height="8"></td>
  </tr>
  <tr> 
    <td height="5" background="images/btl2.gif"><img src="images/btl3.gif" width="5" height="5"></td>
    <td background="images/btb.gif" ></td>
    <td height="5" background="images/btr.gif"><img src="images/btr3.gif" width="5" height="5"></td>
  </tr>
</table>
<%

elseif wxl="Send" then  '发送消息输入框
%>
<table border="1" width="550" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
  <form name=form1 action='<%response.write(UrlFile)%>' method="post">
   <tr><td colspan=2 align=center>发送消息给管理员</td></tr>
   <tr><td valign=top>内&nbsp;&nbsp;&nbsp;&nbsp;容：</td><td><textarea name="Mesg" rows="15" cols="57"></textarea>
   </td></tr>
   <tr><td colspan=2 align=center>
    <input  type="submit" name="B1" value=" 提 交" class="submit" style="width:60; height:25;">
    <input type="hidden" name="wxl" value="Add">　
   <input type="reset" name="B2" value=" 重 置" class="submit" style="width:60; height:25;">　
   <input  type=button name="B3" value=" 放 弃" onclick="location.href='index.asp';" class="submit" style="width:60; height:25;">
</td></tr>
   </form></table>

<%

elseif wxl="Add" then
	Mesg=request("Mesg")
	if Mesg="" then Back("请输入内容!")
	CallID=GetID("select Max(CallID)+1 from web_MemerCallMesg")
    tmpToMen=split(sqlSys("C18"),",")
	for i=0 to ubound(tmpToMen)
       Query="insert into web_MemerCallMesg (CallID,FromMem,ToMen,Mesg,CallTime,CallIp,CallMark,CallType) values("&CallID&",'"
       Query=Query&MyID&"','"&tmpToMen(i)&"','"&Mesg&"',#"&Now&"#,'"&AddIp&"','0',1)"
       conn.Execute(Query)
	   CallID=CallID+1
	next
  Back("信息成功发出!")

elseif wxl="Look" then
  CallId=request("CallId")
  conn.Execute("UPdate web_MemerCallMesg set CallMark=1 where CallId="&CallId)
  Query="select * from web_MemerCallMesg where CallId="&CallId
  set sql=conn.Execute(Query)
  response.write "<table align=center width=500>"
  response.write "<tr><td colspan=2>收到消息</tr></tr>"
  response.write "<tr><td>发出时间:"&sql("CallTime")&"</tr><td>发出人:<a href='shopmesg.asp?ToMen="&sql("ToMen")&"'>"&GetName("select str_sOperName from web_SysOperators where int_sOperID="&sql("ToMen"))&"</a></td></tr>"
  response.write "<tr><td colspan=2>"&sql("Mesg")&"</td></tr>"
  response.write "</table>"
  sql.close
end if

%>