isay.asp

秘密网源代码 传闻拉了 100W风投

<!-- #include file="Setup.asp" -->
<!--#include file="WoLib/Function.asp"-->
<!--#include file="WoLib/Cls_Class.asp"-->
<%
HtmlTop
%>
<%
	page 		= Request("page")		'分页
	S_Havving 	= Request("S_Havving")	'搜索条件
	if page = "" then
		page = 1
	end if
%>
<table width="900" height="20"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td height="25" class="ptttd1">酒窝窝推荐评论</td>
</tr></table>
<table width="900"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td valign="top">
 <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td height="1" background="Images/dot.jpg"><script type="text/javascript"><!--
google_ad_client = "pub-5306272625842955";
//
google_ad_slot = "5641879509";
google_ad_width = 728;
google_ad_height = 15;
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td></tr><tr><td height="5"></td></tr></table>
 <%
			Set Rs = Server.CreateObject("Adodb.recordset")
			Sql = "SELECT Wo_SrcRevert.*, wo_source.Src_Title,wo_source.Src_AddDate,wo_source.Src_ID, wo_source.Src_UserID, wo_source.Src_GGDesc, Wo_Users.UserID, Wo_Users.UserName, Wo_Users.UserFaceUrl " & _
				  "FROM (wo_source INNER JOIN Wo_SrcRevert ON wo_source.Src_ID = Wo_SrcRevert.Re_SrcID) INNER JOIN Wo_Users ON Wo_SrcRevert.Re_UserID = Wo_Users.UserID Where 1=1 "
			if S_Havving <> "" then	'搜索条件
				Sql = Sql & " and Src_Title like '%"& S_Havving &"%' or Re_Content like '%" & S_Havving & "%'"
			end if
			Sql = Sql & " Order By Re_ID Desc"
			'response.Write(sql)
			'response.End()
			Rs.Open Sql,conn,1,2
			if not Rs.eof then
				rs.pagesize	= 10
				rs.absolutepage = page
				RsPageCount=rs.PageCount
			else
				Response.Write("<table width='98%'  border='0' align='center' cellpadding='0' cellspacing='3'>")
				Response.Write("<tr><td width='100%' height='25' rowspan='2' valign='top'>或或。。没有找到您想找的评论哦！</td></tr>")
				Response.Write("<table>")
			end if
			c_j = 0
			While Not Rs.eof and c_j < rs.pagesize
				c_j = c_j + 1 
		%>
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="5">
<tr> <td width="48" valign="top">
<table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1"><tr>
  <td bgcolor="#FFFFFF"><img src="<% =Rs("UserFaceUrl") %>" width="48" height="48" align="left" /></td></tr></table></td>
            <td valign="top"> 
<%
				Response.Write("<span class='pl'><a href='profile.asp?User_ID="&Rs("UserID")&"' target='wh'>"&Server.HTMLEncode(Rs("UserName"))&"</a> </span>")
				Response.Write("<span class='green'>在"&Rs("Re_AddTime")&"对</span>")
				Response.Write("<a href='show.asp?Src_ID="&Rs("Src_ID")&"' target='_blank'>"&Rs("Src_Title")&"</a> 评价道:</span><br /><br />")
               
				Re_Desc = Rs("Re_Content") 
				Response.Write(Re_Desc)
			%></td> </tr></table>
<table width="98%" height="1"  border="0" align="center" cellpadding="0" cellspacing="0">
 <tr><td background="Images/dot.jpg"></td></tr></table>
<%
				Rs.MoveNext
			Wend			
%>
<%
				  Response.Write("<table width='100%'  border='0' cellspacing='0' cellpadding='0'>"&vbcr)
	Response.Write("<tr>"&vbcr)
	Response.Write("<form name='frm_Page_2' action='"&pageUrl&"' mathod='post'>"&vbcr)
	Response.Write("<td align='right'>&nbsp;"&vbcr)
	if cint(page) = 1 and RsPageCount > 1 then
		Response.Write("上一页&nbsp;&nbsp;")						
		Response.Write("<a href='"&pageUrl&"?S_Havving="&S_Havving&"&Page="&Page+1&"'>下一页</a>")
	elseif cint(page) = RsPageCount and RsPageCount > 1 then
		Response.Write("<a href='"&pageUrl&"?S_Havving="&S_Havving&"&Page="&Page-1&"'>上一页</a>&nbsp;&nbsp;")
		Response.Write("下一页")
	elseif cint(page) > 1 and cint(page) < RsPageCount then
		Response.Write("<a href='"&pageUrl&"?S_Havving="&S_Havving&"&Page="&Page-1&">上一页</a>&nbsp;&nbsp;")
		Response.Write("<a href='"&pageUrl&"?S_Havving="&S_Havving&"&Page="&Page+1&"'>下一页</a>")
	else
		Response.Write("上一页&nbsp;&nbsp;")
		Response.Write("下一页")
	end if
	if RsPageCount >=10 then
		Page_Temp2 = 10
	else
		Page_Temp2 = RsPageCount
	end if
	for i_page_3 = 1 to Page_Temp2
		Selected = ""
		if cstr(page) = cstr(i_page_3) then
			Response.Write("&nbsp;&nbsp;<strong>"&i_page_3&"</strong>")
		else
			Response.Write("&nbsp;&nbsp;<a href='"&pageUrl&"?S_Havving="&S_Havving&"&Page="&i_page_3&"'>"&i_page_3&"</a>")
		end if
	next
	if RsPageCount > 10 then
		Response.Write("&nbsp;&nbsp;<Select name='Page' onchange='javascript:frm_Page_2.submit();'>")					
		for i_page_2 = 11 to RsPageCount
			Selected = ""
			if cstr(page) = cstr(i_page_2) then Selected = " Selected"
			Response.Write("<option value='"&i_page_2&"'" & Selected & ">"&i_page_2&"</option>")
		next
		Response.Write("</Select>")
		Response.Write("<input type='hidden' name='S_Havving' value='"&S_Havving&"'/>")
	end if
	Response.Write("&nbsp;&nbsp;(<strong>"&page&"</strong>&nbsp;/&nbsp;<strong>"&RsPageCount&"</strong>)")	
	Response.Write("&nbsp;&nbsp;</td></form>")
	Response.Write("</tr>")
	Response.Write("</table>")
			%>	
    </td>	
    <td width="1" valign="top" bgcolor="#E1E1E1"></td>
 <td width="300" valign="top"><table width="98%" height="100"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#e1e1e1">
 <tr>  <td bgcolor="#EEFFEE">
<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="3">
<form action="iSay.asp" method="post" name="frm_data">
 <tr><td height="25" class="attn"><div align="center">找评论</div></td>  </tr>
 <tr><td height="25"><div align="center">
<input type="text" name="S_Havving" value="<%=S_Havving%>" onClick="this.select();"/></div></td>
</tr><tr><td height="25">
<div align="center">
<input type="submit" name="Submit2" value="评论搜索" /></div></td>
 </tr><tr>
<td height="25"><% Call WoDig.Get_RevertState() %></td>
</tr>  </form></table></td> </tr>
</table> <br /> </td></tr></table>
<%
	Rs.Close
	Set Rs = nothing
%>
<%
HtmlBottom
%>