bbs_edit.asp

来自「是一个关于小学信息化教育的平台,提供了学校论坛,和聊天室功能!」· ASP 代码 · 共 525 行 · 第 1/2 页

<!--#include file="../../include/db.asp"-->
<!--#include file="../../include/admin_check.asp"-->
<!--#INCLUDE FILE="power.ASP"-->
<%
function Deal(initstring)
	tempstring=replace(initstring,chr(39),"’")
	tempstring=Replace(tempstring,"<","&lt;")
	tempstring=Replace(tempstring,">","&gt;")
	tempstring=replace(tempstring,chr(34),"“")
	tempstring=replace(tempstring,chr(32),"&nbsp;")	
	deal=(tempstring)
end function

function Dealname(mystring)
if not mystring="" then
    arrName=split(Cstr(mystring),chr(34))

Dealname=arrName(1)
else
Dealname=""
end if
end function

function SpaceDeal(initstring)
	tempstring=replace(initstring,"&nbsp;",chr(32))
	Spacedeal=(tempstring)
end function


Set conn = OpenOrGet_Database("sql_conn")
act=trim(request("action"))

id=trim(request("id"))

selectsql="select * from bbs_type where id='"&id&"'"
set rs=open_rs(conn,selectsql)

'对数据库操作 新增
if act="add" and id="" then
	rs.addnew
	
	set ff=Server.CreateObject("LyfUpload.UploadFile")
	
	selectsql="select id from bbs_type where name='"&trim(ff.request("name"))&"'"
	set checkRs=open_rs(conn,selectsql)
	
	if not(checkrs.eof and checkrs.bof) then
	  Response.Write "<script language=javascript>"
   	  Response.Write "alert('用同名的论坛，请重新操作！');"
    	  Response.Write "history.go(-1);"
    	  Response.Write "</script>"
	  Response.End			
	end if
	rs("name")=transvalue(trim(ff.request("name")))	
	
	ff.maxsize=100000
	path=server.mappath("../../bbs/images/bbslogo/")
'----------------------------------------deal attach01

if not dealname(ff.Request("picurl"))="" then
if instr(lcase(ff.Request("picurl")),".gif") or instr(lcase(ff.Request("picurl")),".jpg") or instr(lcase(ff.Request("picurl")),".bmp") then
	ss=ff.SaveFile("picurl",path,false)
	if ss= "0" then
				%>
				<script language="javascript">
				<!--
					alert("图片：文件尺寸不应超过100K，请选择文件后重新上传");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
	if ss= "3" then
				%>
				<script language="javascript">
				<!--
					alert("图片：服务器上已经有同名的文件，请选择文件后重新上传");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
	if ss = "" then
				%>
				<script language="javascript">
				<!--
					alert("图片：文件上传失败！！");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
else
				%>
				<script language="javascript">
				<!--
					alert("图片：文件必须为.bmp 文件或.jpg 文件或.gif 文件！！");
					window.history.back(1);
				-->
				</script>
				<%
response.end

end if
end if

downdir=""
if not ss="" then
	downdir=ss
	conn.execute("insert into bbs_logo(name) values('"&downdir&"')")
	selectsql="select top 1 id from bbs_logo order by id desc"
	set newLogoRs=open_rs(conn,selectsql)
	downdir=newLogoRs("id")
end if

if downdir="" then
	downdir=trim(ff.request("logo"))
end if	

	rs("title")=transvalue(trim(ff.request("title")))
	rs("logo")=downdir
	rs.update
	
	  Response.Write "<script language=javascript>"
   	  Response.Write "alert('操作成功！');"
    	  Response.Write "window.location.href='index.asp?myjoke=1';"
    	  Response.Write "</script>"
	  Response.End		
end if

'对数据库操作 修改
if act="add" and id<>"" then
	if rs.eof and rs.bof then
	  Response.Write "<script language=javascript>"
   	  Response.Write "alert('该记录已经不存在，请重新操作！');"
    	  Response.Write "history.go(-1);"
    	  Response.Write "</script>"
	  Response.End		
	end if
	
		set ff=Server.CreateObject("LyfUpload.UploadFile")
	
	selectsql="select id from bbs_type where name='"&trim(ff.request("name"))&"'"
	set checkRs=open_rs(conn,selectsql)
	
	if (not(checkrs.eof and checkrs.bof)) then
		if  checkRS("id")<>cint(id) then
			Response.Write "<script language=javascript>"
   	  		Response.Write "alert('用同名的论坛，请重新操作！');"
    	  		Response.Write "history.go(-1);"
    	  		Response.Write "</script>"
	  		Response.End			
	  	end if
	end if
	rs("name")=transvalue(trim(ff.request("name")))	
	
	ff.maxsize=100000
	path=server.mappath("../../bbs/images/bbslogo/")
'----------------------------------------deal attach01

if not dealname(ff.Request("picurl"))="" then
if instr(lcase(ff.Request("picurl")),".gif") or instr(lcase(ff.Request("picurl")),".jpg") or instr(lcase(ff.Request("picurl")),".bmp") then
	ss=ff.SaveFile("picurl",path,false)
	if ss= "0" then
				%>
				<script language="javascript">
				<!--
					alert("图片：文件尺寸不应超过100K，请选择文件后重新上传");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
	if ss= "3" then
				%>
				<script language="javascript">
				<!--
					alert("图片：服务器上已经有同名的文件，请选择文件后重新上传");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
	if ss = "" then
				%>
				<script language="javascript">
				<!--
					alert("图片：文件上传失败！！");
					window.history.back(1);
				-->
				</script>
				<%
response.end
	end if
else
				%>
				<script language="javascript">
				<!--
					alert("图片：文件必须为.bmp 文件或.jpg 文件或.gif 文件！！");
					window.history.back(1);
				-->
				</script>
				<%
response.end

end if
end if

downdir=""
if not ss="" then
	downdir=ss
	conn.execute("insert into bbs_logo(name) values('"&downdir&"')")
	selectsql="select top 1 id from bbs_logo order by id desc"
	set newLogoRs=open_rs(conn,selectsql)
	downdir=newLogoRs("id")
end if


if downdir="" then
	downdir=trim(ff.request("logo"))
end if	

	rs("title")=transvalue(trim(ff.request("title")))	
	rs("logo")=downdir
	rs.update
	
	  Response.Write "<script language=javascript>"
   	  Response.Write "alert('操作成功！');"
    	  Response.Write "window.location.href='index.asp?myjoke=1';"
    	  Response.Write "</script>"
	  Response.End		
end if



if rs.bof and rs.bof then
	rs.addnew
end if

'检索“BBS logo”图片，从bbs_logo表检索所有图片
selectsql="select * from bbs_logo order by id"
set logoRs=open_rs(conn,selectsql)

%>
<html>
<head>
<title>深圳育才一小欢迎您！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/include/page.css" type="text/css">
</head>

<body >
<table width="1" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <table width="753" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><!--#include file="../../include/admin_banner.inc"--></td>