sheepconfig.asp

功能强大的bbs

<%
dim content,sucmsg
'-------------------------------出错信息-------------------------------
sub bank_err(Url) 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
	<tr><th height=25>农场错误信息</th></tr>
	<tr><td width="100%" class=tablebody1><b>产生错误的可能原因：</b><br><br><li>您是否仔细阅读了帮助文件，可能您还没有登陆或者不具有使用当前功能的权限
<%=errmsg%></font><br></td></tr>
	<tr><td align=center height=26 class=tablebody2>
	<%if Url="" then%>
	<a href=<%=Request.ServerVariables("HTTP_REFERER")%>>返回上一页</a>
	<%else%>
	<a href=<%=Url%>>返回上一页</a>
	<%end if%>
	</td></tr>
</table>
<%
end sub
'--------------------银行关闭告示----------------------
sub bank_suc(Url) 
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
	<tr><th height=25>操作成功</th></tr> 
	<tr><td width="100%" class=tablebody1><b>操作成功：</b><li>你指定的操作已经成功
	<font color=navy><%=sucmsg%></font><br></td></tr>
	<tr><td align=center height=26 class=tablebody2>
	<%if Url="" then%>
	<a href=<%=Request.ServerVariables("HTTP_REFERER")%>>返回上一页</a>
	<%else%>
	<a href=<%=Url%>>返回上一页</a>
	<%end if%>
	</td></tr>
</table>
<%
end sub

sub logs(lclass,title,userN)
	if dvbbs.UserID="" or (not isnumeric(dvbbs.UserID)) then dvbbs.UserID=0
	if content="" then content="可疑的操作"
	conn1.execute("insert into events([type],operator,Title,content) values('"&lclass&"','"&userN&"','"&Title&"','"&content&"')")
end sub
sub sheephead()
%>
						   <div align="center"><center>
						   <table width="100%" align=center>
						   <tr>
						   <td  height="25" width="100%">
						   <table class=tableborder1 cellspacing=1 cellpadding=3 align=center><tr><td valign=middle class=TopLighNav1 width="80%">
						   <%if dvbbs.master then%><img src=images/dot1.gif>-<a href="sheep_admin.asp"><font color="#FF0000">场长办公室</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
						   <%end if%>
						   <img src=images/dot1.gif>-<a href="indexsheep.asp"><font color="#FF0000">农场首页</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
						   <img src=images/dot1.gif>-<a href="feedsheepme.asp"><font color="#FF0000">喂养小动物</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
						   <img src=images/dot1.gif>-<a href="sheepst.asp"><font color="#FF0000">宠物排行榜</font></a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
						   <td align=right valign=middle class=TopLighNav1><img src=images/dot1.gif>-<a href="sheepeven.asp"><font color=blue>事件</font></a>
						   </td>
						   </tr>
						   </table>
						   </td>
						   </tr>
						   </table>
						   </center>
						   </div>
<%
   end sub

function iif(a,b,c)
	if a then 
	iif=b
	else
	iif=c
	end if
end function

%>