📄 tj.asp

📁 找北文章系统

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="../admin/conn.asp"-->
<!--#include file="admin_xy.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>数据统计</title>
</head>
<body>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: g362hao@gmail.com   	
'====================================================================
%>
<!--#include file="../admin/i.asp"-->
<%
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select * from add where xy='"&xy&"'"
rs.open sql,conn,1,3
myid=trim(rs("myid"))
rs.close
Set rs=nothing
%>
(每结一次钱数据清空一次)<br/>
你好,ID:<%=myid%>文章管理员!<br/>
--我的数据--<br/>
<%
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select * from art where user="&myid
rs.open sql,conn,1,2
%>
增加的文章总数:<%=rs.recordcount%><br/>
<%
rs.close
Set rs=nothing
%>
<%
set rs=Server.CreateObject("ADODB.Recordset")
Sql = "select * from art where pass and user="&myid
rs.open sql,conn,1,2
sj=rs.recordcount
%>
<%
qian=sj*0.04
rs.close
Set rs=nothing
%>
已通过审核的文章数(继续审核中):<%=sj%><br/>
收入<%=qian%>元<br/>
<a href="index.asp?myid=<%=myid%>&amp;xy=<%=xy%>">后台</a><br/>
<%
conn.close
set conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -