表单页面
结果显示页面
源代码
<!--#include file="../include/Config.asp"-->
<!--#include file="check_login.asp"-->
<body>
<% set rs=server.CreateObject("adodb.recordset")
sql="select username,logo from corpuser_info order by username desc"
rs.open sql,conn,1,3
%>
<form id="form1" name="form1" method="post" action="zhenzhi_logo.asp">
<table width="762" border="1">
<tr>
<td width="289"><span class="STYLE3">用户名</span><span class="STYLE1">(username)</span></td>
<td width="263"><span class="STYLE7">logo信息</span></td>
<td width="188"><span class="STYLE4">管理</span></td>
</tr>
<%do while not rs.eof and rs.bof%>
<tr>
<td><%=rs("username")%></td>
<td><%=rs("logo")%></td>
<td><a href="zhenzhi_logo.asp?username=<%=rs("username")%>&act="show" target="_self" class="STYLE4">显示</a><span class="STYLE4">/</span><a href="zhenzhi_logo.asp?username=<%rs("username")%>&act=“no" target="_self" class="STYLE4">不显示</a></td>
</tr>
<%rs.movenext%>
<%loop%>
</table>
</form>
<% act=request.querystring("act")
username=request.querystring("username")
set rb=server.createobject("adodb.recordset")
sql="select * from corpuser_info where username='"&username&"' "
rb.open sql,conn,2,3
if act="show" then
rb("logo")=1
if act="no" then
rb("logo")=0
end if
end if
rb.update
rb.close
set rb=nothing
conn.close
set conn=nothing
%>
[此贴子已经被作者于2007-9-24 14:05:35编辑过]
