char.asp

这是作的一个网站,修改很方便,可以做网站设计.管理登陆：admin.asp 帐号和密码：admin/admin

<%
    '过虑代码HTMLENCODE中用
    function ChkBadWords(fString)
    dim bwords
    if not(isnull(BadWords) or isnull(fString)) then
    bwords = split(BadWords, "|")
    for i = 0 to ubound(bwords)
    fString = Replace(fString, bwords(i), string(len(bwords(i)),"*")) 
    next
    ChkBadWords = fString
    end if
    end function
    Rem 过滤HTML代码
    function HTMLEncode(fString)
    if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = Replace(fString, CHR(32), "&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
    fString = Replace(fString, CHR(10), "<BR> ")
    fString=ChkBadWords(fString)
    HTMLEncode = fString
    end if
    end function
    function Strcheck(str)
    if isnull(str) then
    Strcheck = ""
    exit function 
	end if
	Strcheck=replace(str,"'","''")
	Strcheck=Trim(Strcheck)
	Strcheck = "'" & Strcheck & "'"
    end function

    '发邮件
    sub Jmail(topic,content,Smail)
	Dim JMail,SendMail
	Set JMail=Server.CreateObject("JMail.SMTPMail")
	JMail.Logging=True
	JMail.Charset="gb2312"
	JMail.ContentType = "text/html"
	JMail.ServerAddress=SMTP
	JMail.Sender=Email
	JMail.Subject=topic
	JMail.Body=content
	JMail.AddRecipient Smail
	JMail.Priority=3
	JMail.Execute 
	Set JMail=nothing 
	if err then 
	MailStr=err.description
	err.clear
	else
	MailStr="OK"
	end if
	end sub

	sub Cdonts(topic,content,Smail)
	dim  objCDOMail,SendMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From =Email
	objCDOMail.To =Smail
	objCDOMail.Subject =topic
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body =content
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	MailStr=err.description
	err.clear
	else
	MailStr="OK"
	end if
	end sub

	sub aspemail(topic,content,Smail)
	dim mailer,recipient,sender,subject,message
	dim mailserver,result,SendMail
	Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")  
	recipient=Smail
	sender=Email
	subject=topic
	message=mailbody
	mailserver=SMTP
	result=mailer.SendMail(mailserver, recipient, sender, subject, message)
	if err then 
	MailStr=err.description
	err.clear
	else
	MailStr="OK"
	end if
	end sub

    Function eWebEditor_ReplaceRemoteUrl(sHTML, sSavePath, sExt)
	Dim s_Content
	s_Content = sHTML
	If eWebEditor_IsObjInstalled("Microsoft.XMLHTTP") = False then
		eWebEditor_ReplaceRemoteUrl = s_Content
		Exit Function
	End If
	
	If sSavePath ="" Then sSavePath = "UploadFile/"
	If sExt = "" Then sExt = "jpg|gif|bmp|png"
	Dim re, RemoteFile, RemoteFileurl, SaveFileName, SaveFileType, ranNum
	Set re = new RegExp
	re.IgnoreCase  = True
	re.Global = True
	re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(\S*\/)((\S)+[.]{1}(" & sExt & ")))"
	Set RemoteFile = re.Execute(s_Content)
	For Each RemoteFileurl in RemoteFile
		SaveFileType = Mid(RemoteFileurl, InstrRev(RemoteFileurl, ".") + 1)
		Randomize
		ranNum = Int(900 * Rnd) + 100
		SaveFileName = sSavePath & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ranNum & "." & SaveFileType
		Call eWebEditor_SaveRemoteFile(SaveFileName, RemoteFileurl)
		s_Content = Replace(s_Content,RemoteFileurl,SaveFileName)
	Next
	eWebEditor_ReplaceRemoteUrl = s_Content
    End Function



    Function eWebEditor_IsObjInstalled(s_ClassString)
	On Error Resume Next
	eWebEditor_IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(s_ClassString)
	If 0 = Err Then eWebEditor_IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
    End Function
%>