<%
datapath="database/" '数据库目录的相对路径
datafile=""&datapath&"YEBBS7.asp" '数据库的文件名(默认：bbsxp.mdb)

Set Conn=Server.CreateObject("ADODB.Connection")
connstr="; Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(datafile)
conn.Open connstr
on error resume next '忽列错误
'''''''''''''''''##########################################''''''''''''''''''

conn.execute("alter table [user] add medal varchar(255)")
%>
<h2><font color=red>设置完成!</font>