help_page.asp

精品OA,已经本人测试成功,完全可用,使我花钱从别人那买的.商业源码仅供学习交流,请勿用于商业用途. 在建立数据库时

<%
'*************************************************************
'名称：Help_Page
'
'中文含义：帮助页面管理索引
'
'描述：
'  该文件包含所有的帮助页面管理函数
'*************************************************************
'
'函数定义列表：
'
'函数定义                                                   描述
'---------------------------------------------------------------------------------------
'Function AddPage()									 添加页面
'
'Function ModifyPage()							     修改页面
'
'Function DeletePage(PageID)						 删除单个页面
'
'Function GetPageList()                              获取页面列表
'
'Function GetPageInfo()								 获取页面详细资料
''
'---------------------------------------------------------------------------------------


'*****************************************************************
'功能：添加页面基本信息
'返回值：无
'*****************************************************************
Function AddPage()
	Dim Rs
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open "PUB_HelpPage",conn,1,3

	dim PageID,PageName,Description,IsActive
	
	PageID=AutoGetNo("PUB_HelpPage")
	PageName=Request("PageName")
	Description=Request("Description")
	IsActive=1
	if Request("ISACTIVE")<>"" then
		IsActive=0
	end If

	If PageID<>"" Then
		conn.Execute "INSERT INTO PUB_HelpPage VALUES(" & PageID & ",'" & PageName & "','" & Description & "'," & IsActive & ")"
	End If
End Function


'***********************************************************************
'功能：修改页面基本信息
'返回值：
'***********************************************************************
Function ModifyPage()
	dim PageID,PageName,Description,IsActive
	
	PageID=Request("PageID")
	PageName=Request("PageName")
	Description=Request("Description")
	IsActive=1
	if Request("ISACTIVE")<>"" then
		IsActive=0
	end If
	If PageID<>"" Then
		Application.Lock
		conn.Execute "UPDATE PUB_HelpPage SET PageName='" & PageName & "',Description='" & Description & "',ISACTIVE=" & IsActive & " WHERE PageID=" & PageID
		Application.UnLock					
	End If
End Function


'**********************************************************************
'功能：删除单个页面基本信息
'参数：
'  PageID；Integer；页面唯一代码
'**********************************************************************
Function DeletePage(PageID)
	if PageID<>"" then
		Application.Lock
		conn.Execute "DELETE PUB_HelpPage WHERE PageID=" & PageID	
		Application.UnLock		
	end if
End Function

'**********************************************************************
'功能：列出页面基本信息
'返回值：无
'**********************************************************************
Function GetPageList()
		Dim rstPageList,SearchCondition
	    SearchCondition="SELECT * FROM PUB_HelpPage"
		Set rstPageList=Server.CreateObject("adodb.recordset")
		With rstPageList
			.ActiveConnection =conn
			 SearchCondition=SearchCondition & " ORDER BY PageID"
			.Source = SearchCondition
			.CursorType =3
			.Open
		End With
	Set GetPageList=rstPageList
End Function

'***********************************************************************
'功能：获取某页面的详细信息
'返回值：
'***********************************************************************
Function GetPageInfo()
	Dim cnnGetPageInfo,Sql,PageID
	PageID=Request("rowid")
	
	Sql = "SELECT * FROM PUB_HelpPage WHERE PageID=" & PageID
	Set cnnGetPageInfo = conn.Execute(Sql)

	Set GetPageInfo=cnnGetPageInfo
End Function

'***********************************************************************
'功能：获取帮助索引是否被帮助页面包含详细信息
'返回值：
'***********************************************************************
Function GetPageIndexInfo(IndexID)
	Dim cnnGetPageIndexInfo,Sql,PageID
	PageID=Request("rowid")
	
	Sql = "SELECT * FROM PUB_IndexPage WHERE IndexID=" & IndexID & " and PageID=" & PageID 
	Set cnnGetPageIndexInfo = conn.Execute(Sql)
	If Not cnnGetPageIndexInfo.EOF Then
		GetPageIndexInfo=1
	Else
		GetPageIndexInfo=0
	End If		
End Function

'***********************************************************************
'功能：编辑帮助索引页面详细信息
'返回值：
'***********************************************************************
Function EditPageIndex()
	dim rs,IndexID
	PageID=Request("rowid")
	Set rs=conn.EXECUTE("Select * from PUB_IndexPage where PageID=" & PageID)
	Application.Lock 	
	Do While Not rs.EOF
		conn.EXECUTE "DELETE PUB_IndexPage where PageID=" & PageID & " and IndexID=" & rs("IndexID")
		rs.MoveNext		
	Loop	
	Application.UnLock 
	
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open "PUB_IndexPage",conn,1,3

	dim i,Check,row,IndexPageID
	CheckNo=""
	row=trim(request("RowCount"))
	for i=1 to cint(row)
		CheckNo="chk" & i	
	  	if trim(request(CheckNo))<>"" Then
			IndexPageID=AutoGetNo("PUB_IndexPage")
			conn.EXECUTE "Insert into PUB_IndexPage Values(" & IndexPageID & "," & trim(request(CheckNO)) & "," & PageID & ")"
		end if       
	next		  
End Function
%>