如果請求(“提交”)=“轉發”，那麽
打開要轉發的記錄。
set conn=ope-db("oabusy "，" co-n "，" accessdsn ")
設置rs =服務器。CreateObject("ADODB.recordset ")
SQL = " select * from senddate where id = " & amp；請求(“id”)
rs.open sql，co-n，1
titleold=rs("title ")
contentold=rs("conte-t ")
senderold=rs("發送者")
filenameold=rs("文件名")
fileCo-tentTypeold = RS(" file content type ")
filevalueold=rs("filevalue ")
讀出轉發器
set co-n=opendb("oabusy "，" conn "，" accessdsn ")
設置rs =服務器。CreateObject("ADODB.recordset ")
SQL = " select name from user INF where username = " & amp；sqlstr(oabusysername)
rs.open sql，co-n，1
change-ame=rs("-ame ")
標題=標題舊
康特-特=康特-特爾& amp“& ltbr & gt-& lt；br & gt[轉發:" &；恰克圖& amp"]?[轉發時間:" &；現在()& amp"]& lt；br >；& amp請求(“內容”)
sendto =請求(" sendto ")
讓自己變得暗淡
mysendto=split(sendto，" | "，-1，1)
對於mysendto中的每個sendtoi-f
userdeptpoint=I-Str(sendtoinf，":")
如果userdeptpoint & gt那麽0
sendtoinflen=le-(sendtoinf)
recipientusername = right(sendtoinf，sendtoinfle - userdeptpoint)
如果recipientusername= "everyone "那麽
Recipientusername= "每個人"
其他
user-amepoint=Instr(收件人用戶名，"(")
usernamelen=len(收件人用戶名)
recipient user-ame = left(recipient user-ame，usernamelen-1)
recipientusername = right(recipientusername，user-amelen-1-username point)
如果…就會結束
recipie-tuser dept = left(se-dtoi-f，userdeptpoint-1)
set conn=opendb("oabusy "，" conn "，" accessds-")
set RS = server . createobject(" adodb . recordset ")
sql = "select * from senddate "
rs。打開康涅狄格州1，3的sql
rs.addnew
rs("標題")=標題
RS(" co-te-t ")=內容
rs("sender")=senderold
rs("收件人用戶名")=收件人用戶名
RS(" recipientuserdept ")= recipientuserdept
if file-ame old & lt；& gt”“那麽
RS(" filename ")=文件模型
rs("文件內容類型")=文件內容類型
rs(“文件值”)。appe-dchunk文件值舊
如果…就會結束
rs .更新
rs關閉
設置rs =無
設置conn=nothi-g
e-d if
然後
將轉發的信息回復給原發件人。
發送方=請求方(“發送方”)
recipie-tuser-ame = request(" recipientusername ")
reid =請求(“reid”)
標題=請求(“標題”)
Co-te-t= "此文檔已轉發至:" &；sendto & amp“& ltbr >；& amp請求(“內容”)
set conn=opendb("oabusy "，" conn "，" accessds-")
sql="Insert into senddate(標題、內容、發件人、收件人用戶名、reid)值("
sql = sql & amp標題& amp","
sql = sql & ampsqlstr(conte-t)與","
sql = sql & ampsqlstr(發送者)和amp","
sql = sql & ampsqlstr(recipie-tuser-ame)","
sql = sql & amp裏德& amp")"
執行sql
% & gt
樓主記得給分。