
<%
	dim connpet,rspet
	dim connstrpet
	dim dbbankpet
	'更改数据库名字
	dbbankpet="petcenter.mdb"
	Set connpet = Server.CreateObject("ADODB.Connection")
	connstrpet="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbbankpet)
	'如果你的服务器采用较老版本Access驱动，请用下面连接方法
	'connstr1="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbbank)	
	connpet.Open connstrpet
	
    Sub showmessage(show_message, url_forward)
        %>
        <% If GBL_TableHeadString <> "" Then %><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableHeadString%></td></tr></table><% End If %>
        <table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="5" align="center" class=TBone>
          <tr>
            <td height=27 align="center" class=tbhead2><b><font class=HeadFont><%=stats%></font></b></td>
          </tr>
          <tr>
            <td class=tbbg1>	
    	
    	    <div align="center"><br>
    	        <%=show_message%><br><br>
            	<%if url_forward <> "" then%>
        	        <a href=<%=url_forward%>>如果您的浏览器没有自动跳转，请点击这里</a><br><br>
                	<meta http-equiv="refresh" content="5;url='<%=url_forward%>'">
            	<%end if%>
        	</div>
        
    	</td></tr></table>
        <% If GBL_TableBottomString <> "" Then %><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><% End If %>
        <%    
    
        SiteBottom 
        If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
        response.end
    end Sub
    
    sub AlarmErrmsg()
%>
        <% If GBL_TableHeadString <> "" Then %><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableHeadString%></td></tr></table><% End If %>
        <table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="5" align="center" class=TBone>
          <tr>
            <td height=27 align="center" class=tbhead2><b><font class=HeadFont><%=stats%></font></b></td>
          </tr>
          <tr>
            <td class=tbbg1>	
    	
    	    <br>
    	    您没有进入宠物中心，请先<a href=../../User/Login.asp>登录</a>或<a href=../../User/UserJoin.asp>注册</a>新用户。
        	<br><br>
        
    	</td></tr></table>
        <% If GBL_TableBottomString <> "" Then %><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><% End If %>
        <%    
    
        SiteBottom 
        If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
        response.end
    end sub
%>