📄 autobackmsg.asp

📁 QQ呱唧网
💻 ASP
字号:
<!--#include file="conn.asp"-->
<HTML>
<HEAD><TITLE><%=SiteName%>(<%=SiteUrl%>)</TITLE>
<%
dim MsgState,QQMsg

if session("QQ")="" Then
response.write "<script>alert('你还没有登陆,不允许设置消息内容！');window.close()</script>"
response.end
end if 

if datediff("D" ,now(),session("EndTime"))=<1 and backmsgstate=false then
response.write "<script>alert('免费用户不允许设置消息内容！');window.close()</script>"
response.end
end if

if   request("action")="saveMsg"  then
if request("ReMsg")="" then 
response.write "<script>alert('请你设置自动回复的消息内容！');history.back(-1)</script>"
response.end
else
ReMsg=request("ReMsg")
ReMsgUTF8=request("ReMsgUTF8")
msgstate=request("msgstate")
sql="select * from QQ where QQ='"&session("QQ")&"'"
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
IF Rs.eof then 
response.write "<script>alert('不存在该用户记录！');history.back(-1)</script>"
response.end
else
rs("ReMsg")=ReMsg
rs("ReMsgUTF8")=ReMsgUTF8
rs("msgstate")=msgstate
rs.update
response.write "<script>alert('你设置的自动回复信息已生效！');window.close()</script>"
response.end
end if
end if 
end if 
call  GetQQMsgstr()
SUB   GetQQMsgstr()
sql="select * from QQ where QQ='"&session("QQ")&"'"
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
IF Rs.eof then
QQMsg=""
else
MsgState=rs("MsgState")
QQMsg=rs("ReMsg")
end if 
end sub
%>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="style_card.css" rel=stylesheet type=text/css>
<script>
function EncodeUtf8(s1)
  {
      var  s = escape(s1);
      var  sa = s.split("%");
      var  retV ="";
      if(sa[0] != "")
      {
         retV = sa[0];
      }
      for(var  i = 1; i < sa.length; i ++)
      {
           if(sa[i].substring(0,1) == "u")
           {
               retV += Hex2Utf8(Str2Hex(sa[i].substring(1,5)));
               
           }
           else retV += "%" + sa[i];
      }
      
      return retV;
  }
  function  Str2Hex(s)
  {
      var  c = "";
      var  n;
      var  ss = "0123456789ABCDEF";
      var  digS = "";
      for(var  i = 0; i < s.length; i ++)
      {
         c = s.charAt(i);
         n = ss.indexOf(c);
         digS += Dec2Dig(eval(n));
           
      }
      //return value;
      return digS;
  }
  function  Dec2Dig(n1)
  {
      var  s = "";
      var  n2 = 0;
      for(var  i = 0; i < 4; i++)
      {
         n2 = Math.pow(2,3 - i);
         if(n1 >= n2)
         {
            s += '1';
            n1 = n1 - n2;
          }
         else
          s += '0';
          
      }
      return s;
      
  }
  function  Dig2Dec(s)
  {
      var  retV = 0;
      if(s.length == 4)
      {
          for(var  i = 0; i < 4; i ++)
          {
              retV += eval(s.charAt(i)) * Math.pow(2, 3 - i);
          }
          return retV;
      }
      return -1;
  } 
  function  Hex2Utf8(s)
  {
     var  retS = "";
     var  tempS = "";
     var  ss = "";
     if(s.length == 16)
     {
         tempS = "1110" + s.substring(0, 4);
         tempS += "10" +  s.substring(4, 10); 
         tempS += "10" + s.substring(10,16); 
         var  sss = "0123456789ABCDEF";
         for(var  i = 0; i < 3; i ++)
         {
            retS += "%";
            ss = tempS.substring(i * 8, (eval(i)+1)*8);
            
            
            
            retS += sss.charAt(Dig2Dec(ss.substring(0,4)));
            retS += sss.charAt(Dig2Dec(ss.substring(4,8)));
         }
         return retS;
     }
     return "";
  }
function SetbackForm()
{
if (form1.ReMsg.value=='')
{
alert('请设置用户消息自动回复信息');
return false;
}
else
{
form1.ReMsgUTF8.value=EncodeUtf8(form1.ReMsg.value)
}
}
</script>

<TABLE width="100%"  height=134 border=0 align="center" cellPadding=5 cellSpacing=0 
            style="BORDER-BOTTOM: #cce4fc 1px solid; BORDER-LEFT: #cce4fc 1px solid; BORDER-RIGHT: #cce4fc 1px solid; BORDER-TOP: #cce4fc 1px solid">
  <FORM action="?action=saveMsg" method=post  name=form1  onSubmit="return SetbackForm()">
    <TBODY>
      <TR> 
        <TD bgColor=#f0f8ff height=33 
                style="BORDER-BOTTOM: #ededed 1px solid" width="23%"> <DIV align=right>QQ号码</DIV></TD>
        <TD style="BORDER-BOTTOM: #ededed 1px solid" 
                  width="77%"><%= session("QQ") %>&nbsp; </TD>
      </TR>
      <TR> 
        <TD bgColor=#f0f8ff height=33 
                style="BORDER-BOTTOM: #ededed 1px solid"> <DIV align=right>消息内容</DIV></TD>
        <TD style="BORDER-BOTTOM: #ededed 1px solid"><textarea name="ReMsg" rows="6" id="ReMsg" style="BORDER-BOTTOM: #666666 1px solid; BORDER-LEFT: #666666 1px solid; BORDER-RIGHT: #666666 1px solid; BORDER-TOP: #666666 1px solid"><%=QQMsg%></textarea>
          <input type="hidden" name="ReMsgUTF8"> </TD>
      </TR>
      <TR> 
        <TD bgColor=#f0f8ff height=33 
                style="BORDER-BOTTOM: #ededed 1px solid"> <DIV align=right>状态</DIV></TD>
        <TD style="BORDER-BOTTOM: #ededed 1px solid">
		<input  type="radio"  name="msgstate" value="true"    <% if  MsgState=true    then response.Write("checked ")%>>
          打开自动回复
          <input type="radio" name="msgstate" value="false"    <% if  MsgState=false    then response.Write("checked ")%> >
          关闭自动回复</TD>
      </TR>
      <TR>
        <TD bgColor=#f0f8ff colSpan=2 height=35 
                style="BORDER-BOTTOM: #ededed 1px solid"> <DIV align=center> 
            <INPUT name=Submit22 type=submit value=提交>
          </DIV></TD>
      </TR>
  </FORM>
</TABLE>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -