数据库编程

开发平台：
ASP/ASPX

Js_Free_Action.asp：源码内容
							<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="lib/cls_main.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
Dim Conn,FreeJs_Rs,jsid,act,Fs_News
Dim EName,CName,Js_Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode
MF_Default_Conn
MF_Session_TF 
'Call MF_Check_Pop_TF("NS_Class_000001") 
'得到会员组列表 
if not MF_Check_Pop_TF("NS_Freejs") then Err_Show
Set FreeJs_Rs=Server.CreateObject(G_FS_RS)
Set FS_News=New Cls_News
EName=Request.Form("txt_ename")
CName=Request.Form("txt_cname")
Js_Type=Request.Form("rad_type")
act=NoSqlHack(request.QueryString("act"))
If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
if Js_Type="" then Js_Type=0
if Cint(Js_Type)=0  then'判断是否是文字类型
	Manner=Request.Form("sel_manner")'文字 
else
	Manner=Request.Form("sel_manner_pic")'图片 
End if
PicWidth=Request.Form("txt_picWidth")
PicHeight=Request.Form("txt_picHeight")
NewsNum=Request.Form("txt_newsNum")
NewsTitleNum=Request.Form("txt_newsTitleNum")
TitleCSS=Request.Form("txt_titleCSS")
ContentCSS=Request.Form("txt_contentCSS")
BackCSS=Request.Form("txt_backCSS")
RowNum=Request.Form("txt_rowNum")
PicPath=Request.Form("txt_picPath")
AddTime=dateValue(Now)
ShowTimeTF=Request.Form("sel_showTimeTF")
ContentNum=Request.Form("txt_contentNum")
if ContentNum="" then
	ContentNum=0
End if
NaviPic=Request.Form("txt_naviPic")
DateType=Request.Form("sel_dateType")
DateCSS=Request.Form("sel_dateCSS")
Info=Request.Form("txt_info")
MoreContent=Request.Form("txt_moreContent")
LinkWord=Request.Form("txt_linkWord")
LinkCSS=Request.Form("txt_linkCSS")
Info=Request.Form("txt_info")
rowSpace=Request.Form("txt_rowSpace")
RowBettween=Request.Form("txt_rowBettween")
OpenMode=Request.Form("sel_OpenMode")
'添加js
if act="add" then
	if not MF_Check_Pop_TF("NS037") then Err_Show
	FreeJs_Rs.open "select * from FS_NS_FreeJS where 1=2",Conn,1,3
	FreeJs_Rs.addnew
	FreeJs_Rs("EName")=EName
	FreeJs_Rs("CName")=CName
	FreeJs_Rs("Type")=Js_Type
	FreeJs_Rs("Manner")=Manner
	if Js_Type="1" then
		FreeJs_Rs("PicWidth")=PicWidth
		FreeJs_Rs("PicHeight")=PicHeight
		FreeJs_Rs("PicPath")=PicPath
	End if
	FreeJs_Rs("NewsNum")=NewsNum
	FreeJs_Rs("AddTime")=AddTime
	FreeJs_Rs("ShowTimeTF")=ShowTimeTF
	if ShowTimeTF="1" then
		FreeJs_Rs("DateType")=DateType
		FreeJs_Rs("DateCSS")=DateCSS
	End if
	FreeJs_Rs("ContentCSS")=ContentCSS
	FreeJs_Rs("TitleCSS")=TitleCSS
	FreeJs_Rs("NewsTitleNum")=NewsTitleNum
	FreeJs_Rs("rowSpace")=rowSpace
	FreeJs_Rs("BackCSS")=BackCSS
	FreeJs_Rs("RowNum")=RowNum
	FreeJs_Rs("ContentNum")=ContentNum
	FreeJs_Rs("NaviPic")=NaviPic
	FreeJs_Rs("Info")=Info
	FreeJs_Rs("MoreContent")=MoreContent
	FreeJs_Rs("LinkWord")=LinkWord
	FreeJs_Rs("LinkCSS")=LinkCSS
	FreeJs_Rs("Info")=Info
	FreeJs_Rs("RowBettween")=RowBettween
	FreeJs_Rs("OpenMode")=OpenMode
	FreeJs_Rs.update
	FreeJs_Rs.close
'修改js
Elseif act="edit" Then
	if not MF_Check_Pop_TF("NS038") then Err_Show
	jsid=Request.Form("hid_jsid")
	if not isnumeric(jsid) Then
		Response.Redirect("lib/error.asp?ErrCodes=<li>发生异常，请返回</li>")
		Response.End()
	End if
	FreeJs_Rs.open "select ID,EName,CName,Type,Manner,PicWidth,PicHeight,NewsNum,NewsTitleNum,TitleCSS,ContentCSS,BackCSS,RowNum,PicPath,AddTime,ShowTimeTF,ContentNum,NaviPic,DateType,DateCSS,Info,MoreContent,LinkWord,LinkCSS,RowSpace,RowBettween,OpenMode from FS_NS_FreeJS where id="&jsid,Conn,1,3
	FreeJs_Rs("EName")=EName
	FreeJs_Rs("CName")=CName
	FreeJs_Rs("Type")=Js_Type
	FreeJs_Rs("Manner")=Manner
	if Js_Type="1" then
		FreeJs_Rs("PicWidth")=PicWidth
		FreeJs_Rs("PicHeight")=PicHeight
		FreeJs_Rs("PicPath")=PicPath
	End if
	FreeJs_Rs("NewsNum")=NewsNum
	FreeJs_Rs("AddTime")=AddTime
	FreeJs_Rs("ShowTimeTF")=ShowTimeTF
	if ShowTimeTF="1" then
		FreeJs_Rs("DateType")=DateType
		FreeJs_Rs("DateCSS")=DateCSS
	End if
	FreeJs_Rs("ContentCSS")=ContentCSS
	FreeJs_Rs("TitleCSS")=TitleCSS
	FreeJs_Rs("NewsTitleNum")=NewsTitleNum
	FreeJs_Rs("rowSpace")=rowSpace
	FreeJs_Rs("BackCSS")=BackCSS
	FreeJs_Rs("RowNum")=RowNum
	FreeJs_Rs("ContentNum")=ContentNum
	FreeJs_Rs("NaviPic")=NaviPic
	FreeJs_Rs("Info")=Info
	FreeJs_Rs("MoreContent")=MoreContent
	FreeJs_Rs("LinkWord")=LinkWord
	FreeJs_Rs("LinkCSS")=LinkCSS
	FreeJs_Rs("Info")=Info
	FreeJs_Rs("RowBettween")=RowBettween
	FreeJs_Rs("OpenMode")=OpenMode
	FreeJs_Rs.update
	FreeJs_Rs.close
'删除js
ElseIf act="delete" Then
	if not MF_Check_Pop_TF("NS039") then Err_Show
	Dim d_js_ids
	d_js_ids=Request.Form("chk_FreeJs")
	d_js_ids=DelHeadAndEndDot(d_js_ids)
	Conn.execute("Delete From FS_NS_FreeJsFile where JSName in (select EName From FS_NS_FreeJS where id in ("&d_js_ids&"))")
	Conn.execute("Delete From FS_NS_FreeJS where id in ("&d_js_ids&")")
	Call MF_Insert_oper_Log("自由JS","批量删除了自由JS,删除ID："& Replace(d_js_ids," ","") &"",now,session("admin_name"),"NS")
End if
if err.number=0 then
	Response.Redirect("lib/success.asp?ErrCodes=<li>操作成功</li>&ErrorURL=../Js_Free_Manage.asp")
	Response.End()
else
	Response.Redirect("lib/error.asp?ErrCodes=<li>发生异常，请返回</li>")
	Response.End()
end if
%>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->

						