<!--#include file="conn.asp"-->
<%

dim dbdown,conndown,downstr 
dbdown="data/koomv#down.asp"    '下载数据库名
Set conndown = Server.CreateObject("ADODB.Connection")
downstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbdown)
conndown.Open downstr

'恢复主数据库操作
If Not IsObject(Conn) Then ConnectionDatabase
'定义出错函数和变量
dim errtext,errnum,rs,sql
errtext=""
errnum=0

sub founderrs(errshow)
errnum= errnum+1
 if errshow="" then
 errtext= errtext & errnum &":  出现未知错误，请<a href=login.asp>登陆或联系管理员</a><br>"
 else
 errtext= errtext & errnum &":  <font color=red>"&errshow&"</font>!<BR>"
 end if
end sub

sub showerrs(title)
if errnum>0 then
response.Clear
Dvbbs.LoadTemplates("login")
Dvbbs.Stats="论坛错误信息页面"
Dvbbs.Nav()'输出头
Dvbbs.Head_var 2,0,Dvbbs.Stats,""
%>
<table cellpadding=3 cellspacing=1 align=center class="tableborder1" >
<tr align=center>
<th width="100%" height=25 colspan=2>论坛错误信息</th>
</tr><tr><td width="100%" class=tablebody1 colspan=2>
&nbsp;&nbsp;&nbsp;<b>您在"<font color="#FF0000"><%=title%></font>"的时候发生错误,共有<font color="#FF0000"><%=errnum%></font>项,下面是错误的详细信息</b></td></tr>
<tr><td width="100%" class="tablebody1" colspan=2>
<li>您没有浏览本页面的权限，请<a href=login.asp>登录</a>或者同管理员联系。错误原因如下<br><br>
<%
response.Write errtext
%>
</td></tr>
<tr><td width="100%" class="tablebody1" colspan=2>
<li>请仔细阅读论坛帮助文件，确保您有相应的操作权限。
</td></tr>
<tr><td class="tablebody2" valign=middle colspan=2 align=center>
<a href="javascript:history.go(-1)"><< 返回上一页</a>
</td></tr>
</table>
<%if not dvbbs.founduser then%>
<!--login.asp##论坛登录部分主体-->
	<table cellpadding=3 cellspacing=1 align=center class=tableborder1>

	<form action="login.asp?action=chk" method=post>
	<tr>
	<th valign=middle colspan=2 align=center height=25>请输入您的用户名、论坛密码登录</th></tr>
	<tr>
	<td valign=middle class=tablebody1>请输入您的用户名</td>
	 <td valign=middle class=tablebody1><INPUT name=username type=text> &nbsp; <a href=reg.asp>没有注册？</a></td></tr>
	<tr>
	<td valign=middle class=tablebody1>请输入您的论坛密码</td>
	<td valign=middle class=tablebody1><INPUT name=password type=password> &nbsp; <a href=lostpass.asp>忘记论坛密码？</a></td></tr>
	<tr>
	
	<td class=tablebody1 valign=top width=30% ><b>Cookie 选项</b><BR> 请选择你的 Cookie 保存时间，下次访问可以方便输入。</td>
	<td valign=middle class=tablebody1>                <input type=radio name=CookieDate value=0 >不保存，关闭浏览器就失效<br>
	            <input type=radio name=CookieDate value=1>保存一天<br>
	            <input type=radio name=CookieDate value=2>保存一月<br>
	            <input type=radio name=CookieDate value=3 checked>保存一年<br>
	</td></tr>
	<tr>
	<td valign=top width=30% class=tablebody1><b>隐身登录</b><BR>您可以选择隐身登录，论坛会员将在用户列表看不到您的信息。</td>
	<td valign=middle class=tablebody1>                <input type=radio name=userhidden value=2 checked>正常登录<br>
	            <input type=radio name=userhidden value=1>隐身登录<br>
	</td></tr>
	<input type=hidden name=comeurl value="index.asp">
	<tr>
	<td class=tablebody2 valign=middle colspan=2 align=center><input type=submit name=submit value="登 录"></td></tr></form></table>
<%
end if
Dvbbs.ActiveOnline
Dvbbs.Footer()
response.end
end if
end sub

%>