help_index.asp

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

<%
'*************************************************************
'名称：Help_Index
'
'中文含义：帮助帮助索引信息管理
'
'描述：
'  该文件包含帮助文件中的帮助索引信息
'*************************************************************
'
'函数定义列表：
'
'函数定义                                                   描述
'---------------------------------------------------------------------------------------
'Function AddIndex()									 添加帮助索引信息
'
'Function ModifyIndex()							         修改帮助索引信息
'
'Function DeleteIndex(IndexID)  						 删除帮助索引信息
'
'Function GetIndexList(classid)                          获取帮助索引列表
'
'Function GetIndexInfo()								 获取帮助索引详细信息
''
'---------------------------------------------------------------------------------------



'*****************************************************************
'功能：添加帮助索引信息
'返回值：无
'*****************************************************************
Function AddIndex()
	Dim Rs
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.Open "PUB_HelpIndex",conn,1,3

	dim IndexID,IndexName,Description,IsActive
	
	IndexID=AutoGetNo("PUB_HelpIndex")
	IndexName=Request("IndexName")
	Description=Request("Description")
	IsActive=1
	if Request("ISACTIVE")<>"" then
		IsActive=0
	end If

	If IndexID<>"" Then
		conn.Execute "INSERT INTO PUB_HelpIndex VALUES(" & IndexID & ",'" & IndexName & "','" & Description & "'," & IsActive & ")"
	End If
End Function


'***********************************************************************
'功能：修改帮助索引信息
'返回值：
'***********************************************************************
Function ModifyIndex()
	dim IndexID,IndexName,Description,IsActive
	
	IndexID=Request("IndexID")
	IndexName=Request("IndexName")
	Description=Request("Description")
	IsActive=1
	if Request("ISACTIVE")<>"" then
		IsActive=0
	end If
	If IndexID<>"" Then
		Application.Lock
		conn.Execute "UPDATE PUB_HelpIndex SET IndexName='" & IndexName & "',Description='" & Description & "',ISACTIVE=" & IsActive & " WHERE IndexID=" & IndexID
		Application.UnLock					
	End If
End Function


'**********************************************************************
'功能：删除帮助索引信息
'参数：
'  IndexID:Integer 帮助索引唯一代码
'**********************************************************************
Function DeleteIndex(IndexID)
	if IndexID<>"" then
		Application.Lock
		conn.Execute "DELETE PUB_HelpIndex WHERE IndexID=" & IndexID	
		Application.UnLock		
	end if
End Function

'**********************************************************************
'功能：列出帮助索引基本信息
'返回值：无
'**********************************************************************
Function GetIndexList()
		Dim rstIndexList,SearchCondition
	    SearchCondition="SELECT * FROM PUB_HelpIndex"
		Set rstIndexList=Server.CreateObject("adodb.recordset")
		With rstIndexList
			.ActiveConnection =conn
			 SearchCondition=SearchCondition & " ORDER BY IndexID"
			.Source = SearchCondition
			.CursorType =3
			.Open
		End With
	Set GetIndexList=rstIndexList
End Function


'***********************************************************************
'功能：获取帮助索引详细信息
'返回值：
'***********************************************************************
Function GetIndexInfo()
	Dim cnnGetIndexInfo,Sql,IndexID
	IndexID=Request("rowid")
	
	Sql = "SELECT * FROM PUB_HelpIndex WHERE IndexID=" & IndexID
	Set cnnGetIndexInfo = conn.Execute(Sql)

	Set GetIndexInfo=cnnGetIndexInfo
End Function

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

'***********************************************************************
'功能：编辑帮助页面被索引详细信息
'返回值：
'***********************************************************************
Function EditIndexPage()
	dim rs,IndexID
	IndexID=Request("rowid")
	Set rs=conn.EXECUTE("Select * from PUB_IndexPage where IndexID=" & IndexID)
	Application.Lock 	
	Do While Not rs.EOF
		conn.EXECUTE "DELETE PUB_IndexPage where IndexID=" & IndexID & " and PageID=" & rs("PageID")
		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 & "," & IndexID & "," & trim(request(CheckNO)) & ")"
		end if       
	next		  
End Function
%>