admin_tuijian.asp
来自「OA最新破解2008版 全新 破解 希望大家用着舒服」· ASP 代码 · 共 191 行
ASP
191 行
<%@ codepage ="936" %>
<%
if instr(session("flag"),"51")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="dbconn.asp"-->
<%
if request("w")="sh" then
dim a2
a2=request("theid")
set sr=server.createobject("adodb.recordset")
sql="select * from quoted where H_id = "& a2
sr.open sql,conn,3,3
sr("H_flag")=1
sr.update
sr.close
end if
if request("w")="sh1" then
dim a3
a3=request("theid")
set sr=server.createobject("adodb.recordset")
sql="select * from quoted where H_id = "& a3
sr.open sql,conn,3,3
sr("H_flag")=0
sr.update
sr.close
end if
if request("w")="ssh" then
set sr=server.createobject("adodb.recordset")
sql="select * from quoted where H_id = "& request("theid")
sr.open sql,conn,3,3
sr("H_tuijian")=1
sr.update
sr.close
end if
if request("w")="ssh1" then
set sr=server.createobject("adodb.recordset")
sql="select * from quoted where H_id = "& request("theid")
sr.open sql,conn,3,3
sr("H_tuijian")=0
sr.update
sr.close
end if
if request.form("submit")="删除" then
dim a1
a1=request("id")
set rsUser=server.createobject("adodb.recordset")
sql="delete from quoted where H_id=" & a1
conn.execute sql
end if
set rss=server.createobject("adodb.recordset")
sql="select * from quoted where H_tuijian = 1 order by H_id desc"
rss.open sql,conn,3,3
dim bbb
bbb=request.form("aaa")
%>
<html>
<link rel="stylesheet" type="text/css" href="../style.css">
<title>产品报价管理</title>
<body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0>
<br>
<TABLE width="600" border=0 align="center" cellPadding=3 cellSpacing=0>
<form name="search" method="POST" action="default.asp">
<TR>
<td><font color="#ff0000">点击产品名称进行相应操作</font></td>
<TD><img src="../images/search.gif"></td>
<td> 搜索关键字:<input type="text" name="txtitle" size="35"> </td>
<td><input type="submit" name="submit" value="查询"></td>
</TR>
</form>
</TABLE>
<br>
<%
Rss.PageSize=10
cpage=request.querystring("cpage")
pgnm=rss.pagecount
if bbb="" then
if cpage=""or clng(cpage)<1 then cpage=1
if clng(cpage)>pgnm then cpage=pgnm
if pgnm>0 then rss.absolutepage=cpage
count=0
else
cpage=bbb
if cpage=""or clng(cpage)<1 then cpage=1
if clng(cpage)>pgnm then cpage=pgnm
if pgnm>0 then rss.absolutepage=cpage
rss.absolutepage=cpage
count=0
end if
%>
<table width="680">
<td width="9%"> <div align="center"></div></td>
<td width="84%"><div align="center">共有<font color="Red"><%=Rss.RecordCount%></font>条记录，
分<font color="red"><%=Rss.PageCount%></font>页， 此是第<font color="red"><%=Cpage%></font>页
</div></td>
<td width="7%"> </td>
</tr>
</table>
<Table>
<TR>
<TD vAlign=top>
<TABLE width="98%" height=57 border=1 align="center" cellPadding=3 cellSpacing=1 borderColor=#111111 borderColorLight=#acd6ff borderColorDark=#acd6ff>
<TBODY>
<TR>
<td width="51" align="center" bgColor=#ddeeff>ID号</td>
<td width="245" align="center" bgColor=#ddeeff>产品名称</td>
<td width="259" align="center" bgColor=#ddeeff>公司名称</td>
<TD width="111" align="center" bgColor=#ddeeff>审核</td>
<TD width="59" align="center" bgColor=#ddeeff>推荐</td>
<td width="82" align="center" bgColor=#ddeeff>发布日期</td>
<td width="77" align="center" bgColor=#ddeeff>事务</td>
</tr>
<%if rss.eof then%>
<tr>
<td align=center colspan="7">对不起！暂无信息记录！！！</td>
</tr>
<%else%> <%
Rss.AbsolutePage=Cpage
count=1
While not Rss.EOF and count<=Rss.PageSize
dim aa
aa=rss("gsid")
set rs=server.createobject("adodb.recordset")
sql="select * from corporation where id = "& aa &" order by id desc"
rs.open sql,conn,3,3
%><form action="admin_tuijian.asp" method="post" >
<tr height="20">
<td width="51" height="26" align="center"><b><%=rss("h_id")%></b></td>
<td width="245"><a href=edit.asp?h_id=<%=rss("h_id")%>><%=rss("h_name")%></a></td>
<td width="259"><%=rs("qymc")%></td>
<TD width="111" align="center">
<%if rss("h_flag")=0 then%>
<a href="admin_tuijian.asp?theid=<%=rss("H_id")%>&w=sh"><img src="../images/m_news.gif" border=0> </a>
<%else%>
<a href="admin_tuijian.asp?theid=<%=rss("H_id")%>&w=sh1"><img src="../images/m_olds.gif" border=0> </a>
<%end if%>
</td>
<TD width="59" align="center">
<%if rss("h_tuijian")=0 then%>
<a href="admin_tuijian.asp?theid=<%=rss("H_id")%>&w=ssh"><img src="../images/m_news.gif" border=0> </a>
<%else%>
<a href="admin_tuijian.asp?theid=<%=rss("H_id")%>&w=ssh1"><img src="../images/m_olds.gif" border=0> </a>
<%end if%></td>
<td width="82" align="center"><%=rss("h_date")%></td>
<td width="77" align="center"><input type="hidden" name="id" value=<%=rss("H_id")%>><input name="submit" type='submit' value='删除' onclick="return window.confirm('确定要删除此产品信息吗？');"></td>
</tr>
</form>
<%
count=count+1
Rss.MoveNext
wend
%> <%end if%>
</table>
</td></tr></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="55" colspan="2">
<div align="center"><a href=admin_tuijian.asp?cpage=1>第一页</a> <a href=admin_tuijian.asp?cpage=<%=pgnm%>>最后一页</a>
<a href=admin_tuijian.asp?cpage=<%=cpage+1%>>下一页</a> <a href=admin_tuijian.asp?cpage=<%=cpage-1%>>上一页</a><br>
</div>
<table width="227" align="center">
<form method=post action="admin_tuijian.asp">
<tr>
<td width="219" align=center>跳转到 <INPUT TYPE="text" NAME="aaa" size="8" value=<%=request.form("aaa")%> >
页 <INPUT name="submit" TYPE="submit" value="确定"></td>
</tr>
</form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?