做及时提示弹出消息

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

blue_lw

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

阅读量737

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/blue_lw/article/details/1968440

asp 专栏收录该内容

10 篇文章

订阅专栏

消息框

<%@ Language=VBScript %>

<%Response.Buffer=true%>

<%Response.Expires=0%>

<html>

<head>

'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")

　window.close();

</script>

end if

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

<html>

<head>

<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

　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

　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>