<%
const myurl="http://nocolor.cn/bbs"  '设定你的论坛网址

dim conn_adv,connstr_adv,db_adv
db_adv="ad_data.asp"
Set conn_adv = Server.CreateObject("ADODB.Connection")
connstr_adv="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_adv)
conn_adv.Open connstr_adv


sub Errormsg()
%>
<table width="<%=DEF_BBS_ScreenWidth%>" cellpadding=3 cellspacing="1" align=center class=tbone>
    <tr class=tbhead2> 
      <td width="100%" height=20 colspan="2" align=center><b><font class=HeadFont>错误信息</font></b></td>
    </tr>
    <tr class=tbbg1>
      <td colspan=2><b>产生错误的可能原因是：</b><br><br>
                      <%=msg%></td>
    </tr>
</table>
<%
end sub
%>

