📄 admin.asp
字号:
FSO.CopyFile TempSource,TempEnd
Response.Write "已经成功复制文件 <b>"&TempSource&"</b> 到 <b>"&TempEnd&"</b>"
Set FSO = Nothing
End Function
%></td>
</tr>
</table>
<%
' --- 脏字过滤管理 ---
ElseIF Request.QueryString("action")="WordFilter" Then%>
<br><table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" class=nobottom>
<tr>
<td bgcolor="#FFFFFF" ><%=SiteName%> 脏字过滤</td>
</tr></table><table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" class="panel">
<%IF Request.QueryString("type")="EditWordFilter" Then%>
<%
Dim Edit_WordFilterID,Edit_WordFilterMode,Edit_WordFilterText,Edit_WordFilterReplace,Edit_WordFilterEvery,Edit_WordFilterNums
Edit_WordFilterNums=0
Edit_WordFilterID=Split(Request.Form("WordFilter_ID"),",")
Edit_WordFilterMode=Split(Request.Form("WordFilter_Mode"),",")
Edit_WordFilterText=Split(Request.Form("WordFilter_Text"),",")
Edit_WordFilterReplace=Split(Request.Form("WordFilter_Replace"),",")
For Each Edit_WordFilterEvery IN Edit_WordFilterID
If Not IsInteger(Edit_WordFilterEvery) Then Edit_WordFilterEvery=0
If Not IsInteger(Edit_WordFilterMode(Edit_WordFilterNums)) Then Edit_WordFilterMode(Edit_WordFilterNums)=0
Conn.Execute("UPDATE 17u0_WordFilter SET wf_Mode="&Edit_WordFilterMode(Edit_WordFilterNums)&",wf_Text='"&CheckStr(Edit_WordFilterText(Edit_WordFilterNums))&"',wf_Replace='"&CheckStr(Edit_WordFilterReplace(Edit_WordFilterNums))&"' WHERE wf_ID="&Edit_WordFilterEvery&"")
Edit_WordFilterNums=Edit_WordFilterNums+1
Next
IF Request.Form("WordFilter_Dele")<>Empty Then
Conn.Execute("DELETE * FROM 17u0_WordFilter WHERE wf_ID IN ("&CheckStr(Request.Form("WordFilter_Dele"))&")")
End IF
Dim new_WordFilterMode,new_WordFilterText,new_WordFilterReplace
new_WordFilterMode=CheckStr(Request.Form("new_WordFilterMode"))
new_WordFilterText=CheckStr(Request.Form("new_WordFilterText"))
new_WordFilterReplace=CheckStr(Request.Form("new_WordFilterReplace"))
If Not IsInteger(new_WordFilterMode) Then new_WordFilterMode=0
IF new_WordFilterMode<>Empty AND new_WordFilterText<>Empty Then
Conn.Execute("INSERT INTO 17u0_WordFilter(wf_Mode,wf_Text,wf_Replace) VALUES ("&new_WordFilterMode&",'"&new_WordFilterText&"','"&new_WordFilterReplace&"')")
End IF
Application.Lock()
Application(CookieName&"_17u0_WordFilter")=""
Application.UnLock()
Response.Write("<tr><td colspan='4' align='center'><br>保存设置成功.<br><br><a href='?action=WordFilter'>点击请返回</a></td></tr>")%>
<%Else%>
<form name="edit_wordfilter" method="post" action="?action=WordFilter&type=EditWordFilter">
<tr>
<td width="60">删除?</td>
<td width="80">模式</td>
<td width="150">脏字</td>
<td align="left">替换文字</td>
</tr><%Dim Adm_WordFilter,Adm_WordFilterContent
For Each Adm_WordFilter IN Arr_WordFilter
Adm_WordFilterContent=Split(Adm_WordFilter,"|")
%>
<tr class='formbox-content'>
<td align='center'><input name='WordFilter_Dele' type='checkbox' id='WordFilter_Dele' value='<%=Adm_WordFilterContent(0)%>'></td>
<td align='center'><select name="WordFilter_Mode">
<option value="0" <%If Adm_WordFilterContent(1)="0" Then%>selected<%End If%>>替换</option>
<option value="1" <%If Adm_WordFilterContent(1)="1" Then%>selected<%End If%>>阻碍</option>
</select></td>
<td><input type='hidden' id='WordFilter_ID' name='WordFilter_ID' value='<%=Adm_WordFilterContent(0)%>'><input type='text' size='25' id='WordFilter_Text' name='WordFilter_Text' value='<%=Adm_WordFilterContent(2)%>' maxlength="30"></td>
<td><input type='text' size='30' id='WordFilter_Replace' name='WordFilter_Replace' value='<%=Adm_WordFilterContent(3)%>' maxlength="30"></td>
</tr>
<%Next%>
<tr >
<td align='center'>添加:</td>
<td align='center'><select name="new_WordFilterMode">
<option value="0" selected>替换</option>
<option value="1">阻碍</option>
</select></td><td><input type='text' size='25' id='new_WordFilterText' name='new_WordFilterText' maxlength="30"></td><td><input type='text' size='30' id='new_WordFilterReplace' name='new_WordFilterReplace' maxlength="30"></td>
</tr>
<tr ><td></td>
<td colspan='3'>
<input type="Submit" name="Submit" value=" 保存设置 ">
</td>
</tr></form>
<%End IF%>
</table>
<%ElseIF Request.QueryString("action")="smilies" Then%><br>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 表情管理</td>
</tr><%IF Request.QueryString("type")="EditSmilies" Then%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="48"><%
Dim Edit_SmiliesID,Edit_SmiliesText,Edit_SmiliesImage,Edit_SmiliesEvery,Edit_SmiliesNums
Edit_SmiliesNums=0
Edit_SmiliesID=Split(Request.Form("smilies_ID"),",")
Edit_SmiliesText=Split(Request.Form("smilies_Text"),",")
Edit_SmiliesImage=Split(Request.Form("smilies_Image"),",")
For Each Edit_SmiliesEvery IN Edit_SmiliesID
Conn.Execute("UPDATE 17u0_Smilies SET sm_Text='"&CheckStr(Edit_SmiliesText(Edit_SmiliesNums))&"',sm_Image='"&CheckStr(Edit_SmiliesImage(Edit_SmiliesNums))&"' WHERE sm_ID="&Edit_SmiliesEvery&"")
SQLQueryNums=SQLQueryNums+1
Edit_SmiliesNums=Edit_SmiliesNums+1
Next
IF Request.Form("smilies_Dele")<>Empty Then
Conn.Execute("DELETE * FROM 17u0_Smilies WHERE sm_ID IN ("&Request.Form("smilies_Dele")&")")
SQLQueryNums=SQLQueryNums+1
End IF
Dim new_SmiliesText,new_SmiliesImage
new_SmiliesText=CheckStr(Request.Form("new_SmiliesText"))
new_SmiliesImage=CheckStr(Request.Form("new_SmiliesImage"))
IF new_SmiliesText<>Empty AND new_SmiliesImage<>Empty Then
Conn.Execute("INSERT INTO 17u0_Smilies(sm_Text,sm_Image) VALUES ('"&new_SmiliesText&"','"&new_SmiliesImage&"')")
SQLQueryNums=SQLQueryNums+1
End IF
Application.Lock()
Application(CookieName&"_17u0_Smilies")=""
Application.UnLock()
Response.Write("<a href='admin.asp?action=smilies'>操作成功，请点击返回</a>")%></td></tr>
<%Else%><form name="edit_Smilies" method="post" action="admin.asp?action=smilies&type=EditSmilies">
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="90%" border="0" cellpadding="4" cellspacing="1" class=header>
<tr bgcolor="#EFEFEF">
<td nowrap>删除？</td>
<td nowrap>代码</td>
<td nowrap>名称</td>
<td width="100%">图片</td>
</tr><%Dim Adm_Smilies,Adm_SmiliesContent
For Each Adm_Smilies IN Arr_Smilies
Adm_SmiliesContent=Split(Adm_Smilies,"|")
Response.Write("<tr bgcolor='#FFFFFF'><td align='center'><input name='smilies_Dele' type='checkbox' id='smilies_Dele' value='"&Adm_SmiliesContent(0)&"'></td><td><input type='hidden' id='smilies_ID' name='smilies_ID' value='"&Adm_SmiliesContent(0)&"'><input type='text' size='15' id='smilies_Text' name='smilies_Text' value='"&Adm_SmiliesContent(2)&"'></td><td><input type='text' size='25' id='smilies_Image' name='smilies_Image' value='"&Adm_SmiliesContent(1)&"'></td><td><img src='images/smilies/"&Adm_SmiliesContent(1)&"' border=0'></td></tr>")
Next
Response.Write("<tr bgcolor='#FFFFFF'><td nowrap><b>添加</b>：</td><td><input type='text' size='15' id='new_SmiliesText' name='new_SmiliesText'></td><td><input type='text' size='25' id='new_SmiliesImage' name='new_SmiliesImage'></td><td></td></tr>")%></table></td>
</tr><tr>
<td align="center" bgcolor="#FFFFFF">
<input type="Submit" name="Submit" value=" 确定编辑 ">
</td>
</tr></form><%End IF%>
</table>
<%ElseIF Request.QueryString("action")="setting" Then%><br>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 一般设置</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="center" height="48"><%IF Request.QueryString("type")="EnableSite" Then
Application.Lock()
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock()
Response.Write("<a href='admin.asp?action=setting'>开启站点成功，请点击返回</a>")
ElseIF Request.QueryString("type")="DisableSite" Then
Set Conn=Nothing
FreeApplicationMemory
Application.Lock()
Application(CookieName & "_SiteEnable") = 0
Application(CookieName & "_SiteDisbleWhy")="站点维护中，请稍候再来..."
Application.UnLock()
Response.Write("<br><a href='admin.asp?action=setting'>关闭站点成功</a>")
Else
IF Application(CookieName & "_SiteEnable") = 0 AND Application(CookieName & "_SiteDisbleWhy")<>"" Then
Response.Write("<b>站点已关闭</b> | <a href='admin.asp?action=setting&type=EnableSite'>点击开启站点</a>")
Else
Response.Write("<b>站点已开启</b> | <a href='admin.asp?action=setting&type=DisableSite'>点击关闭站点</a>")
End IF
End IF%></td>
</tr>
</table><br><table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 基本信息</td>
</tr>
<tr>
<%IF Request.QueryString("type")="baseInfo" Then
Dim edit_17u0Name,edit_17u0URL,edit_R17u0PerPage,edit_R17u0BookPage,edit_R17u0commpage,edit_R17u0affiche,edit_R17u0about,edit_R17u0colsize,edit_showtotal
edit_17u0Name=CheckStr(Request.Form("17u0_Name"))
edit_17u0URL=CheckStr(Request.Form("17u0_URL"))
edit_R17u0PerPage=CheckStr(Request.Form("17u0_PerPage"))
edit_R17u0BookPage=CheckStr(Request.Form("R17u0BookPage"))
edit_R17u0commpage=CheckStr(Request.Form("17u0_commpage"))
edit_R17u0affiche=CheckStr(Request.Form("R17u0affiche"))
edit_R17u0about=CheckStr(Request.Form("R17u0about"))
edit_R17u0colsize=CheckStr(Request.Form("17u0_colPage"))
IF Request.Form("R17u0_showtotal")="1" Then
edit_showtotal=True
Else
edit_showtotal=False
End IF
IF edit_17u0Name<>Empty OR edit_17u0URL<>Empty OR IsInteger(edit_R17u0PerPage)=True Then
Conn.ExeCute("UPDATE 17u0_Info SET 17u0_Name='"&edit_17u0Name&"',17u0_URL='"&edit_17u0URL&"',17u0_BookPage="&edit_R17u0BookPage&"")
SQLQueryNums=SQLQueryNums+1
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admin.asp?action=setting"">基本信息修改成功，请点击返回</a></td>")
Else
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admin.asp?action=setting"">基本信息修改失败，请点击返回</a></td>")
End IF
Else
dim SCheck
if R17u0_showtotal=true then SCheck="checked" else SCheck=""
Response.Write("<form name=""17u0Info"" action=""admin.asp?action=setting&type=baseInfo"" method=""post""><td bgcolor=""#FFFFFF"" align=""center"" height=""48"">留言本名称：<input name=""17u0_Name"" value="""&siteName&""" type=""text""> 留言本地址：<input name=""17u0_URL"" value="""&siteURL&""" type=""text"" size=""25""> 每页留言数：<input name=""R17u0BookPage"" size=""2"" type=""text"" value="""&R17u0BookPage&"""><br><br><input type=""submit"" value="" 确定 ""></td></form>")
End IF%>
</tr>
</table><br>
<%ElseIF Request.QueryString("action")=2 Then%><br>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 会员管理</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%IF Request.QueryString("type")="editmem" Then
IF CheckStr(Request.QueryString("memID"))=Empty AND CheckStr(Request.QueryString("memType"))<>2 AND CheckStr(Request.QueryString("memType"))<>4 AND CheckStr(Request.QueryString("memType"))<>1 Then
Response.Write("<a href='admin.asp?action=member'>对不起，参数错误，点击返回会员管理</a>")
Else
Conn.ExeCute("UPDATE 17u0_Member SET mem_Status='"&CheckStr(Request.QueryString("memType"))&"' WHERE mem_ID="&CheckStr(Request.QueryString("memID")))
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href='admin.asp?action=member'>编辑会员成功，点击返回会员管理</a>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -