落伍者站长论坛's Archiver

梦游先生 发表于 2007-4-11 18:38

申精！仿大众点评网源代码(asp)

演示：[url]http://www.cangmang.com/cangmang/index.asp[/url]
帐号：cangmang
密码：cangmang

点评网的免费代码很少，许多人都高价待沽。现在放出来，只有一个小请求，能不能帮我做一个友情链接，我的站现在人气太少啦，也可以说科幻现在太不景气了。请[b][color=Red]支持科幻一下[/color][/b]，谢谢啦。
我的链接：
苍茫网
[url]http://www.cangmang.com[/url]
logo: [img]http://www.cangmang.com/cangmang/images/logocangmang.gif[/img]

[[i] 本帖最后由 梦游先生 于 2007-4-11 18:45 编辑 [/i]]

yinet 发表于 2007-4-11 18:39

先顶，后看

可乐DODO 发表于 2007-4-11 18:43

顶。。好人啊。

shenqin 发表于 2007-4-11 18:44

一定支持！

6688 发表于 2007-4-11 18:45

好东西

TXLZ

sunnyv 发表于 2007-4-11 18:51

强烈支持

netbei 发表于 2007-4-11 18:51

[quote]原帖由 [i]sunnyv[/i] 于 2007-4-11 18:51 发表
强烈支持 [/quote]

lwbing 发表于 2007-4-11 19:02

好人拉。。。。

bluechen 发表于 2007-4-11 19:30

[quote]原帖由 [i]sunnyv[/i] 于 2007-4-11 18:51 发表
强烈支持 [/quote]

Joahon 发表于 2007-4-11 19:36

好像见过哦
呵呵 支持下

风云在线 发表于 2007-4-11 19:45

绝对支持哈

uvsky 发表于 2007-4-11 19:45

测试测试哈

uvsky 发表于 2007-4-11 19:47

链接我给你做上
我的站也刚开哈

ldwz 发表于 2007-4-11 20:09

paihang.asp 缺少 这个页面 !不是还缺少别的不!

梦游先生 发表于 2007-4-11 20:21

[quote]原帖由 [i]ldwz[/i] 于 2007-4-11 20:09 发表
paihang.asp 缺少 这个页面 !不是还缺少别的不! [/quote]
呵呵，由于你不一定也点评小说，所以这些页面可以自己随便制作啊，你可以随意加啊。
我的排行源代码。

<!--#include file="WoLib/WowoConn.asp"-->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/header.asp"-->
<%Response.Write("<title>全部作品排行 - 苍茫 - 科幻奇幻</title>"&vbcr)%>
<%
        Src_Child        = Request("Src_Child")        '二级类别
        Src_Tags        = Request("Tags")                '标签
        S_Havving         = Request("S_Havving")        '搜索条件
        page                 = Request("page")                '分页
        order_by        = Request("order_by")        '排序
        tags_name   = Request("tags_name")        '标签
        tags_ID     = Request("tags_ID")        '标签ID
        if Src_Child = "" or Src_Child = "-1" then
                Src_Child = -1
        end if
        if Order_By = "" or isNull(Order_By) or isNumeric(Order_By)=false then               
                Order_By = "1"
        end if       
        if page = "" then
                page = 1
        end if       
        if isNumeric(Src_Child)=false or isNumeric(page)=false then
                Response.Redirect("index.asp")        '防注入
        end if
        if tags_ID<>"" and isnumeric(tags_ID)=false  then
        Response.Redirect("index.asp")        '防注入
        end if
Str_Child = ""
        Set Rs_Child=Server.CreateObject("adodb.recordset")
        Sql_Child = "Select * from cm_SrcChild Where Child_TypeID="&Session("_WTypeID")&" and Child_IsUse=true Order By Child_OrderBy"
        Rs_Child.Open Sql_Child,conn
        if not Rs_Child.eof then
                while not Rs_Child.eof
                        Str_Child = Str_Child & "<td><a class=B  href='search.asp?Src_Child="&Rs_Child("Child_ID")&"'>" & Rs_Child("Child_Name") & "</a></td>"
                        Rs_Child.MoveNext
                wend
        end if
        Rs_Child.Close
        Set Rs_Child = Nothing
if Src_child<>"" and Src_child<>"-1" then
   set rs=conn.execute("select Child_name from cm_SrcChild where Child_id="&src_child)
   Child_name=rs("Child_name")
      if not rs.eof then
        Response.Write("<title>"& Child_name & "---" & Web_Name & "</title>"&vbcr)
      end if
rs.close
set rs=nothing
else
        Response.Write("<title>"& Web_Slong & "---" & Web_Name & "</title>"&vbcr)
end if
          'Call Default.Get_Search() '搜索
%>
</DIV> <!-- 结束头部 -->
<DIV id=Main>
<DIV id=LeftColumn>
<DIV id=ShopInfo>
<SPAN id=IndexMsg></SPAN></DIV>
<DIV id=Votes>
<DIV class=VoteBlock id=2909960>
<table width="778" border="0" cellspacing="0" cellpadding="0" ><tr><td valign=top>
<%
Response.Write("<DIV class=RightBlock>"&Vbcr) '最新作品
                Response.Write("<P class=RightTitle>最新提评小说</P><SPAN>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 30 * FROM cm_Source  Order By Src_AddDate Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 30
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("Src_AddDate")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr) '得分最高小说
                Response.Write("<P class=RightTitle>得分最高小说</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 30 * FROM cm_Source  Order By zongfen Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 30
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("zongfen")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr) '浏览最多小说
                Response.Write("<P class=RightTitle>浏览最多小说</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 10 * FROM cm_Source  Order By Src_SeeNum Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 10
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("Src_SeeNum")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr) '文笔得分最高小说
                Response.Write("<P class=RightTitle>文笔得分最高小说</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 30 * FROM cm_Source  Order By wenbi Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 30
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("wenbi")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
</tr>
<tr><td valign=top>
<%
Response.Write("<DIV class=RightBlock>"&Vbcr) '构思得分最高小说
                Response.Write("<P class=RightTitle>构思得分最高小说</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 30 * FROM cm_Source  Order By gousi Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 30
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("gousi")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr) '想象力得分最高小说
                Response.Write("<P class=RightTitle>想象力得分最高小说</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs = Server.CreateObject("Adodb.recordset")
                Sql = "SELECT Top 30 * FROM cm_Source  Order By xiangxiangli Desc"
                Rs.open Sql,conn,1,2
                Z_IC = 0
                while not Rs.eof and Z_IC < 30
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href=""SrcShow.asp?Src_ID="&Rs("Src_ID")&""" target='_blank' title='"&Rs("xiangxiangli")&"'>"&left(Rs("src_Title"),10)&"</a>&nbsp;&nbsp;</LI>"&vbcr)
                Rs.MoveNext
                Wend
                Rs.close
                Set Rs = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr)
                Response.Write("<P class=RightTitle>活跃分子</P><SPAN class=RightContent >"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs_PaiMin = Server.CreateObject("Adodb.recordset")
                Sql_PaiMin = "SELECT Top 10 Count(cm_source.Src_ID) as countID,cm_source.Src_UserID, cm_User.User_CoolName, cm_User.User_Photo " & _
                                         "FROM cm_User INNER JOIN cm_source ON cm_User.User_ID = cm_source.Src_UserID " & _
                                         "where Src_IsOver=false " & _
                                         "GROUP BY cm_source.Src_UserID, cm_User.User_CoolName, cm_User.User_Photo " & _
                                         "order by Count(cm_source.Src_ID) Desc"
                Rs_PaiMin.open Sql_PaiMin,conn
                Z_IC = 0
                while not Rs_PaiMin.eof and Z_IC < 10
                Z_IC = Z_IC + 1               
                        Response.Write("<LI>·&nbsp;<a class=""B"" href='My.asp?User_ID="& Rs_PaiMin("Src_UserID") &"' target='_blank'>"& Rs_PaiMin("User_CoolName") &"</a>&nbsp;<SPAN class=TColor2>("& Rs_PaiMin("countID") & ")</SPAN></LI>"&vbcr)
                        Rs_PaiMin.movenext
                Wend
                Rs_PaiMin.close
                Set Rs_PaiMin = nothing         
        Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
<td valign=top><%
Response.Write("<DIV class=RightBlock>"&Vbcr)
                Response.Write("<P class=RightTitle>最新成员</P><SPAN class=RightContent>"&Vbcr)
                Response.Write("<UL class=""LI2 TColor10"">"&Vbcr)
                Set Rs_NewUser = Server.CreateObject("Adodb.recordset")
                Sql_PaiMin = "SELECT Top 10 User_ID, User_CoolName, User_Photo ,User_SignInDate FROM cm_User Order By User_ID Desc"
                Rs_NewUser.open Sql_PaiMin,conn
                Z_IC = 0
                while not Rs_NewUser.eof and Z_IC < 10
                Z_IC = Z_IC + 1
                        Response.Write("<LI>·&nbsp;<a class=""B"" href='My.asp?User_ID="& Rs_NewUser("User_ID")&"' target='_blank' title="&Rs_NewUser("User_SignInDate")&">"&Rs_NewUser("User_CoolName")&"</a>&nbsp;&nbsp;<SPAN class=TColor2>("& FormatDateTime(Rs_NewUser("User_SignInDate"),4)& ")</SPAN></LI>"&vbcr)
                        Rs_NewUser.MoveNext
                Wend
                Rs_NewUser.close
                Set Rs_NewUser = nothing      
      Response.Write("</UL></SPAN></DIV>"&vbcr)
%></td>
</tr>
</table>

</DIV></DIV></DIV>
</DIV>
<DIV class=Footer>
<DIV class=FL></DIV><SPAN class=SI>
</SPAN>
<P class=SA>免责声明:站内会员言论仅代表个人观点,并不代表本站同意其说法或描述,本站不承担由此引起的法律责任。</P></DIV>
</BODY></HTML>

[[i] 本帖最后由 梦游先生 于 2007-4-11 20:23 编辑 [/i]]

mydo 发表于 2007-4-11 20:36

支持下

ldwz 发表于 2007-4-11 20:53

支持!

ldwz 发表于 2007-4-11 20:54

谢谢..支持以下!!!

qqaabbcc 发表于 2007-4-11 21:25

支持，呵

网络探索者 发表于 2007-4-11 21:26

*** 作者被禁止或删除 内容自动屏蔽 ***

页: [1] 2 3 4 5

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.