module.asp

asp+sql软件系统

<%
'错误显示模块
Sub ErrorMsg()
If ErrorType<>1 Then
'HTML页面显示错误
Response.Write ("<link href='Css/Style.css' rel='stylesheet' type='text/css'>")
Response.Write ("<table width='100%' height='100%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td align='middle'><table width='300' border='0' cellspacing='1' cellpadding='4' align='center' bgcolor='#0162B7'>")
Response.Write ("<tr><td bgcolor='#F0F0F0' class='UserFile' align='center'><img src='../Images/mistake.gif' width='91' width='25'></td></tr>") 
Response.Write ("<tr><td bgcolor='#FFFFFF'><b>"&ErrTitle&"</b><br><br>"&ErrInfo&"</td></tr><tr><td bgcolor='#F0F0F0' class='UserFile' align='center'><a href='javascript:onclick=history.go(-1)' class='SoftMeun'>返回上一步</a>&nbsp;&nbsp;<a href='index.asp' class='SoftMeun'>返回首页</a></td></tr>")
Response.Write ("</table></td></tr></table>")
Else
'弹出窗口显示错误
ErrInfo=Replace(ErrInfo,"<li>","")
ErrInfo=Replace(ErrInfo,"</li>","\n")
Response.Write ("<script language=javascript>alert('"&ErrTitle&"\n"&ErrInfo&"');history.go(-1);</script>")
End if
End Sub
'成功显示模块
Sub SucMsg(SucInfo,SucUrl)
'HTML页面显示成功
Response.Write ("<link href='Css/Style.css' rel='stylesheet' type='text/css'>")
Response.Write ("<meta http-equiv='refresh' content='3;URL="&SucUrl&"'>")
Response.Write ("<table width='100%' height='100%' border='0' cellspacing='0' cellpadding='0' align='center'><tr><td align='middle'><table width='300' border='0' cellspacing='1' cellpadding='4' align='center' bgcolor='#0162B7'>")
Response.Write ("<tr><td bgcolor='#F0F0F0' class='UserFile' align='center'><img src='../Images/success.gif' width='91' width='25'></td></tr>") 
Response.Write ("<tr><td bgcolor='#FFFFFF'><b>"&SucTitle&"</b><br><br>"&SucInfo&"</td></tr><tr><td bgcolor='#F0F0F0' class='UserFile' align='center'><a href='"&SucUrl&"' class='SoftMeun'>如果不能跳转，请点击返回</a></td></tr>")
Response.Write ("</table></td></tr></table>")
End Sub
%>