📄 gl_info1.asp

📁 全球商务网站系统介绍 GLOBALEC.COM.CN[生成HTML版] 系统概述：软件名称：全球商务网站系统当前版本：V1.0 最新版本：V1.1 运行环境：WINNT+（IIS）
💻 ASP
字号:
<!--#include file="../../conn/conn.asp"-->
<%
name=request("name")
steer=request("id")
search=trim(request("search"))
delid=request("delid")
info_id=request("info_id")
if delid<>"" then
conn.execute("delete P_info where id="&delid)
response.redirect "gl_info1.asp?id="&steer&"&name="&name
end if

isSwitch=request("isSwitch")
if isSwitch<>"" then
conn.execute("update P_info set isSwitch="&isSwitch&" where id="&info_id)
end if

set rst=conn.execute("select name from bbs_info_lei where left(steer,2)="&left(steer,2))
name_lei=trim(rst("name"))
rst.close

%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/style.css">
<script language=javascript>
function delid(id){
if(confirm("确定删除吗？")){
location.href="?id=<%=steer%>&name=<%=name%>&delid="+id;
}
}

  function mOvr(src,clrOver) {
    if (!src.contains(event.fromElement)) {
	  src.bgColor = clrOver;
	}
  }
  function mOut(src,clrIn) {
	if (!src.contains(event.toElement)) {
	  src.bgColor = clrIn;
	}
  }
</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="22" bgcolor="ff7300"><b><font color="#FFFFFF">&gt;&gt;</font><a href=gl_info.asp><font color="#FFFFFF">管理资讯</font></a><font color="#FFFFFF"> 
      &gt; <%=name_lei%> &gt; <%=name%> </font></b></td>
  </tr>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC">
  <form action="" name=form1 method="post">
    <tr> 
      <td height="30" bgcolor="eeeeee"> 
        <div align="center"> 
          <input type="text" name="search" size="50">
          <input type="submit" name="Submit" value="搜索">
        <font color=red><b><%=search%></b></font>
		</div>
      </td>
    </tr>
  </form>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#666666">
  <%
  set rs=server.createobject("adodb.recordset")
  if search<>"" then
  sql="select * from P_info where infoleiid="&steer&" and subject like '%"&search&"%'"
  else
  sql="select * from P_info where infoleiid="&steer&" order by infotime desc,id desc"
  end if
  rs.open sql,conn,1,1
  if not rs.eof then
  do while not rs.eof
  %>
  <tr  bgcolor="#FFFFFF" onMouseOut=mOut(this,'#ffffff') onMouseOver=mOvr(this,'#eeeeee')> 
    <td height="22" width="50%">&nbsp;<a href="../info/info.asp?id=<%=rs("id")%>&steer=<%=rs("infoleiid")%>&name_lei=<%=name_lei%>&name_smlei=<%=name%>" class=aw2 target=_blank><%=trim(rs("subject"))%></a>
    </td>
    <td height="22" width="40%"> 
      <div align="center">
	  <%
	  select case rs("isSwitch")
	  case 1
	  response.write "<a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=0'><font color=red>已设买卖经验谈</font></a>"
	  case 2
	  response.write "<a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=0'><font color=red>已设经营实务</font></a>"
	  case 3
	  response.write "<a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=0'><font color=red>已设软件定制</font></a>"
	  case else
	  response.write "<a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=1'>设为买卖经验谈</a> | <a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=2'>设为经营实务</a> | <a href='?info_id="&rs("id")&"&id="&steer&"&name="&name&"&isSwitch=3'>设为软件定制</a>"
	  end select
	  %>
	  </div>
      </td>
    <td height="22" width="10%"> 
      <div align="center"><a href="mod_info.asp?id=<%=rs("id")%>" target="_blank">修改</a> 
        | <a href="javascript:delid(<%=rs("id")%>)">删除</a></div>
    </td>
  </tr>
  <%
  rs.movenext
  loop
  end if
  rs.close
  %>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -