movie_type_add.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

<%Admin="DownType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_Movie.asp"-->
<%
'#################################################################
'#  晓宇听幽网站内容管理系统(xoYu CMS)
'# 
'#  版权所有: 晓宇听幽工作室
'#
'#  制作人  :  xoyu(晓宇)            
'#           
'#  主页地址: http://www.xoYu.com	    晓宇听幽工作室
'#  论坛地址: http://www.xoYu.com/bbs/	晓宇听幽讨论区
'#
'#【版权声明】
'#################################################################
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 电影名称：晓宇听幽网站内容管理系统·电影管理系统
'# 英文名称：xoYu News 2004 Professional For xoYu CMS
'# 电影创建时间：2003-7-10
'# 电影完成时间：2003-9-11
'# 最后修改时间：2003-11-15
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛(http://www.xoyu.com/bbs/)告诉我们。 
'#################################################################
if request("id")<>"" then
  tname=""&request("tname")&""&request("tname_add")&"|"
else
  tname=""&request("tname_add")&"|"
end if

if request("id")<>"" then
  tj=request("tj")+1
else
  tj="1"
end if

if request("tname_add")="" then errmsg=errmsg & "<li>类别名不能为空!</li>"
Set rsc = Conn.Execute("select * from Movietype where tname= '" & tname & "'")
if not rsc.eof then errmsg=errmsg & "<li>当前目录已有相同的类别名!</li>"
if errmsg<>"" then
    Conn.Close
    Set conn = nothing
    Set rsc = nothing
    response.write("" & errmsg & "<br><Br><A href='javascript:history.go(-1)' style='text-decoration: none'><<后退</a>")
    response.end
end if
set rst=server.CreateObject("ADODB.RecordSet")

			rst.open "select * from Movietype",conn,3,2
			rst.addnew
			rst("tname")=tname
			if request("id")<>"" then
			  rst("tn")=request("id")
			end if
			rst("tj")=tj
			rst.update
			rst.close
			set rsedit=server.CreateObject("ADODB.RecordSet")
			rsedit.open "select * from Movietype order by id desc",conn,1,3
			rsedit("ts")=""&request("ts")&""&rsedit("id")&","
			rsedit.Update
			rsedit.close
            response.redirect "Movie_List.asp?id="&request("id")&""
set rst=nothing
conn.close
set conn=nothing%>