动网官方论坛动网论坛交流插件开发使用插件收集区 → [原创]恋爱结婚插件FOR 7.1SP1版本0.39-1-31

动网论坛商业版 享受贴心服务 创新时代、PHP2.0++强劲推出 动网空间买2送1,国际域名78元 动网合租服务器 专业+品质 隆重推出
动网ASP8.2最新下载 站长使用手册(ASP8.1\8.2) 动网论坛新春风格2011下载(适用于ASP8.3.0) 千款小游戏尽你玩
泡泡玩最新网页游戏 再接再厉 众望所归-----动网论坛ASP8.3正式发布 游戏美妹,挑战你的眼球 体验我们自己的游戏,建立属于我们的家族

  共有515309人关注过本帖树形打印复制链接

主题:[原创]恋爱结婚插件FOR 7.1SP1版本0.39-1-31

帅哥哟,离线,有人找我吗?
fgp3
  1楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 天下八武海
等级:侠之大者 帖子:578 积分:3532 威望:0 精华:0 注册:2004/12/23 20:16:00
[原创]恋爱结婚插件FOR 7.1SP1版本0.39-1-31  发帖心情 Post By:2005/4/26 21:09:00 [只看该作者]

个人论坛 http://www.flyxnet.CN (纯属个人试验,请不要去发广告……)

 

抱歉了大家,现在已经没有再弄ASP了.      BY FGP3  2008年3月10日.

 

演示帖 :

下载地址:

 

安装方法:

1 后台添加插件菜单:    (可选)(注意"../"不能少)

 链接           plus_marry_index.asp

            管理链接       ../plus_marry_admin.asp

            插件ID            marry 

 

2 帖间显示部分:

第一步         打开DISPBBS.ASP 文件         加入红色字部分

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="inc/dv_ubbcode.asp"-->
<!--#include file="plus_marry_show.asp"-->
<%
If Dvbbs.BoardID < 1 Then
Response.Write "参数错误"
Response.End
End If
Dvbbs.LoadTemplates("dispbbs")
 

………………………………………………………………………………

postbody=Node.selectSingleNode("@body").text
'过滤脏字
postbody=Dvbbs.ChkBadWords(postbody)
Topic=Node.selectSingleNode("@topic").text
Node.selectSingleNode("@topic").text=Dvbbs.ChkBadWords(Topic)
UserName=Node.selectSingleNode("@username").text



Node.attributes.setNamedItem(postuserlist.createNode(2,"love","")).text=islove(Node.selectSingleNode("@username").text)



PostBuyUser=Node.selectSingleNode("@postbuyuser").text
ReplyID_a=Node.selectSingleNode("@announceid").text
RootID_a=Node.selectSingleNode("@rootid").text
AnnounceID_a=ReplyID_a
Node.selectSingleNode("@username").text=Dvbbs.ChkBadWords(username)
 

第二步,进入后台风格模板管理,打开 PAGE_DISPBBS template.html(0)加入红色字部分

<xsl:if test="/post/userlist/user[@userid=$userid]/@usertitle != ''"><div>头衔:<xsl:value-of select="/post/userlist/user[@userid=$userid]/@usertitle"/></div></xsl:if>
</xsl:if>
<div>等级:<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userclass"/></div>

<xsl:value-of select="@love" disable-output-escaping="yes" />

<xsl:if test="/post/userlist/user[@userid=$userid]/@userpower != 0"><div>威望:<font color="red"><b><xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpower"/></b></font></div></xsl:if>
<div>文章:<xsl:value-of select="/post/userlist/user[@userid=$userid]/@userpost"/></div>

 

 

3 用户资料显示部分修改 :

 

第一步:修改 dispuser.asp文件,添加红色部份

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="plus_marry_show.asp"-->
<%
Dvbbs.LoadTemplates("dispuser")
Dim ErrCodes,UserName,ShowUserid
UserName=Dvbbs.CheckStr(Request("name"))
If IsNumeric(Request("id")) and Request("id")<>"" Then
ShowUserid=Clng(Request("id"))
Else
…………………………………………………………………………………………………………………………

TempPart1=Replace(TempPart1,"{$UserMsn}",UserIM(3))
TempPart1=Replace(TempPart1,"{$UserAIM}",UserIM(4))
TempPart1=Replace(TempPart1,"{$UserYahoo}",UserIM(5))
TempPart1=Replace(TempPart1,"{$UserUC}",UserIM(6))
TempPart1=Replace(TempPart1,"{$UserMobile}",UserInfo(39))
TempPart1=Replace(TempPart1,"{$UserID}",ShowUserid)
dim love
love=islove(username)
TempPart1=Replace(TempPart1,"{$userlove}",love)

Response.Write TempPart1
End If

'详细资料部分

第二步: 分页面模板(page_dispuser)界面风格管理template.html(1)

</tr>
<tr>
<td class=tablebody2 align=right valign=top>婚恋状况</td>
<td class=tablebody2>{$userlove}</td>
<td class=tablebody1 align=center>
<b><a href="#" onclick="openScript('plus_Tools_InfoSetting.asp?action=0&ToUserID={$UserID}',500,400)">使用道具</a> | <b><a href="javascript:openScript('messanger.asp?action=new&touser={$UserName}',500,400)">给他留言</a> |
<a href="friendlist.asp?action=addF&myFriend={$UserName}" target=_blank>加为好友</a></b>
</td>
</tr></table><br>

 

 

4 首页滚动显示部分修改

            (我个人觉得是没什么必要。因为实在想大家知道结婚了,可以在后台管理中设置结婚后发公告。实在不行还可以去发帖子…………不过有很多人找我要。就改了出来,因为我不懂XML,所以用了框架的方法,暂时只能这样。SORRY)

 打开分页面模板(PAGE_INDEX) TEMPLATE(0) 添加红色字部分

a href="query.asp?stype=4&amp;pSearch=0&amp;nSearch=0">热门话题</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&amp;orders=1">发贴排行</a>
<font face="Wingdings" color="666666">v</font>
<a href="infolist.asp?t=toplist&amp;orders=7">用户列表</a>
</div>
</div>

<div class="th" style="text-align :center; ">
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_index.asp">【礼堂首页】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bfea</FONT>
<a href="plus_marry_court.asp">【婚恋事务】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT><FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_list.asp">【详细列表】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT><FONT FACE="Wingdings 2" COLOR="#FF9BB1">ea</FONT>
<a href="plus_marry_cabaret.asp">【社区酒店】</a>
<FONT FACE="Wingdings 2" COLOR="#FF9BB1">bf</FONT>
</div>
<div class="mainbar3" style="text-align :center;padding:3px 0px;height:28px;" >
<iframe id="top_marry_topshow" marginwidth="0" marginheight="0" frameborder="0" scrolling="no" src="plus_marry_topshow.asp" width="100%" height="20"></iframe></div>


</xsl:template>
<xsl:template name="userinfo">
<div style="float:left;width:80px;height:100px;overflow :hidden;"><a href="dispuser.asp?id={BoardList/userinfo/@userid}" title="查看我的信息"><img src="{BoardList/userinfo/@userface}" alt="查看我的信息" height="60" style="margin-top:12px;margin-left:2px;border:0px"/></a></div>
<div style="float:left;">

 

完成……………………

效果如图:


 


图片点击可在新窗口打开查看此主题相关图片如下:
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-3-10 20:22:36编辑过]

购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
fgp3
  2楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 天下八武海
等级:侠之大者 帖子:578 积分:3532 威望:0 精华:0 注册:2004/12/23 20:16:00
  发帖心情 Post By:2005/4/26 21:10:00 [只看该作者]

主要功能

1 后台设置和管理

2 增加虚拟形象的开关(目前没有什么用)不用装虚拟形象,即有没有虚拟形象均可正常运行.

3 恋爱结婚一网打尽(包括分手离婚功能)

4 亲友团投票功能,结婚送礼功能

5 后台多个参数自主设定。

6 结婚照功能(可随意更换为自已的图片)

7 求婚撤消分手撤消离婚撤消等方便的功能

8 数据库重建

9 恋爱等级和婚姻等级功能(随时间变化。可以自主设定)

10 适应现代社会现状,后台可设定是否允许同性恋,是否允许多人恋爱,是否允许婚外恋。。

11 只有新郎才能登记,并且登记后会在论坛首页插入公告。    

特别说明:

求婚或求爱失败后,送出去的金币是不会退的哦!!

[此贴子已经被作者于2006-1-30 10:29:05编辑过]

最新的网页游戏资讯一网打尽  回到顶部
帅哥哟,离线,有人找我吗?
tcs530
  3楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:20 积分:331 威望:0 精华:0 注册:2005/4/23 7:33:00
  发帖心情 Post By:2005/4/26 21:10:00 [只看该作者]

沙发顶~~~~~呵呵~~~沙发啊~~~~


动网合租服务器 专业+品质 隆重推出  回到顶部
美女呀,离线,留言给我吧!
┊璐姊灬
  4楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC



加好友 发短信 1оo.℅坏
等级:城市猎人 帖子:2621 积分:12246 威望:0 精华:0 注册:2004/12/15 10:27:00
  发帖心情 Post By:2005/4/26 21:40:00 [只看该作者]

帮你顶。绝对好东西,如果可以生孩子,和家园结合,可以拥有两个人同一个家庭什么什么的。具体想法还在思考中

购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
fgp3
  5楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 天下八武海
等级:侠之大者 帖子:578 积分:3532 威望:0 精华:0 注册:2004/12/23 20:16:00
  发帖心情 Post By:2005/4/26 22:03:00 [只看该作者]

可以生孩子。。。。。晕。把整个模拟人生搬到论坛上来么。

呵呵。

小璐璐有没有兴趣美化一下么。版权算大家的。(表格我画得很烂。图片也用得差)


最新的网页游戏资讯一网打尽  回到顶部
帅哥哟,离线,有人找我吗?
一切属于你
  6楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:272 积分:1195 威望:0 精华:0 注册:2002/6/27 22:40:00
  发帖心情 Post By:2005/4/26 22:36:00 [只看该作者]

我只是比较关心数据库...可以在现在使用的结婚版本上升级么?

动网论坛新春风格2011下载(适用于ASP8.3.0)  回到顶部
帅哥哟,离线,有人找我吗?
fgp3
  7楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 天下八武海
等级:侠之大者 帖子:578 积分:3532 威望:0 精华:0 注册:2004/12/23 20:16:00
  发帖心情 Post By:2005/4/26 23:09:00 [只看该作者]

这个不是什么问题。我会写一个文件专门用来转换以前的FOTNF版结婚插件。

目前只是测试而已。还没有最终完成。


购买动网论坛商业版 享受贴心服务  回到顶部
帅哥哟,离线,有人找我吗?
快乐宝
  8楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC



加好友 发短信 生命在于运动
等级:侠圣 帖子:6692 积分:30741 威望:0 精华:1 注册:2004/1/16 17:41:00
  发帖心情 Post By:2005/4/26 23:52:00 [只看该作者]

我来测试一下

动网空间买2送1,国际域名78元  回到顶部
帅哥哟,离线,有人找我吗?
桀骜不羁
  9楼 博客 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 以和为贵
等级:退休版主 帖子:3955 积分:9760 威望:1 精华:0 注册:2003/8/20 22:29:00
  发帖心情 Post By:2005/4/27 9:18:00 [只看该作者]

哈哈,看来我提的意见还是都采纳了 图片点击可在新窗口打开查看图片点击可在新窗口打开查看

可惜我还在外地,测试不了, 至于说美化的事我五一回来帮你看看,或许能略知一二,虽然水平不行~

回去测试~


动网.Net论坛官方讨论区  回到顶部
帅哥哟,离线,有人找我吗?
很烦
  10楼 博客 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 基地组织
等级:论坛游侠 帖子:266 积分:1481 威望:0 精华:0 注册:2005/3/23 13:26:00
  发帖心情 Post By:2005/4/27 9:28:00 [只看该作者]

支持一下.不过要装虚拟形象,我没有装,就不能帮你测试了.


动网.Net论坛官方讨论区  回到顶部
总数 390 1 2 3 4 5 6 7 8 9 10 下一页 ..39