www.gusucode.com > 运动用品商城网站系统源代码程序 > stat/sAdmin_Option.asp
<!--#include file="inc_config.asp"--> <!--#include file="inc_Lang_admin.asp"--> <!--#include file="style/style_all.asp"--> <!--#include file="inc_admin_functions.asp"--> <% dim CanOpt,sStep,tTitle,tMainName dim RCFG(9) for i= 0 to 9 RCFG(i)=Request.Form("CFG"&i) next tTitle = Lang_sAdmin_Me & "-" & Lang_Option tMainName = Lang_Option Response.Write replace(Style_Header,"$Title",tTitle) Response.Write replace(Style_Admin_Top,"$Lang_Admin",Lang_sAdmin_Me) Response.Write replace(Style_MainTop,"$MainName",tMainName) Response.Write "<table width=""90%"" align=""center"">" if CanDel()<3 then Response.Write "<tr><td>" & Lang_Option_CanDelE & "<br>Err: " & CanDel() & "</td></tr>" else if RCFG(4)<> "" then modelfile = server.MapPath("inc_config_model.asp") confile = server.MapPath("inc_config.asp") context = ReadTxtfile(modelfile) for i=0 to 9 context = replace(context,"$CFG" & i,RCFG(i)) next WriteTxtfile confile,context Response.Write "<tr><td>" & Lang_Option_ok & "</td></tr>" else %> <form action="sAdmin_Option.asp" method=post> <tr> <td class="fonts"><%=Lang_Option_0%></td><td align="right"><input class="input" size="5" name="CFG0" value="<%=CFG_DefaultSite%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_0b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_1%></td><td align="right"><input class="input" size="5" name="CFG1" value="<%=CFG_ZoneServer%>"></td> </tr> <tr> <td class="fonts"><%=Lang_Option_2%></td><td align="right"><input class="input" size="5" name="CFG2" value="<%=CFG_IPLong%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_2b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_3%></td><td align="right"><input class="input" size="5" name="CFG3" value="<%=CFG_CheckOnlineS%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_3b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_4%></td><td align="right"><input class="input" size="10" name="CFG4" value="<%=CFG_CacheName%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_4b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_5%></td><td align="right"><input class="input" size="5" name="CFG5" value="<%=CFG_AutoDel%>"></td> </tr> <tr> <td class="fonts"><%=Lang_Option_6%></td><td align="right"><input class="input" size="5" name="CFG6" value="<%=CFG_AutoDelBig%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_5b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_7%></td><td align="right"><input class="input" size="10" name="CFG7" value="<%=CFG_SaveOnline_0%>"></td> </tr> <tr> <td colspan="2"><p style="line-height: 120%; margin-left: 18; margin-right: 0; margin-top: 0; margin-bottom: 9"><%=Lang_Option_7b%></p></td> </tr> <tr> <td class="fonts"><%=Lang_Option_8%></td><td align="right"><input class="input" size="10" name="CFG8" value="<%=CFG_sAdminName%>"></td> </tr> <tr> <td class="fonts"><%=Lang_Option_9%></td><td align="right"><input class="input" size="10" name="CFG9" value="<%=CFG_sAdminPass%>"></td> </tr> <tr> <td colspan="2"><%=Lang_Option_submit%></td> </tr> <% end if end if Response.Write "</table>" Response.Write Style_MainBottom Response.Write Style_Bottom %>