📄 aa_picture.asp

📁 强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。开通会员注册和产品
💻 ASP
字号:
 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Select Case Action
Case "Picture"
Call Page_AdminFlag(62)
Page_BootmName="用户头像管理"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<TR ALIGN=center>"&_
         "<TD WIDTH=22% HEIGHT=23 CLASS=Table6>头像</TD>"&_
         "<TD WIDTH=28% HEIGHT=23 CLASS=Table6>名称</TD>"&_
         "<TD WIDTH=28% HEIGHT=23 CLASS=Table6>地址</TD>"&_
         "<TD CLASS=Table6>操作</TD>"&_
         "</TR>"
		  Set Rs=server.createobject("adodb.recordset")
		  Sql="Select * from Tx_Picture order by Picture_Id"
		  Rs.Open Sql,Conn,1,1
		  while not Rs.eof
strIfa = strIfa & "<form NAME=form method=post action='Aa_Picture.asp?Action=PictureEdit&Id=" & Rs("Picture_Id") & "'>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8 ALIGN=center><A HREF='" & Rs("Picture_Url") & "' target='_blank'><IMG SRC='" & Rs("Picture_Url") & "' BORDER=0></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=PictureName TYPE=text id=PictureName VALUE='" & Rs("Picture_Name") & "' size=20></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=PictureUrl TYPE=text id=PictureUrl VALUE='" & Rs("Picture_Url") & "' size=20></TD>"&_
         "<TD ALIGN=center CLASS=Table8><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE= 修改 > | <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href='Aa_Picture.asp?Action=PictureDel&Id=" & Rs("Picture_Id") & "'><FONT COLOR=ff0000>删除</FONT></A></TD>"&_
         "</TR>"&_
         "</form>"
		  Rs.moveNext
   		  Wend
		  Rs.Close
		  Set Rs=Nothing
strIfa = strIfa & "<TR>"&_
         "<TD HEIGHT=25 colspan=4 CLASS=Table8>&nbsp;</TD>"&_
         "</TR>"&_
         "<Form NAME=Form method=post action=Aa_Picture.asp?Action=PictureAdd >"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8></TD>"&_
         "<TD HEIGHT=30 CLASS=Table8><INPUT NAME=PictureName TYPE=text id=PictureName size=20></TD>"&_
         "<TD HEIGHT=30 CLASS=Table8><INPUT NAME=PictureUrl TYPE=text id=PictureUrl size=20> <INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=PictureUrl&FileName=Images/Picture','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "<TD ALIGN=center CLASS=Table8><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 添加 '></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "Face"
Call Page_AdminFlag(51)
Page_BootmName="发帖表情管理"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<TR ALIGN=center>"&_
         "<TD WIDTH=22% HEIGHT=23 CLASS=Table6>表情</TD>"&_
         "<TD WIDTH=28% HEIGHT=23 CLASS=Table6>名称</TD>"&_
         "<TD WIDTH=28% HEIGHT=23 CLASS=Table6>地址</TD>"&_
         "<TD CLASS=Table6>操作</TD>"&_
         "</TR>"
		  Set Rs=server.createobject("adodb.recordset")
		  Sql="Select * from Tx_Face order by Face_Id"
		  Rs.Open Sql,Conn,1,1
		  while not Rs.eof
strIfa = strIfa & "<form NAME=form method=post action='Aa_Picture.asp?Action=FaceEdit&Id=" & Rs("Face_Id") & "'>"&_
         "<TR>"&_
         "<TD HEIGHT=50 CLASS=Table8 ALIGN=center><A HREF='" & Rs("Face_Url") & "' target='_blank'><IMG SRC='" & Rs("Face_Url") & "' BORDER=0></A></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=FaceName TYPE=text id=FaceName VALUE='" & Rs("Face_Name") & "' size=20></TD>"&_
         "<TD CLASS=Table8><INPUT NAME=FaceUrl TYPE=text id=FaceUrl VALUE='" & Rs("Face_Url") & "' size=20></TD>"&_
         "<TD ALIGN=center CLASS=Table8><INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE= 修改 > | <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href='Aa_Picture.asp?Action=FaceDel&Id=" & Rs("Face_Id") & "'><FONT COLOR=ff0000>删除</FONT></A></TD>"&_
         "</TR>"&_
         "</form>"
		  Rs.moveNext
   		  Wend
		  Rs.Close
		  Set Rs=Nothing
strIfa = strIfa & "<TR>"&_
         "<TD HEIGHT=25 colspan=4 CLASS=Table8>&nbsp;</TD>"&_
         "</TR>"&_
         "<Form NAME=Form method=post action=Aa_Picture.asp?Action=FaceAdd>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8></TD>"&_
         "<TD HEIGHT=30 CLASS=Table8><INPUT NAME=FaceName TYPE=text id=FaceName size=20></TD>"&_
         "<TD HEIGHT=30 CLASS=Table8><INPUT NAME=FaceUrl TYPE=text id=FaceUrl size=20> <INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=FaceUrl&FileName=Images/Face','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "></TD>"&_
         "<TD ALIGN=center CLASS=Table8><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 添加 '></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(0,0)
Case "PictureAdd"
if Request.form("PictureName")="" THEN
Errorst="请输入头像名称！"
founderr=True
ElseIF Request.form("PictureUrl")="" THEN
Errorst="请输入头像地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Picture"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Picture_Name")=Request.form("PictureName")
		Rs("Picture_Url")=Request.form("PictureUrl")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="已成功添加一个头像！"
	    Call Form_Saveok()
End IF
Case "PictureEdit"
if Request.form("PictureName")="" THEN
Errorst="请输入头像名称！"
founderr=True
ElseIF Request.form("PictureUrl")="" THEN
Errorst="请输入头像地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Picture where Picture_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Picture_Name")=Request.form("PictureName")
		Rs("Picture_Url")=Request.form("PictureUrl")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="已成功修改一个头像！"
	    Call Form_Saveok()
End IF
Case "PictureDel"
    Conn.execute "Delete From Tx_Picture Where Picture_Id=" & Id
		ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
Case "FaceAdd"
if Request.form("FaceName")="" THEN
Errorst="请输入表情名称！"
founderr=True
ElseIF Request.form("FaceUrl")="" THEN
Errorst="请输入表情地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Face"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Face_Name")=Request.form("FaceName")
		Rs("Face_Url")=Request.form("FaceUrl")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="已成功添加一个表情！"
	    Call Form_Saveok()
End IF
Case "FaceEdit"
if Request.form("FaceName")="" THEN
Errorst="请输入表情名称！"
founderr=True
ElseIF Request.form("FaceUrl")="" THEN
Errorst="请输入表情地址！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Face where Face_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Face_Name")=Request.form("FaceName")
		Rs("Face_Url")=Request.form("FaceUrl")
		Rs.UpDate
		Rs.Close
		Set Rs=Nothing
		ToHistory=VisitorsForm
		saveok="已成功修改一个表情！"
	    Call Form_Saveok()
End IF
Case "FaceDel"
    Conn.execute "Delete From Tx_Face Where Face_Id=" & Id
		ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
💿 文件大小 1916 K
👤 上传用户 myhpgnl
📂 所属分类其他
🏷️ 相关标签

#后台 #页 #分类 #用户
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -