<%
on error resume next
page=request("page")
if page="" then
page=1
end if
datejsq=Year(Now())&"-"&Month(Now())&"-"&Day(Now())
dim rsjsq,sqljsq
call Connstart(str_conn)
sqljsq ="select * from jsq where rq between '"+datejsq+"' and '"+datejsq+"' and ym like '%[服务中心]-信息反馈%'"
set rsjsq=server.CreateObject ("adodb.recordset")
rsjsq.open sqljsq,conn,1,3
if rsjsq("id")="" then
rsjsq.addnew
rsjsq("ym")="[服务中心]-信息反馈"
rsjsq("number")=1
rsjsq("rq")=date()
rsjsq.update
else
rsjsq("number")=rsjsq("number")+1
rsjsq.update
end if
dim rsjsq1,sqljsq1
call Connstart(str_conn)
sqljsq1 ="select * from jsq1 where ym like '%[服务中心]-信息反馈%'"
set rsjsq1=server.CreateObject ("adodb.recordset")
rsjsq1.open sqljsq1,conn,1,3
if rsjsq1("id")="" then
rsjsq1.addnew
rsjsq1("ym")="[服务中心]-信息反馈"
rsjsq1("number")=1
rsjsq1.update
else
rsjsq1("number")=rsjsq1("number")+1
rsjsq1("rq")=date()
rsjsq1.update
end if
id1=request("id1")
dim rs,sql
call Connstart(str_conn)
sql ="select * from service where id="&id1&" "
set rs=server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=20
%>
无忧预订网|51order.com|<%=rs("bt")%>
