addzp.asp

一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码:admin888

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="top.asp"-->
<%
response.Write("<table border=0 align=center cellpadding=3 cellspacing=1 class=tablecolor>")
response.Write("<tr><td height=25 align=center class=banner>作品管理</td><td width='20%' align=center class=banner><a href=addzp.asp>添加数据</a></td></tr></table>")
select case request("action")
case "savezp"
call savezp()
case else
call normal()
end select
sub normal()
dim id,sname,surl,spic,sdate,mail,Content,sn,istop
id=request.QueryString("id")
if id<>"" then
dim rs
set rs=conn.execute("select * from succeed where id="&clng(id))
if rs.bof and rs.eof then
response.Write("<script>alert('该条记录不存在或者已被删除！');history.back()</script>")
response.End()
end if
sname=rs("sname")
surl=rs("surl")
spic=rs("spic")
sdate=rs("sdate")
mail=rs("mail")
Content=rs("Content")
sn=rs("sn")
istop=rs("istop")
rs.close
set rs=nothing
end if
response.Write("<script src='../inc/ubbcode.js'></script>")
response.Write("<table border='0' align='center' cellpadding='3' cellspacing='1' class='tablecolor'>")
response.Write("<form action='?action=savezp' method=POST name=frmAnnounce>")
response.Write("<tr><td width='30%' class='tablebody'><strong>ID</strong></td><td class='tablebody'>"&id&"</td></tr>")
response.Write("<tr><td width='30%' class='tablebody'><strong>排序</strong></td><td class='tablebody'><input name=sn class=FormClass value='"&sn&"' maxlength=10 size=2>&nbsp;(首页调用的数字图标)</td></tr>")
response.Write("<tr><td width='30%' class='tablebody'><strong>最新推荐</strong></td><td class='tablebody'><input name='istop' type='checkbox' value='1'")
if istop=1 then response.write("checked") end if
response.write(">&nbsp;(在首面推荐的作品中显示 <img src=../images/new.gif> 的图标)</td></tr>")
response.Write("<tr><td width='30%' class='tablebody'><strong>项目名称</strong></td><td class='tablebody'><input name=sname class=FormClass value='"&sname&"' maxlength=255></td></tr>")
response.Write("<tr><td class='tablebody'><strong>项目网址</strong></td><td class='tablebody'><input name='surl' type='text' id='surl' value='"&surl&"' maxlength='255'></td></tr>")
response.Write("<tr><td class='tablebody' style='font-weight: bold'>缩 略 图</td><td class='tablebody'><iframe name='ad' frameborder=0 width='100%' height=24 scrolling=no src='s_upload.asp?action=spic'></iframe></td></tr>")
response.Write("<tr><td class='tablebody'><strong>图片地址</strong></td><td class='tablebody'><input name='spic' type='text' id='spic' value='"&spic&"' maxlength='255'></td></tr>")
response.Write("<tr><td class='tablebody'><strong>开发日期</strong></td><td class='tablebody'><input name='sdate' type='text' id='sdate' value='"&sdate&"' maxlength='50'></td></tr>")
response.Write("<tr><td class='tablebody'><strong>联系客户</strong></td><td class='tablebody'><input name='mail' type='text' id='mail' value='"&mail&"' maxlength='50'></td></tr>")
response.Write("<tr><td valign='top' class='tablebody'><b>项目介绍</b><br><li>HTML标签：√<li>UBB标签：√<li>贴图标签：×<li>多媒体标签：×<p><br><br></p></td>")
response.Write("<td valign='top' class='tablebody'>")
%>
<!--#include file="../inc/getubb.asp"-->
<%
response.Write("<textarea  cols=60 name=Content rows=12 wrap=VIRTUAL>"&Content&"</textarea></td></tr>")
response.Write("<tr><td align='center' class='tablebody'>&nbsp;</td><td class='tablebody'><input type='hidden' name='id' value='"&id&"'><input type=Submit value='发 表' name=Submit>&nbsp;<input type=reset name=Submit2 value='清 除'>&nbsp; <a href='succeed.asp'>返回列表</a></td></tr></form></table>")
end sub
sub savezp()
dim id,sname,surl,spic,sdate,mail,Content,sn,istop
id=request.Form("id")
sname=checkStr(request.Form("sname"))
surl=checkStr(request.Form("surl"))
spic=checkStr(request.Form("spic"))
sdate=checkstr(request.Form("sdate"))
mail=checkstr(request.Form("mail"))
Content=checkstr(request.Form("Content"))
sn=checkstr(request.form("sn"))
istop=checkstr(request.form("istop"))
if istop="" then
istop=0
end if
if sname="" then
response.Write("<script>alert('项目名称不能为空！');history.back()</script>")
response.End()
end if
if surl="" then
response.Write("<script>alert('项目地址不能为空！');history.back()</script>")
response.End()
end if
If sn="" then
sn=0
end if
if not isnumeric(sn) then
response.Write("<script>alert('排序错误:非数字型字段！');history.back()</script>")
response.End()
end if
dim ip
ip=Request.ServerVariables("HTTP_REFERER")
if id<>"" then
conn.execute("update succeed set sname='"&sname&"',surl='"&surl&"',spic='"&spic&"',sdate='"&sdate&"',mail='"&mail&"',sn="&sn&",Content='"&Content&"',istop="&istop&" where id="&clng(id)&"")
response.Write("<script>alert('更新成功！');location='"&ip&"'</script>")
response.End()
else
conn.execute("insert into succeed (sname,surl,spic,sdate,mail,Content,sn,istop) values('"&sname&"','"&surl&"','"&spic&"','"&sdate&"','"&mail&"','"&Content&"',"&sn&","&istop&")")
response.Write("<script>alert('添加成功！');location='"&ip&"'</script>")
response.End()
end if
end sub
%>
<%CloseConn%>
<!--#include file="end.asp"-->