help.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

<!--#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
 %>