📄 aa_cret.asp
字号:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Dim UserEmail
Selectkey=replace(Request.form("Selectkey"),"'","")
sId=replace(Request.Querystring("sId"),"'","")
sAction=Request("sAction")
Select Case Action
Case "Manage"
Page_BootmName="评论管理"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF sId=1 THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products where Products_Id=" & bId
Rs.open Sql,Conn,1,1
Page_BootmName="<A HREF=Aa_Products.asp?Action=S&Id=" & bId & ">" & Rs("Products_Name") & "</A>"
Rs.Close
Set Rs=Nothing
End IF
IF sId=2 THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_News where News_Id=" & bId
Rs.open Sql,Conn,1,1
Page_BootmName="<A HREF=Aa_News.asp?Action=S&Id=" & bId & ">" & Rs("News_Title") & "</A>"
Rs.Close
Set Rs=Nothing
End IF
If sId=3 THEN
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Down where Down_Id=" & bId
Rs.open Sql,Conn,1,1
Page_BootmName="<A HREF=Aa_Down.asp?Action=S&Id=" & bId & ">" & Rs("Down_Name") & "</A>"
Rs.Close
Set Rs=Nothing
End IF
Page_BootmName="评论管理 > " & Page_BootmName
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Cret Where Cret_Class=" & sId & " And Cret_ClassId=" & bId & " order by Cret_Date desc"
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
Response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_User where User_Id=" & Rs_Manage("Cret_UserId")
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
UserName=Rs("User_Name")
UserEmail=Rs("User_Email")
Set Rs_c=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Groud where Groud_Id=" & Rs("User_Group")
Rs_c.open Sql,Conn,1,1
UserGroup=Rs_c("Groud_Name")
Rs_c.Close
Set Rs_c=Nothing
Else
UserGroup="未注册用户"
UserName=""
End IF
Rs.Close
Set Rs=Nothing
IF Rs_Manage("Cret_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Cret.asp?Action=Delall'><TR CLASS=Table8><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD WIDTH=75% valign=top><a NAME='" & Rs_Manage("Cret_Id") & "'>用 户 名：" & UserGroup & " -- " & UserName & "<br>评论内容：" & Rs_Manage("Cret_Content") & "</TD><TD WIDTH=1 CLASS=Table6></TD><TD valign=top>评 级：<IMG SRC=" & Rs_Manage("Cret_Lin") & "><br>评论时间：" & Rs_Manage("Cret_Date") & "<br>I P 地址：" & Rs_Manage("Cret_Ip") & "<br>来自地区：" & Rs_Manage("Cret_Ress") & "</TD></TR></TABLE></TD></TR>"
IF sAction="Edit" THEN
IF Rs_Manage("Cret_Id")=int(Id) THEN
strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000><TEXTAREA NAME=Cret_AdminContent cols=60 rows=10 id=Cret_AdminContent>" & Rs_Manage("Cret_AdminContent")
strIfa = strIfa & "</TEXTAREA><input name=ToEmailContent type=hidden id=ToEmailContent value='" & replace(replace(replace(Web_Const(73),"{Cret_Date}",YearDami(Rs_Manage("Cret_Date"))),"{Add_Name}",Rs_Manage("Cret_AddName")),"{Web_Url}","<A HREF=" & Web_Const(1) & "/Cretall.asp?bId=" & Rs_Manage("Cret_Class") & "&Id=" & Rs_Manage("Cret_ClassId") & " target=_blank>" & Web_Const(1) & "/Cretall.asp?bId=" & Rs_Manage("Cret_Class") & "&Id=" & Rs_Manage("Cret_ClassId") & "</A>") & "'><INPUT TYPE=checkbox NAME=ToEmail VALUE='1' CLASS='radio_all' "
IF UserEmail="" or Web_Const(61)=0 THEN
strIfa = strIfa & " disabled "
End IF
strIfa = strIfa & "> Email通知 <INPUT TYPE=checkbox NAME=ToMess VALUE='1' CLASS='radio_all' "
IF Rs_Manage("Cret_UserId")=0 THEN
strIfa = strIfa & " disabled "
End IF
strIfa = strIfa & "> 短信通知 <INPUT TYPE=submit CLASS='submit_all' NAME=Edit VALUE=' 回 复 ' onClick=" & CHR(34) & "this.form.action='Aa_Cret.asp?Action=Edit&Id=" & Rs_Manage("Cret_Id") & "';this.form.submit()" & CHR(34) & "></FONT> HTML支持</TD></TR></TABLE></TD></TR>"
End IF
End IF
IF Rs_Manage("Cret_AdminContent")<>"" THEN
IF Rs_Manage("Cret_Id")<>int(Id) THEN
strIfa = strIfa & "<TR><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=10><TR><TD><FONT COLOR=b50000>管理员" & Rs_Manage("Cret_AdminName") & "于" & Rs_Manage("Cret_AdminDate") & "回复：<br>" & Rs_Manage("Cret_AdminContent") & "</FONT></TD></TR></TABLE></TD></TR>"
End IF
End IF
strIfa = strIfa & "<TR><TD HEIGHT=25 ALIGN=right CLASS=Table9><A HREF=Aa_Cret.asp?Action=Manage&sAction=Edit&sId=" & sId & "&bId=" & bId & "&Id=" & Rs_Manage("Cret_Id") & "#" & Rs_Manage("Cret_Id") & "><FONT COLOR=ff0000><B>在线回复</B></FONT></A> | <A HREF=Aa_Cret.asp?Action=Flag&Id=" & Rs_Manage("Cret_Id") & ">" & TitleFlag & "</A> | <A HREF=Aa_Cret.asp?Action=Del&Id=" & Rs_Manage("Cret_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | <INPUT TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Cret_Id") & " CLASS='radio_all'> </TD></TR><TR><TD HEIGHT=1 CLASS=Table10></TD></TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR><TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox NAME=chkall CLASS='radio_all' VALUE=on onclick=CheckAll(this.form)> 选择全部 <INPUT TYPE=submit NAME=Submit VALUE=' 删除 ' CLASS='Submit_all' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> <INPUT TYPE=submit CLASS='Submit_all' NAME=FlagOk VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='Aa_Cret.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> <INPUT TYPE=submit CLASS='Submit_all' NAME=FlagNo VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='Aa_Cret.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "></TD></TR></form><TR><TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR></TABLE>"
Call Page_aTable(0,1)
Case "Edit"
IF request.form("Cret_AdminContent")="" THEN
Errorst="请输入回复内容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Cret where Cret_Id=" & Id
Rs.Open Sql,Conn,1,3
Rs("Cret_AdminContent")=request.form("Cret_AdminContent")
Rs("Cret_AdminDate")=Now()
Rs("Cret_AdminAdd")=session("Loginuser")
Rs.UpDate
Content_E=Request.form("ToEmailContent") & request.form("Cret_AdminContent")
Title_E=Rs("Cret_AddName") & "您好，您发表的评论已经有回复了！"
Set Rs_c=server.createobject("adodb.recordset")
Sql="Select * From Tx_User Where User_Id=" & Rs("Cret_UserId")
Rs_c.open Sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
IF request.form("ToMess")=1 THEN
Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
End IF
IF Web_Const(61)=1 THEN
IF request.form("ToEmail")=1 THEN
Content_E=Content_E & "<BR><BR>" & Web_Const(68)
SendEmail Rs_c("User_Email"),Title_E,Content_E,Web_Const(62)
End IF
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
Rs.Close
Set Rs=Nothing
ToHistory=VisitorsForm
saveok="已回复！"
Call Form_Saveok()
End IF
Case "Del"
Conn.Execute "Delete From Tx_Cret Where Cret_Id=" & Id
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
Case "Delall"
IF request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Cret Where Cret_Id in (" & request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
End IF
case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Cret where Cret_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Cret_Flag")=1 THEN
Rs("Cret_Flag")=0
saveok="已取消审核！"
Else
Rs("Cret_Flag")=1
saveok="已通过审核！"
End IF
Rs.update
Rs.close
Set Rs=nothing
ToHistory=VisitorsForm
Call Form_Saveok()
case "FlagallOk"
IF request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Cret Set Cret_Flag=1 Where Cret_Id in (" & request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通过审核！"
Call Form_Saveok()
End IF
case "FlagallNo"
IF request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Cret Set Cret_Flag=0 Where Cret_Id in (" & request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已取消审核！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -