www.gusucode.com > 新锐领秀网络相册 1.1 > admin/photos.asp
<!--#include file="../conn.asp" -->
<!--#include file="../include/const.asp" -->
<!--#include file="../include/function.asp" -->
<!--#include file="../include/fso.asp" -->
<!--#include file="inc/const.asp" -->
<!--#include file="admin_func.asp"-->
<script language="javascript">
//检查表单控件是否为空
function Check_form()
{
if(form1.title.value=="")
{
alert("请输入标题！");
form1.title.focus();
return false;
}
if(form1.ntype.value=="")
{
alert("请选择类型！");
form1.ntype.focus();
return false;
}
}
function sel(a){
o=document.getElementsByName(a)
for(i=0;i<o.length;i++)
o[i].checked=event.srcElement.checked
}
</script>
<%
CheckAdmin
dim action,id
action=request.querystring("action")
id = gSafeRequest("id",1)
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章</title>
<link href="../images/admincp/admincp.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<%Select Case action
Case ""
Dim keyword,strWhere
keyword = gSafeRequest("keyword",0)
if id > 0 Then strWhere = "TypeID=" & id
if keyword<>"" Then
IF strWhere <>"" Then
strWhere = strWhere & " and title like '%" & keyword & "%'"
Else
strWhere = "title like '%" & keyword & "%'"
End IF
Else
End If
strWhere = ""
Call gPhotoList(strWhere)
Case "add"
Call gNewsAdd()
Case "edit"
Call gNewsEdit()
Case "saveadd"
Call saveadd()
Case "saveedit"
Call saveedit()
Case "del"
Call gPhotoDelete(id)
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
Case "batdel"
Dim ids,ary_id,i
ids = gCheckStr(Request.Form("batdel"))
ary_id = Split(ids,", ")
If IsArray(ary_id) Then
For i = 0 To UBound(ary_id)
Call gPhotoDelete(ary_id(i))
Next
End If
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
Case "comment"
Call gCommentManage(id)
Case "cbatdel"
Dim cids,cary_id,j
cids = gCheckStr(Request.Form("cbatdel"))
sql = "Delete From gComment Where id in(" & cids & ")"
if not IsObject(conn) then ConnectionDatabase
conn.execute sql
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
Case Else
Response.End()
End Select
%>
</td>
</tr>
</table>
</body>
</html>
<%
'----------------------------------------------------
'--------------------------------------------------------------------------------------------------------
'文章列表
Sub gPhotoList(strWhere)
Dim TblName,strFields,orderField,page,nCount,orderType
Dim arr,b,i
Dim G_pageSize,rsobj,rs,a
gpageSize=15
TableName="gPhotos"
strFields="id,title,PhotoPath"
orderField="id"
orderType=1
If strWhere > "" Then
SQL = "Select Count(*) From " & TableName & " Where " & strWhere
Else
SQL = "Select Count(*) From " & TableName
End If
if Not IsObject(conn) then ConnectionDatabase
a = conn.Execute(SQL)(0)
page=gSafeRequest("page",1)
If (Not IsNumeric(page) Or page="") Then page=1
%>
<table width="100%" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#D4D0C8">
<tr class="header">
<td colspan="4">图片管理</td>
</tr>
<form name="frm1" method="get" action="news.asp">
<tr>
<td width="25%" align="center">找:<input type="text" name="keyword" value="<%=keyword%>"></td>
<td align="left"><select name="id"><%Call gPhotoTypeSelect(id)%></select></td>
<td width="13%" align="left"><input type="submit" name="Submit2" value=" 查找 "></td>
<td width="21%" align="left"><input type="button" name="return" value=" 返回 " onClick="document.location.href='plist.asp'"></td>
</tr>
</form>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#D4D0C8">
<form name="frm2" method="post" action="?action=batdel">
<tr>
<td>
<%
Set rsobj=Server.CreateObject(gRsCmd)
if Not IsObject(conn) then ConnectionDatabase
If IsSqlDataBase = 1 Then
Dim obj
Set obj=Server.CreateObject("ADODB.Command")
With obj
.ActiveConnection = conn
.CommandText = "gSplitPage"
.CommandType = &H0004
.Parameters.Append .CreateParameter("@tblName",adVarChar,adParamInput,255,TableName)
.Parameters.Append .CreateParameter("@strGetFields",adVarChar,adParamInput,1000,strFields)
.Parameters.Append .CreateParameter("@fldName",adVarChar,adParamInput,255,orderField)
.Parameters.Append .CreateParameter("@PageSize",adInteger,adParamInput,4,gPageSize)
.Parameters.Append .CreateParameter("@PageIndex",adInteger,adParamInput,4,page)
.Parameters.Append .CreateParameter("@doCount",adTinyInt,adParamInput,1,0)
.Parameters.Append .CreateParameter("@OrderType",adTinyInt,adParamInput,1,orderType)
.Parameters.Append .CreateParameter("@strWhere",adVarChar,adParamInput,100,strWhere)
End With
Set rs=obj.Execute()
Else
Dim sql
If page = 1 Then
If strWhere > "" then
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC"
Else
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Order By " & orderField & " DESC"
End If
ElseIf page > 1 Then
If strWhere > "" Then
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Where " & orderField & " < (Select Min(" & orderField & ") From(Select Top " & (page -1) * gpagesize & " " & orderField & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC) AS tblTemp)"
sql = sql & " Order By " & orderField & " DESC"
Else
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Where " & orderField & " < (Select Min(" & orderField & ") From(Select Top " & (page -1) * gpagesize & " " & orderField & " From " & TableName & " Order By " & orderField & " DESC) AS tblTemp)"
sql = sql & " Order By " & orderField & " DESC"
End If
Else
If strWhere > "" Then
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " where " & strWhere & " Order By " & orderField & " DESC"
Else
sql = "Select Top " & gpagesize & " " & strFields & " From " & TableName & " Order By " & orderField & " DESC"
End If
End If
'Response.write sql
Set rs = conn.Execute (sql)
End If
if not(rs.bof and rs.eof) then
do while not rs.eof
If InstalledJPEG = 0 Then
Response.Write("<div class=""list""><img border=""0"" src=""../photos/" & rs(2) & """ onerror=this.src=""../images/none.gif"" /><p style=""width:100%;background-color:#ffffff"">" & rs(1) & "<p style=""width:100%;background-color:#ffffff""><input type=""checkbox"" name=""batdel"" value=""" & rs(0) & """> <a href=?action=del&id="& rs(0) & " onclick=""return confirm('确实要删除该图片吗?');"">删除</a> | <a href=?action=comment&id=" & rs(0) & ">管理评论</a></div>")
Else
Response.Write("<div class=""list1""><img border=""0"" src=""../photos/" & rs(2) & """ onerror=this.src=""../images/none.gif"" /><p style=""width:100%;background-color:#ffffff"">" & rs(1) & "<p style=""width:100%;background-color:#ffffff""><input type=""checkbox"" name=""batdel"" value=""" & rs(0) & """> <a href=?action=del&id="& rs(0) & " onclick=""return confirm('确实要删除该图片吗?');"">删除</a> | <a href=?action=comment&id=" & rs(0) & ">管理评论</a>删除</div>")
End If
rs.MoveNext
loop
Response.Write ("</td><tr><td><input type=""checkbox"" name=""bbbatdel""onclick=sel('batdel')>全选 <input type=""submit"" value=""批量删除选定的图片"" onclick=""return confirm('确实要删除选定的图片吗?');""></td></tr></form>")
response.Write "</table>"
else
Response.Write("<table width=100% align=center><tr><td align=center>无图片</td></tr></table>")
end if
End Sub
'--------------------------------------------------------------------------------------------------------
Sub gCommentManage(id)
Dim sql,rs
sql = "Select ThumbPhotoPath,PhotoPath From gPhotos Where id=" & id
if not IsObject(conn) then ConnectionDatabase
set rs=conn.execute(sql)
%>
<table width="100%" class="tableborder">
<form name="cbatdel" action="?action=cbatdel" method="post">
<tr class="header">
<td colspan="2">评论管理</td>
</tr>
<tr>
<td align="center" colspan="2"><img width=100 src="../photos/<%=rs(0)%>" onerror=this.src="../photos/<%=rs(1)%>" /></td>
</tr>
<%
rs.close:Set rs = Nothing
sql = "Select id,Comment From gComment Where pid=" & id
set rs=conn.execute(sql)
if not(rs.bof and rs.eof) then
do while not rs.eof
Response.write("<tr><td width=""5%""><input type=""checkbox"" name=""cbatdel"" value=""" & rs(0) & """></td><td>" & rs(1) & "</td></tr>")
rs.MoveNext
Loop
End IF
rs.close:Set rs = Nothing
%>
<tr><td colspan="2"><input type="checkbox" name="ccbatdel" onclick=sel('cbatdel')>全选 <input type="submit" value="批量删除选定的评论" onclick="return confirm('确实要删除选定的评论吗?');"></td></tr>
</form>
</table>
<%
End Sub
'--------------------------------------------------------------------------------------------------------
%>