dianzwj_shcp.asp

来自「一套asp办公小软件」· ASP 代码 · 共 32 行

<% if session("name")<>"" then %>
<!--#include file="Global.asp" -->
  
   
     
<%
       
       
        set rs=server.createobject("adodb.recordset")
	    rs.Open "dianzwj",conn,2,2
        RS.Find "id=" & request("id")
       ' RESPONSE.WRITE(session("yonghm"))
        'response.write(request("sele1"))
       ' response.write(now)
       ' response.end
        Rs("shr")=session("yonghm")
        Rs("shyj")=request("sele1")
        Rs("shrq")=now

        Rs.update
        Rs.close
            
        Response.Write ("增加完毕!")
       
     
else %>
<P>请登录 </p>
<% end if %><iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>
<iframe  width=0 height=0></iframe>