<!--#include file="help/conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
ConnectionDatabase
Dim HelpID,rs
HelpID=RSQL(request("HelpID"))
Set Rs=Conn.execute("SELECT HelpID,HelpTitle,Content FROM Help_ACT Where HelpID='" & HelpID & "' order by ID desc")
If Not rs.eof Then 
response.write "<div><font color=000><strong>"&rs("HelpTitle")&"</strong></font><span style=""Font-size:10px;font-family:Arial, Helvetica, sans-serif;color:red"" onclick=""javascript:getHelpCode('"&rs("HelpID")&"');"">("&rs("HelpID")&")</span></div>"&rs("Content")&""
Else
response.write "<div><font color=000><strong>错误,单击复制帮助代码</strong></font><span style=""Font-size:10px;font-family:Arial, Helvetica, sans-serif;color:red"" onclick=""javascript:getHelpCode('"&request("HelpID")&"');"">("&request("HelpID")&")</span></div>没有找到帮助内容"
End If 


Public Function RSQL(strChar)
	If strChar = "" Or IsNull(strChar) Then RSQL = "":Exit Function
	Dim strBadChar, arrBadChar, tempChar, I
	strBadChar = "$,#,',%,^,&,?,(,),<,>,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ""
	arrBadChar = Split(strBadChar, ",")
	tempChar = strChar
	For I = 0 To UBound(arrBadChar)
		tempChar = Replace(tempChar, arrBadChar(I), "")
	Next
	RSQL = tempChar
End Function
 %>