init.asp

来自「mlm双轨制直销系统V8.0免费版 可用于： 1、直拨、回拨电话卡公司。」· ASP 代码 · 共 82 行

<%@ LANGUAGE = VBScript %><!-- #include file="include/adovbs.inc" --><!--#include file="include/dataconn.asp"--><!-- #include file="include/checksession.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="delete * from hy where id<>126"
rs.open sql,conn,3,3
sql="select * from hyclub where id=126"
rs.open sql,conn,3,3
if not rs.eof then
rs("leftnumber")=""
rs("rightnumber")=""
rs.update
end if
rs.close

sql="delete * from hyclub where id<>126  "
rs.open sql,conn,3,3

sql="delete * from dlclub where hid<>126 "
rs.open sql,conn,3,3

sql="select * from dlclub where hid=126"
rs.open sql,conn,3,3
if not rs.eof then
rs("orders")=0
rs("allmoney")=10000
rs.update
end if
rs.close

sql="delete * from HyMoneyAccount"
rs.open sql,conn,3,3

sql="delete * from HyMoneyLog"
rs.open sql,conn,3,3

sql="delete * from orders"
rs.open sql,conn,3,3

sql="delete * from guestbook"
rs.open sql,conn,3,3


sql="delete * from commodity"
rs.open sql,conn,3,3

sql="delete * from CompanyYeji"
rs.open sql,conn,3,3


sql="delete * from friend"
rs.open sql,conn,3,3

sql="delete * from HfBook"
rs.open sql,conn,3,3

sql="delete * from HyBuDan"
rs.open sql,conn,3,3

sql="delete * from infoid"
rs.open sql,conn,3,3

sql="delete * from log"
rs.open sql,conn,3,3

sql="delete * from message"
rs.open sql,conn,3,3

sql="delete * from tongxunlu"
rs.open sql,conn,3,3

sql="delete * from t_InfoDetail"
rs.open sql,conn,3,3

sql="delete * from PaySignLog"
rs.open sql,conn,3,3

sql="delete * from pinglun"
rs.open sql,conn,3,3

'set rs=nothing
%>