index.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 253 行
ASP
253 行
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/FileSystem.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="31" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
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('您提交的信息不符合规范！');"
response.write"javascript:history.back(-1)</SCRIPT>"
response.end
end if
action=Replace_Text(request("action"))
keywords=replace_text(request("keywords"))
%>
<%
sql="select Yixiang_info.*,wygkcn_corporation.flag as corflag from Yixiang_Info,wygkcn_corporation where wygkcn_corporation.id=Yixiang_info.gsid and Yixiang_info.jinji <>1"
if action="0" then
sql=sql&" and Yixiang_info.flag=0 "
end if
if action="1" then
sql=sql&" and Yixiang_info.flag=1 and Yixiang_info.jinji=0"
end if
if request("type")<>"" then sql=sql&" and type='"&request("type")&"'"
if keywords<>"" then sql=sql&" and showname like '%"&keywords&"%'"
sql=sql&" order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
msg_per_page=20 '定义每页显示记录条数
%>
<!--#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> 会员供求管理</th>
</tr>
<tr>
<td class="forumRowHighlight" colspan=2><p><B>注意</B>：<BR><font color=red>①任何的删除操作都是不可逆的，执行删除时请慎重。</font><BR>
<font color=blue>②点击<font color=red>供求名称</font>查看或修改该条供求详细信息。</font>
<br><font color=blue>③点击<font color=red>公司名</font>查看或者修改用户"企业信息"。</font>
</td>
</tr>
<FORM name=searchForm action="select.asp" method=post>
<tr>
<td width="19%" height=25 class="forumRowHighlight">
<B>管理操作选项</B></td>
<td width="81%" class=forumRowHighlight>关键字：<input name="keywords" type="text" value="<%=keywords%>">
类型：
<select name="which">
<option value="2">待审供求</option>
<option value="3">已审供求</option>
<option value="4">待审紧急求购</option>
<option value="5">已审紧急求购</option>
</select> <input type="submit" value="立刻查找" id=submit name=submit> | [<a href="javascript:location.reload()">刷新页面</a>] </td>
</tr>
</form>
<tr>
<td height=25 colspan="2" class="forumRowHighlight">待审<a href="index.asp?action=0&type=卖"><font color=red>供应</font></a>/<a href="index.asp?action=0&type=买"><font color=red>求购</font></a> | 已审<a href="index.asp?action=1&type=卖"><font color=red>供应</font></a>/<a href="index.asp?action=1&type=买"><font color=red>求购</font></a> <a href="admin_check.asp?action=2"><font color=red>待审紧急求购</font></a>/<a href="admin_check.asp?action=3"><font color=red>已审紧急求购</font></a></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<Form name="search" method="POST" action="index.asp?action=<%=action%>&keywords=<%=keywords%>&type=<%=request("type")%>">
<tr>
<th class="tableHeaderText" height=25> 会员供求列表</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'>暂无数据信息</div><br><br>"
else
%>
<TR height=25>
<TD width="341" height="20" class=bodytitle><font color="#CC3300"><b>供求标题</b></font></TD>
<TD width="92" class=bodytitle align=center><font color="#CC3300"><b>所属类型</b></font></TD>
<TD width="291" class=bodytitle><font color="#CC3300"><b>发布公司</b></font></TD>
<TD width="72" class=bodytitle><font color="#CC3300"><b>发布时间</b></font></TD>
<TD width="66" class=bodytitle align="center"><font color="#CC3300"><b>操作</b></font></TD>
<TD width="46" align="center" class=bodytitle><input type='submit' value='删除' onClick="{if(confirm('您确定执行的操作吗?')){this.document.even.submit();return true;}return false;}"></TD>
</TR>
<%
do while not rs.eof and rowcount > 0%>
<TR height="20">
<TD width="341" class=forumRow><a href=edit.asp?info_id=<%=rs("info_id")%>&gsid=<%=rs("gsid")%> target="_blank"><% Set re = New RegExp
re.Pattern ="("&keywords&")"
re.IgnoreCase = True
re.Global=True
result = re.Replace(rs("showname"), "<font color=red>$1</font>")%><%=result%></a> </td>
<TD width="92" class=forumRow align=center><%if rs("type")="卖" then%><a href="index.asp?action=<%=action%>&keywords=<%=keywords%>&type=卖">供应</a><%end if%><%if rs("type")="买" then%><a href="index.asp?action=<%=action%>&keywords=<%=keywords%>&type=买">求购</a><%end if%></td>
<TD width="291" class=forumRow><%
set rs3=conn.execute("select id,qymc from wygkcn_corporation where id="&rs("gsid")&"")
response.write"<a href='../vipgrade/edit.asp?id="&rs3("id")&"'>"&rs3("qymc")&"</a>"
%></td>
<TD width="72" class=forumRow><%=rs("dateandtime")%></td>
<TD width="66" class=forumRow align="center"><% if rs("Flag")=1 then %>
<p align="center"> <a href="shenghe1.asp?info_id=<%=rs("info_id")%>&page=<%=CurrentPage%>&action=<%=action%>&type=<%=request("type")%>&keyworlds=<%=keyworlds%>">
<font color="#FF0000">已审核</font></a>
<%else%>
<p align="center"> <a href="shenghe.asp?info_id=<%=rs("info_id")%>&page=<%=CurrentPage%>&action=<%=action%>&type=<%=request("type")%>&keyworlds=<%=keyworlds%>">
<font color="#008000">未审核</font></a>
<%end if%>
</td>
<TD width="46" align="center" class=forumRow><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("info_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&"&type="&request("type")&"")%></b></td>
</tr></form>
</table>
<%
sub deleteannounce(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
if instr(id,",")>0 then
sql="delete from [Yixiang_Info] where info_id in("&cstr(id)&")"
Set RsGq=Server.CreateObject("Adodb.Recordset")
SqlGq="Select * From Yixiang_Info Where info_id in("&cstr(id)&")"
RsGq.Open SqlGq,Conn,1,3
IF Not(RsGq.Eof and RsGq.Bof) Then
Do While Not RsGq.Eof
ttid=RsGq("Info_ID")
sortid=RsGq("sortid")
typeid=RsGq("typeid")
typeid_2=RsGq("typeid_2")
showname=RsGq("showname")
dateandtime=RsGq("dateandtime")
period=Rs("period")
if RsGq("type")="卖" then
HtmlPath="tradeinfo"
else
HtmlPath="seller"
end if
FileName=HOPE_InstallDir&HtmlPath&"/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html"
Call FileDel(FileName)'删除文件
RsGq.MOVenext
If RsGq.Eof then Exit Do
Loop
End if
RsGq.Close
Set RsGq=Nothing
Else
sql="delete from [Yixiang_Info] where info_id="&cstr(id)
Set RsGq=Conn.Execute("Select * From Yixiang_Info Where info_id="&cstr(id)&"")
if not(RsGq.eof and RsGq.bof) then
ttid=RsGq("Info_ID")
sortid=RsGq("sortid")
typeid=RsGq("typeid")
typeid_2=RsGq("typeid_2")
showname=RsGq("showname")
dateandtime=RsGq("dateandtime")
period=RsGq("period")
if RsGq("type")="卖" then
HtmlPath="tradeinfo"
else
HtmlPath="seller"
end if
FileName=HOPE_InstallDir&HtmlPath&"/offerdetail/"&sortid&"-"&typeid&"-"&typeid_2&"-"&ttid&".html"
Call FileDel(FileName)'删除文件
end if
RsGq.Close
Set RsGq=Nothing
end if
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp"-->⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?