📄 content_modi.asp
字号:
alert("图片4：文件必须为.bmp 文件或.jpg 文件或.gif 文件！！");
window.history.back(1);
-->
</script>
<%
response.end
end if
end if
'------------------------------------------------------------deal attach05
if not dealname(ff.Request("picurl05"))="" then
if instr(lcase(ff.Request("picurl05")),".gif") or instr(lcase(ff.Request("picurl05")),".jpg") or instr(lcase(ff.Request("picurl05")),".bmp") then
ss5=ff.SaveFile("picurl05",path,false)
if ss5= "0" then
%>
<script language="javascript">
<!--
alert("图片5：文件尺寸不应超过200K，请选择文件后重新上传");
window.history.back(1);
-->
</script>
<%
response.end
end if
if ss5= "3" then
%>
<script language="javascript">
<!--
alert("图片5：服务器上已经有同名的文件，请选择文件后重新上传");
window.history.back(1);
-->
</script>
<%
response.end
end if
if ss5 = "" then
%>
<script language="javascript">
<!--
alert("图片5：文件上传失败！！");
window.history.back(1);
-->
</script>
<%
response.end
end if
else
%>
<script language="javascript">
<!--
alert("图片5：文件必须为.bmp 文件或.jpg 文件或.gif 文件！！");
window.history.back(1);
-->
</script>
<%
response.end
end if
end if
'-----------------------------------------------------insert into database
'response.write ff.Request("picurl02")
'response.end
downdir=Rs("attach")
if not ss="" then
'downdir="doc/"&ss
downdir=ss
end if
if not ss2="" then
if downdir<>"" then
downdir=downdir&",doc/"&ss2
else
downdir=ss2
end if
end if
if not ss3="" then
if downdir<>"" then
downdir=downdir&",doc/"&ss3
else
downdir=ss3
end if
end if
if not ss4="" then
if downdir<>"" then
downdir=downdir&",doc/"&ss4
else
downdir=ss4
end if
end if
if not ss5="" then
if downdir<>"" then
downdir=downdir&",doc/"&ss5
else
downdir=ss5
end if
end if
if downdir<>"" and rs("attach")="" then
downdir="doc/"&downdir
end if
title=transvalue(ff.request("title"))
content=transvalue(ff.request("content"))
apply_name=ff.request("apply_name")
if len(ff.request("type"))=1 then
depart_number="0"&ff.request("type")
else
depart_number=ff.request("type")
end if
apply_time=now
'response.end
conn.execute "update content set title='"&title&"',content='"&content&"',user_name='"&apply_name&"',type_id='"&depart_number&"',attach='"&downdir&"' where id='"&rs("id")&"'"
Response.Write "<script language=javascript>"
Response.Write "alert('操作成功！！');"
Response.Write "window.location.href='content.asp?myjoke=1&type="&trim(ff.request("type"))&"&act=search';"
Response.Write "</script>"
Response.End
end if
%>
<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>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"> </td>
<td width="99%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td id="td1"> </td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" valign="top"><!--#include file="../../include/admin_left.inc"--></td>
<td width="2%" valign="top"> </td>
<td width="77%" height=1 valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td background="/images/middle/m-bg.gif" width="70"><img src="/images/wzgl.gif"></td>
<td background="/images/middle/m-bg.gif" align="right"><img src="/images/middle/pacer1.gif" width="3" height="38"></td>
<td background="/images/middle/m-bg.gif" align="right" valign="middle" width="16"><a href=# onClick="more()"><img src="/images/middle/more.gif" width="16" height="16" border=0 alt="更多"></a></td>
<td background="/images/middle/m-bg.gif" align="right" width="8"><img src="/images/middle/pacer.gif" width="8" height="38"></td>
<td background="/images/middle/m-bg.gif" align="right" valign="middle" width="16"><a href=# onClick="help()"><img src="/images/middle/help.gif" width="16" height="16" border=0 alt="栏目帮助"></a></td>
<td width="6" align="right"><img src="/images/middle/M-r.gif" width="16" height="38"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="bg-left" width="6"><img src="/images/left/l-l.gif" border=0></td>
<td class="newsborder" width="100%" >
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="170" valign="top">
<table border="0" cellpadding="0" cellspacing="1" width="100%" height="100%">
<tr>
<td>
<table border=0 cellpadding=0 cellspacing=0 align="center" width="100%" height="100%">
<form name=dataform method=post action='<%=Request.ServerVariables("PATH_INFO")%>?action=modi&id=<%=rs("id")%>' enctype='multipart/form-data'>
<tr>
<td class=tdsmall noWrap valign=top bgcolor="#f0f0e8" width="70">
<p><br>
<b>项目名：</b></p>
</td>
<td bgcolor="#f0f0e8" class="tdsmall" colspan="2">
<select name="type" class="textfield">
<% for i=1 to itemRs.recordcount
' 检索itemrs 中的栏目是不是根栏目，或是在管理员的可以管理的权限中
if len(itemRs("number"))=2 or session("adm_power")="1" or instr(session("content_admin"),"/"&itemRs("number")&"/")<>0 then
selectname=transvalue(itemrs("name"))
j=len(trim(itemrs("number")))/2
for j=1 to j-1
selectname="--"&selectname
next
if itemRs("number")=rs("type_id") then
%>
<option value="<%=itemRs("number")%>" selected><%=selectname%></option>
<%
else
%>
<option value="<%=itemRs("number")%>"><%=selectname%></option>
<% end if
end if
itemRs.movenext
next %>
</select>
</td>
</tr>
<tr>
<td class=tdsmall noWrap valign=top bgcolor="#f0f0e8" width="70"><br>
<b>标题：</b></td>
<td bgcolor="#f0f0e8" class="tdsmall" colspan="2">
<p>
<input name=title type=text value='<%=rs("title")%>' style='HEIGHT: 22px; WIDTH: 150px' class='edline' maxlength="50" >
</p>
</td>
</tr>
<tr>
<td class=tdsmall noWrap valign=top bgcolor="#f0f0e8" width="70"> <b>
<br>
内容：</b></td>
<td bgcolor="#f0f0e8" class="tdsmall" colspan="2">
<p><br>
<textarea class=ttsmall name=content style="HEIGHT: 120px; WIDTH:280px" ><%=SpaceDeal(rs("content"))%></textarea>
<br>
<br>
</p>
</td>
</tr>
<%
dim attachArr(5)
attachArray=split(rs("attach"),",")
for i=0 to ubound(attachArray)
attachArr(i)=attachArray(i)
next
%>
<tr>
<td class=tdsmall noWrap valign=top bgcolor="#f0f0e8" width="70"><b><br>
图片1：</b></td>
<td bgcolor="#f0f0e8" class="tdsmall">
<% if attachArr(0)="" then %>
<input type='file' name='picurl01' style='height:22px;width:240px' class='edline' >
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -