<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>农信通查询</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<link href="format.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
function canceluser(id)
{
if(confirm("确认?"))
{
location.href="?op=DelUser&Phone=<%=Request("Phone")%>&id="+id
}
//alert(id)
}
</script>
<%
if "" & request("Phone") <>"" then
if Request("op")="DelUser" then
'Delete user
conn.execute "update t_common_active_user set Status='1',UnRegTime='" & now & "' where id=" &Requestint("id")
end if
response.write "订购关系:<br>"
dim sql
'ID Phone FeePhone RegTime Status ServiceName LastFeeMonth FirstFeeTime RegTimes UnRegTime FirstMonth AddMethed
sql="select phone as 手机号码,RegTime as 订制时间,chinesename as 业务名称,CASE Status WHEN 0 THEN '正常用户' WHEN 1 THEN '已退订' END as 是否计费,UnRegTime as 取消时间,CASE LastFeeMonth WHEN 0 THEN '尚未计费' ELSE 'cast(LastFeeMonth as varchar(2))+月' end as 最后计费月份,'<a href=# οnclick=""canceluser(' + cast(a.id as varchar(20)) + ')"">取消</a>' as 操作 from t_common_active_user a join t_common_service b on a.servicename=b.servicename where extnumber like '09896%' and a.Phone = '" & requestex("Phone") & "'"
PrintRS_12580 conn.execute(sql)
end if
function PrintRS_12580(rs)
dim vcolcolor,vtabletitlebackcolor,vtablebordercolor
vcolcolor="#ffffff"
vtabletitlebackcolor="#f0f0f0"
vtablebordercolor="#e0e0e0"
if Typename(rs)<>"Recordset" then
response.write "本次操作无结果集"
end if
response.write "<table cellspacing='1' cellpadding='0' border=0 bgcolor='" & vtablebordercolor &"'>"
Response.write("<TR height=25 bgcolor='" & vcolcolor & "' >")
'For i=1 to rs.Fields.count
'Response.write("<TD height=25 bgcolor='" & Session("vtabletitlebackcolor") & "' >" & rs.Fields(i-1).type & "</TD>")
'Next
'Response.write("</tr><TR height=25 bgcolor='" & Session("vcolcolor") & "' >")
For i=1 to rs.Fields.count
Response.write("<TD height=25 bgcolor='" & vtabletitlebackcolor & "' >" & rs.Fields(i-1).name & "</TD>")
Next
'Response.write("</tr><TR height=25 bgcolor='" & Session("vcolcolor") & "' >")
'For i=1 to rs.Fields.count
'Response.write("<TD height=25 bgcolor='" & Session("vtabletitlebackcolor") & "' >" & rs.Fields(i-1).DefinedSize & "</TD>")
'Next
Do While Not rs.EOF
'///行开输出始///
Response.write("</tr><TR height=25 bgcolor='" & vcolcolor & "' >")
'遍历每一个字段
For i = 0 to rs.Fields.count-1
Response.Write("<TD>" & rs.Fields(i).value & " </TD>")
Next
Response.Write("</Tr>")
Response.Flush()
rs.MoveNext
Loop
'end if
response.write "</table><br><br>"
set rs2=rs.nextrecordset
if not rs2 is nothing then
PrintRS rs2
end if
end function
%>