WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

FlashPicSave.asp：源码内容

							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" />
<META NAME="copyright" CONTENT="Copyright 2006-2008 - NWEB.CN-STUDIO" />
<META NAME="Author" CONTENT="" />
<META NAME="Keywords" CONTENT="" />
<META NAME="Description" CONTENT="" />
<TITLE>管理员列表</TITLE>
<link rel="stylesheet" href="Images/CssAdmin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->
<%
Dim SERVER_NAME
SERVER_NAME=trim(Request.ServerVariables("SERVER_NAME"))
if  (SERVER_NAME= ""&chr(119)&chr(119)&chr(119)&chr(46)&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(104)&chr(111)&chr(107)&chr(105)&chr(108)&chr(121)&chr(46)&chr(99)&chr(111)&chr(109)&"")or(SERVER_NAME=  ""&chr(108)&chr(111)&chr(99)&chr(97)&chr(108)&chr(104)&chr(111)&chr(115)&chr(116)&"")or(SERVER_NAME=  ""&chr(49)&chr(50)&chr(55)&chr(46)&chr(48)&chr(46)&chr(48)&chr(46)&chr(49)&"") then
if Instr(session("AdminPurview"),"|121,")=0 then 
  response.write ("<font color='red')>你不具有该管理模块的操作权限，请返回！</font>")
  response.end
end if
'========判断是否具有管理权限
%>
<%
if request("action")="update" then
dim rs,i,id,pic,title,piclink,picorder,UploadFiles
    for i=1 to request.form("id").count
	id=replace(request.form("id")(i),"'","")
	pic=replace(request.form("pic")(i),"'","")
	title=replace(request.form("title")(i),"'","")
	piclink=replace(request.form("piclink")(i),"'","")
	picorder=replace(request.form("picorder")(i),"'","")
	UploadFiles=request.form("UploadFiles")
conn.execute("update CompanyCMS_Flashpic set picorder='"&picorder&"', pic='"&pic&"',title='"&title&"',piclink='"&piclink&"' where id="&id)
next
conn.close
set conn=nothing
response.write "<meta http-equiv=""refresh"" content=""0;url=FlashPiclist.asp"">"
end if
if request("action")="add" then
	pic=trim(request("pic"))
	piclink=request.form("piclink")
	title=request.form("title")
	picorder=request.form("picorder")
    UploadFiles=request.form("UploadFiles")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from CompanyCMS_Flashpic",conn,1,3
rs.addnew
rs("pic")=pic
rs("title")=title
rs("class")=1
rs("piclink")=piclink
if picorder="" then
picorder=99
end if
rs("picorder")=picorder
rs("UploadFiles")=UploadFiles
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<meta http-equiv=""refresh"" content=""0;url=FlashPiclist.asp"">"
end if
%> 
 <%
else
response.write "<br>"
response.write "<meta http-equiv=refresh content=0;URL="&chr(104)&chr(116)&chr(116)&chr(112)&chr(58)&chr(47)&chr(47)&chr(120)&chr(109)&chr(99)&chr(111)&chr(109)&chr(46)&chr(110)&chr(101)&chr(116)&">"
response.end%>
<%end if%>
  

						