📄 qqcf_admin_manage_4.asp
字号:
<td><input type="radio" name="Assort" value="1">
网友或网站主
<input type="radio" name="Assort" value="2">
广告主</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="right"><strong> 公告内容</strong></div></td>
<td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">
<input type="submit" name="Submit3322" value="增加">
</div></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="infomodify" Then%>
<%
ID=request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_SysInfo where ID="&ID
Rs.open Sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?Action=infomodifysave&id=<%=id%>">
<tr>
<td colspan="2"><div align="center"><strong>公告修改</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="right"><strong> 公告内容</strong></div></td>
<td><textarea name="Content" cols="60" rows="7" id="Content"><%=rs("Content")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">
<input type="submit" name="Submit33222" value="修改">
</div></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="gbooklist" Then%>
<%
Sql="Select * From WWW_QQCF_COM_CfWztg_Gbook Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
If Not IsNumeric(Request("Page")) Or IsEmpty(Request("Page")) Then
Page=1
Else
Page=Int(Abs(Request("Page")))
End if
Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
%>
<table width="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr bgcolor="D6DFF5">
<td><div align="center"><strong>序 号</strong></div></td>
<td><div align="center"><strong>类型</strong></div></td>
<td><div align="center"><strong>用户名</strong></div></td>
<td><div align="center"><strong>内容</strong></div></td>
<td><div align="center"><strong>加入时间</strong></div></td>
<td><div align="center"><strong>管理员回复</strong></div></td>
<td><div align="center"><strong>回复时间</strong></div></td>
<td><div align="center"><strong>操 作</strong></div></td>
</tr>
<%
While Not Rs.Eof And MyPageSize>0
%>
<tr
<%
If MyPageSize Mod 2=0 Then
Response.Write " bgcolor='#ffffff'"
Else
Response.Write " bgcolor='#e8e8e8'"
End If
%>>
<td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
<td><div align="center"><%
If rs("Assort")=1 Then
Response.write "网友或网站主"
ElseIf Rs("Assort")=2 Then
Response.Write "广告主"
End If%></div></td>
<td><div align="center"><%=rs("User_Name")%></div></td>
<td><%=rs("Content")%></td>
<td><div align="center"><%=rs("AddTime")%></div></td>
<td><%=rs("Reply")%></td>
<td><div align="center"><%=rs("ReplyTime")%></div></td>
<td><div align="center"><a href="?action=gbookreply&id=<%=rs("id")%>">回复</a>
<a href="?action=gbookdel&id=<%=rs("id")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td height="30"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount Then
%>
<a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Action=<%=Action%>&Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td valign="top">
<Select name="page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
Response.Write "<option value="&filename&"?Action="&Action&"&Page="& i
If Page=i Then Response.Write " selected"
Response.Write ">转到第"& i &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
<%End If%>
<%If Action="gbookreply" Then%>
<%
ID=request("ID")
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWztg_Gbook where ID="&ID
Rs.open Sql,Conn,1,1
%><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?action=gbookreplysave&ID=<%=ID%>">
<tr>
<td colspan="2"><div align="center"><strong>留 言 回 复</strong></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23"><div align="right"><strong>内容：</strong></div></td>
<td><%=Rs("Content")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100"><div align="right"><strong> 回复内容</strong></div></td>
<td><textarea name="Reply" cols="60" rows="7" id="textarea"><%=GetConVertStr(rs("Reply"))%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2"><div align="center">
<input type="submit" name="Submit33224" value="回复">
</div></td>
</tr>
</form>
</table>
<%End IF%>
<%If Action="dbmanage" Then%>
<table width="100%" border=0 align=center cellPadding=2 cellSpacing=1 bordercolor="D6DFF5" bgcolor="D6DFF5" style="border-collapse: collapse">
<tr align="center" bgcolor="D6DFF5">
<td height=22 colspan="2"><strong>查看数据库文件大小</strong></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height=22 colspan="2">
<%
FolderName=Replace(Request("foldername"),"..","")'过虑..防止到上级目录
If FolderName="" Then FolderName=Server.MapPath("qqcf_data")
Path=FolderName
If Instr(Path,"qqcf_data")=0 Then Call AlertBack("不能浏览这个目录！",1)
ShowFolderList(path)
Function ShowFolderList(folderspec)
temp=request.ServerVariables("HTTP_REFERER")
temp=left(temp,Instrrev(temp,"/"))
temp1=len(folderspec)-len(server.MapPath("./"))-1
if temp1>0 then
temp1=right(folderspec,cint(temp1))
elseif temp1=-1 then
temp1=""
end if
tempurl=temp+replace(temp1,"\","/")+"/"
Set fso = CreateObject("Scripting.FileSystemObject")
upfolderspec=fso.GetParentfoldername(folderspec&"\")
%>
<div align="center">| <a href="?Action=dbmanage&foldername=<%=upfolderspec%>">向上</a>
| <a href="?Action=dbmanage&">返回</a> | </div>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#6595D6">
<tr bgcolor="#E4E8EF">
<td width="455"><div align="center">名称</div></td>
<td width="61"><div align="right">大小</div></td>
<td width="54"><div align="center">类型</div></td>
<td width="117"><div align="left">修改时间</div></td>
</tr>
<%
'列出目录
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
%>
<tr bgcolor="#E4E8EF" onMouseOut=this.bgColor='#E4E8EF'; onMouseOver=this.bgColor='#FFFFFF';>
<td><a href="<%= url%>?Action=dbmanage&foldername=<%= folderspec%>\<%= f1.name%>"><%= f1.name%></a></td>
<td><div align="right"> <%MySize=f1.size/1024
If MySize<1024 Then Response.write MySize&"K"
If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
<td><div align="center">文件夹</div></td>
<td><div align="left"><%= f1.datelastmodified%></div></td>
</tr>
<%
Next
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"
'列出文件
Set fc = f.Files
For Each f1 in fc
%>
<tr bgcolor="#E4E8EF">
<td><%= f1.name%></td>
<td><div align="right">
<%MySize=f1.size/1024
If MySize<1024 Then Response.write MySize&"K"
If MySize>=1024 Then Response.write MySize/1024&"M"%></div></td>
<td><div align="left"></div></td>
<td><div align="left"><%= f1.datelastmodified%></div></td>
</tr>
<%
Next
set fso=nothing
%>
</table>
<%End Function %>
</td>
</tr>
<tr align="center">
<td colspan="2" height=22> <strong>备份数据库</strong></td>
</tr>
<form name="form1" method="POST" action="?Action=back">
<tr align="center" bgcolor="#FFFFFF">
<td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动备份</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" height="26" align="right">数据库路径：</td>
<td width="63%"> <input type="text" name="currf" size="50" value="qqcf_data/qqcf_wztg #.mdb">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" >备份数据目录：</td>
<td > <input type="text" name="backf" size="50" value="qqcf_data/back">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" >数据库名称：</td>
<td class=tdc> <input type="text" name="backfy" size="50" value="qqcf_wztg_back #.mdb">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" > </td>
<td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj>
</td>
</tr>
</form>
<form name="form1" method="POST" action="?Action=ys">
<tr align="center" bgcolor="D6DFF5">
<td height=22 colspan="2" class=tdc1 <%=hColor2%>>
<strong>压缩及修复数据库</strong></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动压缩</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" >数据库路径：</td>
<td > <input type="text" name="currf" size="50" value="qqcf_data/back/qqcf_wztg_back #.mdb">
<input name="assort" type="hidden" id="assort" value="2"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="right"> <p align="left">（为了安全，请注意用备份的数据库文件来压缩，不要用当前正在运行的数据库文件）</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" > </td>
<td > <input type="submit" name="Submit" value="提交" class=bdtj> <input type="reset" name="Submit2" value="重置" class=bdtj>
</td>
</tr>
</form>
<form name="form1" method="POST" action="?Action=reload">
<tr align="center" bgcolor="D6DFF5">
<td colspan="2" class=tdc1 <%=hColor2%>>
<strong>恢复数据库</strong></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height=22 colspan="2">你的空间只有支持fso才可以进行如下操作，否则你只能手动恢复</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" >当前数据库路径：</td>
<td > <input type="text" name="currf" size="50" value="qqcf_data/qqcf_wztg #.mdb">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" >备份数据路径：</td>
<td > <input type="text" name="backf" size="50" value="qqcf_data/back/qqcf_wztg_back #.mdb">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="37%" align="right" > </td>
<td > <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置">
</td>
</tr>
</form>
</table>
<%End If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -