membercallmesg.asp

诚信商店系统源代码

<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
wxl=request("wxl")


if 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)
  HtmlCallHead("呼叫记录")
  Look(sql)

elseif wxl="LookAll" then
  set sql=server.createobject("ADODB.recordset")
  Query="select  * from web_MemerCallMesg where ToMen="&UserInfo("int_sOleUserID")&"  and CallType=1 order by CallTime desc"
  sql.open Query,conn,1,1
  HtmlHead("呼叫记录")
  Look(sql)


elseif wxl="Add" then
  ToMen=request("ToMen")
  CallMesg=request("Mesg")
  IsDept=request("IsDept")
  CallID=GetID("select Max(CallID)+1 from web_MemerCallMesg")
  if IsDept=0 then
    Query="insert into web_MemerCallMesg (CallID,FromMem,ToMen,Mesg,CallTime,CallIp,CallMark,CallType) values("&CallID&","
    Query=Query&UserInfo("int_sOleUserID")&","&ToMen&",'"&CallMesg&"',#"&Now&"#,'"&AddIp&"','0',2)"
    conn.Execute(Query)
  else
	 set sql1=conn.Execute("select int_mbrID from web_Member")
	 while not sql1.eof
       Query="insert into web_MemerCallMesg (CallID,FromMem,ToMen,Mesg,CallTime,CallIp,CallMark,CallType) values("&CallID&","
       Query=Query&UserInfo("int_sOleUserID")&","&sql1(0)&",'"&CallMesg&"',#"&Now&"#,'"&AddIp&"','0',2)"
       conn.Execute(Query)
	   CallID=CallID+1
	   sql1.movenext
	 wend
  end if
  Back("信息成功发出!")
else
  ToMen=request("ToMen")
  AddHtml(ToMen)
end if

sub Look(sql)
%>
<bgsound src=../images/msg.wav loop=1>
    <table border="1" width="600" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
	 <tr bgcolor=#dddddd><td colspan=4>点击姓名即可进行回复 [<a href=membercallmesg.asp?wxl=LookAll>所有呼叫</a>]</td></tr>
     <tr align=middle bgcolor=#dddddd>
       <td width=66>发信人</td>
	   <td width=66>收信人</td>
       <td width=66>时　间 </td>
       <td>内　容</td></tr>
<%
  while not sql.eof
    response.write "<tr bgcolor=#ffffff><td width=66 nowrap align=center><a href='membercallmesg.asp?ToMen="&sql("FromMem")&"'>"&GetName("select str_mbrName  from web_Member where int_mbrID="&sql("FromMem"))&"</a></td><td width=66 nowrap align=center><a href='membercallmesg.asp?ToMen="&sql("ToMen")&"'>"&GetName("select str_sOperName from web_SysOperators where int_sOperID="&sql("ToMen"))&"</a></td><td width=66 align=center>"&formatdatetime(sql("CallTime"),vbShortTime)&"</td><td>&nbsp;"&sql("Mesg")&"</td></tr>"
    sql.movenext
  wend
%>
 </table>
<%
 HtmlEnd
end sub

sub AddHtml(ToMen)
HtmlHead("向同事发送呼叫信息")
%>
<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>传呼对象：</td><td align=left>
   人员：<select name="ToMen">
<%
  set sql1=conn.Execute("select int_mbrID,str_mbrName,str_mbrLoginName from web_Member order by str_mbrName")
  while not sql1.eof
      response.write "<option value='"&sql1(0)&"'>姓名:"&sql1(1)&"__注册名:"&sql1(2)&"</option>"
   sql1.movenext
  wend
%>
      </select>
 　　
   </td></tr>
   <tr><td valign=top>内&nbsp;&nbsp;&nbsp;&nbsp;容：</td><td><textarea name="Mesg" rows="15" cols="57"></textarea>
   </td></tr><tr><td>传呼类型：</td><td ><input type='radio' name='IsDept' value=0 checked>指定人
   <input type='radio' name='IsDept' value=1>所有会员&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
   </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='/program/welcome.asp';" class="submit" style="width:60; height:25;">
   <input  type=button name="B3" value=" 查看记录" onclick="location.href='membercallmesg.asp?wxl=LookAll';" class="submit" style="width:90; height:25;">
</td></tr>
   </form></table>
<%
 if ToMen<>"" then
  response.write "<script>document.form1.ToMen.value='"&ToMen&"'</script>"
 end if
 HtmlEnd
end sub

sub OkHtml()
%>
<body  class=navy0 leftmargin=3 topmargin=10>
<table height=100% width=100%><tr><td align=center valign=center>
<table width=400 align=center cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
<tr><td class=navy1><font color=990000>信息反馈</font>
<tr><td><font style="color:#ff7799;"><br><B>你成功地发出了呼叫信息！</b></font> 
<br><br><input class=navy1 type="button" name="cmdBack" value="后退" onClick="javascript:history.go(-1)">

<br>&nbsp;</table></td></tr></table></body> 
<%
end sub

sub HtmlCallHead(Title)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Title%></title>
<LINK href="/program/js/newcss.css" type=text/css rel=stylesheet>
</head>

<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 style='overflow:scroll;overflow-y:hidden;overflow-x:hidden;cursor:default;' onkeyDown="javascript:return vConfirm();" ondragstart = "CancelEvent()" onselectstart = "CancelEvent()">

<div align="center">
  <table border="0"  cellspacing="0" cellpadding="3" align="center">
    <tr>
      <td width="100%" height="5" align="right"></td>
    </tr>
    <tr>
      <td width="100%" height="100%" valign="top">

  <table border="0" width="99%" cellpadding="0" cellspacing="1"  bgcolor="#0063C6">
    <tr>
      <td valign="top" align="center" bgcolor="#FFFFFF">

          <table border="0" width="100%" cellspacing="0" cellpadding="0" align="center" background="/program/images/bg1.gif">
            <tr>
              <td style="font-size:11pt; color:#FFFFFF">&nbsp;<b><%=Title%></b></td>
			  <td height="25" align="right"><a href="#" onClick='window.close();'><img border="0" src="/program/images/button03.jpg"></a>
			  </td>
			  <td width="2"></td>
            </tr>
          </table>
		  <table width='100%' bgcolor=#ffffff><tr height=15><td>&nbsp;</td></tr></table>
<%
end sub
%>