DV7.1SP1版修改美化

村长小麦 · 发表于 2007-5-13 13:30:03

<div class="t_msgfont" id="message11997">第一：首页登陆时显示的“论坛通行证”去除动网默认风格分页面模板(page_index)界面风格管理 template.html(0) 将上面一大段屏蔽掉，OK，第一项搞掂！！！第二：重登陆或登陆失败时的登陆页面“论坛通行证”去除动网默认风格分页面模板(page_login)界面风格管理 template.html(0) 删除此句： {$rayuserlogin}我试过，直接屏蔽好像无效，只有野蛮一点，直接“Delete”就干掉了。第三：注册页面的“论坛通行证”去除 动网默认风格分页面模板(page_login)界面风格管理 template.html(13) 怎么样，是不是越来越兴奋了，要不要更彻底一点？？当然要，那就再继续看……第四：用户控制面板下拉菜单里的“设置论坛通行证”项去除 动网默认风格分页面模板(main_style)界面风格管理Dvbbs.mainhtml(17)屏蔽或删除这句：<div class="msgheader">QUOTE:</div><div class="msgborder"> <a href="passport.asp">论坛通行证设置</a></div>OK，全部搞掂大家庆祝吧！！！</div>

村长小麦 · 发表于 2007-5-13 13:30:35

<div class="t_msgfont" id="message11942">演示：<a href="http://www.snhome.cn/bbs/dispbbs.asp?boardID=2&ID=97&page=1" target="_blank"></a><a href="http://www.snhome.cn/bbs/dispbbs.asp?boardID=2&ID=97&page=1" target="_blank">http://www.snhome.cn/bbs/dispbbs.asp?boardID=2&ID=97&page=1</a><a></a><a href="http://www.snhome.cn/bbs/dispbbs.asp?boardID=2&ID=351&page=1" target="_blank">http://www.snhome.cn/bbs/dispbbs.asp?boardID=2&ID=351&page=1</a>
 1、在后台page_dispbbs→template.html(0)中找到 <xsl:if test="/post/userlist/user[@userid=$userid]/@userim !=''"><a href="http://service.51uc.com/user_info/show_user_info_base.shtml?UID={/post/userlist/user[@userid=$userid]/@userim}" title="{@username}[{/post/userlist/user[@userid=$userid]/@userim}]的UC情况" target="_blank"><img src="{/post/setting/@picurl}uc.gif" border="0" align="middle" /></a></xsl:if> 在其下加入如下代码 <SELECT title="文字大小" onchange="post{@announceid}.style.fontSize=this.value;post{@announceid}.style.lineHeight=this.value"> <OPTION value="9pt">字号</OPTION> <OPTION value="14pt">14pt</OPTION> <OPTION value="16pt">16pt</OPTION> <OPTION value="18pt">18pt</OPTION> <OPTION value="20pt">20pt</OPTION> <OPTION value="22pt">22pt</OPTION> <OPTION value="24pt">24pt</OPTION> <OPTION value="30pt">30pt</OPTION> <OPTION value="34pt">34pt</OPTION> <OPTION value="38pt">38pt</OPTION> <OPTION value="45pt">45pt</OPTION> </SELECT> 2、接着找到<div style="{$bodystyle}margin-top:10px;word-wrap : break-word ;word-break : break-all ;" onload="this.style.overflowX='auto';" 在其后加上 id="post{@announceid}"</div>

村长小麦 · 发表于 2007-5-13 13:31:04

<div class="t_msgfont" id="message12015">打开savepost.asp，第921行左右可以找到代码： <div class="msgheader">QUOTE:</div><div class="msgborder">Dvbbs.Execute("update dv_topic set title='"&topic&"',TopicMode="&MyTopicMode&" "&iExpression&" where topicid="&rootid)</div> 把它改成： <div class="msgheader">QUOTE:</div><div class="msgborder">Dvbbs.Execute("update dv_topic set title='"&topic&"',LastPostTime="&SqlNowString&",TopicMode="&MyTopicMode&" "&iExpression&" where topicid="&rootid)</div>即可实现这个目的。</div>

村长小麦 · 发表于 2007-5-13 13:31:31

<div class="t_msgfont" id="message12016">默认模板分页面模板(main_style)中的Dvbbs.mainhtml(2) 在body topmargin="0" leftmargin="0后添加： onLoad="window.status=' 站长QQ:38843972 Email:xkyz@sina.com'"</div>

村长小麦 · 发表于 2007-5-13 13:32:04

<div class="t_msgfont" id="message12017">文件Admin_posting.asp <div class="msgheader">QUOTE:</div><div class="msgborder">topic=rs("topic") topicusername=rs("username") topicuserID=rs("postuserID")</div> 前面加一段代码 <div class="msgheader">QUOTE:</div><div class="msgborder">If Rs("

ostUserID")=Dvbbs.UserID and Dvbbs.BoardMaster Then Dvbbs.AddErrCode(28) : Exit Sub</div>即可。</div>

村长小麦 · 发表于 2007-5-13 13:32:32

<div class="t_msgfont" id="message12018">实现如下功能： 1、单贴间多个下载文件单独记录下载次数并显示文件名（这个只是以前那个的Bug修复） 2、显示原来上传时的文件名，而不是变成序号的文件名（不影响保密功能） 3、可以查看下载者的功能（只有发布者和管理员可以看到，别人看不到） 4、文件长度显示，该Byte就Byte，该KByte就KByte，该MByte就MByte（应该不会有那个论坛提供GByte下载吧） 5、无论上传文件后系统加了什么样的后缀序号（其实是用于防盗和防止文件重名的），下载时都会只显示原来的文件名，不会出现后边的一长串序号（这个功能要在系统开启了防盗功能才有效） 一、修改inc/dv_ubbcode.asp： 原来：
re.Pattern="\x01UPLOAD=(.[^\x01]*)\x02(viewFile\.asp.[^\x01]*)\x01\/UPLOAD\x02" s= re.Replace(s," <IMG SRC=""skins/default/filetype/$1.gif"" border=0> <a href=""$2"" target=_blank>点击浏览该文件</a>") re.Pattern="viewFile.asp\?" s= re.Replace(s,"viewFile.asp?Boardid="&Dvbbs.Boardid&"&") re.Pattern="\x01UPLOAD=(.[^\x01]*)\x02(.[^\x01]*)\x01\/UPLOAD\x02" s= re.Replace(s," <img src=""skins/default/filetype/$1.gif"" border=""0""> <a href=""$2"" target=""_blank"">点击浏览该文件</a> <img src=""$2"" border=""0"" >") 这个是标准DV的代码，不含以前修改的代码（如果你已经修改过，请恢复为DV7标准代码） 改为：
Dim Test Dim LoopCount LoopCount=0 re.Pattern="(^.*)\x01UPLOAD=(.[^\x01]*)\x02viewFile\.asp\?id=*([0-9]*)\x01\/UPLOAD\x02(.*)" Test=re.Test(s) if Test then dim upsql,uprs dim uploadid dim TrueFileName dim TruePos dim FileLen dim iDownUser dim SplitDownUser dim iii Set uprs = Server.CreateObject("ADODB.Recordset") do while Test uploadid=re.Replace(s,"$3") if IsNumeric(uploadid) then upsql="select F_Filename,F_FileType,F_FileSize,F_DownNum,F_DownUser from DV_Upfile where F_ID="&trim(uploadid) uprs.Open upsql,conn,1,1 TruePos=instrrev(uprs("F_Filename"),"___") if TruePos>0 then TrueFileName=left(uprs("F_Filename"),TruePos-1) else TrueFileName=uprs("F_Filename") end if TruePos=instrrev(TrueFileName,"/") if TruePos>0 then TrueFileName=right(TrueFileName,len(TrueFileName)-TruePos) end if FileLen=uprs("F_FileSize") if FileLen>1024 then FileLen=Round(FileLen / 1024,2) if FileLen > 1024 then FileLen=Round(FileLen / 1024,2) FileLen="" & FileLen & " MByte" else FileLen="" & FileLen & " KByte" end if else FileLen="" & FileLen & " Byte" end if if dvbbs.membername<>"" and (dvbbs.membername=username or dvbbs.master) then if (not isnull(uprs("F_DownUser"))) and uprs("F_DownUser")<>"" then SplitDownUser=split(uprs("F_DownUser"),"|") iDownUser="<select size=1><option value=0>以下用户</option>" for iii=0 to ubound(SplitDownUser) iDownUser=iDownUser & "<option value="&iii&">"&SplitDownUser(iii)&"</option>" next iDownUser=iDownUser&"</select>" else iDownUser="" end if s= re.Replace(s,"$1 <FIELDSET><LEGEND>本帖包含附件</LEGEND><TABLE cellSpacing=3 border=0 cellpadding=0><tr height=25 valign=middle><td><IMG src=""skins/default/filetype/"&uprs("F_FileType")&".gif"" border=0></td><TD><A href=""viewFile.asp?Boardid=8&ID="&trim(uploadid)&""" target=_blank>"&TrueFileName&"</A>&nbsp; (&nbsp;"&FileLen&"，已被"&iDownUser&"下载 "&uprs("F_DownNum")&"&nbsp;次&nbsp;)</TD></TR></TABLE></FIELDSET> $4") else s= re.Replace(s,"$1 <FIELDSET><LEGEND>本帖包含附件</LEGEND><TABLE cellSpacing=3 border=0 cellpadding=0><tr height=25 valign=middle><td><IMG src=""skins/default/filetype/"&uprs("F_FileType")&".gif"" border=0></td><TD><A href=""viewFile.asp?Boardid=8&ID="&trim(uploadid)&""" target=_blank>"&TrueFileName&"</A>&nbsp; (&nbsp;"&FileLen&"，已被下载 "&uprs("F_DownNum")&"&nbsp;次&nbsp;)</TD></TR></TABLE></FIELDSET> $4") end if uprs.close end if re.Pattern="(^.*)\<\/FONT\>\&nbsp\;次\&nbsp\;\)\<\/TD\>\<\/TR\>\<\/TABLE\>\<\/FIELDSET\>(\<BR\>){0,}\<FIELDSET\>\<LEGEND\>本帖包含附件\<\/LEGEND\>\<TABLE cellSpacing=3 border=0 cellpadding=0\>(.*)" s=re.Replace(s,"$1&nbsp;次&nbsp;)</TD></TR>$3") re.Pattern="(^.*)\x01UPLOAD=(.[^\x01]*)\x02viewFile\.asp\?id=*([0-9]*)\x01\/UPLOAD\x02(.*)" Test=re.Test(s) LoopCount=LoopCount+1 If LoopCount>MaxLoopCount Then Exit Do loop end if 二、修改viewfile.asp： 1、原来：
If Dvbbs.Forum_Setting(75)="0" Then Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID) Response.Redirect uploadpath&rs("F_filename") Else filename=Replace(rs("F_filename"),"..","")&"" If Request.ServerVariables("HTTP_REFERER")="" Or InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("SERVER_NAME"))=0 Or filename="" Then Response.Redirect "index.asp" Else Call downloadFile(Server.MapPath(Dvbbs.Forum_Setting(76)&filename)) End If End If 现在：
If Dvbbs.Forum_Setting(75)="0" Then if dvbbs.membername<>"" then if not instr(1,"|"&rs("f_downuser")&"|","|"&dvbbs.membername&"|")>0 then if isnull(rs("F_DownUser")) or rs("F_DownUser")="" then conn.execute("update dv_upfile set F_DownNum=F_DownNum+1,F_DownUser='"&dvbbs.membername&"' where F_ID="&DownID) else conn.execute("update dv_upfile set F_DownNum=F_DownNum+1,F_DownUser=F_DownUser+'|"&dvbbs.membername&"' where F_ID="&DownID) end if end if else Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID) end if Response.Redirect uploadpath&rs("F_filename") Else filename=Replace(rs("F_filename"),"..","")&"" If Request.ServerVariables("HTTP_REFERER")="" Or InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("SERVER_NAME"))=0 Or filename="" Then Response.Redirect "index.asp" Else if dvbbs.membername<>"" then if not instr(1,"|"&rs("f_downuser")&"|","|"&dvbbs.membername&"|")>0 then if isnull(rs("F_DownUser")) or rs("F_DownUser")="" then conn.execute("update dv_upfile set F_DownNum=F_DownNum+1,F_DownUser='"&dvbbs.membername&"' where F_ID="&DownID) else conn.execute("update dv_upfile set F_DownNum=F_DownNum+1,F_DownUser=F_DownUser+'|"&dvbbs.membername&"' where F_ID="&DownID) end if end if else Dvbbs.Execute("Update dv_upfile Set F_DownNum=F_DownNum+1 Where F_ID="&DownID) end if Call downloadFile(Server.MapPath(Dvbbs.Forum_Setting(76)&filename)) End If End If 2、原来：
If Response.IsClientConnected Then Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name 现在：
If Response.IsClientConnected Then dim TruePos dim TrueFileName TruePos=instrrev(f.name,"___") if TruePos>0 then TrueFileName=left(f.name,TruePos-1) else TrueFileName=f.name end if TruePos=instrrev(TrueFileName,"/") if TruePos>0 then TrueFileName=right(TrueFileName,len(TrueFileName)-TruePos) end if Response.AddHeader "Content-Disposition", "attachment; filename=" & TrueFileName 全部完成！</div>

村长小麦 · 发表于 2007-5-13 13:32:57

<div class="t_msgfont" id="message12019">找到后台风格样式模板总管理--Page_online temp(0)的 if ((username!=''&&(str[4])!=0&&str[3]=='2')||(master==1&&(str[4])!=0)) { showstring+='<a href=dispuser.asp?name='+str[1]+' target=_blank >查看资料</a>&nbsp;&nbsp;<a href=messanger.asp?action=new&touser='+str[1]+' target=_blank >给他留言</a>' } 改为： if ((username!=''&&(str[4])!=0&&str[3]=='2')||(master==1&&(str[4])!=0)) { showstring+='<a href=dispuser.asp?name='+str[1]+' target=_blank >查看资料</a>&nbsp;&nbsp;<a href=messanger.asp?action=new&touser='+str[1]+' target=_blank >给他留言</a>&nbsp;&nbsp;<a href=TopicOther.asp?t=1&action=lookip&ip='+str[tmpcount[4]]+' >查看IP来源</a>' } else { if(master==1) showstring+='I P来源：<a href=TopicOther.asp?t=1&action=lookip&ip='+str[tmpcount[4]]+' >查看IP来源</a>' }</div>

村长小麦 · 发表于 2007-5-13 13:33:21

<div class="t_msgfont" id="message12020">在inc/dv_ubbcode.asp中找到（一共两处都要改）： Board_Setting(5)=0:Board_Setting(7)=1 改为： Board_Setting(5)=1:Board_Setting(7)=1 </div>

村长小麦 · 发表于 2007-5-13 13:33:47

<div class="t_msgfont" id="message12021">post.asp If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then Dvbbs.AddErrCode(75) 改為： If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then 'Dvbbs.AddErrCode(75) savepost.asp If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") Then Dvbbs.AddErrCode(75) 改為： If Cint(Dvbbs.UserGroupID) < 4 And Cint(Dvbbs.UserGroupID) = rs("UserGroupID") then 'Dvbbs.AddErrCode(75)
</div>

村长小麦 · 发表于 2007-5-13 13:34:10

<div class="t_msgfont" id="message12022">1、将以下代码存为Dv_ShowCode.asp，并放在论坛根目录（也可放其他目录及存成其他文件名，但应于第三步的src相对应）。 <div class="msgheader">QUOTE:</div><div class="msgborder"><script>if(parent.document.all.codestr)parent.document.all.codestr.value="<%=Session("GetCode")%>";</script></div> 2、后台风格管理Main_Style，MainHtml(8)，在代码最后加入以下代码： <div class="msgheader">QUOTE:</div><div class="msgborder"><iframe frameborder="no" height=0 width=0 src="Dv_ShowCode.asp"></iframe></div> 即可</div>

		自动登录	找回密码
密码			中文注册

DV7.1SP1版修改美化

41、"论坛通行证"全面大清除

42、下拉式改帖子字体大小修改方法(10.27最新)

43、主题贴编辑后自动提升

44、状态栏显示站长QQ和电子邮件地址

45、让斑竹不能给自己加精华

46、上传附件显示详细信息的修改方法

47、在线列表中方便查询客人和会员IP来源

48、公告和短消息中开启URL自动识别的修改

49、论坛同等级版主不能相互编辑的修改

50、验证码自动填写