⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 kindex.asp

📁 短信向日葵群发系统
💻 ASP
字号:
<!--#include file="czconn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>向日葵 短信平台管理</title>
<link href="css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	background-color: #FFFFFF;
}
-->
</style></head>
<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td background="img/top.jpg"><img src="img/top1.jpg" width="770" height="75" align="absbottom" /></td>
    <td background="img/top.jpg">&nbsp;&nbsp;&nbsp; <span class="nazhi2">短信平台</span></td>
    <td height="86" background="img/top.jpg"><TABLE>
<TR>
<TD><span id="localtime"></span>    
<script>
function showLocale(objD) 
{
    var dn, str;
	var  weekday= "123"
    var hh = objD.getHours();
    var mm = objD.getMinutes();
    var ss = objD.getSeconds();
	var myweekday = objD.getDay();
    str = (objD.getMonth() + 1) + "月" + objD.getDate() +"日";
	
     if(myweekday==0)   
  weekday="   星期日   ";   
  else   if(myweekday==1)   
  weekday="   星期一   ";   
  else   if(myweekday==2)   
  weekday="   星期二   ";   
  else   if(myweekday==3)   
  weekday="   星期三   ";   
  else   if(myweekday==4)   
  weekday="   星期四   ";   
  else   if(myweekday==5)   
  weekday="   星期五   ";   
  else   if(myweekday=6)   
  weekday="   星期六   ";     
  str += weekday;
  
    if(hh<10) hh = '0' + hh;
    if(mm<10) mm = '0' + mm;
    if(ss<10) ss = '0' + ss;
    str += " " + hh + ":" + mm + ":" + ss;
	

    return(str);
}
function tick() 
{
    var today;
    today = new Date();
    document.getElementById("localtime").innerHTML = showLocale(today);
    window.setTimeout("tick()", 1000);
}
tick();
</script>
</TD>
</TR>
</TABLE></td>
  </tr>
</table>
<%
if session("czkf")="" then
response.Redirect("index.asp")
else
set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from dxsl where kfid='"&session("czkf")&"'"
    rs.open sql,conn,1,1
	if not rs.eof then
	sl=rs("dxsl")
	end if
	rs.close
set rs2=Server.CreateObject("ADODB.RecordSet")
    sql2="select * from czkf where kfid='"&session("czkf")&"'"
    rs2.open sql2,conn,1,1
	if not rs2.eof then
	nam=rs2("zname")
	gsn=rs2("zgs")
	end if
	rs2.close	
   
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  
  <tr>
    <td width="200" valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="100" align="center" background="img/db.jpg" bgcolor="#EEF5FD"><%=gsn%><br /><br /><%=nam%>您好<br />
          <br />您的短信为<%=sl%>条</td>
      </tr>
      <tr>
        <td height="27" align="center" background="img/z1.jpg"> &nbsp;<span class="kz">短信发送管理</span></td>
      </tr>
      <tr>
        <td height="25" align="center" background="img/l.jpg"> &nbsp;<a href="kfa.asp" target="kgl">发送短信</a></td>
      </tr>
      
      <tr>
        <td height="25" align="center" background="img/l.jpg"><a href="kfa.asp?action=fsjl" target="kgl">&nbsp;发送记录</a></td>
      </tr>
      
      <tr>
        <td height="27" align="center" background="img/z1.jpg" class="kz">&nbsp;信息管理</td>
      </tr>
      <tr>
        <td height="25" align="center" background="img/l.jpg"> &nbsp;<a href="kzl.asp" target="kgl">资料修改</a></td>
      </tr>
      <tr>
        <td height="25" align="center" background="img/l.jpg">&nbsp;<a href="kzl.asp?action=edit" target="kgl">充值记录</a></td>
      </tr>
      <tr>
        <td height="27" align="center" background="img/z1.jpg" class="kz">&nbsp;系统管理</td>
      </tr>
      
      <tr>
        <td height="25" align="center" background="img/l.jpg">&nbsp;<a href="out.asp">退出系统</a></td>
      </tr>
      
    </table></td>
    <td width="1" background="img/fg.jpg"></td>
    <td valign="top"><iframe  width="100%" height="500" name="kgl" frameborder="0" src="gg.asp"></iframe></td>
  </tr>
</table>
<%

end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="46" align="center" background="img/b.jpg" class="nazhi2">向日葵智能短信群发系统 V1.0 ◎&nbsp;Design By Chengzhi</td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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