<!--#include file="connsmss.asp"-->

<%Call head()
Call saycarda("手机短信")
	dim rs,sql,i,i1


dim sy,sid
sy=request.QueryString("sy")
sid=request.QueryString("sid")
if sy="" then sy="say"

	Set Rs = Server.CreateObject("Adodb.Recordset")



	dim smssnum
    smssnum=connsmss3.execute("Select count(ID) from [xywap_sms_list]")(0)
		
		if xywap.Logo<>"" then
		%><img src="<%=smsLogo%>" alt='logo'/><br/><%
		end If
		%>
共有<%=smssnum%>条精品手机短信<%

		if xy="Null" then
		%><%
		else
		xywap.info
		end if


			%>
	
			
<br/>
[短信妙语分类]<br/>

			<%
				Sql = "select [id],[name],[br] from xywap_sms_class  order by [pid] asc"
				Rs.Open Sql,connsmss3,1,1
				if not (rs.bof and rs.eof)  then
				For i=1 to rs.RecordCount
					%><a href="list.asp?listid=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>"><%=rs("name")%></a><%
					if rs("br")=1 or i= rs.RecordCount then
					%><br/><%
					else
					%>|<%
					end if
				Rs.MoveNext
				next
				end if
				Rs.close

if saytk<>1 Then

Response.write "<form name=""form"" method=""post"" action=""search.asp?saytk="&saytk&"&amp;sid="&sid&""">"
%><input type="text" name="name" size="10" value="" title="请输入关键词"/>
<%
response.write "<input type=""hidden"" name=""sear"" value=""1""/>"
response.write "<input type=""submit"" name=""Submit"" value=""搜索短信""></form><br/>"
Else
%><input type="text" name="name" size="10" value="" title="请输入关键词"/>
<%
response.write "<anchor>搜索短信<go href=""search.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"">" & Chr(13)
response.write "<postfield name=""name"" value=""$(name)""/>" & Chr(13)
response.write "<postfield name=""sear"" value=""$(sear)""/>" & Chr(13)
response.write "</go></anchor><br/>" & Chr(13)
End if


				Sql = "select top 9 [id],[name] from [xywap_sms_list]  order by [id] desc"
				Rs.Open Sql,connsmss3,1,1
				if not (rs.bof and rs.eof)  then
				%>
				[最新精品短信]<br/>
				<%
				For i=1 to rs.RecordCount
					%><a href="view.asp?id=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>&amp;backurl=index.asp"><%=Left(rs("name"),13)%></a><br/><%
				Rs.MoveNext
				next
				end if
				Rs.close




				Randomize
				Sql = "select top 9 [id],[name] from [xywap_sms_list] where tuijian=1 order by rnd( -(id+" & Rnd() & ")) desc"
				Rs.Open Sql,connsmss3,1,1
				if not (rs.bof and rs.eof)  then
				%>
				[精品短信推荐]<br/>
				<%
				For i=1 to rs.RecordCount
					%><a href="view.asp?id=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>&amp;backurl=index.asp"><%=Left(rs("name"),13)%></a><br/><%
				Rs.MoveNext
				next
				end if
				Rs.close




				Randomize
				Sql = "select top 9 [id],[name] from [xywap_sms_list] order by rnd( -(id+" &  Int((10000 * Rnd) + 1) & ")) desc"
				Rs.Open Sql,connsmss3,1,1
				if not (rs.bof and rs.eof)  then
				%>
				[精品短信推荐]<br/>
				<%
				For i=1 to rs.RecordCount
					%><a href="view.asp?id=<%=rs("id")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>&amp;sy=<%=sy%>&amp;backurl=index.asp"><%=Left(rs("name"),13)%></a><br/><%
				Rs.MoveNext
				next
				end if
				Rs.close


			
	set rs=nothing


if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk=[saytk]&amp;sid=[sid]]"&myni&"[/url]"
else
mz="游客"&Replace(time(),":","")&""
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"逛到了(url=/qtwap/sms/?saytk=[saytk]&amp;sid=[sid])精品手机短信(/url)')")




    		Response.Write("<img src=""/img/fg/1.gif"" alt=""""/><br/>")
		%>
		<!--#include file="../../fanhui.asp"--><%

Call headsay()
%>