<%session("list")=0%>
<%
on error resume next
session("useridname")=Request.cookies("ly")("useridname")
session("useridpassword")=Request.cookies("ly")("useridpassword")
session("admin")=Request.cookies("ly")("admin")
if session("showmodal")="" then
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "Select modal From option1",Conn,3,3
if rs("modal")=2 then response.Redirect("default1.asp")
session("showmodal")="1"
end if
%>
<%
del=no
type1=no
del=request("del")
type1=request("type1")
if del="ok" and session("admin")=true then
Set rs=Server.CreateObject("ADODB.RecordSet")
if type1="ok" then
rs.open "Select * From reply where id1="&request("id"),Conn,2,3
else
rs.open "Select * From guest where id="&request("id"),Conn,2,3
end if
rs.delete
rs.update
rs.close
set rs=nothing
response.Redirect "default.asp"
end if
text=request("text")
option1=request("option")
if option1="" then option1=0
if session("admin")="" then session("admin")=false
Set rs1=server.createobject("ADODB.RECORDSET")
rs1.open "Select * From option1" ,Conn,3,3
webname=rs1("webname")
homepage=rs1("weblink")
if request("jinghua")="1" then jinghua=" and jinghua=true" else jinghua=""
if rs1("show") and ((session("admin")<>1) and (session("admin")<>2)) then
select case option1
case 1
SQL="Select * From guest where mark=true and subject like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
case 2
SQL="Select * From guest where mark=true and content like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
case 3
SQL="Select * From guest,reply where (mark=true) and (guest.id=reply.id) and (reply.replycontent like '%"&text&"%'"&")"&jinghua&" order by top1,guest.lastdate desc"
case 4
SQL="Select * From guest where mark=true and username='"&text&"'"&jinghua&" order by top1,lastdate desc"
case else
sql="SELECT * FROM guest where mark=true"&jinghua&" order by top1,lastdate desc"
end select
else
select case option1
case 1
SQL="Select * From guest where subject like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
case 2
SQL="Select * From guest where content like '%"&text&"%'"&jinghua&" order by top1,lastdate desc"
case 3
SQL="Select * From guest,reply where (guest.id=reply.id) and (reply.replycontent like '%"&text&"%'"&")"&jinghua&" order by top1,guest.lastdate desc"
case 4
SQL="Select * From guest where username='"&text&"'"&jinghua&" order by top1,lastdate desc"
case else
sql="SELECT * FROM guest where 1=1"&jinghua&" order by top1,lastdate desc"
end select
end if
Set rs=server.createobject("ADODB.RECORDSET")
rs.open sql,conn,3,3
if not rs.eof then
rs.pagesize=rs1("row2")
PageNo=REQUEST("PageNo")
if PageNo="" or PageNo=0 then PageNo=1
RS.AbsolutePage=PageNo
TSum=rs.pagecount
RowCount=rs.PageSize
PageNo=PageNo+1
PageNo=PageNo-1
if CINT(PageNo)>1 then
if CINT(PageNo)>CINT(TSum) then
response.Write("对不起没有您想要的页数")
Response.End
end if
end if
if PageNo<0 then
response.Write("没有这一页!")
Response.End
End if
end if
%>
<%if rs11("lytitle")="" then%>欢迎访问吴江强大纺织服装有限公司留言板
<%else%><%=rs11("lytitle")%><%end if%>
<%
if TSum>1 Then
If PageNo=TSum or PageNo<>1 Then
PrwePage=PageNo-1
Response.Write "第一页 "
Response.Write "上一页 "
End If
If pageno=1 or TSum>PageNo Then
NextPage=PageNo+1
Response.Write "下一页 "
Response.Write "末一页 "
End If
End If
%>
<%
if PageNo=1 then i=rs.RECORDCOUNT else i=rs.RECORDCOUNT-(30*(PageNo-1))
%>
<%=webname%>首页
留言板方式查看