📄 attribute.asp

📁 OA最新破解2008版全新破解希望大家用着舒服

💻 ASP

字号:

<%@ codepage ="936" %>
<%
if instr(session("flag"),"31")=0 then
response.redirect "../login.asp"
response.end
end if
%>
<!--#include file="../../conn/dbconn2.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公司审核</title>
<LINK href="../Style.css" rel=stylesheet type=text/css>
</head>
<%
IF request("action")="save" Then
call save()
Else
call main()
End If
sub main()
if not isEmpty(request("id")) then
userid=request("id")
else
userid=1
end if
Set rs= Server.CreateObject("ADODB.Recordset") 
sql="select * from corporation where id="&userid&""
rs.open sql,conn,1,1
%>

<FORM action=attribute.asp method=post name=form1>
<INPUT name=action type=hidden value="save">
<INPUT name=userid type=hidden value="<%=userid%>">
<TABLE align=center border=0 cellPadding=3 cellSpacing=0 width="98%">
<TBODY>
<TR>
<TD align=left>
<INPUT <%if rs("cflag")=0 then response.write "checked"%> name=flag type=radio value=0> 等待审核 
</TD>
<TD>
<INPUT <%if rs("cflag")=1 then response.write "checked"%> name=flag type=radio value=1> 通过审核
</TD>
</TR>
<TR>
<TD height="40" align="center" colspan=2>
<INPUT type=submit value='确&nbsp;&nbsp;定' name=Submit2>&nbsp;&nbsp;&nbsp;&nbsp;
<input type="button" value="返&nbsp;&nbsp;回" name="B4" onclick="javascript:window.close();">
</TD>
</TR>
</TBODY>
</TABLE>
</form>
<%
end sub
sub save()
set rs=server.createobject("adodb.recordset")
sql="select id,cflag from corporation where id="&request("userid")&""
rs.open sql,conn,3,3
rs("cflag")=request("flag")
rs.update
response.write "<br><center>"+"操作成功，请<a href=javascript:window.close();><font color=#ff000>关闭窗口</font></a>进行其他操作。"
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -