孤独的猫

摘要： DECLARE @object intDECLARE @hr intEXEC@hr=sp_OACreate 'CDONTS.NewMail',@object OUTEXEC @hr=sp_OASetProperty @object,'From','Your Friend'EXEC @hr=sp_OASetProperty @object,'Body','This is a test'EXEC @hr=sp_OASetProperty @object,'Subject','Test of CD 阅读全文

摘要： 1.在许多论坛的登录页面上，都有一个附加码，这样做的目的是防止有人利用破解程序，暴力破解里面的密码2.生成附加码的代码：<%Response.Buffer=falseNumCodeFunction NumCode()Response.Expires=-1Response.AddHeader "Progma","no-cache"Response.AddHeader "cache-control","no-cache"dim rndnum,i,jdim Ados,Ados1Do While len(rndnum 阅读全文

摘要： set myMail=CreateObject("CDONTS.NewMail")myMail.SetLocalIDS(65001)myMail.From=txtMailFrommyMail.To=txtMailTomyMail.Subject="Subject"myMail.BodyFormat=0myMail.MailFormat=0myMail.Body=mailbodymyMail.SendSet myMail=Nothing在发送的ASP页面中写入@LANGUAGE=VBScript CODEPAGE=65001session.CodePage 阅读全文

摘要： userip=Request.ServerVariables("HTTP_X_FORWORD_FOR")if userip="" thenuserip=Request.ServerVariables("REMOTE_ADDR")End if 阅读全文