<!-- #include file="tjConn.asp" -->
<!-- #include file="Conn.asp" -->
<!-- #include file="admin.asp" -->
<%call head()
Dim Conntjj,sid
sid=Request.querystring("sid")
On Error Resume Next
set Conntjj=Server.CreateObject ("Adodb.Connection")
Conntjj.Open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath(""&db&"")
IF  Request.QueryString("Action")="login" Then
call login
else
call index
end if
Function index
dim rs,sql,Runtxt,id
Runtxt=RunStr
id = Request("id")    
If id = "" Then id = 1
If Not IsNumeric(id) Then id = 1
id = CLng(id)
If id < 1 Then id = 1
call saycardd("删除统计")
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select top 1 *  FROM qtwap_tj_list where id="&id&""
rs.open sql,Conntjj,1,1
if not (rs.eof and rs.bof) then%>
确定删除<%=rs("time")%>的统计吗?<br/>
<a href="admin_del_tj_list.asp?Action=login&amp;id=<%=id%>&amp;saytk=<%=saytk%>&amp;sid=<%=sid%>">确定删除</a><br/><%
end if
rs.Close
Set rs = Nothing%>
<br/>-------------<br/><anchor title="back"><prev/>返回上级页面</anchor><br/>
<a href='admin_tj_list.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>返回统计管理</a><br/><a href='index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>后台管理首页</a><br/>
<%call head1
End Function
Function login
dim rs,sql,id,i
id = Request("id")    
If id = "" Then id = 1
If Not IsNumeric(id) Then id = 1
id = CLng(id)
If id < 1 Then id = 1
call cardz("删除统计","admin_tj_list.asp?saytk="&saytk&"&amp;sid="&sid&"")
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select top 1 *  FROM qtwap_tj_list where id="&id&""
rs.open sql,Conntjj,1,3
if not (rs.eof and rs.bof) then
rs.delete()
end if
rs.Close
Set rs = Nothing
%>删除统计成功!<br/>
<a href='admin_tj_list.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>返回统计管理</a><br/>
<a href='index.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>'>后台管理首页</a><br/>
<%call head1
end Function 
%>