公告:
祝大家在虎年里，虎虎生威！生意红火，事业有成！当然，还有爱情大丰收 *__*CSBlogV2.11问题收集与信息反馈 ; CSCMSV1正式上线公测。
CSWave系列官方QQ群：24301472(最新版的一般都先发布在共享里哟) 。
Sub Sendmail(byval Email,byval Name,byval Username,byval Password,byval Subject,byval Body,byval Postserver)
Set objMsg = Server.CreateObject("Jmail.Message") '建立发送邮件的对象
objMsg.silent = true '屏蔽例外错误，返回FALSE跟TRUE两值j
objMsg.logging = true '启用邮件日志
objMsg.Charset = "GB2312" '邮件的文字编码为国标
objMsg.ContentType = "text/html" '邮件的格式为HTML格式
objMsg.AddRecipient Email '邮件收件人的地址
objMsg.FromName= Name
objMsg.From = Email '发件人的E-MAIL地址必须与AddRecipient相同
阅读全文及评论...
[code]Function spage(byval strBody)
If InStr(strBody,"[$SplitPage$]")<>0 Then
dim arrBody,pageshow,page,iPage,iCount,i,ii
pageshow="页内文章分页："
arrBody=split(strBody, "[$SplitPage$]")
page=(request.querystring("page"))
if page="" or isnull(page) then
ipage=0
Else
阅读全文及评论...平时从来不想去认真的看看正则，现在用到了，痛苦的要死，只好东找西翻，拼拼凑凑，写了个函数来取图片的路径，这个回头肯定是要改的，不过事太急，先上马吧～
[code]Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
阅读全文及评论...
[code]
<%
i=0
while i<=20
i=i+1
if i mod 5 =1 then bgcolor="#fff500"
if i mod 5 =2 then bgcolor="#dd127b"
阅读全文及评论...
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open nSQLStr,Conn,1,3
Rs.addnew
Rs("title")=Ntitle
Rs("classid")=Nclassid
Rs("editer")=Nuser
Rs("comefrom")=Ncomefrom
Rs("content")=Ncontent
Rs("isubb")=isubb
Rs.Update
阅读全文及评论...
订阅地址
