addselfpost.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim r__u
r__u = "1"
If (Session("userssdfgfhtrh")  <> "") Then 
  r__u = Session("userssdfgfhtrh") 
End If
%>
<%
Dim r__d
r__d = "1"
If (request("id") <> "") Then 
  r__d = request("id")
End If
%>
<%
Dim r
Dim r_numRows
Set r = Server.CreateObject("ADODB.Recordset")
r.ActiveConnection = MM_oavbsconn_STRING
r.Source = "SELECT *  FROM 个人通讯录  WHERE 个人帐号='" + Replace(r__u, "'", "''") + "' and id=" + Replace(r__d, "'", "''") + ""
r.CursorType = 0
r.CursorLocation = 3
r.LockType = 3
r.Open()
r.addnew
r("宿舍电话")=request("宿舍电话")
r("办公电话")=request("办公电话")
r("手机")=request("手机")
r("email")=request("email")
r("邮政编码")=request("邮政编码")
r("组别")=request("userdept")
r("姓名")=request("姓名")
r("个人帐号")=request("个人帐号")
r("qq")=request("qq")
r("msn")=request("msn")
r("主页")=request("主页")
r("小灵通")=request("小灵通")
r("家庭电话")=request("家庭电话")

r("备注")=request("备注")
r("传真")=request("传真")
r("地址")=request("地址")
r("个人帐号")=Session("userssdfgfhtrh")
r("个人姓名")=Session("names")
r.update
r_numRows = 0
%>
<%
Dim rr__u
rr__u = "1"
If (Session("userssdfgfhtrh")  <> "") Then 
  rr__u = Session("userssdfgfhtrh") 
End If
%>
<%
Dim rr
Dim rr_numRows
Set rr = Server.CreateObject("ADODB.Recordset")
rr.ActiveConnection = MM_oavbsconn_STRING
rr.Source = "SELECT max(id) as maxid  FROM 个人通讯录  WHERE 个人帐号='" + Replace(rr__u, "'", "''") + "'"
rr.CursorType = 0
rr.CursorLocation = 3
rr.LockType = 3
rr.Open()

rr_numRows = 0
%>
<%
r.Close()
Set r = Nothing
%>
<%dim id
id=rr("maxid")
rr.Close()
Set rr = Nothing
%>
<%response.redirect "myseldeatal.asp?id="&cint(id)%>