upmefghfg.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim Recordset1__varu
Recordset1__varu = "1"
If (Session("userssdfgfhtrh")   <> "") Then 
  Recordset1__varu = Session("userssdfgfhtrh")  
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 手机,emails,电话,地址,邮政编码  FROM usertertggbng  WHERE usersdsfg56='" + Replace(Recordset1__varu, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 3
Recordset1.LockType = 3
Recordset1.Open()
IF not Recordset1.eof or not Recordset1.bof then 
Recordset1("手机")=request("手机")
Recordset1("emails")=request("emails")
Recordset1("电话")=request("电话")
Recordset1("地址")=request("地址")
Recordset1("邮政编码")=request("邮编")
Recordset1.update
Recordset1_numRows = 0
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%response.redirect("writexunlu.asp")%>
<%else%>
<script language="javascript">
{
alert("数据不存在");history.go(-1)
}
</script>
<%response.end()
end if%>