special_type_add.asp

来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 83 行

<%Admin="InfoType"%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.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
  sname=""&request("sname")&""&request("sname_add")&"|"
else
  sname=""&request("sname_add")&"|"
end if

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

if request("sname_add")="" then errmsg=errmsg & "<li>专题类别名不能为空!</li>"
Set rsc = Conn.Execute("select * from specialx where sname= '" & sname & "'")
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 specialx",conn,3,2
			rst.addnew
			rst("sname")=sname
			rst("MbName")=request("MbName")
			rst("last")=request("last")
			rst("imageshu")=request("imageshu")
			rst("imagelen")=request("imagelen")
			rst("imagewid")=request("imagewid")
			rst("chalen")=request("chalen")
			rst("Imagevshu")=request("Imagevshu")
			rst("imagevlen")=request("imagevlen")
			rst("imagevwid")=request("imagevwid")
			rst("newshuset")=request("newshuset")
			rst("TypePicmore")=request("TypePicmore")
			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 specialx order by id desc",conn,1,3
			rsedit("ts")=""&request("ts")&""&rsedit("id")&","
			rsedit.Update
			rsedit.close
            response.redirect "specialLB.asp?id="&request("id")&""
set rst=nothing
conn.close
set conn=nothing%>