manage_cars_xstuijian.asp

来自「这是一个关于汽车销售集团的网站」· ASP 代码 · 共 39 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file=../DataBase/conn.asp-->
<%
'推荐新车
if request("id")<>"" then
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from tb_Cars_s where id="&request("id")
	rs.open sql,conn,1,3
	
	rs("tuijian")=1      '当值为1时为已推荐
	rs.update
	rs.close
	response.Write("<br><br><br>")
	response.Write("<div align=center>  <img src=images/succ.gif width=95 height=97></div>")
	response.Write("<div align=center>操作成功!</div>")
	response.Write("<div align=center><a href='javascript:' onclick=window.close()>关闭</a></div>")
end if
'取消推荐
if request("did")<>"" then
	set rs=server.CreateObject("adodb.recordset")
	sql="select * from tb_Cars_s where id="&request("did")
	rs.open sql,conn,1,3
	
	rs("tuijian")=0    '当值为0时为未推荐
	rs.update
	rs.close
	response.Write("<br><br>")
	response.Write("<div align=center>  <img src=images/succ.gif width=95 height=97></div>")
	response.Write("<div align=center>操作成功!</div>")
	response.Write("<div align=center><a href='javascript:' onclick=window.close()>关闭</a></div>")
end if
%>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>