📄 addnext.asp
字号:
<%Response.Buffer=true%>
<%
'修改：
'时间：
'模板设计：秦怀平(jincao@yeah.net)
'开发时间：2000.12
%>
<!--#include file="../include/odbc.asp" -->
<!--#include file="../include/killStr.asp" -->
<!--#include file="../include/checkUser.asp" -->
<!--#include file="../include/checkServer.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Qinhp NetModel Generator">
<meta name="Author" content="QinHuaiPing(秦怀平)">
<link rel="stylesheet" href="../script/style.css" type="text/css">
<%
imageUp=0
set rs=server.CreateObject("adodb.recordset")
if request("submit")<>"" then
sql="news2_photo"
rs.open sql,conn,3,3
rs.addnew
set rsl=server.CreateObject("adodb.recordset")
if trim(request("photoid"))<>"newteam" then
if request("photoId")="" then
response.write "数据保存出错！原因：图片编号不允许为空！请选中新组!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
sqll="select * from news2_photo where left(photoId,6)='"&left(killStr(request("photoId")),6)&"' order by photoid desc"
rsl.open sqll,conn,3,1
if not rsl.eof then
photoid=right("0000000000"&cstr(clng(rsl("photoid")+1)),10)
end if
rsl.close
rs("photoId")=photoId
else '增加新组
sqll="select * from news2_photo where right(photoId,4)='0000' order by photoid desc"
rsl.open sqll,conn,3,1
if rsl.eof then
photoid="0000010000"
else
photoid=right("0000000000"&cstr(clng(rsl("photoid")+10000)),10)
end if
rsl.close
rs("photoId")=photoId
end if
if request("picMenuId")="" and request("picMenuId2")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
if request("picMenuId")="" then
rs("picMenuId")=killStr(request("picMenuId2"))
else
rs("picMenuId")=killStr(request("picMenuId"))
end if
if request("photoTitle")="" then
response.write "数据保存出错！原因：特定字段不允许为空!<a href=javascript:history.back()>按此返回</a>"
response.end
end if
rs("photoTitle")=left(rtrim(killStr(request("photoTitle"))),100)
rs("contents")=left(rtrim(killStr(request("contents"))),250)
'如果出错，请检查下面的语句。
if killStr(request("regTime"))="" then
rs("regTime")=now()
else
rs("regTime")=killStr(request("regTime"))
end if
rs.update
response.redirect "upLoadImg.asp?photoid="&photoid
rs.close%>
<script language=javascript>
alert("输入成功！");
//location.href =history.back();
</script>
<%end if%>
<script src="../script/trim.js" language="JavaScript"></script>
<script src="../script/validdate.js" language="JavaScript"></script>
<script language='JavaScript'>
function check(form1){
if (trim(form1.photoTitle.value)=='')
{alert('字段标题不允许为空!');
form1.photoTitle.focus();
form1.photoTitle.select();
return (false);
}
if (trim(form1.contents.value).length>230)
{alert('图片说明超长！');
form1.photoTitle.focus();
form1.photoTitle.select();
return (false);
}
}
</script>
</head>
<body bgcolor="#FFFFE0">
<%
set rsSelect=server.CreateObject("adodb.recordset")
sqlSelect ="select picMenuId,picMenuName from news2_picMenu where picmenuid='"&request("picmenuid")&"' and right(picmenuid,3)='000' "
rsSelect.open sqlSelect,conn,3,1
%>
<form method=POST action=<% =request.servervariables("path_info")%> name=add onsubmit="return check(this);">
<p align=center><b><font size=4 color=#0000FF><u>图片信息数据添加</u></font></b></p>
<div align=center><center>
<table style="border: 1 solid #0000FF" width=85%>
<%if not rsselect.EOF then%><tr>
<td style="border: 1 solid #0000FF" align=right>所属一级图片栏目:</td>
<td style="border: 1 solid #0000FF"><%=rsselect("picmenuname")%>
<input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid></td>
</tr><%end if
rsselect.Close
sqlSelect ="select picMenuId,picMenuName from news2_picMenu where picmenuid='"&request("picmenuid")&"' and right(picmenuid,3)<>'000'"
rsSelect.open sqlSelect,conn,3,1
if not rsselect.EOF then
%>
<tr>
<td style="border: 1 solid #0000FF" align=right>所属二级图片栏目:</td>
<td style="border: 1 solid #0000FF">
<input type=hidden value=<%=rsSelect("picMenuId")%> name=picmenuid2><%=rsSelect("picMenuName")%>
</td>
</tr><%
end if
rsSelect.close
%>
<tr>
<td style="border: 1 solid #0000FF" align=right>所属图片专辑(组):</td>
<td style="border: 1 solid #0000FF">
<%sqlSelect ="select photoId,phototitle from news2_photo where photoid='"&left(request("photoid"),6)&"0000' "
rsSelect.open sqlSelect,conn,3,1
if rsselect.EOF then
Response.Write "增加新专辑(组)"&"<input type=hidden name=photoid value=newteam>"
else
Response.Write rsSelect("phototitle")&"<input type=hidden name=photoid value="&rsSelect("photoid")&">"
end if
%>
</td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>标题:</td>
<td style="border: 1 solid #0000FF"><input type=Text name=photoTitle size=20 maxLength=100></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" align=right>图片说明:</td>
<td style="border: 1 solid #0000FF"><textarea name=contents cols=40 rows=4></textarea></td>
</tr>
<tr>
<td style="border: 1 solid #0000FF" colspan=2 align=center><input type=submit value=' 确定 ' name=submit> <input type=reset value=' 重写 ' name=reset></td>
</tr>
</table>
</center></div>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -