<%
dim conn
Dim WPD_Errmsg,WPD_Sucmsg,WPD_founduser,WPD_mymoney
set conn = Server.CreateObject("ADODB.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("shop999.asp")
	
sub closeshopdatabase()
	conn.close
	set conn=nothing
end sub
sub WPD_error()
	Response.Write Chr(10)
	Response.Write "<table width="&DEF_BBS_ScreenWidth&" cellspacing=1 cellpadding=5 align=center bgcolor="&DEF_BBS_DarkColor&" class=TBone>"
	Response.Write Chr(10)
	Response.Write "<tr align=center bgcolor="&DEF_BBS_LightDarkColor&">"
	Response.Write Chr(10)
	Response.Write "<td class=TBHead><font color=#ffffff class=HeadFont><b>论坛错误信息</b></font></td>"
	Response.Write Chr(10)
	Response.Write "</tr>"
	Response.Write Chr(10)
	Response.Write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	Response.Write Chr(10)
	Response.Write "<td style=""line-height:150%"">"
	Response.Write Chr(10)
	Response.Write "<b>产生错误的可能原因：</b><br><br>"
	Response.Write Chr(10)
	Response.Write "<li>您是否仔细阅读了<a href="&DEF_BBS_homeUrl&"User/Help/Help.asp>帮助文件</a>，可能您还没有<a href="&DEF_BBS_homeUrl&"user/login.asp><font color=ff2222>登陆</font></a>或者不具有使用当前功能的权限。</li>"
	Response.Write Chr(10)
	Response.Write WPD_errmsg
	Response.Write Chr(10)
	Response.Write "<br><br><br><br>"
	Response.Write Chr(10)
	Response.Write "<a href="&Request.ServerVariables("HTTP_REFERER")&"> << 返回上一页</a>　<a href=../../boards.asp> << 返回首页</a>"
	Response.Write Chr(10)
	Response.Write "</td></tr>"
	Response.Write Chr(10)
	Response.Write "</table>"
	Response.Write Chr(10)
	closedatabase
	SiteBottom
	Response.End		
end sub

sub WPD_suc()
	Response.Write Chr(10)
	Response.Write "<table width="&DEF_BBS_ScreenWidth&" cellspacing=1 cellpadding=5 align=center bgcolor="&DEF_BBS_DarkColor&" class=TBone>"
	Response.Write Chr(10)
	Response.Write "<tr align=center bgcolor="&DEF_BBS_LightDarkColor&">"
	Response.Write Chr(10)
	Response.Write "<td class=TBHead><font color=#ffffff class=HeadFont><b>论坛成功信息</b></font></td>"
	Response.Write Chr(10)
	Response.Write "</tr>"
	Response.Write Chr(10)
	Response.Write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	Response.Write Chr(10)
	Response.Write "<td style=""line-height:150%"">"
	Response.Write Chr(10)
	Response.Write "<b>操作成功：</b><br>"
	Response.Write WPD_sucmsg
	Response.Write "</td></tr>"
	Response.Write "<tr bgcolor="&DEF_BBS_LightestColor&" class=TBBG9>"
	Response.Write Chr(10)
	Response.Write "<td>"
	Response.Write Chr(10)
	Response.Write "<a href="&Request.ServerVariables("HTTP_REFERER")&"> << 返回上一页</a>　<a href=../../boards.asp> << 返回首页</a>"
	Response.Write "</td></tr>"
	Response.Write Chr(10)
	Response.Write "</table>"
	Response.Write Chr(10)
	closedatabase
	SiteBottom
	Response.End		
end sub
Sub WPD_WriteCenter(wstring)
	response.write "<br><br><center>"&wstring&"</center>"
	Response.Write "<br>"
	Response.Write "<center><a href="&Request.ServerVariables("HTTP_REFERER")&"> << 返回上一页</a></center>"
End sub
Sub WPD_GetConfig()

	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	sql="select top 1 * from Leadbbs_user where username='"&gbl_chk_user&"'"
	rs.open sql,con,1,1
	If rs.bof and rs.eof then
		WPD_founduser=false
		exit sub
	End if
	WPD_founduser=true
	WPD_mymoney=rs("Points")
	set rs=nothing
End Sub
%>