欢迎登录瑶族在线
论坛主题
返回列表

动网论坛8.2正式版修改专题

作者: Yiuh Mienh 发布: 2008-04-14 01:06 分类: 灌水专区 浏览: 2600 回复: 10

出错页面:


 


Response 对象 错误 'ASP 0156 : 80004005'


HTTP 头错误


/User/User_ChkLogin.asp ,行 69


已将 HTTP 头输出到客户端浏览器。任何对 HTTP 头的修改都必须在输出页内容之前进行。


 


解决方法:


 


整合了 登陆的,修改 inc/ajax_log.js    第一行:



var useAjaxPost=1;



把 1 改为 0

回复列表
共 10 条回复
#1 Yiuh Mienh 2008-04-14 01:20:22

无限勋章插件:


 


[attach]467[/attach]

#2 Yiuh Mienh 2008-04-14 01:26:15

广告公司插件:


 


[attach]468[/attach]

#3 Yiuh Mienh 2008-04-14 01:29:14

论坛首页四格调用:


 


[attach]469[/attach]

#4 难得糊涂 2008-04-14 07:35:26
学习学习
#5 Yiuh Mienh 2008-04-28 08:08:08

动网8.2用户注册密码长度修改:


 


注册用户的时候,“密码不能少于6位或多于10位”,这不符合用户体验啊。在哪儿修改,才能不能少于2位多余20位?
只能达到16位最多.
第一步
inc\dv_ajax.js
查找
var RegCheck
把下面的
if (v.length<6||v.length>16){
   isok_pass.innerHTML = err_msg("密码不能少于6位或多于10位");
改成
if (v.length<3||v.length>16){
   isok_pass.innerHTML = err_msg("密码不能少于3位或多于16位");
第二步


以下内容需要回复才能看到
reg.asp
大概374--380行

If Request.form("psw"&fname)="" or len(Request.form("psw"&fname))>10 or len(Request.form("psw"&fname))<6 Then
改为
If Request.form("psw"&fname)="" or len(Request.form("psw"&fname))>16 or len(Request.form("psw"&fname))<3 Then
接着同时也把
If Request.form("pswc"&fname)="" or strLength(Request.form("pswc"&fname))>10 or len(Request.form("pswc"&fname))<6 Then
   ErrCodes=ErrCodes+"<li>"+template.Strings(13)
改为
If Request.form("pswc"&fname)="" or strLength(Request.form("pswc"&fname))>16 or len(Request.form("pswc"&fname))<3 Then
   ErrCodes=ErrCodes+"<li>"+template.Strings(13)
第三步
后台>风格界面模板总管理>page_login>界面风格>temlate.html(0)
查找
<p class="font14">密码</p>
给密码栏加个最大长度16
<input type="password" name="password" id="pwd1" tabindex="2" maxLength="16"/>
注:因为动网的密码最大为16位

#6 Yiuh Mienh 2008-04-28 08:09:56

注册用户的时候,“密码不能少于6位或多于10位”,这不符合用户体验啊。在哪儿修改,才能不能少于2位多余20位?
只能达到16位最多.
第一步
inc\dv_ajax.js
查找
var RegCheck
把下面的
if (v.length<6||v.length>16){
   isok_pass.innerHTML = err_msg("密码不能少于6位或多于10位");
改成
if (v.length<3||v.length>16){
   isok_pass.innerHTML = err_msg("密码不能少于3位或多于16位");
第二步


以下内容需要回复才能看到
reg.asp
大概374--380行

If Request.form("psw"&fname)="" or len(Request.form("psw"&fname))>10 or len(Request.form("psw"&fname))<6 Then
改为
If Request.form("psw"&fname)="" or len(Request.form("psw"&fname))>16 or len(Request.form("psw"&fname))<3 Then
接着同时也把
If Request.form("pswc"&fname)="" or strLength(Request.form("pswc"&fname))>10 or len(Request.form("pswc"&fname))<6 Then
   ErrCodes=ErrCodes+"<li>"+template.Strings(13)
改为
If Request.form("pswc"&fname)="" or strLength(Request.form("pswc"&fname))>16 or len(Request.form("pswc"&fname))<3 Then
   ErrCodes=ErrCodes+"<li>"+template.Strings(13)
第三步
后台>风格界面模板总管理>page_login>界面风格>temlate.html(0)
查找
<p class="font14">密码</p>
给密码栏加个最大长度16
<input type="password" name="password" id="pwd1" tabindex="2" maxLength="16"/>
注:因为动网的密码最大为16位

#7 Yiuh Mienh 2008-08-26 03:57:24

解决“不支持无组件上传,服务器可能未安装该组件。”


 


修改inc/Upload_Class.asp文件里,
'-----------------------------------------------------------------------------------
'设置上传图片组件属性
'-----------------------------------------------------------------------------------
Public Property Let PreviewType(Byval Types)
Preview_Type = Types
'On Error Resume Next
If Preview_Type = "" or Not IsNumeric(Preview_Type) Then
Preview_Type = 999
Else
将 'On Error Resume Next这行前的注释去掉

#8 乔方玉 2008-08-26 07:44:05
要弄的东西还挺多。
#9 杨柳岸南 2008-08-26 07:56:06
QUOTE:
以下是引用乔方玉在2008-8-25 23:44:05的发言:
要弄的东西还挺多。

还有很长的路要走啊!努力!!{:6_320:}{:6_320:}{:6_320:}

#10 Yiuh Mienh 2008-11-23 10:12:38

声明:


本插件原作者:ldlcau


相关帖子地址:http://bbs.dvbbs.net/dispbbs.asp?boardid=13&id=1437072


 


修改内容:


1、增加了首页调用的方法。


2、修改显示页面plus_party_show.asp。(原文件也可以显示,只是不喜欢那种风格,改成列表式了)


3、修改了表单页面的布局。


 


图片:



图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


 


 


安装说明:


1、将压缩包内的所有文件和文件夹上传到论坛根目录。


 


首页显示方法:


第一步:后台修改index模板:


    template.html(0)里面找到{$ad.forumtextad},在其下面添加一行,{$hd.Dvbbs}


 


第二步:修改index.asp文件:


    找到:


Sub TPL_ParseNode(sTokenType, sTokenName)
 Select Case sTokenType


    在下面添加:


  Case "hd"
   Huodong  sTokenName


 


 


找到:


Sub ParseUserInfoNode(sToken) Rem 转换用户信息的数据
 Select Case sToken
  Case "userid"   : TPL_Echo Dvbbs.UserId
  Case "username"   : TPL_Echo Dvbbs.MemberName
  Case Else
   Set Node = Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@"&sToken&"")
   If Not (Node Is Nothing) Then
    TPL_Echo Node.text
   End If  
 End Select
End Su


在下面添加:


Sub Huodong(sToken) Rem 转换用户信息的数据
%>
<!-- #include file="plus_party_show.asp"-->
<%
End Sub


 


这里只是在首页公告上面增加的办法,如果想在其他地方加,只要把{$hd.Dvbbs}挪个位置就可以了。


如果想在版块页面也显示活动,只需要在index模板template.html(1)里面找到{$ad.forumtextad},在其下面添加一行,{$hd.Dvbbs}


如果不需要摄影大赛功能,请删除 plus_party_upload.asp plus_party_uploadlist.asp plus_party_savelogo.asp 这三个文件


 


演示地址:http://www.52yunding.com/dvbbs82/index.asp


 


下载地址:






[attach]3282[/attach]


 


感谢插件原作者ldlcau。


感谢大家支持,希望多多顶帖。

发表回复

您需要登录后才能发表回复

立即登录

在线客服

0.044898s