'Response.Write "Need to execute command is:<br><font color=red>" & logCmd & "</font><BR>" logConn.Execute(logCmd) End If logConn.Close Set logConn=Nothing SaveSQLLog=msg SQLQueryNum=SQLQueryNum+1 End Function
'****************************** '名称: ExecuteCmd '参数:cmd '返回值：RecordSet '作用:返回由cmd创建的记录集 '创建时间:2005年5月6日 '****************************** Public Function ExecuteCmd(cmd) If NOT IsObject(objConn) Then ConnectionDataBase p_DataBase,p_dbUserID,p_dbPassword,p_dbType If NOT p_Debug Then On Error Resume Next ClientConnected Set ExecuteCmd=objConn.Execute(cmd) If Err Then Err.Clear objConn.Close Set objConn=Nothing If SaveLog Then tmpMsg="查询数据的时候发现错误，请检查您的查询代码是否正确。<br>基于安全的理由，只显示本信息，要查看详细的错误信息，请设置dsj.Debug=True" Response.Write SaveSQLLog(cmd,tmpMsg) Else Response.Write "查询数据的时候发现错误，请检查您的查询代码是否正确。" End If Response.End() End If SQLQueryNum=SQLQueryNum+1 End Function
'****************************** '名称: HTMLEncode '参数:fString '返回值：HTMLEncode '作用:对数据内容进行排版转换 '创建时间:2005年5月6日 '****************************** Public Function HTMLEncode(fString) If Not IsNull(fString) Or fString<>"" Then fString=Replace(fString,"<","<") fString=Replace(fString,">",">") fString=Replace(fString,Chr(9)," ") '倾斜字体 fString=Replace(fString,Chr(13),"") fString=Replace(fString,Chr(32)," ") '转换空格 fString=Replace(fString,Chr(34),""") '转换双引号 fString=Replace(fString,Chr(39),"'") '转换单引号 fString=Replace(fString,Chr(10),"</p><p>") '转换成段落格式 fString=Replace(fString,Chr(10),"<BR> ") '转换为下一行 fString=Replace(fString,Chr(13),"<BR>") fString=Replace(fSting,vbCrlf,"<BR>") 'fString=LinkFriend(fString) 'fString=ChkBadWords(fString) HTMLEncode=fString
精品推荐