|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)ubb <%
Function HTMLEncode(ByVal strValue)
'疏忽毛病
On Error Resume Next
'界说变量
Dim strNewValue
If strValue <> "" Then
strNewValue = WordStr(strValue,"<","<")
strNewValue = WordStr(strNewValue,">",">")
strNewValue = WordStr(strNewValue,"'","'")
strNewValue = WordStr(strNewValue,"""",""")
strNewValue = WordStr(strNewValue,vbCrLf,"<br>")
strNewValue = WordStr(strNewValue," "," ")
End If
HTMLEncode = strNewValue
'输入毛病
If Err.Number>0 Then
Response.Write Err.Description
Response.End
End If
End Function
Function UBBCode(strValue)
Dim RegExp
'strValue=HTMLEncode(strValue)
Set RegExp=New RegExp
RegExp.IgnoreCase =True
RegExp.Global=True
If strValue <> "" Then
RegExp.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
strValue=RegExp.WordStr(strValue,"<a href=""$2"" target=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口阅读图片 javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")
RegExp.Pattern="(\[Flash\])(.[^\[]*)(\[\/FLASH\])"
strValue=RegExp.WordStr(strValue,"<OBJECT codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400 id=ShockwaveFlash1><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src=""$2"" quality=high pluginspage=""")当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题 |
|