|
|
<% Option explicit
Response.Expires = 0
Dim Conn,Comm,RS,BugID,addfn,FldLinks%><!-- Display links ( attachments, linked bugs ) for a given bug
QueryString : bugid=# ( bug # ) type=# ( link type: 3 = attach file, 1= related bugs, 0=duplicate, 6=dependent--><html><head>
<style type="text/css"> .act {color:menutext; background:menu; cursor:default} #bug {font-size:8pt} .vis {} .unvis {display:none} .inp {font-size:8pt; height:18; width:70; color:black; background:menu} .inpenab {font-size:8pt; height:18; width:70;} .titl {background:menu} .titlenab {} .fl {background:white; cursor:default} .hd {} .ac {width:60pt}</style>
<script language="JavaScript">
//// download//// download attached file//// event:// row in array of links//
function download() { ix = event.srcElement.parentElement.rowIndex - 1; if ( ix > -1 ) { f = document.all.item("FileName", ix).value; if ( f.substr(f.length-1,1) == "." ) f = f.substr(0, f.length-1); s = "r<%Response.Write Application("dbFileShareDir")(Session("DBSOURCE"))%>" + "/" + document.all.item("OriginalName", ix).value + "?_RAID_NAME_=" + f; window.open( s ); }}
//// showbug//// display details for selected bug//// event:// row in array of links//
function showbug() { ix = event.srcElement.parentElement.rowIndex - 1; if ( ix > -1 ) { s = "/scripts/raid/raid3.asp?BugID=" + document.all.item("LinkedBugID", ix).value; window.open( s ); }}
//// upload//// upload new attached file//
function upload() { v = window.showModalDialog( "upload.asp?bugid=" + document.all.up.bugid.value, "upload", "dialogWidth:300pt; dialogHeight:100pt" );
// // return value will be "uploaded" if request was sent to posting acceptor, // otherwise will be LinkID generated as placeholder for result of transfer // so if not "uploaded" then we must remove new record in links table //
if ( v != "uploaded" ) { document.all.up.linkid.value = v; document.all.up.action.value = "del"; document.all.up.submit(); }
location.reload();}
//// delattach//// delete file attachement ( in SQL DB & file system )//
function delattach() { ix = event.srcElement.parentElement.rowIndex - 1; if ( ix > -1 ) { //document.all.dela.target = ""; //document.all.dela.action = "/scripts/raid/<%=Application("dbFileShareDir")(Session("DBSOURCE"))%>/" + document.all.item("Filename", ix).value + "pac"; //document.all.dela.submit();
// // invoke ISAPI DLL to remove file //
w = window.open( "/scripts/raid/<%=Application("dbFileShareDir")(Session("DBSOURCE"))%>/" + document.all.item("Filename", ix).value + "pac?del=", "dela", "" ); //w.reload(); w.close();
// // invoke ASP to update RAID DB //
document.all.up.linkid.value = document.all.item("LinkID", ix).value; document.all.up.action.value = "delattach"; document.all.up.submit(); }}
function addlinkedbug( title ) { bi = prompt( title + " bug number:", "" ); if ( bi != null ) { document.all.up.linkedbug.value = bi; document.all.up.action.value = "add"; document.all.up.submit(); }}
function dellinkedbug() { ix = event.srcElement.parentElement.rowIndex - 1; if ( ix > -1 ) { document.all.up.linkid.value = document.all.item("LinkID", ix).value; document.all.up.action.value = "del"; document.all.up.submit(); }}
</script>
</head><body bgcolor=#c0c0c0><% ' EnumLinks: enumerate links in FldLinks array ' title: array of titles ' fld: array of field indexes in FldLinks ' onlick: client function for onclick event
SUB EnumLinks(title,ondblclick,fld,ondelete) Dim i,j,mx,n
Response.Write "<table id=lnk>" Response.Write "<thead><tr><th></th>" for i = 0 to UBound(title) Response.Write "<th class=hd>" & title(i) & "</th>" next Response.Write "</tr></thead><tbody>" if vbNull <> VarType(FldLinks) then mx = UBound(FldLinks,2) for i = 0 to mx Response.Write "<tr><td onclick=" & chr(34) & ondelete & chr(34) & ">Delete</td>" for j = 0 to UBound(fld) Response.Write "<td class=fl ondblclick=" & chr(34) & ondblclick & chr(34) & ">" & FldLinks(fld(j),i) & "</td>" next j = 0 for each n in RS.Fields Response.Write "<td><input type=hidden id=" & chr(34) & n.Name & chr(34) & " name=" & chr(34) & n.Name & chr(34) & " value=" & chr(34) & FldLinks(j,i) & chr(34) & "></input></td>" j = j + 1 next Response.Write "</tr>" next end if END SUB
Set Conn = Server.CreateObject("ADODB.Connection") Set Comm = Server.CreateObject("ADODB.Command") Set RS = Server.CreateObject("ADODB.Recordset") Conn.Open Session("DSN") Set Comm.ActiveConnection = Conn rem RS.CursorType = adOpenStatic Set RS.Source = Comm
Response.Write "<script language=" & chr(34) & "JavaScript" & chr(34) & ">" Response.Write "</script>"
BugID = Request.QueryString("bugid")
Comm.CommandText = "Select LinkID,FileName,OriginalName,LinkedBugID,TokenID from links where BugID=" & BugID & " AND fDeleted=0 AND Type=" & Request.QueryString("type") rem Response.Write Comm.CommandText RS.Open if NOT RS.EOF then FldLinks = RS.GetRows() else FldLinks = NULL end if
Response.Write "<table><tbody><tr><td><form id=" & chr(34) & "link" & "name=" & chr(34) & "link" & chr(34) & ">" Response.Write "<input type=hidden name=" & chr(34) & "bugid" & chr(34) & " id=" & chr(34) & "bugid" & chr(34) & " value=" & chr(34) & BugID & chr(34) & "></input>"
Select case Request.QueryString("type") case 3 EnumLinks Array("Attached Files"), "download()", Array(2), "delattach()" addfn = "upload()" case 1 EnumLinks Array("Related bugs"), "showbug()", Array(3), "dellinkedbug()" addfn = "addlinkedbug('Related')" case 0 EnumLinks Array("Duplicate bugs"), "showbug()", Array(3), "dellinkedbug()" addfn = "addlinkedbug('Duplicate')" case 6 EnumLinks Array("Dependent bugs"), "showbug()", Array(3), "dellinkedbug()" addfn = "addlinkedbug('Dependent')" end select
Response.Write "</tbody></table></form></td>"
RS.Close Conn.Close%><td><button onclick="<%=addfn%>" class="ac">Add</button><br><button onclick="window.close()" class="ac">Close</button><br></td></tr></table><div style="display:none"> <form id="up" action="/scripts/raid/addlink.asp" method=post> <input id="linkedbug" name="linkedbug" type=hidden> <input id="action" name="action" type=hidden> <input id="bugid" name="bugid" value="<%=BugID%>" type=hidden> <input id="linkid" name="linkid" value="" type=hidden> <input id="type" name="type" value="<%=Request.QueryString("type")%>" type=hidden> <input id="tokenid" name="tokenid" value="<%=Application("dbTokenID")(Session("DBSOURCE"))%>" type=hidden> </form></div></body></html>
|
