<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
|
<%
|
address=trim(Request("address"))
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
if OA_RunningOAid="" then
|
OA_RunningOAid=session("adminID")
|
end if
|
If OA_RunningOAid<>"" And address<>"" Then
|
sql="select top 1 id from OA_Running where OAid="&OA_RunningOAid&" and Running_address is null order by id desc"
|
rs.open Sql,objConn,1,1
|
if not rs.eof then
|
id = rs("id")
|
sql="update OA_Running set Running_address='"&address&"' where id="&id
|
objConn.Execute sql
|
end if
|
rs.close()
|
End If
|
|
%>
|
