help_topic.asp

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

<%
'*************************************************************
'名称：Help_Topic
'
'中文含义：帮助基本信息管理
'
'描述：
'  该文件包含帮助文件中的基本信息
'*************************************************************
'
'函数定义列表：
'
'函数定义                                                   描述
'---------------------------------------------------------------------------------------
'Function AddTopic()									 添加帮助基本信息
'
'Function ModifyTopic()							         修改帮助基本信息
'---------------------------------------------------------------------------------------



'*****************************************************************
'功能：添加帮助基本信息
'返回值：无
'*****************************************************************
Function AddTopic()
	On Error Resume Next
	dim TopicID,TopicName,TopPage,MainPage,Description
	
	TopicID=Request("TopicID")
	TopicName=Request("TopicName")
	TopPage=Request("TopPage")
	MainPage=Request("MainPage")
	Description=Request("Description")

	If TopicID<>"" Then
		conn.Execute "INSERT INTO PUB_HelpTopic VALUES(" & TopicID & ",'" & TopicName & "','" & TopPage & "','" & MainPage & "','" & Description & "')"
	End If

	If Err.Number <> 0 Then
		Response.Write "错误号码：" & Err.Number & "<br>"
		Response.Write "错误程序：" & Err.Source & "<br>"
		Response.Write "错误讯息：" & Err.Description & "<br>"
	Else
		Response.Write "<br><br>"		
		Response.Write "<p align=center>帮助基本信息添加成功了！</p>"
		Response.Write "<script language='javascript'>"+chr(10)
		Response.Write "setTimeout('goBack()',400)"+chr(10)
		Response.Write "function goBack(){"+chr(10)
		Response.Write "window.document.URL='TopicEdit.asp'}"+chr(10)
		Response.Write "</script>"
		Response.End 
	End If
End Function


'***********************************************************************
'功能：修改帮助基本信息
'返回值：
'***********************************************************************
Function ModifyTopic()
	On Error Resume Next
	dim TopicID,TopicName,TopPage,MainPage,Description
	
	TopicID=Request("TopicID")
	TopicName=Request("TopicName")
	TopPage=Request("TopPage")
	MainPage=Request("MainPage")
	Description=Request("Description")

	If TopicID<>"" Then
		Application.Lock
		conn.Execute "UPDATE PUB_HelpTopic SET TopicName='" & TopicName & "',TopPage='" & TopPage & "',MainPage='" & MainPage & "',Description='" & Description & "' WHERE TopicID=" & TopicID
		Application.UnLock					
	End If

	If Err.Number <> 0 Then
		Response.Write "错误号码：" & Err.Number & "<br>"
		Response.Write "错误程序：" & Err.Source & "<br>"
		Response.Write "错误讯息：" & Err.Description & "<br>"
	Else
		Response.Write "<br><br>"		
		Response.Write "<p align=center>帮助基本信息修改成功了！</p>"
		Response.Write "<script language='javascript'>"+chr(10)
		Response.Write "setTimeout('goBack()',400)"+chr(10)
		Response.Write "function goBack(){"+chr(10)
		Response.Write "window.document.URL='TopicEdit.asp'}"+chr(10)
		Response.Write "</script>"
		Response.End 
	End If
End Function
%>