?? index.asp
字號(hào):
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全選"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "選擇全部";}}
</script>
<body>
<%
if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim log_id
for i = 0 to ubound(idarr)
log_id=clng(idarr(i))
call deleteannounce(log_id)
next
else
call deleteannounce(clng(idlist))
end if
end if
if request("action")="" then
response.write "<script language='javascript'>"
response.write "alert('您提交的信息不符合規(guī)范！');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
if Chkrequest(request("action")) then
action=request("action")
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
keywords=replace_text(request("keywords"))
%>
<%
sql="select * from corporation"
if action="0" then
if instr(Request.Cookies("globalec")("masterflag"),"11")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=0 and qyjj IS null"
end if
if action="1" then
if instr(Request.Cookies("globalec")("masterflag"),"11")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=0 and hybz=0 and qyjj IS not null"
end if
if action="2" then
if instr(Request.Cookies("globalec")("masterflag"),"12")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=1 and hybz=0"
end if
if action="3" then
if instr(Request.Cookies("globalec")("masterflag"),"14")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=0 and hybz=1 and qyjj IS not null"
end if
if action="4" then
if instr(Request.Cookies("globalec")("masterflag"),"14")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=1 and hybz=1 and flag=0"
end if
if action="5" then
if instr(Request.Cookies("globalec")("masterflag"),"15")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where uflag=1 and hybz=1 and flag=1 and enddate>getdate()"
end if
if action="6" then
if instr(Request.Cookies("globalec")("masterflag"),"16")=0 then
response.redirect "../err.asp"
response.end
end if
sql=sql&" where flag=1 and enddate<getdate()"
end if
if keywords>"" then sql=sql&" and ([user] like '%"&keywords&"%' or qymc like '%"&keywords&"%')"
sql=sql&" order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
msg_per_page=30 '定義每頁(yè)顯示記錄條數(shù)
%>
<!--#include file="../../inc/headpage.asp"-->
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th class="tableHeaderText" colspan=2 height=25>會(huì)員管理</th>
</tr>
<tr>
<td class="forumRowHighlight" colspan=2><p><B>注意</B>：<BR><font color=red>①任何的刪除操作都是不可逆的，執(zhí)行刪除時(shí)請(qǐng)慎重。</font><BR>
<font color=blue>②點(diǎn)擊<font color=red>登陸名</font>查看或修改用戶的"基本信息"。</font>
<br><font color=blue>③點(diǎn)擊<font color=red>公司名</font>查看或者修改用戶"企業(yè)信息"。</font>
<br><font color=blue>④<font color=red>無(wú)公司介紹待審核會(huì)員</font>為資料不全的會(huì)員，原則上不通過(guò)審核審核（即不用加入到公司庫(kù)）</font>
</td>
</tr>
<FORM name=searchForm action="select.asp" method=post>
<tr>
<td width="19%" height=25 class="forumRowHighlight">
<B>管理操作選項(xiàng)</B></td>
<td width="81%" class=forumRowHighlight>關(guān)鍵字：<input name="keywords" type="text" value="<%=keywords%>">
用戶組：<select name="which">
<option value="1" <%if action ="1" then Response.Write "selected"%>>等待審核的普通會(huì)員</option>
<option value="2" <%if action ="2" then Response.Write "selected"%>>已經(jīng)審核的普通會(huì)員</option>
<option value="3" <%if action ="3" then Response.Write "selected"%>>待審申請(qǐng)商貿(mào)通服務(wù)會(huì)員</option>
<option value="4" <%if action ="4" then Response.Write "selected"%>>未付費(fèi)的申請(qǐng)商貿(mào)通會(huì)員</option>
<option value="5" <%if action ="5" then Response.Write "selected"%>>已付費(fèi)的商貿(mào)通會(huì)員管理</option>
<option value="6" <%if action ="6" then Response.Write "selected"%>>待續(xù)費(fèi)的商貿(mào)通會(huì)員管理</option>
</select> <input type="submit" value="立刻查找" id=submit name=submit> [<a href="javascript:location.reload()">刷新頁(yè)面</a>]</td>
</tr>
</form>
</table>
<br>
<Form name="form" method="POST" action="index.asp?action=<%=action%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<tr>
<th class="tableHeaderText" height=25>會(huì)員列表</th>
<tr>
<td>
<TABLE width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
<TBODY>
<%
if rs.eof then
response.Write"<br><br><div align='center'>暫無(wú)數(shù)據(jù)信息</div><br><br>"
else
%>
<TR height=25>
<TD width="87" height="20" class=bodytitle><font color="#CC3300"><b>登陸名</b></font></TD>
<TD width="132" class=bodytitle><font color="#CC3300"><b>聯(lián)系人</b>(性別)</font></TD>
<TD width="265" class=bodytitle><font color="#CC3300"><b>公司名稱</b></font></TD>
<TD width="100" class=bodytitle><font color="#CC3300"><b>注冊(cè)時(shí)間</b></font></TD>
<TD width="165" class=bodytitle><font color="#CC3300"><b>商貿(mào)通服務(wù)起始日期</b></font></TD>
<TD width="91" class=bodytitle align="center"><font color="#CC3300"><b>操作</b></font></TD>
<TD width="61" align="center" class=bodytitle><input type='submit' value='刪除' onclick="{if(confirm('您確定執(zhí)行操作嗎?')){this.document.even.submit();return true;}return false;}"></TD>
</TR>
<%
do while not rs.eof and rowcount > 0%>
<TR height="20">
<TD width="87" class=forumRow><a title="查看或修改用戶資料" href="edit.asp?id=<%=rs("id")%>"><% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("user"), "<font color=red>$1</font>")%><%=result%></a></td>
<TD width="132" class=forumRow><a title="email" href="mailto:<%=rs("email")%>"><%=rs("name")%>(<%=rs("ch")%>)</a></td>
<TD width="265" class=forumRow>
<a title="查看或修改企業(yè)資料" href="../company/edit.asp?id=<%=rs("id")%>"><% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("qymc"), "<font color=red>$1</font>")%><%=result%></a></td>
<TD width="100" class=forumRow><%=rs("idate")%></td>
<TD width="165" class=forumRow><%if rs("flag")=1 then%>開(kāi)始時(shí)間：<%=rs("begindate")%><br><font color="#CC3300">結(jié)束時(shí)間：<%=rs("enddate")%></font><%else%><div align="center"><font color="#CC3300">暫未獲得服務(wù)</font></div><%end if%></td>
<TD width="91" class=forumRow align="center">
<%if action=1 then%>
<a href="shenghe.asp?id=<%=rs("id")%>&action=<%=action%>&page=<%=CurrentPage%>">
<font color="#008000">未審核</font></a>
<%end if%>
<%if action=2 then%>
<a href="shenghe1.asp?id=<%=rs("id")%>&action=<%=action%>&page=<%=CurrentPage%>">
<font color="#008000">已審核</font></a>
<%end if%>
<%if action=3 then%>
<a href="Attribute0.asp?id=<%=rs("id")%>&action=<%=action%>&page=<%=CurrentPage%>">
<font color="#0000FF">允許申請(qǐng)商貿(mào)通</font></a>
<%end if%>
<%if action=4 then%>
<a href="javascript:win=window.open('Attribute.asp?id=<%=rs("id")%>','contact','width=500,height=200,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();">
<font color="#0000FF">設(shè)置</font></a>
<%end if%>
<%if action=5 then%>
<a href="javascript:win=window.open('Attribute.asp?id=<%=rs("id")%>','contact','width=500,height=200,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();">
<font color="#0000FF">設(shè)置</font></a>
<%end if%>
<%if action=6 then%>
<a href="javascript:win=window.open('Attribute.asp?id=<%=rs("id")%>','contact','width=500,height=200,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no');win.focus();">
<font color="#0000FF">設(shè)置</font></a>
<%end if%>
</td>
<TD width="61" align="center" class=forumRow><input type=checkbox name=selAnnounce value="<%=cstr(rs("ID"))%>"></td>
</TR>
<%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
</TABLE>
</td>
</tr>
<tr><td class=forumRow><div align="right"><input type=button value=" 全部選定 " onClick="this.value=check(this.form)"></div></td></tr>
<tr>
<td class=forumrowHighLight align="center"><b><%=listPages("index.asp?action="&action&"&keywords="&keywords&"")%></b></td>
</tr>
</table></FORM>
<%
sub deleteannounce(id)
set DelRs=conn.execute("select * from corporation where id="&cstr(id)&"")
theuser=DelRs("user")
conn.execute("delete from [memberRelation] where [user]='"&theuser&"' or secuser='"&theuser&"'") '從會(huì)員關(guān)系表中刪除這個(gè)公司的信息
if action=5 then
conn.execute("delete from [book] where bookid="&cstr(id)&" or gsid="&cstr(id)&"") '從客戶反饋表中刪除這個(gè)公司的信息(商貿(mào)通公司專有)
end if
conn.execute("delete from [emailorder] where gsid="&cstr(id)&"") '從郵件訂閱表中刪除這個(gè)公司的信息
conn.execute("delete from [getprice] where mycid="&cstr(id)&" or sendcid="&cstr(id)&"") '從詢價(jià)表中刪除這個(gè)公司的信息
conn.execute("delete from [getprice1] where mycid="&cstr(id)&" or sendcid="&cstr(id)&"") '從詢價(jià)表1中刪除這個(gè)公司的信息
if action=5 then
conn.execute("delete from [trustadv] where bprid="&cstr(id)&" or pjrid="&cstr(id)&"") '從商貿(mào)通會(huì)員評(píng)論表中刪除這個(gè)公司的信息(商貿(mào)通公司專有)
conn.execute("delete from [work] where gsid="&cstr(id)&"") '從招聘表中刪除這個(gè)公司的信息(商貿(mào)通公司專有)
end if
conn.execute("delete from [info] where gsid="&cstr(id)&"") '從供求信息中刪除這個(gè)公司的信息
if action=5 then
conn.execute("delete from [productclass] where gsid="&cstr(id)&"") '從產(chǎn)品分類中刪除這個(gè)公司的信息(商貿(mào)通公司專有)
conn.execute("delete from [productshow] where gsid="&cstr(id)&"") '從產(chǎn)品信息中刪除這個(gè)公司的信息(商貿(mào)通公司專有)
end if
conn.execute("delete from [corporation] where id="&cstr(id)&"") '最后，從公司庫(kù)中刪除
if err.Number<>0 then
err.clear
response.write "刪 除 失 敗 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp"-->?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -