<%
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function
sub Err_List(errmsg,var)
	Response.write"<BR><BR><table width=413 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#EEEAD6>"
	Response.write"    <tr>"
	Response.write"      <td height=29 colspan=3 background=image/topbg.gif> <table width=95% align=right border=0 cellspacing=0 cellpadding=0>"
	Response.write"          <tr> "
	Response.write"            <td align=left valign=middle><font color=#FFFFFF><B>系统提示信息</B></font></td>"
	Response.write"            <td width=8% align=right>&nbsp;</td>"
	Response.write"          </tr>"
	Response.write"        </table></td>"
	Response.write"    </tr>"
	Response.write"    <tr>"
	Response.write"      <td width=3 background=image/link.GIF></td>"
	Response.write"      <td><table width=100% border=0 cellspacing=0 cellpadding=0>"
	Response.write"          <tr>"
	Response.write"            <td><table width=95% border=0 align=center> "
	Response.write"	  <tr><td>"
	Response.write"	  <fieldset><legend align=left>提示内容</legend> "
	Response.write"	          <table width=100% border=0 cellspacing=2 cellpadding=2>"
	Response.write"                <tr> "
	Response.write"                  <td colspan=3 style=line-height:150% align=left>"& errmsg &"</td>"
	Response.write"                </tr>"
	Response.write"                <tr> "
	if var = 1 then
		Response.write "<tr><td colspan=3 align=center><input type=button name=button value=' 返 回 ' onclick=javascript:history.go(-1); class=tbutton></td></tr>"
	elseif var = 2 then
		Response.write "<tr><td colspan=3 align=center><input type=button name=button value=' 返 回 ' onclick=location.href='"& Request.ServerVariables("HTTP_REFERER") &"'  class=tbutton></td></tr>"
	elseif var = 3 then
		Response.write "<tr><td colspan=3 align=center><input type=button name=button value=' 关 闭 ' onclick=javascript:window.close(); class=tbutton></td></tr>"
	end if
	Response.write"                </tr>"
	Response.write"              </table>"
	Response.write"	  </fieldset> "
	Response.write"	  &nbsp;</td></tr>"
	Response.write"	  </table></td>"
	Response.write"          </tr>"
	Response.write"        </table></td>"
	Response.write"      <td width=3 background=image/link.GIF></td>"
	Response.write"    </tr>"
	Response.write"	<tr><td height=3 background=image/linkbom.GIF colspan=3></td></tr>"
	Response.write"  </table> "
End Sub

%>