消息框 < %@ Language = VBScript % > < %Response.Buffer = true % > < %Response.Expires = 0 % > < ! -- #include file = " ../Connections/conn.asp " --> < html > < head > < meta http - equiv = " Content-Type " content = " text/html; charset=gb2312 " /> < meta http - equiv = " refresh " content = " 60 " /> < title > 消息提醒 </ title > < link rel = " stylesheet " type = " text/css " href = " adminmanage.css " > < % ' sql = "select sum(trademoney) as money from (select trademoney from Account_Input_Add where Status=0 UNION select treatmoney as trademoney from Account_Input_Apply where Status=1 and flag=0) as a" sql = " select sum(trademoney) as money_shougong from Account_Input_Add where Status=0 " Set rs_service = Server.CreateObject( " ADODB.Recordset " )rs_service.ActiveConnection = MM_conn_STRINGrs_service.Source = sql ' response.write rs_service.Source rs_service.CursorType = 1 rs_service.LockType = 1 rs_service.Open()sql_ips = " select sum(treatmoney) as money_ips from Account_Input_Apply where Status=1 and flag=0 " Set rs_ips = Server.CreateObject( " ADODB.Recordset " )rs_ips.ActiveConnection = MM_conn_STRINGrs_ips.Source = sql_ips ' response.write rs_service.Source rs_ips.CursorType = 1 rs_ips.LockType = 1 rs_ips.Open()act = request( " act " ) if act = " yes " then ' session("messageyes")=yes&session("adminuser_id") % > < script language = " javascript " > window.close(); </ script > < % end if % > < script language = " javascript " > Function winclose() function winclose(){ window.close();}Function formsubmit()function formsubmit(){document.form1.submit();}window.focus(); </script></head><body><form id="form1" name="form1" method="post" action="message1.asp?act=yes"> <label></label> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <!--手工入款--> <% if not isnull(rs_service("money_shougong")) then %> <table width="213" border="0"> <% else %> <table width="244" border="0" style="display:none"> <% end if%> <tr> <td width="70" height="20">尊敬的用户:</td> <td width="90"> </td> <td width="70"><bgsound src="msg.wav"></td> </tr> <tr> <td height="20"> </td> <td colspan="2">您有未处理手工入款共 <%=rs_service("money_shougong")%> 元,请处理!</td> </tr> <tr> <td height="20"> </td> <td align="right"><!--<input type="submit" name="Submit" value="知道了" />--><a href="#" onClick="formsubmit();">知道了</a></td> <td> <a href="AccountFinance/Money_add_check.asp" target="mainFrame" onClick="winclose();">处理信息</a></td> </tr> </table> </td> <td> <!--IPS入款--> <% if not isnull(rs_ips("money_ips")) then %> <table width="213" border="0"> <% else %> <table width="244" border="0" style="display:none"> <% end if%> <tr> <td width="70" height="20">尊敬的用户:</td> <td width="90"> </td> <td width="70"><bgsound src="msg.wav"></td> </tr> <tr> <td height="20"> </td> <td colspan="2">您有新的未处理IPS入款共 <%=rs_ips("money_ips")%> 元,请处理!</td> </tr> <tr> <td height="20"> </td> <td align="right"><!--<input type="submit" name="Submit" value="知道了" />--><a href="#" onClick="formsubmit();">知道了</a></td> <td> <a href="AccountFinance/Money_IPSadd_check.asp" target="mainFrame" onClick="winclose();">处理信息</a></td> </tr> </table> </td> </tr></table></form> </body></html> 用来弹出的代码 < %@ Language = VBScript % > < %Response.Buffer = true % > < %Response.Expires = 0 % > < ! -- #include file = " ../Connections/conn.asp " --> < ! -- #include file = " ../include/utility.asp " --> < ! -- #include file = " checklogin.asp " --> < html > < head > < meta http - equiv = " refresh " content = " 30 " /> < title > 无标题文档 </ title > < % if CheckManagerRight( 67 , cstr (session( " adminuser_id " ))) <> false then ' Response.Redirect "../righterror.asp" sql = " SELECT flag FROM Customer_Service where Customer_Service.flag=0 " Set rs_service = Server.CreateObject( " ADODB.Recordset " )rs_service.ActiveConnection = MM_conn_STRINGrs_service.Source = sql ' response.write rs_service.Source rs_service.CursorType = 1 rs_service.LockType = 1 rs_service.Open() if not rs_service.eof then ' if not session("messageyes")=yes&session("adminuser_id") then % > < script language = " javascript " > window.open ( " message.asp " , " newwindow " , " height=100, width=400, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no " ); // window.focus(); // closewindow.Click(); </ script > < % ' end if end if end if % > < % if CheckManagerRight( 56 , cstr (session( " adminuser_id " ))) <> false then ' Response.Redirect "../righterror.asp" sql_shougong = " select serialno from Account_Input_Add where Status=0 UNION select serialno from Account_Input_Apply where Status=1 and flag=0 " Set rs_shougong = Server.CreateObject( " ADODB.Recordset " )rs_shougong.ActiveConnection = MM_conn_STRINGrs_shougong.Source = sql_shougong ' response.write rs_service.Source rs_shougong.CursorType = 1 rs_shougong.LockType = 1 rs_shougong.Open() if not rs_shougong.eof then ' if not session("messageyes")=yes&session("adminuser_id") then % > < script language = " javascript " > window.open ( " message1.asp " , " newwindow " , " height=100, width=550, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no " ); // window.focus(); // closewindow.Click(); </ script > < % ' end if end if end if % > </ head > < body > sadf </ body > </ html > 用来做框架的 < html > < head > < meta HTTP - EQUIV = " Content-Type " CONTENT = " text/html; charset=gb2312 " > < title > webmail </ title > </ head > < frameset framespacing = " 0 " border = " 1 " frameborder = " no " cols = " 170,* " > < ! --< frame name = " left " src = " left.asp " marginwidth = " 0 " marginheight = " 0 " scrolling = " auto " >--> < frameset rows = " *,1 " frameborder = " no " border = " 0 " framespacing = " 0 " > < frame src = " left_top.asp " name = " left_topFrame " id = " left_topFrame " title = " left_topFrame " /> < frame src = " left_bottom.asp " name = " left_bottomFrame " scrolling = " No " noresize = " noresize " id = " left_bottomFrame " title = " left_bottomFrame " /> </ frameset > < frame name = " mainFrame " src = " Menumain.asp " > < noframes > < body topmargin = " 0 " leftmargin = " 0 " > < p > 此网页使用了框架,但您的浏览器不支持框架。 </ p > </ body > </ noframes > </ frameset > </ html >