28,391
社区成员
发帖
与我相关
我的任务
分享
代码片段一
<input type="button" name="Hid" value="隐藏" onClick=" <%HiddenWebMoudule(wmid)%>">
代码片段二
Sub HiddenWebMoudule(WM_id)
response.write WM_id
response.end
Dim Sql
Sql = "update WebMoudule set WM_Hidden = 0 Where WM_id="&WM_id
Conn.Execute(Sql)
End Sub
<input type="button" name="Hid" value="隐藏" onclick="location.href=Operate.asp?WM_id=<%=wmid%>>
Operate.asp文件
<%
wmid=request("WM_id")
sql="update WebMondule set WM_Hidden=0 where WM_id="&wmid
conn.execute(sql)
%>