该日志是私密日志，只有管理员或发布者可以查看！

该日志是私密日志，只有管理员或发布者可以查看！

方法.
1.将/********** 格式化表单样式 **********/
input.btn
{border: 1px solid #c0c0c0; background-image: url("bg_btn.gif"); height: 20px;
 padding-left: 10px; padding-right: 1px; padding-top: 2px; padding-bottom: 1px;}

加到skin/joekoe_skin_*.css

2.另存这个图片放到skin/skin_*目录里

3.在相应的页面加入这个

class=btn 


<input type=submit class=btn value='可以发表啦' onclick="javascript:return write_frm_check(1);">
这页是forum_write.asp
点击下载此文件

input.btn
 { border:1px solid #BBBBBB; background:#E8F5FD url(bg_btn.gif) repeat-x; height:auto; padding:3px 2px 1px 2px; }

查看更多...

关键是这步:
打开web_dim(14)=""改为web_dim(14)="gif,jpg,swf,rar,zip|500|1|0|prg/|1|1|1|3300FF|3|images/youimg.bmp|160|50|50|你网站的名字|10|10|gif,jpg,jpeg,bmp|rar,zip,doc||||0033FF"
第一次修改上传设置后,如果没下面红色的那个数字就自己打开common.asp,在那里加个数字.注意看:
web_dim(14)="gif,jpg,swf,rar,zip|500|1|0|prg/|1|1|1|3300FF|3|images/youimg.bmp|160|50|50|你网站的名字|10|10|gif,jpg,jpeg,bmp|rar,zip,doc||||0033FF"
还有加代码的时候不要用自动换行!
如果用了还不行的,请对照下面修改:
打开include/admin_config_edit.asp
sub joekoe_chk_upload()
  dim tdown
  if chk() then
    web_down=code_config(request.form("tdown_0"),4)&"|"&code_config(request.form("tdown_1"),4)
    web_dim(13)=code_url(code_config(request.form("web_upload"),2))
    web_dim(14)=code_config(request.form("tdim_0"),2)&"|"&code_num(request.form("tdim_1"),500)&"|"&code_num(request.form("tdim_2"),5)&"|"& _
     code_num(request.form("tdim_3"),0)&"|"&code_url(code_config(request.form("tdim_4"),2))&"|"& _
  code_config(request.form("tdim_5"),2)&"|"&code_config(request.form("tdim_6"),2)&"|"& _
        code_num(request.form("tdim_7"),0)&"|"&code_config(request.form("tdim_8"),2)&"|" & _
  code_num(request.form("tdim_9"),0)&"|"&code_config(request.form("tdim_10"),2)&"|" & _
        code_num(request.form("tdim_11"),0)&"|"&code_num(request.form("tdim_12"),0)&"|" & _
        code_num(request.form("tdim_13"),0)&"|"&code_config(request.form("tdim_14"),2)&"|" & _
        code_config(request.form("tdim_15"),2)&"|"&code_config(request.form("tdim_16"),2)&"|" & _
        code_config(request.form("tdim_17"),2)&"|"&code_config(request.form("tdim_18"),2)&"|" & _
        code_config(request.form("tdim_19"),2)&"|"&code_config(request.form("tdim_20"),2)&"|" & _
        code_config(request.form("tdim_21"),2)&"|"&code_config(request.form("tdim_22"),2)
    call joekoe_template_common()
    call joekoe_te...

查看更多...

1)首先到后台执行两条SQL
alter table admin_menu add column m_rss_record text(250)
alter table admin_menu add column m_on_rss bit 
2)下载文件覆盖原来的文件 [ 点击下载 ]
3)修改文件 include/con_forum_fir.asp
在vbcrlf&"<font class=gray>[<a href='forum_list.asp?forum_id="&forumid&"&action=isgood'>精华</a>] " & _
上一行加入以下为代码内容： 
 vbcrlf&"<a href=forum_xml.asp?forum_id="&forumid&" target=_blank><img src=images/rss_xml.gif border=0 align=absmiddle alt='RSS 2.0 支持'></a>" & _ 
修改文件 con_forum_main.asp
找到vbcrlf&"  <tr><a href='forum_action.asp?action=new'>论坛新贴</a></td>" & _
修改为vbcrlf&"  <tr><td><a href=forum_xml.asp target=_blank><img src=images/rss_xml.gif border=0 align=absmiddle alt='RSS 2.0 支持'></a> </td>" & _
   vbcrlf&"   <td class=gray><font face=Wingdings>v</font></td>" & _
   vbcrlf&"   <td><a href='forum_action.asp?action=new'>论坛新贴</a></td>" & _
===========================================================
相关设置:
论坛:id,topic,username,tim
文章:id,topic,username,tim
新闻:id,topic,username,tim
下载:id,name,username,tim,hidden
商城:id,name,tim,hidden,price

查看更多...

①在admin_config_edit.asp里面找到<% tmp1=format_mid_num(26) %>,在其上面
添加
<% tmp1=format_mid_num(41) %>
<tr class=tr1>
<td>开放下载：</td>
<td><input type=radio name=web_setup_41 value='1'<% if int(tmp1)=1 then response.write " checked" %>> 是 <input type=radio name=web_setup_41 value='0'<% if int(tmp1)<>1 then response.write " checked" %>> 否</td>
<td class=gray>是否开放下载栏目的软件下载</td>
</tr> 

其中41可以修改为适合自己的数字.
②打开down_view.asp,找到这段内容:
iframe=true
is_download=true
down_26=int(format_mid_num(26)) 

将其更改为:
iframe=true
 is_download=false '下载开关
  if int(format_mid_num(41))<>0 then
    is_download=true
  end if
down_26=int(format_mid_num(26)) 

查看更多...

1)打开upload.asp,
在最上面的dim里面添加定义is_upload
在最后一个%>前面添加如下代码:
'###########################
'# 2006.2.20 修改文件过滤                  #
'###########################

sub tmp_upload(upname)
Dim objFSO,objTS,strText,strArray,ii 
Set objFSO=Server.CreateObject("scripting.FileSystemObject")  
Set objTS=objFSO.OpenTextFile(Server.MapPath(upname),1) '以文本文件方式读取文件 
strText=lcase(objTS.ReadAll) '全文读取，并转换为小写
objTS.Close  
strArray=split(dim_uptype,",")
for ii=0 to ubound(strArray)
if instr(strText,strArray(ii))<>0 then
is_upload=false
call upload_msg(9)
end if
next 
if is_upload=false then
objFSO.DeleteFile Server.MapPath(upname),True '删除文件
end if
Set objFSO=nothing
end sub   

其中dim_uptype为后台定义函数.
我在后台是用的dim_upload(30)
dim_upload=split(web_dim(14),"|")下面添加
dim_uptype=dim_upload(30) 

在每个上传参数里面进行辨别:(一共3处)
  call tmp_upload(upload_path&uppath&"/"&upfile_name)
   if is_upload=false then
    exit sub
  end if 

  call upload_data()  
  call upload_msg(4)
在sub upload_msg(metp)里面添加:
  case 9
    uptemp=vbcrlf&"<font class=red>上传失败</font>：非法文件内容！"&err_goback 

2)在后台定义过滤参数:
打开admin_config_edit.asp
在sub joekoe_chk_upload()里面
找到最后一个code_config(.....)改为
code_config(.....)&"|"&code_config(request.form("tdim_30"),4) 

在:<tr>
<td>文件类型：</td>
<td><input type=text name=tdim_0 value='<% response.write tdim(0) %>' size=35 maxlength=50></td>
<td class=gray>多个类型用“,”分开</td>
</tr> 
下面添加
<tr>
<td>文件内容过滤：</td>
<td><input type=text name=tdim_30 value='<% response.write tdim(30) %>' size=50></td>
<td class=gray>多个过滤关键词用“,”分开</td>
</tr> 

如果出现下标越界,就直接打开common.asp
在web_dim(14)="||||||||||||||||||||||||||||||||||||||||||||||"里面添加"|"
不要""号!!!!
====================================================
文件过滤内容可以自己定义,下面是原来的定义:



cookie,.getfolder,.createfolder,.deletefolder,.createdirectory,.deletedirectory,.saveaswscript.shell,script.encode,folderfath,session 

查看更多...

1)首先在user_data添加一个xzdata的文本字段!
2)将压缩包的数据添加到你的主数据库中!
3)打开forum_view.asp,在顶部定义
--------------------------------------------------------------------------------
以下内容为需要回复才能浏览

dim xzrs,xzid,xzname,xzsm,xzpicurl,xzdata,xzq,xztt,n
在下面u_emoney下面一行添加
sql="select xzdata from user_data where username='"&u_username&"'"
set rs=joekoe_cms.exec(sql,1)
if rs("xzdata")<>"" and rs("xzdata")<>"0|||0|||0|||0|||0" then
 temp1=temp1&"<br>  勋章："
 xzdata=split(rs("xzdata"),"|||")
 for n=0 to ubound(xzdata)
  xzq=xzdata(n)
    if xzq<>"0" then
    set xzrs=conn.execute("select * from xzdata where xzid="&xzq)
    xzid=xzrs("xzid")
    xzname=xzrs("xzname")
    xzsm=xzrs("xzsm")
      xzpicurl=xzrs("xzpicurl")
                   xztt=xzname+"："+xzsm
      temp1=temp1&"<img src=images/xz/"&xzrs("xzpicurl")&" alt="&xztt&" align=absmiddle>"
  end if
 next
end if
4)打开admin_user.asp
找到添加红色部分
  sql="select top 1 id,username,nname,password,passwd,email,bbs_counter,counter,integral,emoney,remark,face,power,tim,hidden,popedom,estate,abate,otim,xzdata from user_data where id="&id
找到添加红色部分 dim username,nname,password,passwd,email,bbs_counter,remark,face,counter,integral,emoney,power,hidden,popedom,estate,abate,otim,xzxg,p41,p42,p_left,p_right
 在 f_otim=joekoe_cms.time_type(rs("otim"),4)下面添加:
  xzxg=request.form("xzn1")& "|||" &request.form("xzn2")& "|||" &request.form("xzn3")& "|||" &request.form("xzn4")& "|||" &request.form("xzn5")
在    rs("popedom")=popedom下面添加:
    rs("xzdata")=xzxg
在<tr><td>论坛屏蔽：</td><td><input type=radio name=p42 value='0'<%if int(p42)=0 then response.write " checked"%>> 正常  <input type=radio name=p42 value='1'<%if int(p42)<>0 then response.write " checke...

查看更多...

①打开jk_keyes.asp
在%>前面添加:
'#########分割多个关键词########################## 
function search_tuwen(b_keyes,strers,kt)
    dim ddim,dnum,di,spvar,result,stypes
    stypes=trim(request.querystring("sea_type"))
    if var_null(b_keyes)="" or var_null(stypes)<>"topic" then
    b_keyes=""
    call getMatchText(b_keyes,strers,result,true)
    search_tuwen=result
    exit function
    end if
    spvar=","
    if kt=2 then spvar=" "
    b_keyes=replace(b_keyes,"'","")
    ddim=split(b_keyes,spvar)
    dnum=ubound(ddim)
    b_keyes="("&ddim(0)&")"
  for di=1 to dnum
   b_keyes=b_keyes&"|("&ddim(di)&")"
  next
  erase ddim
call getMatchText(b_keyes,strers,result,false)
search_tuwen=result
end function
'#######################关键词加色的重点处理####################
sub getMatchText(byref patern,byref str,byref result,isNeedTrunc)
Dim regEx, Match, Matches,found
dim tStr
Set regEx = New RegExp       '建立正则表达式。
regEx.Pattern = (patern)     '设置模式。
regEx.IgnoreCase = True      '设置是否区分字符大小写。
regEx.Global = True          '设置全局可用性。
Set Matches = regEx.Execute(str) '执行搜索。　　
if err.number<>0 then
response.write "错误1："&err.description
err.clear
exit sub
 end if
if matches.count <>0 then
dim startIndex
dim myMatchvalue
startIndex=1
for each match in matches
if (instr(str,match.value)>0) then
if instr(str,match.value)-50 >0 then
startIndex=instr(str,match.value)-50
else
startIndex=1
end if
myMatchvalue=match.value
exit for
end if
next
if isNeedTrunc then
result=(mid(str,startIndex,len(myMatchvalue)+100)) 'strLength
else
result=(str)
end if
for each match in matches
if not(instr(result,"<font color=red><u>"&match.value&"</u></font>")>0) then
result=replace(result,match.value,"<font color=red><u>&q...

查看更多...

以下内容为需要回复才能浏览
①打开include/config.asp:
在<!-- #include file="jk_encrypt.asp" -->下面添加:
<!-- #include file="joekoe_skin.asp" -->
在dim ukong,redx后面定义CMS_Skin
在dim_num=split(web_dim(12),"|")下面添加:
Set CMS_Skin=new class_CMS_Skin 
把原来ukong,redx的定义修改为以下:
ukong=CMS_Skin.skukong
redx=CMS_Skin.skredx
②将下载文件覆盖你原来的文件.(作好自己的备份)
1)skin.asp:总体定义(里面有修改日志)
2)skins.asp
3)admins_config_skin.asp:后台模板管理
4)admins_config_skin_mod.asp:新闻,文章模板
5)joekoe_skin.asp:模板在网站调用参数读出
6)css.mdb:模板所需数据.
③去掉原来网站关于css的一却文件.
下面就是一些模板的调用了(本站只是对SY的模板进行了分离),你可以下载个SY版本,对里面的一些调用过程进行修改.
一些模板的定义可能和你现在里面的定义不同,所以在后台模和自己现在的代码对照进行修改.
以上写的基本就可以进行网站模板化了!

查看更多...