admin_allysitesave.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="inc/char.inc"-->
<%
ID=request.QueryString("id")

AllySiteName=trim(request.form("AllySiteName"))
AllySiteUrl=trim(request.form("AllySiteUrl"))
AllySitePic=trim(request.form("AllySitePic"))

founerr=false
act=request("act")
if AllySiteName="" then
founderr=true
errmsg="<br><li>工具名称不能为空</li>"
end if
if AllySitePic="" then
founderr=true
errmsg="<br><li>工具图片地址不能为空</li>"
end if
if AllySiteUrl="" then
founderr=true
errmsg="<br><li>工具下载地址不能为空</li>"
end if

if founderr=true then
call error()
else
	
if act="edit" and id<>"" then
sql="select * from AllySite where ID="&ID
elseif act="add" then
sql="select * from AllySite"
else
errmsg="<br><li>操作错误！请联系管理员</li>"
call error()
response.end
end if
rs.open sql,conn,1,3
if act="add" or act="edit" then
if act="edit" then
if rs.eof then
errmsg="<br><li>操作错误！请联系管理员</li>"
call error()
response.end
end if
end if
if act="add" then
rs.addnew
end if
rs("AllySiteName")=AllySiteName
rs("AllySitePic")=AllySitePic
rs("AllySiteUrl")=AllySiteUrl
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "admin_AllySiteMana.asp"
end if
%>