📄 lbbs_pic v1.05.asp
字号:
function ascheck()
{
if (document.admin.password.value!=""){
if (document.admin.password.value!=document.admin.password_again.value) {
alert("两次输入的密码不相同。请重设。");
admin.password_again.focus();
return false;
}
}
return true;
}
//-->
</script>
<form method="POST" action="?action=adminsave" name="admin" onSubmit="return ascheck()">
<table border="0" width="100%" class="border">
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><span lang="zh-cn"><b>参数设置</b></span></td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"><span lang="zh-cn">登录用户名 ：</span></td>
<td height="21"><input type="text" name="username" size="20" value="<%=c_admin_name%>"></td>
</tr>
<tr>
<td width="220" align="right">登录密码 ：</td>
<td><input type="password" name="password" size="20"> <font color='#009900'>留空表示不作修改。</font></td>
</tr>
<tr>
<td width="220" align="right">再次确认密码：</td>
<td><input type="password" name="password_again" size="20"></td>
</tr>
<tr>
<td width="220" align="right">网站首页链接名称：</td>
<td><input type="text" name="HomeName" size="30" value="<%=c_HomeName%>">（空值则不显示)</td>
</tr>
<tr>
<td width="220" align="right">网站首页链接地址：</td>
<td><input type="text" name="HomeUrl" size="30" value="<%=c_HomeUrl%>"></td>
</tr>
<tr>
<td width="220" align="right">标题名：</td>
<td><input type="text" name="title" size="30" value="<%=c_title%>"></td>
</tr>
<tr>
<td width="220" align="right">图片所在文件夹：</td>
<td><input type="text" name="UploadDirg" size="30" value="<%=c_UploadDirg%>"></td>
</tr>
<tr>
<td width="220" align="right">非图片文件类型 ：</td>
<td><input type="text" name="TxtType" size="30" value="<%=c_TxtType%>"><font color='#009900'>(使用|将文件格式分开)</font></td>
</tr>
<tr>
<td width="220" align="right">图片类型 ：</td>
<td><input type="text" name="PicType" size="30" value="<%=c_PicType%>"><font color='#009900'>(使用|将图片格式分开)</font></td>
</tr>
<tr>
<td width="220" align="right">图片下显示文件名：</td>
<td><INPUT TYPE="radio" value="是" NAME="shownane" <%If c_shownane="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="shownane" <%If c_shownane<>"YES" Then response.write"checked"%>>不显示</td>
</tr>
<tr>
<td width="220" align="right">左则当前目录下文件：</td>
<td><INPUT TYPE="radio" value="是" NAME="filelb" <%If c_filelb="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="filelb" <%If c_filelb<>"YES" Then response.write"checked"%>>不显示 </td>
</tr>
<tr>
<td width="220" align="right">自定义设置：</td>
<td><INPUT TYPE="radio" value="是" NAME="cook" <%If c_cook="YES" Then response.write"checked"%>>显示 <INPUT TYPE="radio" value="否" NAME="cook" <%If c_cook<>"YES" Then response.write"checked"%>>不显示</td>
</tr>
<tr>
<td width="220" align="right">每页显示图片数：</td>
<td><input type="text" name="MaxPerPage" size="5" value="<%=con_MaxPerPage%>"></td>
</tr>
<tr>
<td width="220" align="right">每行显示图片数：</td>
<td><input type="text" name="Page" size="5" value="<%=con_Page%>"></td>
</tr>
<tr>
<td width="220" align="right">图片缩图宽度：</td>
<td><input type="text" name="picwidth" size="5" value="<%=con_picwidth%>"></td>
</tr>
<tr>
<td width="220" align="right">图片缩图高度：</td>
<td><input type="text" name="picheight" size="5" value="<%=con_picheight%>"></td>
</tr>
<tr>
<td width="220" align="right"></td>
<td> </td>
</tr>
<tr>
<td width="220" align="right"> </td>
<td><input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr>
</table>
</form>
<%
End Sub
'-----------------------------------------
'-----------------------------------------
'保存参数设置
Sub adminsave()
Call admincheck() '登录检测
dim fso,hf,hf2,all
Dim n_admin_name,n_admin_password,n_HomeName,n_HomeUrl,n_title,n_UploadDirg,n_PicType,n_filelb,n_cook,n_shownane,n_TxtType
Dim n_MaxPerPage,n_Page,n_picwidth,n_picheight
If trim(Request.form("password"))<>"" And trim(Request.form("password_again"))<>trim(Request.form("password")) Then
Response.write "<script language='javascript'>alert('两次输入的密码不一致！');history.go(-1);</script>"
response.end
End if
If trim(Request.form("username"))<>"" then
n_admin_name = chr(34) & trim(Request.form("username"))& chr(34)
Session("lbbs_pic_UserName")=trim(Request.form("username"))
Else
n_admin_name = chr(34) &c_admin_name &chr(34)
End If
If trim(Request.form("password"))<>"" then
n_admin_password = chr(34) & md5(trim(Request.form("password")))& chr(34)
Session("lbbs_pic_password")=md5(trim(Request.form("password")))
Else
n_admin_password = chr(34) &c_admin_password &chr(34)
End If
n_HomeName = chr(34) & trim(Request("HomeName"))& chr(34)
n_HomeUrl = chr(34) & trim(Request("HomeUrl"))& chr(34)
n_title = chr(34) & trim(Request("title"))& chr(34)
n_UploadDirg = chr(34) & trim(Request("UploadDirg"))& chr(34)
n_PicType = chr(34) & trim(Request("PicType"))& chr(34)
n_TxtType = chr(34) & trim(Request("TxtType"))& chr(34)
n_filelb = chr(34) & trim(Request("filelb"))& chr(34)
n_cook = chr(34) & trim(Request("cook"))& chr(34)
n_shownane = chr(34) & trim(Request("shownane"))& chr(34)
c_filelb = Replace(c_filelb,"YES","是")
c_cook = Replace(c_cook,"YES","是")
c_shownane= Replace(c_shownane,"YES","是")
n_MaxPerPage = trim(Request("MaxPerPage"))
n_Page = trim(Request("Page"))
n_picwidth = trim(Request("picwidth"))
n_picheight = trim(Request("picheight"))
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf2=fso.OpenTextFile(Server.mappath(picurl),1)
if Not hf2.atendofstream Then
all = hf2.readALL
all=Replace(all,"c_admin_name="&chr(34) & c_admin_name & chr(34) &"","c_admin_name="& n_admin_name & "")
all=Replace(all,"c_admin_password="& chr(34) &c_admin_password & chr(34) &"","c_admin_password="& n_admin_password & "")
all=Replace(all,"c_HomeName="& chr(34) &c_HomeName & chr(34) &"","c_HomeName="& n_HomeName & "")
all=Replace(all,"c_HomeUrl="&chr(34) & c_HomeUrl &chr(34) & "","c_HomeUrl="& n_HomeUrl & "")
all=Replace(all,"c_title="&chr(34) & c_title &chr(34) & "","c_title="& n_title & "")
all=Replace(all,"c_UploadDirg="&chr(34) & c_UploadDirg &chr(34) & "","c_UploadDirg="& n_UploadDirg & "")
all=Replace(all,"c_PicType="&chr(34) & c_PicType &chr(34) & "","c_PicType="& n_PicType & "")
all=Replace(all,"c_TxtType="&chr(34) & c_TxtType &chr(34) & "","c_TxtType="& n_TxtType & "")
all=Replace(all,"c_filelb="&chr(34) & c_filelb &chr(34) & "","c_filelb="& n_filelb & "")
all=Replace(all,"c_cook="&chr(34) & c_cook &chr(34) & "","c_cook="& n_cook & "")
all=Replace(all,"c_shownane="&chr(34) & c_shownane &chr(34) & "","c_shownane="& n_shownane & "")
all=Replace(all,"con_MaxPerPage="& con_MaxPerPage & "","con_MaxPerPage="& n_MaxPerPage & "")
all=Replace(all,"con_Page="& con_Page & "","con_Page="& n_Page & "")
all=Replace(all,"con_picwidth="& con_picwidth & "","con_picwidth="& n_picwidth & "")
all=Replace(all,"con_picheight="& con_picheight & "","con_picheight="& n_picheight & "")
set hf=fso.CreateTextFile(Server.mappath(picurl),true)
hf.write all
hf.close
End If
hf2.close
set hf=Nothing
set hf2=Nothing
set fso=Nothing
Response.write "<script language='javascript'>alert('设置成功！');location.href='?action=admin';</script>"
response.end
End Sub
'------------------------------------------------
'-------------------------------------------
'修改文件夹/目录
sub Moddir()
Call admincheck() '登录检测
%>
<script>
<!--
function moddircheck()
{
if (document.moddir.folderold.value=="") {
alert("未选择文件夹。请选择。");
moddir.folderold.focus();
return false;
}
if (document.moddir.foldernew.value=="") {
alert("未输入新文件夹名。请重新输入。");
moddir.foldernew.focus();
return false;
}
return true;
}
//-->
</script>
<form name="moddir" method="post" action="?action=moddirsave" onSubmit="return moddircheck()">
<table border="0" width="100%" class="style6">
<tr>
<td height="40">
</td>
<td height="40">
<b>修改目录/文件夹</b>
</td>
</tr>
<tr>
<td align="right"height="40" style="width: 216px"> 选择文件夹:</td>
<td height="40"> <select size="1" name="folderold">
<option selected>请选择要改名的文件夹 </option>
<% call bl(0,"·",c_UploadDirg) '遍历站点所有文件夹作为下拉列表 %>
</select>
</td>
</tr>
<tr>
<td align="right" id="upid" height="40" style="width: 216px"> 改名为:
</td>
<td height="40">
<input type="text" name="foldernew" style="width:200" value="">名称要规范，不能包含空格与非法符号（/\:*?"<>|
等）。</td>
</tr>
<tr>
<td height="40">
</td>
<td height="40">
<input type="submit" name="Submit4" value="确定改名">
<input type="reset" name="Submit2" value="重填">
<input type="button" name="Submit3" value="返回" OnClick="javascript:history.back();">
</td>
</tr>
</table>
</form>
<%
end sub
'-----------------------------------------------------
'-----------------------------------------------------
'保存修改的文件夹/目录
sub moddirsave()
Call admincheck() '登录检测
dim s_folderoldPath,s_foldernew,s_foldernewPath
s_folderoldPath=trim(Request("folderold")) '旧文件夹路径
s_foldernew=forderyes(trim(Request("foldernew"))) '新文件夹名称
s_foldernewPath=left(s_folderoldPath,instrrev(s_folderoldPath,"/")-1)&"/"&s_foldernew '新文件夹路径
if s_folderoldPath="" or s_folderoldPath=c_UploadDirg then
Response.write "<script language='javascript'>alert('未选择文件夹。请选择。');history.go(-1);</script>"
exit sub
end if
if s_foldernew="" then
Response.write "<script language='javascript'>alert('未输入新文件夹名。请重新输入。');history.go(-1);</script>"
exit sub
end if
If fso.FolderExists(Server.MapPath(s_foldernewPath)) Then
Response.write "<script language='javascript'>alert('⊙_⊙文件夹【"&s_foldernew&"】已经存在，请换名！');history.go(-1);</script>"
exit sub
End If
If fso.FolderExists(Server.MapPath(s_folderoldPath)) Then
fso.MoveFolder Server.MapPath(s_folderoldPath),Server.MapPath(s_foldernewPath)
Response.write "<script language='javascript'>alert('修改目录成功，新目录名为【"&s_foldernew&"】');location.href='"&picurl&"?action=moddir';</script>"
Response.end
Else
Response.write "<script language='javascript'>alert('选择的文件夹不存在！');history.go(-1);</script>"
Response.end
End If
end sub
'-----------------------------------------------------
'-------------------------------------------
'创建文件夹/目录
sub adddir()
Call admincheck() '登录检测
%>
<script>
<!--
function adddircheck()
{
if (document.adddir.folderold.value=="") {
alert("未选择归属文件夹。请选择。");
adddir.folderold.focus();
return false;
}
if (document.adddir.foldernew.value=="") {
alert("未输入要创建的文件夹名。请重新输入。");
adddir.foldernew.focus();
return false;
}
return true;
}
//-->
</script>
<form name="adddir" method="post" action="?action=adddirsave" onSubmit="return adddircheck()">
<table border="0" width="100%" class="style7">
<tr>
<td height="40">
</td>
<td height="40">
<b>创建目录/新文件夹</b>
</td>
</tr>
<tr>
<td align="right"height="40" style="width: 216px"> 选择归属文件夹:</td>
<td height="40"> <select size="1" name="folderold">
<option selected>请选择新目录归属的文件夹</option>
<option value="<%=c_UploadDirg%>">作为一级目录</option>
<% call bl(0," ·",c_UploadDirg) '遍历站点所有文件夹作为下拉列表 %>
</select>
</td>
</tr>
<tr>
<td align="right" id="upid" height="40" style="width: 216px"> 新目录名:
</td>
<td height="40">
<input type="text" name="foldernew" style="width:200" value="">名称要规范，不能包含空格与非法符号（/\:*?"<>|
等）。</td>
</tr>
<tr>
<td height="40">
</td>
<td height="40">
<input type="submit" name="Submit4" value="确定创建">
<input type="reset" name="Submit2" value="重填">
<input type="button" name="Submit3" value="返回" OnClick="javascript:history.back();">
</td>
</tr>
</table>
</form>
<%
end sub
'-----------------------------------------------------
'-----------------------------------------------------
'保存新创建文件夹/目录
sub adddirsave()
Call admincheck() '登录检测
dim s_folderoldPath,s_foldernew,s_foldernewPath
s_folderoldPath=trim(Request("folderold")) '旧文件夹路径
s_foldernew=forderyes(trim(Request("foldernew"))) '新文件夹名称
s_foldernewPath=s_folderoldPath&"/"&s_foldernew '新文件夹路径
if s_folderoldPath="" then
Response.write "<script language='javascript'>alert('未选择归属文件夹。请选择。');history.go(-1);</script>"
response.end
end if
if s_foldernew="" then
Response.write "<script language='javascript'>alert('未输入要创建的文件夹名。请重新输入。');history.go(-1);</script>"
response.end
end If
s_foldernewPath=Server.MapPath(s_foldernewPath)
If fso.FolderExists(s_foldernewPath) Then
Response.write "<script language='javascript'>alert('⊙_⊙文件夹【"&s_foldernew&"】已经存在，请换名！');history.go(-1);</script>"
Response.end
else
fso.CreateFolder(s_foldernewPath)
Response.write "<script language='javascript'>alert('新目录【"&s_foldernew&"】创建成功！');location.href='"&picurl&"?action=adddir';</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -