做及时提示弹出消息

最新推荐文章于 2022-11-23 17:54:49 发布

blue_lw

最新推荐文章于 2022-11-23 17:54:49 发布

阅读量700

点赞数

分类专栏： asp 文章标签： border javascript vbscript input sql service

本文链接：https://blog.csdn.net/blue_lw/article/details/1968440

版权

asp 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

消息框

< %@ 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_STRING

rs_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_STRING

rs_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()

{

　window.close();

}

function formsubmit()

{

document.form1.submit();

}

window.focus();

</script>

</head>

<body>

<tr>

<td>

<% if not isnull(rs_service("money_shougong")) then %>

<% else %>

<% end if%>

<tr>

<td width="70" height="20">尊敬的用户:</td>

</tr>

<tr>

<td colspan="2">您有未处理手工入款共 <%=rs_service("money_shougong")%> 元,请处理!</td>

</tr>

<tr>

</tr>

</table>

</td>

<td>

<% if not isnull(rs_ips("money_ips")) then %>

<% else %>

<% end if%>

<tr>

<td width="70" height="20">尊敬的用户:</td>

</tr>

<tr>

<td colspan="2">您有新的未处理IPS入款共 <%=rs_ips("money_ips")%> 元,请处理!</td>

</tr>

<tr>

</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_STRING

rs_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

% >

< %

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_STRING

rs_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

% >

</ 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 >

blue_lw

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
做及时提示弹出消息

消息框 %@ 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" /
复制链接

扫一扫