<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->
<!-- #include file=wxzfunction.asp -->
<%
If not CheckSupervisorUserName = 1 Then
 closeplusdatabase
 response.redirect "../../index.asp"
End if

dim act
act=request.querystring("action")
If act="edit" then
call edit()
Else
call main()
End if
closeplusdatabase

sub main()
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from [bbsconfig]"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>社区常数修改</title>
<style type="text/css">
.big{background-color:#E4E5E7;font-size:14px;color: #FF8888;}
td{background-color:#ffffff;font-size:12px;line-height:150%;}
INPUT{font-family: tahoma;COLOR:#000000; font-size: 12px;border: 1px solid #000000;}
</style>
</head>
<body bgcolor=ffffff>
<table width=780 bgcolor=cccccc border=0 cellspacing=1 cellpadding=5 align=center>
<tr>
<td class=big align=center colspan=5>社区常数修改</td>
</tr>
<form method=post action="?action=edit" name="form1">
<tr align=center>
<td width=23%>社区路径（BBSPATH）：<br><input type="text" maxlength=20 value="<%=rs("bbspath")%>" name="bbspath" size="20"></td>
<td width=23%>插件路径（PLUSPATH）：<br><input type="text" maxlength=100 value="<%=rs("pluspath")%>" name="pluspath" size="30"></td>
<td width=23%>金钱倍数（BSMONEY）：<br><input type="text" maxlength=20 value="<%=rs("bsmoney")%>" name="bsmoney" size="20"></td>
<td width=23%>社区Cookie（COOKIEPATH）：<br><input type="text" maxlength=20 value="<%=rs("cookiepath")%>" name="cookiepath" size="20"></td>
<td width=8%><input type="submit" value="修改"></td>
</tr>
</form>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
end sub

sub edit()
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from [bbsconfig]"
rs.open sql,conn,1,3
rs("bbspath")=trim(request.form("bbspath"))
rs("pluspath")=trim(request.form("pluspath"))
rs("bsmoney")=trim(request.form("bsmoney"))
rs("cookiepath")=trim(request.form("cookiepath"))
rs.update
rs.close
set rs=nothing
response.write "OK!SUCCESSED!"
end sub
%>