|
<Script language="vbscript" runat="server"> '**************************************************************** ' Script Compont Object Model ' Design for Active Server Pages ' Copyright 2004 Version 2.0 ' Made by 尹曙光 ' All Rights Reserved. ' **************************************************************** ' ' 系统常用的一些公用函数 ' '***************************************************************** '系统公用信息显示 'strMsg:提示信息 'msgType:信息提示类型 'jumpUrl:页面眺转地址 'strCopyRight:版权信息 Function FShowMsg(strMsg,msgType,jumpUrl,strCopyRight) Response.Write "<Style>"&chr(13) Response.Write "BODY { margin: 0px 0px 0px 0px;FONT-FAMILY: '宋体','Tahoma', 'MS Shell Dlg';color: #000000;font: 9pt;background-color:#f0f1eb;}"&chr(13) Response.Write "A{font:normal 12px 宋体;COLOR: #336699; TEXT-DECORATION: none}"&chr(13) Response.Write "TD{font-family:宋体; font-size: 12px; line-height: 15px;background-color:#f0f1eb;}"&chr(13) Response.Write ".THead{ background-color: #336699;color:#ffffff;font-weight:bold;}"&chr(13) Response.Write ".TFoot{ background-color: #336699;COLOR: #ffffff;}"&chr(13) Response.Write "</style>"&chr(13) Response.Write "<table height='90%' width='100%'> <tr>"&chr(13) Response.Write "<td align=center> <table align=center cellpadding=0 cellspacing=0 bordercolor='#336699' bgcolor='#336699' style='width:90%'>" Response.Write "<tr align=center>"&chr(13) Response.Write "<td width='100%' height=20 colspan=2 bgcolor='#336699' class='THead' >系统提示信息</t> "&chr(13) Response.Write "<tr><td width='100%' colspan=2 align='center' bgcolor='#FFFFFF'><br> "&chr(13) |