이 ASP 코드를 해독하려면 어떻게 해야 합니까?

요청 (실행) = 전달인 경우

전달할 레코드를 엽니다.

Set conn=ope-db("oabusy ","co-n ","accessdsn ")

Rs = 서버를 설정합니다. CreateObject("ADODB.recordset ")

Sql = "select * from senddate where id =" & 요청 ("id")

Rs.open SQL, co-n, 1

Titleold = RS ("제목")

Contentold=rs("conte-t ")

Senderold=rs ("보낸 사람")

Filenameold=rs ("파일 이름")

Fileco-tenttypeold = RS ("파일 컨텐츠 유형")

Filevalueold=rs("filevalue ")

트랜스 폰더를 읽다

Set co-n=opendb("oabusy ","conn ","accessdsn ")

Rs = 서버를 설정합니다. CreateObject("ADODB.recordset ")

Sql = "select name from user INF where username =" & Sqlstr(oabusysername)

Rs.open SQL, co-n, 1

Change-ame=rs("-ame ") 입니다

제목 = 제목 이전

캉트-특 = 캉트-텔& "& ltbr & gt-< Br>[ 전달: "&; 차크투 & amp"]? [전달 시간: "&; 이제 ()& "] < Br >；; & amp 요청 ("콘텐츠")

Sendto = 요청 ("sendto")

자신을 어둡게 하다

Mysendto=split(sendto, "|",-1, 1)

Mysendto 의 각 sendtoi-f 에 대해 다음을 수행합니다

Userdeptpoint=I-Str(sendtoinf, ":")

만약 userdeptpoint & gt 가 0 이라면

Sendtoinflen=le-(sendtoinf)

Recipientusername = right (send to INF, 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-usernamepoint)

만약 ... 끝날거야

Recipie-tuserdept = 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<；; & gt ""그럼

Rs ("파일 이름") = 파일 모델

Rs ("파일 컨텐츠 유형") = 파일 컨텐츠 유형

Rs (파일 값) 입니다. Appe-dchunk 파일 값이 오래되었습니다

만약 ... 끝날거야

Rs. 업데이트

Rs 종료

Rs = 없음 설정

Conn=nothi-g 를 설정합니다

E-d if

그리고 나서

전달된 정보를 보낸 사람에게 회신하다.

발송자 = 요청자 ("발송자")

Recipie-tuser-ame = request ("recipient username")

Reid = 요청 ("Reid")

제목 = 요청 ("제목")

Co-te-t= "이 문서는"&; Sendto & amp“& ltbr >；; & amp 요청 ("콘텐츠")

Set conn=opendb("oabusy ","conn ","accessds- ")

Sql="Insert into senddate (제목, 내용, 보낸 사람, 받는 사람 사용자 이름, Reid) 값 ("

Sql = SQL& 제목& ","

Sql = SQL & ampsqlstr(conte-t) 및 ","

Sql = SQL & ampsqlstr (보낸 사람) 및 amp ","

Sql = SQL& sqlstr (recipie-tuser-ame) ","

Sql = SQL& 리드& ")"

Sql 실행

%>

집주인은 점수를 주는 것을 기억한다.