上一篇
下一篇
评论留言加上邮箱和网址
作者:小戒 日期:2007-12-08
作者：戒聊
发布网站：www.muzili.com
类型：本站原创
１．下载压缩包，解压后上传至PJBLOG所在目录，执行升级数据库．
２．打开class下的cls_article.asp，找到
修改为：
找到，按回车，在下面插入以下代码．
找到
在其上插入一行，加入以下代码
３．打开PJBLOG根目录下的blogcomm.asp，找到
在其下插入如下代码
找到
在其上插入如下代码
找
发布网站：www.muzili.com
类型：本站原创
１．下载压缩包，解压后上传至PJBLOG所在目录，执行升级数据库．
２．打开class下的cls_article.asp，找到
复制内容到剪贴板
程序代码
程序代码 SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY FROM blog_Comment Where blog_ID="&LogID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
修改为：
复制内容到剪贴板程序代码
程序代码 SQL="Select comm_ID,comm_Content,comm_Author,comm_PostTime,comm_DisSM,comm_DisUBB,comm_DisIMG,comm_AutoURL,comm_PostIP,comm_AutoKEY,email,siteurl FROM blog_Comment Where blog_ID="&LogID&" UNION ALL Select 0,tb_Intro,tb_Title,tb_PostTime,tb_URL,tb_Site,tb_ID,0,'127.0.0.1',0,0,0 FROM blog_Trackback Where blog_ID="&LogID&" orDER BY comm_PostTime "&comDesc
找到
复制内容到剪贴板程序代码
程序代码<%=blog_CommAuthor%></strong></a> <span class="commentinfo">
复制内容到剪贴板程序代码
程序代码<%
if trim(commArr(10,Pcount))<>"" then
response.write " <a href=mailto:"&trim(commArr(10,Pcount))&" target=_blank><img src=images/email1.gif border=0></a>"
else
response.write " <img src=images/noemail1.gif>"
end if
if trim(commArr(11,Pcount))<>"" and trim(commArr(11,Pcount))<>"http://" then
response.write " <a href="&trim(commArr(11,Pcount))&" target=_blank><img src=images/url1.gif border=0></a>"
else
response.write " <img src=images/nourl1.gif>"
end if
%>
if trim(commArr(10,Pcount))<>"" then
response.write " <a href=mailto:"&trim(commArr(10,Pcount))&" target=_blank><img src=images/email1.gif border=0></a>"
else
response.write " <img src=images/noemail1.gif>"
end if
if trim(commArr(11,Pcount))<>"" and trim(commArr(11,Pcount))<>"http://" then
response.write " <a href="&trim(commArr(11,Pcount))&" target=_blank><img src=images/url1.gif border=0></a>"
else
response.write " <img src=images/nourl1.gif>"
end if
%>
找到
复制内容到剪贴板程序代码
程序代码 <%if memName=empty or blog_validate=true then%><tr><td align="right" width="70"><strong>验证码:</strong></td><td align="left" style="padding:3px;"><input name="validate" type="text" size="4" class="userpass" maxlength="4"/> <%=getcode()%></td></tr><%end if%>
在其上插入一行，加入以下代码
复制内容到剪贴板程序代码
程序代码 <%if memName=empty then%><tr><td align="right" width="70"><strong>邮 箱:</strong></td><td align="left" style="padding:3px;"><input name="myblogemail" type="text" size="18" class="userpass" maxlength="24"/> 请填写您的邮箱.</td></tr><%end if%>
<%if memName=empty then%><tr><td align="right" width="70"><strong>网 址:</strong></td><td align="left" style="padding:3px;"><input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"/> 请填写您的网址.</td></tr><%end if%>
<%if memName=empty then%><tr><td align="right" width="70"><strong>网 址:</strong></td><td align="left" style="padding:3px;"><input name="myblogsiteurl" type="text" class="userpass" value="http://" size="18" maxlength="24"/> 请填写您的网址.</td></tr><%end if%>
３．打开PJBLOG根目录下的blogcomm.asp，找到
复制内容到剪贴板程序代码
程序代码 password=trim(CheckStr(request.form("myblogpassword")))
在其下插入如下代码
复制内容到剪贴板程序代码
程序代码 dim email,siteurl
email=trim(CheckStr(request.form("myblogemail")))
siteurl=trim(CheckStr(request.form("myblogsiteurl")))
email=trim(CheckStr(request.form("myblogemail")))
siteurl=trim(CheckStr(request.form("myblogsiteurl")))
找到
复制内容到剪贴板程序代码
程序代码 IF (memName=empty or blog_validate=true) and cstr(lcase(Session("GetCode")))<>cstr(lcase(validate)) then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>验证码有误，请返回重新输入</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>验证码有误，请返回重新输入</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
在其上插入如下代码
复制内容到剪贴板程序代码
程序代码 if memName=empty and email<>"" and IsValidEmail(email)=false then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>邮箱格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
if memName=empty and siteurl<>"" and siteurl<>"http://" and IsRightUrl(siteurl)=false then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>网址格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>邮箱格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
if memName=empty and siteurl<>"" and siteurl<>"http://" and IsRightUrl(siteurl)=false then
ReInfo(0)="评论发表错误信息"
ReInfo(1)="<b>网址格式错误</b><br/><a href=""javascript:history.go(-1);"">请返回重新输入</a>"
ReInfo(2)="ErrorIcon"
postcomm=ReInfo
exit function
end if
找
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
回复
yong 
[2008-11-14 02:57 PM | 
]谢谢，我想加上QQ怎么改
测试看下效果 
我试下看看！
你这个方法修改是必填吗？评论会出错。
Server ?ԏont> ?펳 'ASP 0178 : 80070005'
Server.CreateObject ?Îʴ펳
/common/function.asp??А 8
?첩ȨϞʱ???ԠServer.CreateObject ?ĵ???ܡ??ܾ??ԏÎʡ?
Server ?ԏont> ?펳 'ASP 0178 : 80070005'
Server.CreateObject ?Îʴ펳
/common/function.asp??А 8
?첩ȨϞʱ???ԠServer.CreateObject ?ĵ???ܡ??ܾ??ԏÎʡ?
新版本pj blogcomm.asp代码部分修改了 行不通了哦 
小戒 于 [09/02/2008 23:30:20] 回复
小戒 于 [09/02/2008 23:30:20] 回复没测试过新版本。呵呵。
prefect! 支持
你的皮肤在1024x768下严重错位。
www.nextway.cn
www.nextway.cn
这样不错了，可以把信箱和主页文字去掉保留图片即可了~
不写邮箱和网址会提示...格式错误啊~
不写邮箱和网址会提示...格式错误啊~
邮箱和网址不要是必须项的为好啊~
要不会给访客带来麻烦，有心的人自然会写这些~
要不会给访客带来麻烦，有心的人自然会写这些~
可以把邮箱和网址以带链接的图片显示出来，效果更佳~
发表评论
