%set rs=server.CreateObject("adodb.recordset")
set rss=server.CreateObject("adodb.recordset")
set rsl=server.CreateObject("adodb.recordset")
typeid=64%>
广东医药招商网--招商企业产品
<%
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
if clng(request("txtitle"))<>"" then
rs1.open "select * from FT_user where id="&clng(request("txtitle")),conn,1,1
end if
vv1=rs1("qymc")
vv2=rs1("fullname")
vv3=rs1("tel")
vv4=rs1("mobile")
vv5=rs1("fax")
vv6=rs1("address")
vv7=rs1("post")
vv8=rs1("email")
vv9=trim(rs1("web"))
vv0=left(trim(rs1("content")),200)
%>
<%
set rs0=server.CreateObject("adodb.recordset")
sql0="select * from ce_zs where user_id="&clng(request("txtitle"))&" order by dateandtime desc"
rs0.open sql0,conn,1,1
for i=1 to rs0.recordcount
if i mod 5 =0 then
xx0="
"
else
xx0=""
end if
%>
<%=xx0%>
<%
rs0.movenext
next
rs0.close
set rs0=nothing
%>
::产品信息::
<%
rs.pagesize=7
rs.Absolutepage=1
sql="select * from ce_zs where user_id="&clng(request("txtitle"))&" order by dateandtime desc"
rs.open sql,conn,1,1
rs.Absolutepage=Request.querystring("cnt")
If rs.Pagecount<1 Then
Response.Write "
没有纪录
"
else
for i=1 to rs.pagesize
Set rssort= Server.CreateObject("ADODB.Recordset")
sortsql="select * from class_1 where sortid="&rs("sortid")&""
rssort.open sortsql,conn,1,1
sortname=rssort("sort")
rssort.close%>