funccomm.asp

客户管理模块：随着计算机的普及和网络的迅猛发展

<%'本系统由5blogs.com修改为客户关系管理系统，界面来自于网络
      '-----我博客:http://www.5blogs.com ，欢迎各位前来注册使用博客服务。
	  '你在使用中有任何问题请访问站长博客：www.5blogs.com/wxtwxt留 言!
	  '请保留 以上信息
	Function gfnFormatString(str)
	'格式化字符串，主要用于显示有TextArea提交的字符串
		Dim targetStr
		targetStr = replace(str, ">", "&gt;")
		targetStr = replace(str, "<", "&lt;")
		targetStr = Replace(targetStr,vbCrLf,"<BR>")
		targetStr = Replace(targetStr,vbCr,"<BR>")
		targetStr = Replace(targetStr,vbLf,"<BR>")
		'targetStr = Replace(targetStr," ","&nbsp;")
		gfnFormatString = targetStr
		Exit Function
	End Function

function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function

' 判断数字是否整形
function isInteger(para)
       on error resume next
       dim str
       dim l,i
       if isNUll(para) then 
          isInteger=false
          exit function
       end if
       str=cstr(para)
       if trim(str)="" then
          isInteger=false
          exit function
       end if
       l=len(str)
       for i=1 to l
           if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
              isInteger=false 
              exit function
           end if
       next
       isInteger=true
       if err.number<>0 then err.clear
end function


' 过滤表单字符
function HTMLcode(fString)
if not isnull(fString) then
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
    fString = Replace(fString, CHR(10), "<BR>")
    HTMLcode = fString
end if
end function

function formatDate(date)
iStart = instr(date,"-")
iEnd =  instrrev(date,":") 
iLength = iEnd-iStart
formatDate = mid(date,iStart+1,iLength-1)
end function 

function DoattFile(FileName,Desc)
  if instr("jpg.gif",GetExtendName(FileName)) <> 0 then
  DoattFile = "<img src='/FileMain/UpFile/"&FileName&"'>"
  else
  DoattFile =  "文件名:<a href='/FileMain/UpFile/"&FileName&"'>"&FileName&"</a> 描述:" &Desc 
  end if
end Function

function GetExtendName(FileName)
	dim ExtName
	ExtName = LCase(FileName)
	ExtName = right(ExtName,3)
	ExtName = right(ExtName,3-Instr(ExtName,"."))
	GetExtendName = ExtName
end function

sub addClickNum(id)
  set objCmd = server.CreateObject("adodb.Command")
   objCmd.ActiveConnection =  MM_webdata_STRING
   SqlQuery = "Update luntan set click = click+1 where id="&id&""
   objCmd.CommandText = SqlQuery
   objCmd.Execute 
end sub

sub addReplyNum(id)
  set objCmd = server.CreateObject("adodb.Command")
   objCmd.ActiveConnection =  MM_webdata_STRING
   SqlQuery = "Update luntan set reply = reply+1 where id="&id&""
   objCmd.CommandText = SqlQuery
   objCmd.Execute 
end sub

sub addartCount()
   set objCmd = server.CreateObject("adodb.Command")
   objCmd.ActiveConnection =  MM_webdata_STRING
   SqlQuery = "Update UserMain set artcount = artcount+1 where id="&trim(Request.Cookies("Jimmy")("UserID")) &""
   objCmd.CommandText = SqlQuery
   objCmd.Execute
end sub
sub select_str(str,a,t)'str要组成的字符串，a为1时生成一空列表。t为被选择的字符。
     dim str_1      
      str_1=split(str,",")'字符串以“，”分成数组.
    if a=1 then
     response.write("<option />")
    end if
      For i=0 to UBound(str_1)   
         response.write("<option value=")
         response.write(str_1(i))
         response.write("  ")
    if t<>"" and t=str_1(i) then
         response.write("selected")  
    end if
         response.write(">")
         response.write(str_1(i))
         response.write("</option>")
   next
 
end sub

%>