command.asp

来自「access数据库转换工具」· ASP 代码 · 共 60 行

<%
Sub error(Message)
n=0
%>
<div margin-left: auto;margin-right: auto;id="Layer1" style="position:absolute; width:1024px; height:200px; z-index:1; top: 80px;">
<table align=center cellspacing="1" cellpadding="5" width=500 border=1>
	<tr>
		<td width="100%" bgcolor=blue colspan="2" align="center"><strong><font color=yellow>提示信息</color></strong></td>
	</tr>
	<tr>
		<td valign="top" align="Left" colspan="2" height="122">
		<table cellspacing="0" cellpadding="5" width="100%" border="0">
			<tr>
				<td width="83%" valign="top"><b>操作不成功：</b><ul><%=Message%></ul></td>
				<td width="17%"><img height="100" src="err.jpg" width="100" /></td>
			</tr>
		</table>
		</td>
	</tr>
	<tr align="center" >
		<td valign="center" colspan="2" bgcolor=blue><input onclick="history.back()" type="submit" value=" << 返 回 " /></td>
	        
        </tr>
</table></div>
<%
response.end
End Sub
%>




<%
Sub ok(Message)
n=0
%>
<br><br><br>
<div margin-left: auto;margin-right: auto;id="Layer1" style="position:absolute; width:1024px; height:200px; z-index:1; top: 80px;">
<table align=center cellspacing="1" cellpadding="5" width=500 border=1>
	<tr>
		<td width="100%" bgcolor=blue colspan="2" align="center"><strong><font color=yellow>提示信息</color></strong></td>
	</tr>
	<tr>
		<td valign="top" align="Left" colspan="2" height="122" bgcolor=#ffffff>
		<table cellspacing="0" cellpadding="5" width="100%" border="0">
			<tr>
				<td width="83%" valign="top"><b>操作成功：</b><ul><%=Message%></ul></td>
				<td width="17%"><img height="100" src="ok.jpg" width="100" /></td>
			</tr>
		</table>
		</td>
	</tr>
	<tr align="center" >
		<td valign="center" colspan="2" bgcolor=blue><input onclick="history.back()" type="submit" value=" << 返 回 " /></td>
	        
        </tr>
</table></div>
<%
End Sub
%>